Just in case using a single Graphics3D may be of interest:
Graphics3D[{
PointSize[.01], Red, Point /@ threedPts,
Blue, Thickness[.003], Line@(Insert[#, -1, -1] & /@ twodPts),
GraphicsComplex[pts, {EdgeForm[], FaceForm[{Pink, Opacity[0.4]}], Polygon[surface]}],
ImageSize -> {200, 200}
}]
gives
Just in case using a single Graphics3D may be of interest:
Graphics3D[{
PointSize[.01], Red, Point /@ threedPts,
Blue, Thickness[.003], Line@(Insert[#, -1, -1] & /@ twodPts),
GraphicsComplex[pts, {EdgeForm[], FaceForm[{Pink, Opacity[0.4]}], Polygon[surface]}],
ImageSize -> {200, 200}}]
gives
Just in case using a single Graphics3D may be of interest:
Graphics3D[{
PointSize[.01], Red, Point /@ threedPts,
Blue, Thickness[.003], Line@(Insert[#, -1, -1] & /@ twodPts),
GraphicsComplex[pts, {EdgeForm[], FaceForm[{Pink, Opacity[0.4]}], Polygon[surface]}],
ImageSize -> {200, 200}
}]
gives
Just in case using a single Graphics3D may be of interest:
surfacePlot = Graphics3D[{
Graphics3D[{PointSize[.02]01], Red, Point /@ threedPts,
Blue, ThickThickness[.003], Line@(Insert[#, -1, -1] & /@ twodPts),
GraphicsComplex[pts, {EdgeForm[], FaceForm[{Pink, Opacity[0.3]4]}],
GraphicsComplex[ptsPolygon[surface]}], Polygon[surface]],
ImageSize -> {200, 200}},
BoxRatios -> 1, Axes -> False]]
gives
Just in case using a single Graphics3D may be of interest:
surfacePlot =
Graphics3D[{PointSize[.02], Red, Point /@ threedPts,
Blue, Thick, Line@(Insert[#, -1, -1] & /@ twodPts),
EdgeForm[], FaceForm[{Pink, Opacity[0.3]}],
GraphicsComplex[pts, Polygon[surface]], ImageSize -> {200, 200}},
BoxRatios -> 1, Axes -> False]
gives
Just in case using a single Graphics3D may be of interest:
Graphics3D[{
PointSize[.01], Red, Point /@ threedPts,
Blue, Thickness[.003], Line@(Insert[#, -1, -1] & /@ twodPts),
GraphicsComplex[pts, {EdgeForm[], FaceForm[{Pink, Opacity[0.4]}], Polygon[surface]}],
ImageSize -> {200, 200}}]
gives
Using onlyJust in case using a single Graphics3D may be of interest:
surfacePointLinePlotsurfacePlot =
Graphics3D[{EdgeForm[], Opacity[0.3],
GraphicsComplex[pts, Polygon[surface]], PointSize[.02], Red,
Point /@ threedPts,
Blue, Thick,
Line@(Insert[#, -1, -1] & /@ twodPts),
EdgeForm[], FaceForm[{Pink, Opacity[0.3]}],
GraphicsComplex[pts, Polygon[surface]], ImageSize -> {200, 200}},
BoxRatios -> 1, Axes -> False]
gives
Using only Graphics3D:
surfacePointLinePlot =
Graphics3D[{EdgeForm[], Opacity[0.3],
GraphicsComplex[pts, Polygon[surface]], PointSize[.02], Red,
Point /@ threedPts, Blue, Thick,
Line@(Insert[#, -1, -1] & /@ twodPts), ImageSize -> {200, 200}},
BoxRatios -> 1, Axes -> False]
gives
Just in case using a single Graphics3D may be of interest:
surfacePlot =
Graphics3D[{PointSize[.02], Red, Point /@ threedPts,
Blue, Thick, Line@(Insert[#, -1, -1] & /@ twodPts),
EdgeForm[], FaceForm[{Pink, Opacity[0.3]}],
GraphicsComplex[pts, Polygon[surface]], ImageSize -> {200, 200}},
BoxRatios -> 1, Axes -> False]
gives