aUCBLogo Demos and Tests / tessstar


to tessstar
   
cs
   
ht
comment
[
   disTex
   back 300
   TessStart
   setPC 0  fd 600  rt 180-72/2
   setPC 1  fd 600  rt 180-72/2
   setPC 2  fd 600  rt 180-72/2
   setPC 3  fd 600  rt 180-72/2
   setPC 4  fd 600  rt 180-72/2
   TessEnd
   right 180
]

;comment
;[
   
image=loadImage "bricks.png
   
tex=Texture image
   
enTex
   
WindowMode
   
setPC "white
   
back 300
   
setTessWindingRule 1
   
TessStart
   
setTexXY 0.4 1    fd 600  rt 180-72/2
   
setTexXY 1   0.2  fd 600  rt 180-72/2
   
setTexXY 0   0.5  fd 600  rt 180-72/2
   
setTexXY 1   0.8  fd 600  rt 180-72/2
   
setTexXY 0.4 0    fd 600  rt 180-72/2
   
TessEnd
;]
end