Pensieve header: Generating Figure fig:ReverseGamma.

dh=0.1; w=0.01;
Arc[s_,h_,f_,t_]:=Tube[BezierCurve[{{f,0,h dh},{f,s Abs[t-f]/2,(h+1/3)dh},{t,s Abs[t-f]/2,(h+2/3)dh},{t,0,(h+1)dh}}], w];

g1=Graphics3D[{
w=Scaled[0.003];
Green,
{dh=0.25; Tube[BezierCurve[{{1,-1,0},{2,-0.5,0.5dh},{2.2,0,dh}}],w],
Arc[1,1,2.2,1.7], Arc[-1,2,1.7,0.6],Arc[1,3,0.6,3]},
{dh=1/7;Tube[BezierCurve[{{2,-1,0},{2.3,-0.5,0.5dh},{2.4,0,dh}}],w],
Arc[1,1,2.4,1.3],Arc[-1,2,1.3,0.8],Arc[1,3,0.8,2.8],Arc[-1,4,2.8,3.2],Arc[1,5,3.2,0.4],Arc[-1,6,0.4,2]},
{dh=0.5;Tube[BezierCurve[{{3,-1,0},{2.6,0,dh}}],w],
Arc[1,1,2.6,1]},
Black, H=8;
Style[Text["(A)",{0.5,0,0.9H}],FontSize->26, FontFamily->"Times"],
Tube[Line[{{1,0,1},{1,0,H}}],w], Tube[Line[{{2,0,1},{2,0,H}}],w], Tube[Line[{{3,0,1},{3,0,H}}],w],
Blue,Ball[{1,0,1},0.05], Ball[{2,0,1},0.05], Ball[{3,0,1},0.05]
}, ViewPoint->{0.126626,-5.97165,33.3065},ViewVertical->{-0.0121184,0.891873,0.452123},Boxed->False]

g2=Graphics3D[{
w=Scaled[0.0055];
Green,
{dh=0.25; Tube[BezierCurve[{{1,-1,0},{2,-0.5,0.5dh},{2.2,0,dh}}],w],
Arc[1,1,2.2,1.7], Arc[-1,2,1.7,0.6],Arc[1,3,0.6,3]},
{dh=1/7;Tube[BezierCurve[{{2,-1,0},{2.3,-0.5,0.5dh},{2.4,0,dh}}],w],
Arc[1,1,2.4,1.3],Arc[-1,2,1.3,0.8],Arc[1,3,0.8,2.8],Arc[-1,4,2.8,3.2],Arc[1,5,3.2,0.4],Arc[-1,6,0.4,2]},
{dh=0.5;Tube[BezierCurve[{{3,-1,0},{2.6,0,dh}}],w],
Arc[1,1,2.6,1]},
Black, H=2;
Style[Text["(B)",{0.5,0,0.9H}],FontSize->26, FontFamily->"Times"],
Tube[Line[{{1,0,1},{1,0,H}}],w], Tube[Line[{{2,0,1},{2,0,H}}],w], Tube[Line[{{3,0,1},{3,0,H}}],w],
Blue,Ball[{1,0,1},0.05], Ball[{2,0,1},0.05], Ball[{3,0,1},0.05]
}, ViewPoint->{-0.650017,-25.7217,21.9766},ViewVertical->{-0.0000262171,0.401913,0.915678},Boxed->False]

g3=Graphics3D[{
w=Scaled[0.006];
Green,
{dh=0.25; Tube[BezierCurve[{{1,-1,0},{2,-0.5,0.5dh},{2.2,0,dh}}],w],
Arc[1,1,2.2,1.7], Arc[-1,2,1.7,0.6],Arc[1,3,0.6,3]},
{dh=1/7;Tube[BezierCurve[{{2,-1,0},{2.3,-0.5,0.5dh},{2.4,0,dh}}],w],
Arc[1,1,2.4,1.3],Arc[-1,2,1.3,0.8],Arc[1,3,0.8,2.8],Arc[-1,4,2.8,3.2],Arc[1,5,3.2,0.4],Arc[-1,6,0.4,2]},
{dh=0.5;Tube[BezierCurve[{{3,-1,0},{2.6,0,dh}}],w],
Arc[1,1,2.6,1]},
Black, H=1.5;
Style[Text["(C)",{0.5,0,1.1H}],FontSize->26, FontFamily->"Times"],
Tube[Line[{{1,0,1},{1,0,H}}],w], Tube[Line[{{2,0,1},{2,0,H}}],w], Tube[Line[{{3,0,1},{3,0,H}}],w],
Blue,Ball[{1,0,1},0.05], Ball[{2,0,1},0.05], Ball[{3,0,1},0.05]
}, ViewPoint->{1.50411,-33.7946,-0.812523},ViewVertical->{0.00589753,-0.204892,0.978767},Boxed->False]

g=GraphicsRow[ImageCrop/@{g1,g2,g3},Scaled[0.2]]

Export["C:\\drorbn\\AcademicPensieve\\Projects\\OU/ReverseGamma.pdf",g]

Lighting Experiments

g3=Graphics3D[{
w=Scaled[0.006];
Green,
{dh=0.25; Tube[BezierCurve[{{1,-1,0},{2,-0.5,0.5dh},{2.2,0,dh}}],w],
Arc[1,1,2.2,1.7], Arc[-1,2,1.7,0.6],Arc[1,3,0.6,3]},
{dh=1/7;Tube[BezierCurve[{{2,-1,0},{2.3,-0.5,0.5dh},{2.4,0,dh}}],w],
Arc[1,1,2.4,1.3],Arc[-1,2,1.3,0.8],Arc[1,3,0.8,2.8],Arc[-1,4,2.8,3.2],Arc[1,5,3.2,0.4],Arc[-1,6,0.4,2]},
{dh=0.5;Tube[BezierCurve[{{3,-1,0},{2.6,0,dh}}],w],
Arc[1,1,2.6,1]},
Black, H=1.5;
Tube[Line[{{1,0,1},{1,0,H}}],w], Tube[Line[{{2,0,1},{2,0,H}}],w], Tube[Line[{{3,0,1},{3,0,H}}],w],
Blue,Ball[{1,0,1},0.05], Ball[{2,0,1},0.05], Ball[{3,0,1},0.05]
}, ViewPoint->{1.50411,-33.7946,-0.812523},ViewVertical->{0.00589753,-0.204892,0.978767},
Lighting ->{{"Point", White, {0.5,0,0.5}}, {"Point", White, {1.5,0,0.5}}, {"Point", White, {2.5,0,0.5}}, {"Point", White, {3.5,0,0.5}}},
Boxed->False]

g3=Graphics3D[{
w=Scaled[0.006];
Green,
{dh=0.25; Tube[BezierCurve[{{1,-1,0},{2,-0.5,0.5dh},{2.2,0,dh}}],w],
Arc[1,1,2.2,1.7], Arc[-1,2,1.7,0.6],Arc[1,3,0.6,3]},
{dh=1/7;Tube[BezierCurve[{{2,-1,0},{2.3,-0.5,0.5dh},{2.4,0,dh}}],w],
Arc[1,1,2.4,1.3],Arc[-1,2,1.3,0.8],Arc[1,3,0.8,2.8],Arc[-1,4,2.8,3.2],Arc[1,5,3.2,0.4],Arc[-1,6,0.4,2]},
{dh=0.5;Tube[BezierCurve[{{3,-1,0},{2.6,0,dh}}],w],
Arc[1,1,2.6,1]},
Black, H=1.5;
Tube[Line[{{1,0,1},{1,0,H}}],w], Tube[Line[{{2,0,1},{2,0,H}}],w], Tube[Line[{{3,0,1},{3,0,H}}],w],
Blue,Ball[{1,0,1},0.05], Ball[{2,0,1},0.05], Ball[{3,0,1},0.05]
}, ViewPoint->{1.50411,-33.7946,-0.812523},ViewVertical->{0.00589753,-0.204892,0.978767},
Lighting ->{ {"Point", White, {2,0,0.5}}},
Boxed->False]

g3=Graphics3D[{
w=Scaled[0.006];
Green,
{dh=0.25; Tube[BezierCurve[{{1,-1,0},{2,-0.5,0.5dh},{2.2,0,dh}}],w],
Arc[1,1,2.2,1.7], Arc[-1,2,1.7,0.6],Arc[1,3,0.6,3]},
{dh=1/7;Tube[BezierCurve[{{2,-1,0},{2.3,-0.5,0.5dh},{2.4,0,dh}}],w],
Arc[1,1,2.4,1.3],Arc[-1,2,1.3,0.8],Arc[1,3,0.8,2.8],Arc[-1,4,2.8,3.2],Arc[1,5,3.2,0.4],Arc[-1,6,0.4,2]},
{dh=0.5;Tube[BezierCurve[{{3,-1,0},{2.6,0,dh}}],w],
Arc[1,1,2.6,1]},
Black, H=1.5;
Tube[Line[{{1,0,1},{1,0,H}}],w], Tube[Line[{{2,0,1},{2,0,H}}],w], Tube[Line[{{3,0,1},{3,0,H}}],w],
Blue,Ball[{1,0,1},0.05], Ball[{2,0,1},0.05], Ball[{3,0,1},0.05]
}, ViewPoint->{1.50411,-33.7946,-0.812523},ViewVertical->{0.00589753,-0.204892,0.978767},
Lighting ->{ {"Point", White, {10,-10,1}}},
Boxed->False]

g3=Graphics3D[{
w=Scaled[0.006];
Green,
{dh=0.25; Tube[BezierCurve[{{1,-1,0},{2,-0.5,0.5dh},{2.2,0,dh}}],w],
Arc[1,1,2.2,1.7], Arc[-1,2,1.7,0.6],Arc[1,3,0.6,3]},
{dh=1/7;Tube[BezierCurve[{{2,-1,0},{2.3,-0.5,0.5dh},{2.4,0,dh}}],w],
Arc[1,1,2.4,1.3],Arc[-1,2,1.3,0.8],Arc[1,3,0.8,2.8],Arc[-1,4,2.8,3.2],Arc[1,5,3.2,0.4],Arc[-1,6,0.4,2]},
{dh=0.5;Tube[BezierCurve[{{3,-1,0},{2.6,0,dh}}],w],
Arc[1,1,2.6,1]},
Black, H=1.5;
Tube[Line[{{1,0,1},{1,0,H}}],w], Tube[Line[{{2,0,1},{2,0,H}}],w], Tube[Line[{{3,0,1},{3,0,H}}],w],
Blue,Ball[{1,0,1},0.05], Ball[{2,0,1},0.05], Ball[{3,0,1},0.05]
}, ViewPoint->{1.50411,-33.7946,-0.812523},ViewVertical->{0.00589753,-0.204892,0.978767},
Lighting ->{ atten={3,0,0};{"Point", White, {1,-2,1},atten},{"Point", White, {2,-2,1},atten},{"Point", White, {3,-2,1},atten}},
Boxed->False]