mplisp

miniPicoLisp with FFI and modules for Buddy BDD library, OpenGL, Gtk and GMP
git clone https://logand.com/git/mplisp.git/
Log | Files | Refs

tst.l (610B)

      1 # 21oct07abu
      2 # (c) Software Lab. Alexander Burger
      3 
      4 (load "@simul/gl/lib.l")
      5 
      6 (glut:Init)
      7 (glut:InitDisplayMode (| GLUT_SINGLE GLUT_RGB))
      8 (glut:InitWindowSize 250 250)
      9 (glut:CreateWindow "Test Window")
     10 
     11 (gl:ClearColor 0.0 0.0 0.0 0.0)
     12 (gl:MatrixMode GL_PROJECTION)
     13 (gl:LoadIdentity)
     14 (gl:Ortho 0.0 1.0 0.0 1.0 -1.0 1.0)
     15 
     16 (displayFunc ()
     17    (gl:Clear GL_COLOR_BUFFER_BIT)
     18    (gl:Color3f 1.0 1.0 1.0)
     19    (gl:Begin GL_POLYGON)
     20    (gl:Vertex3f 0.25 0.25 0.0)
     21    (gl:Vertex3f 0.75 0.25 0.0)
     22    (gl:Vertex3f 0.75 0.75 0.0)
     23    (gl:Vertex3f 0.25 0.75 0.0)
     24    (gl:End)
     25    (gl:Flush) )
     26 
     27 (glut:MainLoop)
     28 
     29 # vi:et:ts=3:sw=3