Pensieve header: A collection of images for virtual 2-knots.

SetDirectory["C:\\drorbn\\AcademicPensieve\\2014-01"]

MakeImage["V2K-01",
Graphics3D[{
Opacity[0.85],
Glow[Red],Polygon[{{-10,0,-10},{-10,0,10},{10,0,10},{10,0,-10}}],
Glow[Blue],
Polygon[{{0,-10,-10},{0,-10,10},{0,-1,10},{0,-1,-10}}],
Polygon[{{0,10,-10},{0,10,10},{0,1,10},{0,1,-10}}]
}, Lighting -> None, Boxed -> False],
ImageSize -> 300]

MakeImage["V2K-02",
Graphics3D[{
Opacity[0.75],
Glow[Red],Polygon[{{-10,0,-10},{-10,0,10},{10,0,10},{10,0,-10}}],
Glow[Green],
Polygon[{{0,-10,-10},{0,-10,10},{0,-1,10},{0,-1,-10}}],
Polygon[{{0,10,-10},{0,10,10},{0,1,10},{0,1,-10}}],
Glow[Blue],
Polygon[{{1,10,0}, {1,2,0}, {10,2,0}, {10,10,0}}],
Polygon[{{-1,10,0}, {-1,2,0}, {-10,2,0}, {-10,10,0}}],
Polygon[{{-1,-10,0}, {-1,-2,0}, {-10,-2,0}, {-10,-10,0}}],
Polygon[{{1,-10,0}, {1,-2,0}, {10,-2,0}, {10,-10,0}}]
}, Lighting -> None, Boxed -> False],
ImageSize -> 300]

MakeImage["V2K-03",
Graphics3D[{
Opacity[0.65],
Glow[Hue[0/4]],Polygon[{{-10,0,-10},{-10,0,10},{10,0,10},{10,0,-10}}],
Glow[Hue[1/4]],
Polygon[{{0,-10,-10},{0,-10,10},{0,10,10},{0,10,-10}}],
Glow[Hue[2/4]],
Polygon[{{-10,10,0}, {-10,-10,0}, {10,-10,0}, {10,10,0}}],
Glow[Hue[3/4]],
Polygon[10{{2,-1,-1}, {-1,2,-1}, {-1,-1,2}}+2{1,1,1}]
},
Boxed->False,ImageSize->{390.`,Automatic},Lighting->None,PlotRange->10,ViewPoint->{24.7,12.5,7.45},ViewVertical->{-0.072,-0.109,0.991}
],
ImageSize -> 300]

MakeImage["V2K-04",
Graphics3D[{
Opacity[0.65],
Glow[Hue[0/4]],Polygon[{{-10,0,-10},{-10,0,10},{10,0,10},{10,0,-10}}],
Glow[Hue[1/4]],
Polygon[{{0,-10,-10},{0,-10,10},{0,10,10},{0,10,-10}}],
Glow[Hue[2/4]],
Polygon[{{-10,10,0}, {-10,-10,0}, {10,-10,0}, {10,10,0}}],
Glow[Hue[3/4]],
Polygon[10{{2,-1,-1}, {-1,2,-1}, {-1,-1,2}}-2{1,1,1}]
},
Boxed->False,ImageSize->{390.`,Automatic},Lighting->None,PlotRange->10,ViewPoint->{24.7,12.5,7.45},ViewVertical->{-0.072,-0.109,0.991}
],
ImageSize -> 300]

MakeImage["V2K-05",
Plot3D[{x y, -0.1-x y}, {x,-2,2}, {y,-2,2},
BoxRatios->{1,1,0.4`},Boxed->False,ImageSize->{315.1729630273366`,260.`},Method->{"RotationControl"->"Globe"},PlotRange->{{-2,2},{-2,2},All},PlotRangePadding->{Scaled[0.02`],Scaled[0.02`],Scaled[0.02`]},ViewPoint->{-2.580627656842925`,-0.9026639334946656`,-1.9938803173473902`},ViewVertical->{0.`,0.`,-1.`}, PlotStyle->{{Opacity[0.8], Red},{Opacity[0.8], Blue}}, Mesh -> False, PlotPoints -> 50, Boxed -> False, Axes->False
],
ImageSize -> 300
]

MakeImage["V2K-06",
Plot3D[{x y, 0.1-x y}, {x,-2,2}, {y,-2,2},
BoxRatios->{1,1,0.4`},Boxed->False,ImageSize->{315.1729630273366`,260.`},Method->{"RotationControl"->"Globe"},PlotRange->{{-2,2},{-2,2},All},PlotRangePadding->{Scaled[0.02`],Scaled[0.02`],Scaled[0.02`]},ViewPoint->{-2.580627656842925`,-0.9026639334946656`,-1.9938803173473902`},ViewVertical->{0.`,0.`,-1.`}, PlotStyle->{{Opacity[0.8], Red},{Opacity[0.8], Blue}}, Mesh -> False, PlotPoints -> 50, Boxed -> False, Axes->False
],
ImageSize -> 300
]

MakeImage["V2K-07",
ParametricPlot3D[
{t Cos[α],t Sin[α], Sin[2α]},
{α,0,π/2}, {t,-1,1},
ColorFunction -> Function[{x,y,z,α,t}, Glow[Hue[((3α)/(2π))]]],
ColorFunctionScaling->False, Lighting -> None, Boxed -> False, Axes -> None, Mesh -> False,
PlotStyle->Opacity[0.8], ViewPoint->{2.92229,-1.60047,0.552585},ViewVertical->{0.694529,-0.375278,1.22767}
],
ImageSize -> 300]