glRotatef - part-cw/lambdanative GitHub Wiki
(glRotatef a x y z)
glRotatef produces a rotation of angle degrees around the point (x,y,z)
Parameter | Description |
---|---|
a | Rotation angle |
x | Rotation x coordinate reference |
y | Rotation y coordinate reference |
z | Rotation z coordinate reference |
Example
Example from modules/ln_glgui/glgui.scm
(define (glgui-render g1 . gx)
(glCoreInit) ;; setup the OpenGL pipeline
(glPushMatrix)
(cond
((fx= glgui:rotate 1)
(glRotatef -90. 0. 0. 1.)
(glTranslatef (flo (- app:height)) 0. 0.))
((fx= glgui:rotate 2)
(glRotatef 90. 0. 0. 1.)
(glTranslatef 0. (flo (- app:width)) 0.))
((fx= glgui:rotate 3)
(glRotatef 180. 0. 0. 1.)
(glTranslatef (flo (- app:width)) (flo (- app:height)) 0.))
)
(apply glgui-renderloop (append (list g1) gx))
(glPopMatrix)
)