walls = Graphics3D[{ Polygon[{{0,0,0},{0,1,0},{0,1,1},{0,.5,1.5},{0,0,1}}], Polygon[{{0,1,0},{1,1,0},{1,1,1},{0,1,1}}], Polygon[{{1,1,0},{1,.675,0},{1,.675,1},{1,1,1}}], Polygon[{{1,.675,.5},{1,.675,1},{1,.325,1},{1,.325,.5}}], Polygon[{{1,.325,0},{1,.325,1},{1,0,1},{1,0,0}}], Polygon[{{1,1,1},{1,.5,1.5},{1,0,1}}], Polygon[{{1,0,0},{1,0,1},{0,0,1},{0,0,0}}] }];
In[12]:=
Show[walls, BoxRatios->Automatic];
In[13]:=
corrugate = Plot3D[0.05 + 0.05 Sin[5 Pi x], {x,0,4}, {y,0,4},
PlotPoints->{100,2}];
In[14]:=
rightroof =
Translate[
Rotate[
Scale[corrugate,{1/4, Sqrt[2]/8, 1}],
-Pi/4, {1,0,0}
],
{0,0.5,1.5}];
leftroof =
Translate[
Rotate[
Scale[corrugate,{1/4, Sqrt[2]/8, 1}],
Pi/4, {1,0,0}
],
{0,0,1}];
In[15]:=
Show[leftroof, rightroof,walls, BoxRatios->Automatic];
Up to Aquarium