"(1046270654943L (id) (\"127.0.0.1\" 14426 \"tim\" \"tim==shared-doc-8744\" \"log-tim-tim==shared-doc-8744-1046270654926L\" (241 155 183) #f))"
"(1046270657015L () set context (GroupHWEdit))"
"(1046270657017L set context (GroupHWChat))"
"(1046270658347L (GroupHWEdit GroupTextAreaClient) set-text \"\" 0)"
"(1046270701068L fileIO open \"demo1.scm\")"
"(1046270701293L (GroupHWEdit GroupTextAreaClient) modify-text insert 0 \";; This is taken from http://dev.knowledgeassociates.com/Hodglim/Site.nsf/pages/OpenGL?open  Lesson5\\n  (load \\\"jlib/JLIB.scm\\\")\\n  (define z (GLWrapper.)) ;; here we create a simple wrapper class for gl4java's animation panel\\n  (define w (window \\\"test\\\" z))\\n\\n  (define rtri 0.0f)\\n  (define rquad 0.0f)\\n\\n  ; here we define an initialization procedure (more on this later...)\\n  (.init_proc$ z \\n      (lambda R (display (list 'init R))(newline)))\\n\\n  ; here we define the display procedure that redraws the screen every time...\\n  (.display_proc$ z \\n     (lambda (this) \\n        (define gl (.gl$ this)) ;; this is how we access all GL functions ...\\n        (define glj (.glj$# this)) ;; this is how we access the GLJ functions ...\\n        (.glClear gl (.intValue (| gl4java.GLEnum.GL_COLOR_BUFFER_BIT$ gl4java.GLEnum.GL_DEPTH_BUFFER_BIT$)))\\n        (.glLoadIdentity gl)\\n        (.glTranslatef gl -1.5f 0.0f -8.0f)\\n        (.glRotatef gl rtri 0.0f 1.0f 0.0f)\\n\\n       ; draw two faces of a pyramid\\n       (.glBegin gl gl4java.GLEnum.GL_POLYGON$)\\n\\n        (.glColor3f gl 1f 0f 0f)\\n        (.glVertex3f gl 0f 1f 0f)\\n        (.glColor3f gl 0f 1f 0f)\\n        (.glVertex3f gl -1f -1f 1f)\\n        (.glColor3f gl 0f 0f 1f)\\n        (.glVertex3f gl 1f -1f 1f)\\n\\n        (.glColor3f gl 1f 0f 0f)\\n        (.glVertex3f gl 0f 1f 0f)\\n        (.glColor3f gl 0f 0f 1f)\\n        (.glVertex3f gl 1f -1f 1f)\\n        (.glColor3f gl 0f 1f 0f)\\n        (.glVertex3f gl 1f -1f -1f)\\n\\n       (.glEnd gl)\\n\\n       ;reset the view\\n        (.glLoadIdentity gl)\\n\\n       ;moveright and into screen\\n       (.glTranslatef gl 1.5f 0f -8f)\\n\\n       ; rotate the cube on x,y,z\\n       (.glRotatef gl rquad 1f 1f 1f)\\n\\n       ;draw 3 faces of a cube\\n       (.glBegin gl gl4java.GLEnum.GL_QUADS$)\\n           (.glColor3f gl 0f 1f 0f)\\n           (.glVertex3f gl 1f 1f -1f)\\n           (.glVertex3f gl -1f 1f -1f)\\n           (.glVertex3f gl -1f 1f 1f)\\n           (.glVertex3f gl 1f 1f 1f)\\n\\n           (.glColor3f gl 1f 0.5f 0f)\\n           (.glVertex3f gl 1f -1f 1f)\\n           (.glVertex3f gl -1f -1f 1f)\\n           (.glVertex3f gl -1f -1f -1f)\\n           (.glVertex3f gl 1f -1f -1f)\\n\\n           (.glColor3f gl 1f 0f 0f)\\n           (.glVertex3f gl 1f 1f 1f)\\n           (.glVertex3f gl -1f 1f 1f)\\n           (.glVertex3f gl -1f -1f 1f)\\n           (.glVertex3f gl 1f -1f 1f)\\n\\n       (.glEnd gl)      \\n\\n       (set! rtri (+ 0.2f rtri))\\n       (set! rquad (+ 0.2f rquad))\\n\\n       (.gljSwap glj)\\n     ))\\n  (.pack w)\\n  (.show w)\\n  (.init z)\\n  (.start z)\\n  (.resize w 400 300)\\n\\n\\n\\n\\n\\n\" 2516 (241 155 183 120) 1)"
"(1046270701339L (GroupHWEdit GroupTextAreaClient) modify-highlights (241 155 183 120) 0 1 0 0)"
"(1046270718077L (top) eval 2516 2516 \"\")"
"(1046270719572L (top) eval-other \"tim\" 2516 2516 \"\")"
"(1046271522349L (quit) \"tim\" \"tim==shared-doc-8744\")"