aUCBLogo Demos and Tests / tcube

to tcube [size 100]   ;Textured Cube
   pu
   local [p]
   p=PosXYZ
   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
end

to face
   pd
   polyStart
   setTexXY 0 0   fd size rt 90
   setTexXY 0 1   fd size rt 90
   setTexXY 1 1   fd size rt 90
   setTexXY 1 0   fd size rt 90
   polyEnd
   pu
end