SetDirectory["C:\\drorbn\\AcademicPensieve\\Projects\\Killam-2017"]

GraphicsRow[{
Graphics3D[{Polygon[{{0,0,0},{0,1,0},{1,1,0},{1,0,0}}]}, Boxed -> False, Axes -> False, PlotRange -> All],
Graphics3D[Sphere[{0,0,0}], Boxed -> False, Axes -> False, PlotRange -> All],
ParametricPlot3D[
{(2+Cos[β])Cos[α], (2+Cos[β])Sin[α], Sin[β]},
{α,0,2π}, {β,0,2π},
Mesh -> False,  Boxed -> False, Axes -> False, PlotRange -> All, ViewPoint->{1.94,-2.46,1.25},ViewVertical->{0.17,-0.17,1.29}
]
}] // Rasterize

MakeImage["Plane",
ParametricPlot3D[
{α, β, 0},
{α,0,2π}, {β,0,2π},
Mesh -> 7,  Boxed -> False, Axes -> False, PlotRange -> All, PlotStyle -> {RGBColor[1, 0.5,0.5]},
ViewPoint->{1.67083,-1.99305,2.14797},ViewVertical->{0.20268,-0.0882584,2.92578}
],
ImageSize -> 300]

MakeImage["Sphere",
ParametricPlot3D[
{Cos[ϕ]Cos[θ], Cos[ϕ]Sin[θ], Sin[ϕ]},
{θ,0,2π}, {ϕ,-π/2,π/2},
Mesh -> True,  Boxed -> False, Axes -> False, PlotRange -> All, PlotStyle -> {RGBColor[0.5,1,0.5]},
ViewPoint->{1.67083,-1.99305,2.14797},ViewVertical->{0.20268,-0.0882584,2.92578}
],
ImageSize -> 300]

MakeImage["Torus",
ParametricPlot3D[
{(2+Cos[β])Cos[α], (2+Cos[β])Sin[α], Sin[β]},
{α,0,2π}, {β,0,2π},
Mesh -> True,  Boxed -> False, Axes -> False, PlotRange -> All, PlotStyle -> {RGBColor[0.6,0.6,1]},
ViewPoint->{1.67083,-1.99305,2.14797},ViewVertical->{0.20268,-0.0882584,2.92578}
],
ImageSize -> 300]