aUCBLogo Demos and Tests / texpoly


to texpoly
   cs
   entex
   bricks=loadImage "bricks.png
   tex=texture bricks
   setpc "white
   PolyStart
   setTexXY 0 1 fd 100 rt 90
   setTexXY 1 1 fd 100 rt 90
   setTexXY 1 0 fd 100 rt 90
   setTexXY 0 0 fd 100 rt 90
   PolyEnd
end