aUCBLogo Demos and Tests / pcube

be pCube [size 100]   ;PolyCube
   pu
   local [p o]
   p=PosXYZ
   o=Orientation
   bk size/2
   left 90 fd size/2 rt 90
   down 90 fd size/2 up 90
   repeat 4
   [   face
      fd size up 90
   ]
   leftroll 90
   repeat 2
   [   face
      repeat 2 [fd size down 90]
   ]
   setPosXYZ p
   setOrientation o

   be face
      pd polyStart repeat 4 [fd size rt 90] polyEnd pu
   end
end