Fun with Shapes

rcoord:={Random[],Random[],Random[]}

eloof[f_]:=TranslateShape[
rotw[(2rcoord-1)Pi,AffineShape[wcube,rcoord]]
, f rcoord];