
(glCanvas 200 200)

(glFont "test")



(glScale 2 2 2)

(glClearColor 0 255 0 255)
(glClearDepthMax)

(glPushMatrix)
(glScale 1/2 1/2 1/2)
(glText 20 40 4/5 4/5 "Hello world")
(glPopMatrix)

(glTriangle
  20 20 4 0 255 0 0   255
  40 40 4 0 0   0 255 255
  80 30 4 0 0   255 0 255)


(glPushMatrix)

(setq i 0)
(while (lessp i 10)
  (prog t
    (glRotateZ 30)
    (glLine
      10 60 4 0 255 0 0   0
      40 40 4 0 0   0 255 255)

    (glText 20 40 3/10 3/10 "Hello world")
    (setq i (plus i 1))
) )


(glPopMatrix)

(glRotateZ 30)

(glPushMatrix)

(glScale 1/3 1/3 1/3)

(glTriangle
  20 20 4 0 255 0 0   255
  40 40 4 0 0   0 255 255
  80 30 4 0 0   255 0 255)

(glPopMatrix)


(glRotateZ 30)

(glTriangle
  20 20 4 0 255 0 0   255
  40 40 4 0 0   0 255 255
  80 30 4 0 0   255 0 255)



(glSaveTarga "test1.tga")

