(*   Oliver Knill,   5/18/2020,  ``Corona Recalibration", Cartoon drawn in  Mathematica             *)

S1=ContourPlot3D[x^2+y^2+z^2==1.2,{x,-3,3},{y,-3,3},{z,-3,3},Mesh->False,ContourStyle->White];
S2=ParametricPlot3D[{0,2s-2,t},{t,-0.5,0.5},{s,-0.5,1},Mesh->False,PlotStyle->{Thickness[0.5],Green}];
S3=ParametricPlot3D[2.3*{s*Cos[t],-s,s*Sin[t]}+{0,-1.0,0},{t,0,2Pi},{s,0,1},
  PlotPoints->100,Mesh->False,PlotStyle->{Thickness[0.4],Red}];
S4=ParametricPlot3D[{x,Cos[x*y],y},{x,-2,2},{y,-2,2}, Mesh->False,
  PlotPoints->100,PlotStyle->{Thickness[0.2],Yellow}];
S5=Graphics3D[{Blue,Cylinder[{{0,-2,0},{0,-5, 1}},0.2]}];
S6=Graphics3D[{Blue,Cylinder[{{0,-2,0},{0,-5,-1}},0.2]}];
Girl=Show[{S1,S2,S3,S4,S5,S6},Boxed->False,Axes->False,PlotRange->All,
  ViewPoint->{3.24,0.071,-0.97},ViewVertical->{0.54,0.81,-0.17}];

S2=ParametricPlot3D[{0,2s-2,t},{t,-0.5,0.5},{s,-0.5,1}, Mesh->False,PlotStyle->{Thickness[0.5],Green}];
S3=ParametricPlot3D[2.3*{s*Cos[t],-s,(1-s)Sin[t]}+{0,-1.0,0},{t,0,2Pi},{s,0,1},Mesh->False, 
  PlotPoints->100,PlotStyle->{Thickness[0.4],Red}];
S4=ParametricPlot3D[{x,Cos[x*y],y},{x,-1,1},{y,-1,1}, Mesh->False,PlotStyle->{Thickness[0.2],Yellow}];
Boy=Show[{S1,S2,S3,S4,S5,S6},Boxed->False,Axes->False,PlotRange->All,
  ViewPoint->{3.24,0.071,-0.97},ViewVertical->{0.54,0.81,-0.17}];

DistArrow1=Graphics3D[{Cylinder[{{0,-6,0},{0,-6,6}},0.1],
  {FontSize->32,Text["2ft",{0,-7,3}]},Cone[{{0,-6,6},{0,-6,7}},0.4],  Cone[{{0,-6,0},{0,-6,-1}},0.4]}];
DistArrow2=Graphics3D[{Cylinder[{{0,-6,0},{0,-6,12}},0.1],
  {FontSize->32,Text["4ft",{0,-7,6}]},Cone[{{0,-6,12},{0,-6,13}},0.4],Cone[{{0,-6,0},{0,-6,-1}},0.4]}];
DistArrow3=Graphics3D[{Cylinder[{{0,-6,0},{0,-6,18}},0.1], 
  {FontSize->32,Text["6ft",{0,-7,9}]},Cone[{{0,-6,18},{0,-6,19}},0.4],Cone[{{0,-6,0},{0,-6,-1}},0.4]}];

Graphics3D[{First[DistArrow1],First[Girl],Translate[First[Boy],{0,0,6}]},
  PlotRange->All,Boxed->False,Axes->False,PlotLabel->"Third Base",
  LabelStyle->{Black,FontSize->24},ViewPoint->{3.36126,0.23208,-0.302717},
  ViewVertical->{0.559189,0.828804,-0.0197782}]

Graphics3D[{First[DistArrow2],First[Girl],Translate[First[Boy],{0,0,12}]},
  PlotRange->All,Boxed->False,Axes->False,PlotLabel->"Second Base",
  LabelStyle->{Black,FontSize->24}, ViewPoint->{3.3633,0.256284,-0.257103},
  ViewVertical->{0.552732,0.833261,-0.012767}]

Graphics3D[{First[DistArrow3],First[Girl],Translate[First[Boy],{0,0,18}]},
  PlotRange->All,Boxed->False,Axes->False,PlotLabel->"First Base",
  LabelStyle->{Black,FontSize->24}, ViewPoint->{3.36298,0.337758,-0.141003},
  ViewVertical->{0.527589,0.849487,-0.00453855}]