NotebookDirectory[]

To evaluate the whole notebook Alt+v then o

Ice cream

Clear[Ice1];

vpi={1.6558964391967557`,0.7327183050287714`,1.0105102018937098`}; vvi={-0.24177001362579376`,0.02758270685892636`,1.9398829395545683`};
plotops=Sequence[PlotRange->{{-2(Sqrt[2]),2(Sqrt[2])},{-2(Sqrt[2]),2(Sqrt[2])},{0,2(Sqrt[2])}},BaseStyle->{FontSize-> 18},AxesLabel->{x,y,z},ImageSize->600,ViewPoint->Dynamic[vpi],ViewVertical->Dynamic[vvi],Axes->True];

 Ice1=Show[ParametricPlot3D[{{(Sqrt[8]) Cos[θ]Sin[ϕ],(Sqrt[8]) Sin[θ]Sin[ϕ],2(Sqrt[2])Cos[ϕ]}},{θ,0,2 Pi},{ϕ,0,(Pi/2)},Mesh->False,PlotStyle->{{Opacity[0.75]}},PlotPoints->{256,128}],ParametricPlot3D[{{r Cos[θ]Sin[Pi/4],r Sin[θ]Sin[Pi/4],r Cos[Pi/4]}},{θ,0,2 Pi},{r,0,4},Mesh->False,PlotStyle->{{Opacity[0.5]}},PlotPoints->{256,128}],Evaluate[plotops]]

(* Export["Ice1.gif",Ice1,"GIF"] *)

Clear[Ice2];

Ice2=Show[
Graphics3D[{
{Opacity[0.75],Polygon[{{-2(Sqrt[2]),0,0},{2(Sqrt[2]),0,0},{2(Sqrt[2]),0,2(Sqrt[2])},{-2(Sqrt[2]),0,2(Sqrt[2])}}]},{Thickness[0.005],Line[{{-2(Sqrt[2]),0,2(Sqrt[2])},{0,0,0},{2(Sqrt[2]),0,2(Sqrt[2])}}],
Line[{(Sqrt[8]) Cos[0]Sin[#],0,2(Sqrt[2])Cos[#]}&/@Range[-Pi/2,Pi/2,Pi/128]]}
}],
ParametricPlot3D[{{2(Sqrt[2]) Cos[θ]Sin[ϕ],2(Sqrt[2]) Sin[θ]Sin[ϕ],2(Sqrt[2])Cos[ϕ]}},{θ,0,2 Pi},{ϕ,0,(Pi/2)},Mesh->False,PlotStyle->{{Opacity[0.5]}},PlotPoints->{256,128}],ParametricPlot3D[{{r Cos[θ]Sin[Pi/4],r Sin[θ]Sin[Pi/4],r Cos[Pi/4]}},{θ,0,2 Pi},{r,0,4},Mesh->False,PlotStyle->{{Opacity[0.75]}},PlotPoints->{256,128}],Evaluate[plotops]]

(* Export["Ice2.gif",Ice2,"GIF"] *)

Clear[Ice3];

 Ice3=Show[ParametricPlot3D[{{(Sqrt[8]) Cos[θ]Sin[ϕ],(Sqrt[8]) Sin[θ]Sin[ϕ],2(Sqrt[2])Cos[ϕ]}},{θ,0,2 Pi},{ϕ,0,(Pi/4)},Mesh->False,PlotStyle->{{Opacity[0.5]}},PlotPoints->{256,128}],ParametricPlot3D[{{r Cos[θ]Sin[Pi/4],r Sin[θ]Sin[Pi/4],r Cos[Pi/4]}},{θ,0,2 Pi},{r,0,2(Sqrt[2])},Mesh->False,PlotStyle->{{Opacity[0.75]}},PlotPoints->{256,128}],Evaluate[plotops]]

(* Export["Ice3.gif",Ice3,"GIF"] *)

vpi={1.6558964391967557`,0.7327183050287714`,1.0105102018937098`}; vvi={-0.24177001362579376`,0.02758270685892636`,1.9398829395545683`};
plotops=Sequence[PlotRange->{{-2(Sqrt[2]),2(Sqrt[2])},{-2(Sqrt[2]),2(Sqrt[2])},{-2(Sqrt[2]),2(Sqrt[2])}},BaseStyle->{FontSize-> 18},ImageSize->300,ViewPoint->Dynamic[vpi],ViewVertical->Dynamic[vvi],Axes->False];

 Show[ParametricPlot3D[{{(Sqrt[8]) Cos[θ]Sin[ϕ],(Sqrt[8]) Sin[θ]Sin[ϕ],2(Sqrt[2])Cos[ϕ]}},{θ,0,2 Pi},{ϕ,0,Pi},Mesh->False,PlotStyle->{{Opacity[0.75]}},PlotPoints->{256,128}],ParametricPlot3D[{{r Cos[θ]Sin[Pi/4],r Sin[θ]Sin[Pi/4],r Cos[Pi/4]}},{θ,0,2 Pi},{r,0,4},Mesh->False,PlotStyle->{{Opacity[0.5]}},PlotPoints->{256,128}],
ParametricPlot3D[{RotateLeft[{r Cos[θ]Sin[Pi/4],r Sin[θ]Sin[Pi/4],r Cos[Pi/4]}]},{θ,0,2 Pi},{r,0,4},Mesh->False,PlotStyle->{{Opacity[0.5]}},PlotPoints->{256,128}],
ParametricPlot3D[{RotateRight[{r Cos[θ]Sin[Pi/4],r Sin[θ]Sin[Pi/4],r Cos[Pi/4]}]},{θ,0,2 Pi},{r,0,4},Mesh->False,PlotStyle->{{Opacity[0.5]}},PlotPoints->{256,128}],
ParametricPlot3D[{{r Cos[θ]Sin[Pi/4],r Sin[θ]Sin[Pi/4],-r Cos[Pi/4]}},{θ,0,2 Pi},{r,0,4},Mesh->False,PlotStyle->{{Opacity[0.5]}},PlotPoints->{256,128}],
ParametricPlot3D[{RotateLeft[{r Cos[θ]Sin[Pi/4],r Sin[θ]Sin[Pi/4],-r Cos[Pi/4]}]},{θ,0,2 Pi},{r,0,4},Mesh->False,PlotStyle->{{Opacity[0.5]}},PlotPoints->{256,128}],
ParametricPlot3D[{RotateRight[{r Cos[θ]Sin[Pi/4],r Sin[θ]Sin[Pi/4],-r Cos[Pi/4]}]},{θ,0,2 Pi},{r,0,4},Mesh->False,PlotStyle->{{Opacity[0.5]}},PlotPoints->{256,128}],
Evaluate[plotops]]

vpi={1.6558964391967557`,0.7327183050287714`,1.0105102018937098`}; vvi={-0.24177001362579376`,0.02758270685892636`,1.9398829395545683`};
op1=0.5;op2=0.8;
plotops=Sequence[PlotRange->{{-2(Sqrt[2]),2(Sqrt[2])},{-2(Sqrt[2]),2(Sqrt[2])},{-2(Sqrt[2]),2(Sqrt[2])}},BaseStyle->{FontSize-> 18},ImageSize->300,ViewPoint->Dynamic[vpi],ViewVertical->Dynamic[vvi],Axes->False,Boxed->False];

 Show[ParametricPlot3D[{{2(Sqrt[2]) Cos[θ]Sin[ϕ],2(Sqrt[2]) Sin[θ]Sin[ϕ],2(Sqrt[2])Cos[ϕ]}},{θ,0,2 Pi},{ϕ,0,Pi},Mesh->False,PlotStyle->{{Opacity[op1]}},PlotPoints->{256,128}],ParametricPlot3D[{{2(Sqrt[2]) Cos[θ]Sin[ϕ],2(Sqrt[2]) Sin[θ]Sin[ϕ],2(Sqrt[2])Cos[ϕ]}},{θ,0,2 Pi},{ϕ,0,(Pi/4)},Mesh->False,PlotStyle->{{Opacity[op2]}},PlotPoints->{256,128}],
ParametricPlot3D[{RotateLeft[{2(Sqrt[2]) Cos[θ]Sin[ϕ],2(Sqrt[2]) Sin[θ]Sin[ϕ],2(Sqrt[2])Cos[ϕ]}]},{θ,0,2 Pi},{ϕ,0,(Pi/4)},Mesh->False,PlotStyle->{{Opacity[op2]}},PlotPoints->{256,128}],
ParametricPlot3D[{RotateRight[{2(Sqrt[2]) Cos[θ]Sin[ϕ],2(Sqrt[2]) Sin[θ]Sin[ϕ],2(Sqrt[2])Cos[ϕ]}]},{θ,0,2 Pi},{ϕ,0,(Pi/4)},Mesh->False,PlotStyle->{{Opacity[op2]}},PlotPoints->{256,128}],
ParametricPlot3D[{{2(Sqrt[2]) Cos[θ]Sin[ϕ],2(Sqrt[2]) Sin[θ]Sin[ϕ],-2(Sqrt[2])Cos[ϕ]}},{θ,0,2 Pi},{ϕ,0,(Pi/4)},Mesh->False,PlotStyle->{{Opacity[op2]}},PlotPoints->{256,128}],
ParametricPlot3D[{RotateLeft[{2(Sqrt[2]) Cos[θ]Sin[ϕ],2(Sqrt[2]) Sin[θ]Sin[ϕ],-2(Sqrt[2])Cos[ϕ]}]},{θ,0,2 Pi},{ϕ,0,(Pi/4)},Mesh->False,PlotStyle->{{Opacity[op2]}},PlotPoints->{256,128}],
ParametricPlot3D[{RotateRight[{2(Sqrt[2]) Cos[θ]Sin[ϕ],2(Sqrt[2]) Sin[θ]Sin[ϕ],2(Sqrt[2])Cos[ϕ]}]},{θ,0,2 Pi},{ϕ,0,(Pi/4)},Mesh->False,PlotStyle->{{Opacity[op2]}},PlotPoints->{256,128}],
Evaluate[plotops]]

?Cuboid

Graphics3D[{Opacity[0.5],Cuboid[{-2,-2,-2},{2,2,2}]}]

vpi={1.6558964391967557`,0.7327183050287714`,1.0105102018937098`}; vvi={-0.24177001362579376`,0.02758270685892636`,1.9398829395545683`};
op1=0.5;op2=1;
plotops=Sequence[PlotRange->{{-2(Sqrt[2]),2(Sqrt[2])},{-2(Sqrt[2]),2(Sqrt[2])},{-2(Sqrt[2]),2(Sqrt[2])}},BaseStyle->{FontSize-> 18},ImageSize->300,ViewPoint->Dynamic[vpi],ViewVertical->Dynamic[vvi],Axes->False,Boxed->False];

 Show[Graphics3D[{Opacity[0.3],Cuboid[{-2,-2,-2},{2,2,2}]}],
ParametricPlot3D[{{2(Sqrt[2]) Cos[θ]Sin[ϕ],2(Sqrt[2]) Sin[θ]Sin[ϕ],2(Sqrt[2])Cos[ϕ]}},{θ,0,2 Pi},{ϕ,0,Pi},Mesh->False,PlotStyle->{{Opacity[op1]}},PlotPoints->{256,128}],
ParametricPlot3D[{{2(Sqrt[2]) Cos[θ]Sin[ϕ],2(Sqrt[2]) Sin[θ]Sin[ϕ],2(Sqrt[2])Cos[ϕ]}},{θ,0,2 Pi},{ϕ,0,(Pi/4)},Mesh->False,PlotStyle->{{Opacity[op2]}},PlotPoints->{256,128}],
ParametricPlot3D[{RotateLeft[{2(Sqrt[2]) Cos[θ]Sin[ϕ],2(Sqrt[2]) Sin[θ]Sin[ϕ],2(Sqrt[2])Cos[ϕ]}]},{θ,0,2 Pi},{ϕ,0,(Pi/4)},Mesh->False,PlotStyle->{{Opacity[op2]}},PlotPoints->{256,128}],
ParametricPlot3D[{RotateRight[{2(Sqrt[2]) Cos[θ]Sin[ϕ],2(Sqrt[2]) Sin[θ]Sin[ϕ],2(Sqrt[2])Cos[ϕ]}]},{θ,0,2 Pi},{ϕ,0,(Pi/4)},Mesh->False,PlotStyle->{{Opacity[op2]}},PlotPoints->{256,128}],
ParametricPlot3D[{{2(Sqrt[2]) Cos[θ]Sin[ϕ],2(Sqrt[2]) Sin[θ]Sin[ϕ],-2(Sqrt[2])Cos[ϕ]}},{θ,0,2 Pi},{ϕ,0,(Pi/4)},Mesh->False,PlotStyle->{{Opacity[op2]}},PlotPoints->{256,128}],
ParametricPlot3D[{RotateLeft[{2(Sqrt[2]) Cos[θ]Sin[ϕ],2(Sqrt[2]) Sin[θ]Sin[ϕ],-2(Sqrt[2])Cos[ϕ]}]},{θ,0,2 Pi},{ϕ,0,(Pi/4)},Mesh->False,PlotStyle->{{Opacity[op2]}},PlotPoints->{256,128}],
ParametricPlot3D[{RotateRight[{2(Sqrt[2]) Cos[θ]Sin[ϕ],2(Sqrt[2]) Sin[θ]Sin[ϕ],2(Sqrt[2])Cos[ϕ]}]},{θ,0,2 Pi},{ϕ,0,(Pi/4)},Mesh->False,PlotStyle->{{Opacity[op2]}},PlotPoints->{256,128}],
Evaluate[plotops]]