a
b
c
d
e
f
g
h
i
g
p
h
i
j
k
h
i
j
k
h
i
j
k
h
i
j
k
l

Interesting, it dies at 'l after cycling through " h i j k " a few times.

Code:

(msg 'a)(gc)
(load "@simul/gl/lib.l")

(msg 'b)(gc)
(glut:Init)
(msg 'c)(gc)
(glut:InitDisplayMode (| GLUT_SINGLE GLUT_RGB))
(msg 'd)(gc)
(glut:InitWindowSize 400 400)
(msg 'e)(gc)
(glut:CreateWindow "Test Window")
(msg 'f)(gc)

(gl:ClearColor 0.7 0.2 0.2 0.0)
(msg 'g)(gc)
(gl:MatrixMode GL_PROJECTION)
(msg 'h)(gc)
(gl:LoadIdentity)
(msg 'i)(gc)
(gl:Ortho 0.0 1.0 0.0 1.0 -1.0 1.0)
(msg 'g)(gc)

(displayFunc ()
(msg 'h)(gc)
   (gl:Clear GL_COLOR_BUFFER_BIT)
(msg 'i)(gc)
   (gl:Color3f 0.2 0.7 0.2)
(msg 'j)(gc)
   (gl:Flush)
(msg 'k)(gc))

#(mouseFunc (Btn State X Y) (glut:PostRedisplay) )

(motionFunc (X Y)
(msg 'l)(gc)
        (println "motionFunc" X Y)
(msg 'm)(gc)
        #(gl:Begin GL_TRIANGLES) (gl:End)
        (msg 'n)(gc)
        )

(msg 'p)(gc)
(glut:MainLoop)
-- 
UNSUBSCRIBE: mailto:picol...@software-lab.de?subject=unsubscribe

Reply via email to