From b3fc84f9ef313335894d0455425a7acbf90d7262 Mon Sep 17 00:00:00 2001
From: "chris.double" <chris.double@double.co.nz>
Date: Wed, 29 Nov 2006 04:05:53 +0000
Subject: [PATCH] nehe: add tutorial 4

---
 demos/nehe/load.factor  | 10 ++++--
 demos/nehe/nehe4.factor | 73 +++++++++++++++++++++++++++++++++++++++++
 2 files changed, 80 insertions(+), 3 deletions(-)
 create mode 100644 demos/nehe/nehe4.factor

diff --git a/demos/nehe/load.factor b/demos/nehe/load.factor
index 75a60fe63d..2fd18bb5d7 100644
--- a/demos/nehe/load.factor
+++ b/demos/nehe/load.factor
@@ -4,12 +4,16 @@ PROVIDE: demos/nehe
     "nehe-utils.factor" 
     "nehe2.factor" 
     "nehe3.factor" 
+    "nehe4.factor" 
   }
 } ;
 
 USING: kernel gadgets nehe sequences gadgets-buttons ;
 
 MAIN: demos/nehe
-   { { "Nehe 2" [ drop run2 ] } { "Nehe 3" [ drop run3 ] } }
-   [ first2 <bevel-button> ] map make-pile 
-   "Nehe examples" open-titled-window ;
\ No newline at end of file
+  { 
+    { "Nehe 2" [ drop run2 ] } 
+    { "Nehe 3" [ drop run3 ] } 
+    { "Nehe 4" [ drop run4 ] } 
+  } [ first2 <bevel-button> ] map make-pile 
+  "Nehe examples" open-titled-window ;
\ No newline at end of file
diff --git a/demos/nehe/nehe4.factor b/demos/nehe/nehe4.factor
new file mode 100644
index 0000000000..b868d6113b
--- /dev/null
+++ b/demos/nehe/nehe4.factor
@@ -0,0 +1,73 @@
+IN: nehe
+USING: kernel gadgets opengl math arrays threads ;
+
+TUPLE: nehe4-gadget rtri rquad thread quit? ;
+
+: width 256 ;
+: height 256 ;
+: redraw-interval 10 ;
+
+C: nehe4-gadget (  -- gadget )
+  [ 0.0 swap set-nehe4-gadget-rtri ] keep
+  [ 0.0 swap set-nehe4-gadget-rquad ] keep
+  [ delegate>gadget ] keep ;
+
+M: nehe4-gadget pref-dim* ( gadget -- dim )
+  drop width height 0 3array ;
+
+M: nehe4-gadget draw-gadget* ( gadget -- )
+  GL_PROJECTION glMatrixMode
+  glLoadIdentity
+  45.0 width height / >float 0.1 100.0 gluPerspective
+  GL_MODELVIEW glMatrixMode
+  glLoadIdentity
+  GL_SMOOTH glShadeModel
+  0.0 0.0 0.0 0.0 glClearColor
+  1.0 glClearDepth
+  GL_DEPTH_TEST glEnable
+  GL_LEQUAL glDepthFunc
+  GL_PERSPECTIVE_CORRECTION_HINT GL_NICEST glHint
+  GL_COLOR_BUFFER_BIT GL_DEPTH_BUFFER_BIT bitor glClear
+  glLoadIdentity
+  -1.5 0.0 -6.0 glTranslatef
+  dup nehe4-gadget-rtri 0.0 1.0 0.0 glRotatef
+    
+  GL_TRIANGLES [
+    1.0 0.0 0.0 glColor3f
+    0.0 1.0 0.0 glVertex3f
+    0.0 1.0 0.0 glColor3f
+    -1.0 -1.0 0.0 glVertex3f
+    0.0 0.0 1.0 glColor3f
+    1.0 -1.0 0.0 glVertex3f
+  ] with-gl
+
+  glLoadIdentity
+
+  1.5 0.0 -6.0 glTranslatef
+  dup nehe4-gadget-rquad 1.0 0.0 0.0 glRotatef
+  0.5 0.5 1.0 glColor3f
+  GL_QUADS [
+    -1.0 1.0 0.0 glVertex3f
+    1.0 1.0 0.0 glVertex3f
+    1.0 -1.0 0.0 glVertex3f
+    -1.0 -1.0 0.0 glVertex3f
+  ] with-gl 
+  dup nehe4-gadget-rtri 0.2 + over set-nehe4-gadget-rtri
+  dup nehe4-gadget-rquad 0.15 - swap set-nehe4-gadget-rquad ;
+  
+: nehe4-update-thread ( gadget -- )  
+  dup nehe4-gadget-quit? [
+    redraw-interval sleep 
+    dup relayout-1  
+    nehe4-update-thread 
+  ] unless ;
+
+M: nehe4-gadget graft* ( gadget -- )
+ [ f swap set-nehe4-gadget-quit? ] keep
+ [ nehe4-update-thread ] in-thread drop ;
+
+M: nehe4-gadget ungraft* ( gadget -- )
+ t swap set-nehe4-gadget-quit? ;
+
+: run4 ( -- )
+  <nehe4-gadget> "NeHe Tutorial 4" open-titled-window ;