diff --git a/Geo/Geo.cpp b/Geo/Geo.cpp
index 3df656f4c0cf9a7c65b8526e454158d82a5e4343..399decbb29a51eadea2b3fa86c4cbf751b8ab781 100644
--- a/Geo/Geo.cpp
+++ b/Geo/Geo.cpp
@@ -3244,27 +3244,6 @@ int ExtrudeSurface(int type, int is,
   return chap_num;
 }
 
-void ExtrudeShape(int extrude_type, int shape_type, int shape_num,
-                  double T0, double T1, double T2,
-                  double A0, double A1, double A2,
-                  double X0, double X1, double X2, double alpha,
-                  ExtrudeParams *e,
-                  List_T *list_out)
-{
-  Shape shape;
-  shape.Type = shape_type;
-  shape.Num = shape_num;
-  List_T *tmp = List_Create(1, 1, sizeof(Shape));
-  List_Add(tmp, &shape);
-  ExtrudeShapes(extrude_type, tmp,
-                T0, T1, T2,
-                A0, A1, A2,
-                X0, X1, X2, alpha,
-                e,
-                list_out);
-  List_Delete(tmp);
-}
-
 void ExtrudeShapes(int type, List_T *list_in,
                    double T0, double T1, double T2,
                    double A0, double A1, double A2,
diff --git a/Geo/Geo.h b/Geo/Geo.h
index cc34bbd259af82c9cbb6c1188acd47a927ed14d9..d1c815b56dbe647941585436dd641d809bfea764 100644
--- a/Geo/Geo.h
+++ b/Geo/Geo.h
@@ -224,12 +224,6 @@ void ExtrudeShapes(int extrude_type, List_T *in,
                    double X0, double X1, double X2, double alpha,
                    ExtrudeParams *e,
                    List_T *out);
-void ExtrudeShape(int extrude_type, int shape_type, int shape_num,
-                  double T0, double T1, double T2,
-                  double A0, double A1, double A2,
-                  double X0, double X1, double X2, double alpha,
-                  ExtrudeParams *e,
-                  List_T *out);
 int ExtrudePoint(int type, int ip,
                  double T0, double T1, double T2,
                  double A0, double A1, double A2,