Data commit

Task/OpenGL/PicoLisp/opengl.l

@@ -0,0 +1,34 @@
+(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)