aUCBLogo Demos and Tests / surfacetextest

to surfacetextest
   perspective
   r=200
   setpc "white
   ht
   image=loadImage "bricks.png
   tex=Texture image
   enTex
   SurfaceStart
   for [z -1 1 0.1]
   [   for [x -1 1 0.1]
      [   setTexXY x z
         setPosXYZ (list x (cos 90*x)*cos 90*z z)*r
      ]
      SurfaceColumn
   ]
   SurfaceEnd
   rotateScene
end