35 lines
780 B
Plaintext
35 lines
780 B
Plaintext
(load "@lib/openGl.l")
|
|
|
|
(glutInit)
|
|
(glutInitWindowSize 400 300)
|
|
(glutCreateWindow "Triangle")
|
|
|
|
(displayPrg
|
|
(glClearColor 0.3 0.3 0.3 0.0)
|
|
(glClear (| GL_COLOR_BUFFER_BIT GL_DEPTH_BUFFER_BIT))
|
|
(glShadeModel GL_SMOOTH)
|
|
(glLoadIdentity)
|
|
(glTranslatef -15.0 -15.0 0.0)
|
|
(glBegin GL_TRIANGLES)
|
|
(glColor3f 1.0 0.0 0.0)
|
|
(glVertex2f 0.0 0.0)
|
|
(glColor3f 0.0 1.0 0.0)
|
|
(glVertex2f 30.0 0.0)
|
|
(glColor3f 0.0 0.0 1.0)
|
|
(glVertex2f 0.0 30.0)
|
|
(glEnd)
|
|
(glFlush) )
|
|
|
|
(reshapeFunc
|
|
'((Width Height)
|
|
(glViewport 0 0 Width Height)
|
|
(glMatrixMode GL_PROJECTION)
|
|
(glLoadIdentity)
|
|
(glOrtho -30.0 30.0 -30.0 30.0 -30.0 30.0)
|
|
(glMatrixMode GL_MODELVIEW) ) )
|
|
|
|
# Exit upon mouse click
|
|
(mouseFunc '((Btn State X Y) (bye)))
|
|
|
|
(glutMainLoop)
|