aUCBLogo Demos and Tests / testsetpixel

to testsetpixel
   perspective
   ht
   enablePointSmooth
   disableDepthTest
   disableLighting
   s=100
   zoom=1
   for [x 0 s]
   [   for [y 0 s]
      [   for [z 0 s]
         [   setpixel (list x y z)*zoom rgba x/s y/s z/s 0.02
         ]
      ]
      updateGraph
   ]
   rotatescene
end