From: Eduardo Cavazos Date: Tue, 23 Dec 2008 00:15:21 +0000 (-0600) Subject: nehe looks good to go back in extra X-Git-Tag: 0.94~1877^2~285^2 X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=commitdiff_plain;h=5f1084f5c4e2d0dee1e1cba300c565ccb0a06647 nehe looks good to go back in extra --- diff --git a/extra/nehe/2/2.factor b/extra/nehe/2/2.factor new file mode 100644 index 0000000000..29d4ccffc1 --- /dev/null +++ b/extra/nehe/2/2.factor @@ -0,0 +1,46 @@ +USING: arrays kernel math opengl opengl.gl opengl.glu +opengl.demo-support ui ui.gadgets ui.render ; +IN: nehe.2 + +TUPLE: nehe2-gadget < gadget ; + +: width 256 ; +: height 256 ; + +: ( -- gadget ) + nehe2-gadget new-gadget ; + +M: nehe2-gadget pref-dim* ( gadget -- dim ) + drop width height 2array ; + +M: nehe2-gadget draw-gadget* ( gadget -- ) + drop + 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 + GL_TRIANGLES [ + 0.0 1.0 0.0 glVertex3f + -1.0 -1.0 0.0 glVertex3f + 1.0 -1.0 0.0 glVertex3f + ] do-state + 3.0 0.0 0.0 glTranslatef + 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 + ] do-state ; + +: run2 ( -- ) + "NeHe Tutorial 2" open-window ; diff --git a/extra/nehe/2/authors.txt b/extra/nehe/2/authors.txt new file mode 100755 index 0000000000..44b06f94bc --- /dev/null +++ b/extra/nehe/2/authors.txt @@ -0,0 +1 @@ +Chris Double diff --git a/extra/nehe/3/3.factor b/extra/nehe/3/3.factor new file mode 100644 index 0000000000..75f2e573cc --- /dev/null +++ b/extra/nehe/3/3.factor @@ -0,0 +1,50 @@ +USING: arrays kernel math opengl opengl.gl opengl.glu +opengl.demo-support ui ui.gadgets ui.render ; +IN: nehe.3 + +TUPLE: nehe3-gadget < gadget ; + +: width 256 ; +: height 256 ; + +: ( -- gadget ) + nehe3-gadget new-gadget ; + +M: nehe3-gadget pref-dim* ( gadget -- dim ) + drop width height 2array ; + +M: nehe3-gadget draw-gadget* ( gadget -- ) + drop + 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 + 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 + ] do-state + 3.0 0.0 0.0 glTranslatef + 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 + ] do-state ; + +: run3 ( -- ) + "NeHe Tutorial 3" open-window ; diff --git a/extra/nehe/3/authors.txt b/extra/nehe/3/authors.txt new file mode 100755 index 0000000000..44b06f94bc --- /dev/null +++ b/extra/nehe/3/authors.txt @@ -0,0 +1 @@ +Chris Double diff --git a/extra/nehe/4/4.factor b/extra/nehe/4/4.factor new file mode 100644 index 0000000000..fda22d2f1e --- /dev/null +++ b/extra/nehe/4/4.factor @@ -0,0 +1,75 @@ +USING: arrays kernel math opengl opengl.gl opengl.glu +opengl.demo-support ui ui.gadgets ui.render threads accessors +calendar ; +IN: nehe.4 + +TUPLE: nehe4-gadget < gadget rtri rquad thread quit? ; + +: width 256 ; +: height 256 ; +: redraw-interval ( -- dt ) 10 milliseconds ; + +: ( -- gadget ) + nehe4-gadget new-gadget + 0.0 >>rtri + 0.0 >>rquad ; + +M: nehe4-gadget pref-dim* ( gadget -- dim ) + drop width height 2array ; + +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 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 + ] do-state + + glLoadIdentity + + 1.5 0.0 -6.0 glTranslatef + dup 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 + ] do-state + [ 0.2 + ] change-rtri + [ 0.15 - ] change-rquad drop ; + +: nehe4-update-thread ( gadget -- ) + dup quit?>> [ drop ] [ + redraw-interval sleep + dup relayout-1 + nehe4-update-thread + ] if ; + +M: nehe4-gadget graft* ( gadget -- ) + f >>quit? + [ nehe4-update-thread ] curry in-thread ; + +M: nehe4-gadget ungraft* ( gadget -- ) + t >>quit? drop ; + +: run4 ( -- ) + "NeHe Tutorial 4" open-window ; diff --git a/extra/nehe/4/authors.txt b/extra/nehe/4/authors.txt new file mode 100755 index 0000000000..44b06f94bc --- /dev/null +++ b/extra/nehe/4/authors.txt @@ -0,0 +1 @@ +Chris Double diff --git a/extra/nehe/5/5.factor b/extra/nehe/5/5.factor new file mode 100755 index 0000000000..30d0991fd8 --- /dev/null +++ b/extra/nehe/5/5.factor @@ -0,0 +1,128 @@ +USING: arrays kernel math opengl opengl.gl opengl.glu +opengl.demo-support ui ui.gadgets ui.render threads accessors +calendar ; +IN: nehe.5 + +TUPLE: nehe5-gadget < gadget rtri rquad thread quit? ; +: width 256 ; +: height 256 ; +: redraw-interval ( -- dt ) 10 milliseconds ; + +: ( -- gadget ) + nehe5-gadget new-gadget + 0.0 >>rtri + 0.0 >>rquad ; + +M: nehe5-gadget pref-dim* ( gadget -- dim ) + drop width height 2array ; + +M: nehe5-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 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 1.0 glVertex3f + 0.0 0.0 1.0 glColor3f + 1.0 -1.0 1.0 glVertex3f + + 1.0 0.0 0.0 glColor3f + 0.0 1.0 0.0 glVertex3f + 0.0 0.0 1.0 glColor3f + 1.0 -1.0 1.0 glVertex3f + 0.0 1.0 0.0 glColor3f + 1.0 -1.0 -1.0 glVertex3f + + 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 -1.0 glVertex3f + 0.0 0.0 1.0 glColor3f + -1.0 -1.0 -1.0 glVertex3f + + 1.0 0.0 0.0 glColor3f + 0.0 1.0 0.0 glVertex3f + 0.0 0.0 1.0 glColor3f + -1.0 -1.0 -1.0 glVertex3f + 0.0 1.0 0.0 glColor3f + -1.0 -1.0 1.0 glVertex3f + ] do-state + + glLoadIdentity + + 1.5 0.0 -7.0 glTranslatef + dup rquad>> 1.0 0.0 0.0 glRotatef + GL_QUADS [ + 0.0 1.0 0.0 glColor3f + 1.0 1.0 -1.0 glVertex3f + -1.0 1.0 -1.0 glVertex3f + -1.0 1.0 1.0 glVertex3f + 1.0 1.0 1.0 glVertex3f + + 1.0 0.5 0.0 glColor3f + 1.0 -1.0 1.0 glVertex3f + -1.0 -1.0 1.0 glVertex3f + -1.0 -1.0 -1.0 glVertex3f + 1.0 -1.0 -1.0 glVertex3f + + 1.0 0.0 0.0 glColor3f + 1.0 1.0 1.0 glVertex3f + -1.0 1.0 1.0 glVertex3f + -1.0 -1.0 1.0 glVertex3f + 1.0 -1.0 1.0 glVertex3f + + 1.0 1.0 0.0 glColor3f + 1.0 -1.0 -1.0 glVertex3f + -1.0 -1.0 -1.0 glVertex3f + -1.0 1.0 -1.0 glVertex3f + 1.0 1.0 -1.0 glVertex3f + + 0.0 0.0 1.0 glColor3f + -1.0 1.0 1.0 glVertex3f + -1.0 1.0 -1.0 glVertex3f + -1.0 -1.0 -1.0 glVertex3f + -1.0 -1.0 1.0 glVertex3f + + 1.0 0.0 1.0 glColor3f + 1.0 1.0 -1.0 glVertex3f + 1.0 1.0 1.0 glVertex3f + 1.0 -1.0 1.0 glVertex3f + 1.0 -1.0 -1.0 glVertex3f + ] do-state + [ 0.2 + ] change-rtri + [ 0.15 - ] change-rquad drop ; + +: nehe5-update-thread ( gadget -- ) + dup quit?>> [ + drop + ] [ + redraw-interval sleep + dup relayout-1 + nehe5-update-thread + ] if ; + +M: nehe5-gadget graft* ( gadget -- ) + f >>quit? + [ nehe5-update-thread ] curry in-thread ; + +M: nehe5-gadget ungraft* ( gadget -- ) + t >>quit? drop ; + + +: run5 ( -- ) + "NeHe Tutorial 5" open-window ; diff --git a/extra/nehe/5/authors.txt b/extra/nehe/5/authors.txt new file mode 100755 index 0000000000..44b06f94bc --- /dev/null +++ b/extra/nehe/5/authors.txt @@ -0,0 +1 @@ +Chris Double diff --git a/extra/nehe/authors.txt b/extra/nehe/authors.txt new file mode 100644 index 0000000000..44b06f94bc --- /dev/null +++ b/extra/nehe/authors.txt @@ -0,0 +1 @@ +Chris Double diff --git a/extra/nehe/deploy.factor b/extra/nehe/deploy.factor new file mode 100755 index 0000000000..6cf9543678 --- /dev/null +++ b/extra/nehe/deploy.factor @@ -0,0 +1,12 @@ +USING: tools.deploy.config ; +V{ + { deploy-ui? t } + { deploy-io 1 } + { deploy-reflection 1 } + { deploy-compiler? t } + { deploy-math? t } + { deploy-word-props? f } + { deploy-c-types? f } + { "stop-after-last-window?" t } + { deploy-name "NeHe OpenGL demos" } +} diff --git a/extra/nehe/nehe.factor b/extra/nehe/nehe.factor new file mode 100644 index 0000000000..a96c024683 --- /dev/null +++ b/extra/nehe/nehe.factor @@ -0,0 +1,15 @@ +USING: ui.gadgets.buttons ui.gadgets.packs ui.gadgets ui +nehe.2 nehe.3 nehe.4 nehe.5 kernel ; +IN: nehe + +: nehe-window ( -- ) + [ + + "Nehe 2" [ drop run2 ] add-gadget + "Nehe 3" [ drop run3 ] add-gadget + "Nehe 4" [ drop run4 ] add-gadget + "Nehe 5" [ drop run5 ] add-gadget + "Nehe examples" open-window + ] with-ui ; + +MAIN: nehe-window diff --git a/extra/nehe/summary.txt b/extra/nehe/summary.txt new file mode 100644 index 0000000000..7811f84702 --- /dev/null +++ b/extra/nehe/summary.txt @@ -0,0 +1 @@ +NeHe OpenGL tutorials ported to Factor diff --git a/extra/nehe/tags.txt b/extra/nehe/tags.txt new file mode 100644 index 0000000000..cb5fc203e1 --- /dev/null +++ b/extra/nehe/tags.txt @@ -0,0 +1 @@ +demos diff --git a/unmaintained/nehe/2/2.factor b/unmaintained/nehe/2/2.factor deleted file mode 100644 index 29d4ccffc1..0000000000 --- a/unmaintained/nehe/2/2.factor +++ /dev/null @@ -1,46 +0,0 @@ -USING: arrays kernel math opengl opengl.gl opengl.glu -opengl.demo-support ui ui.gadgets ui.render ; -IN: nehe.2 - -TUPLE: nehe2-gadget < gadget ; - -: width 256 ; -: height 256 ; - -: ( -- gadget ) - nehe2-gadget new-gadget ; - -M: nehe2-gadget pref-dim* ( gadget -- dim ) - drop width height 2array ; - -M: nehe2-gadget draw-gadget* ( gadget -- ) - drop - 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 - GL_TRIANGLES [ - 0.0 1.0 0.0 glVertex3f - -1.0 -1.0 0.0 glVertex3f - 1.0 -1.0 0.0 glVertex3f - ] do-state - 3.0 0.0 0.0 glTranslatef - 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 - ] do-state ; - -: run2 ( -- ) - "NeHe Tutorial 2" open-window ; diff --git a/unmaintained/nehe/2/authors.txt b/unmaintained/nehe/2/authors.txt deleted file mode 100755 index 44b06f94bc..0000000000 --- a/unmaintained/nehe/2/authors.txt +++ /dev/null @@ -1 +0,0 @@ -Chris Double diff --git a/unmaintained/nehe/3/3.factor b/unmaintained/nehe/3/3.factor deleted file mode 100644 index 75f2e573cc..0000000000 --- a/unmaintained/nehe/3/3.factor +++ /dev/null @@ -1,50 +0,0 @@ -USING: arrays kernel math opengl opengl.gl opengl.glu -opengl.demo-support ui ui.gadgets ui.render ; -IN: nehe.3 - -TUPLE: nehe3-gadget < gadget ; - -: width 256 ; -: height 256 ; - -: ( -- gadget ) - nehe3-gadget new-gadget ; - -M: nehe3-gadget pref-dim* ( gadget -- dim ) - drop width height 2array ; - -M: nehe3-gadget draw-gadget* ( gadget -- ) - drop - 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 - 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 - ] do-state - 3.0 0.0 0.0 glTranslatef - 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 - ] do-state ; - -: run3 ( -- ) - "NeHe Tutorial 3" open-window ; diff --git a/unmaintained/nehe/3/authors.txt b/unmaintained/nehe/3/authors.txt deleted file mode 100755 index 44b06f94bc..0000000000 --- a/unmaintained/nehe/3/authors.txt +++ /dev/null @@ -1 +0,0 @@ -Chris Double diff --git a/unmaintained/nehe/4/4.factor b/unmaintained/nehe/4/4.factor deleted file mode 100644 index fda22d2f1e..0000000000 --- a/unmaintained/nehe/4/4.factor +++ /dev/null @@ -1,75 +0,0 @@ -USING: arrays kernel math opengl opengl.gl opengl.glu -opengl.demo-support ui ui.gadgets ui.render threads accessors -calendar ; -IN: nehe.4 - -TUPLE: nehe4-gadget < gadget rtri rquad thread quit? ; - -: width 256 ; -: height 256 ; -: redraw-interval ( -- dt ) 10 milliseconds ; - -: ( -- gadget ) - nehe4-gadget new-gadget - 0.0 >>rtri - 0.0 >>rquad ; - -M: nehe4-gadget pref-dim* ( gadget -- dim ) - drop width height 2array ; - -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 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 - ] do-state - - glLoadIdentity - - 1.5 0.0 -6.0 glTranslatef - dup 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 - ] do-state - [ 0.2 + ] change-rtri - [ 0.15 - ] change-rquad drop ; - -: nehe4-update-thread ( gadget -- ) - dup quit?>> [ drop ] [ - redraw-interval sleep - dup relayout-1 - nehe4-update-thread - ] if ; - -M: nehe4-gadget graft* ( gadget -- ) - f >>quit? - [ nehe4-update-thread ] curry in-thread ; - -M: nehe4-gadget ungraft* ( gadget -- ) - t >>quit? drop ; - -: run4 ( -- ) - "NeHe Tutorial 4" open-window ; diff --git a/unmaintained/nehe/4/authors.txt b/unmaintained/nehe/4/authors.txt deleted file mode 100755 index 44b06f94bc..0000000000 --- a/unmaintained/nehe/4/authors.txt +++ /dev/null @@ -1 +0,0 @@ -Chris Double diff --git a/unmaintained/nehe/5/5.factor b/unmaintained/nehe/5/5.factor deleted file mode 100755 index 30d0991fd8..0000000000 --- a/unmaintained/nehe/5/5.factor +++ /dev/null @@ -1,128 +0,0 @@ -USING: arrays kernel math opengl opengl.gl opengl.glu -opengl.demo-support ui ui.gadgets ui.render threads accessors -calendar ; -IN: nehe.5 - -TUPLE: nehe5-gadget < gadget rtri rquad thread quit? ; -: width 256 ; -: height 256 ; -: redraw-interval ( -- dt ) 10 milliseconds ; - -: ( -- gadget ) - nehe5-gadget new-gadget - 0.0 >>rtri - 0.0 >>rquad ; - -M: nehe5-gadget pref-dim* ( gadget -- dim ) - drop width height 2array ; - -M: nehe5-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 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 1.0 glVertex3f - 0.0 0.0 1.0 glColor3f - 1.0 -1.0 1.0 glVertex3f - - 1.0 0.0 0.0 glColor3f - 0.0 1.0 0.0 glVertex3f - 0.0 0.0 1.0 glColor3f - 1.0 -1.0 1.0 glVertex3f - 0.0 1.0 0.0 glColor3f - 1.0 -1.0 -1.0 glVertex3f - - 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 -1.0 glVertex3f - 0.0 0.0 1.0 glColor3f - -1.0 -1.0 -1.0 glVertex3f - - 1.0 0.0 0.0 glColor3f - 0.0 1.0 0.0 glVertex3f - 0.0 0.0 1.0 glColor3f - -1.0 -1.0 -1.0 glVertex3f - 0.0 1.0 0.0 glColor3f - -1.0 -1.0 1.0 glVertex3f - ] do-state - - glLoadIdentity - - 1.5 0.0 -7.0 glTranslatef - dup rquad>> 1.0 0.0 0.0 glRotatef - GL_QUADS [ - 0.0 1.0 0.0 glColor3f - 1.0 1.0 -1.0 glVertex3f - -1.0 1.0 -1.0 glVertex3f - -1.0 1.0 1.0 glVertex3f - 1.0 1.0 1.0 glVertex3f - - 1.0 0.5 0.0 glColor3f - 1.0 -1.0 1.0 glVertex3f - -1.0 -1.0 1.0 glVertex3f - -1.0 -1.0 -1.0 glVertex3f - 1.0 -1.0 -1.0 glVertex3f - - 1.0 0.0 0.0 glColor3f - 1.0 1.0 1.0 glVertex3f - -1.0 1.0 1.0 glVertex3f - -1.0 -1.0 1.0 glVertex3f - 1.0 -1.0 1.0 glVertex3f - - 1.0 1.0 0.0 glColor3f - 1.0 -1.0 -1.0 glVertex3f - -1.0 -1.0 -1.0 glVertex3f - -1.0 1.0 -1.0 glVertex3f - 1.0 1.0 -1.0 glVertex3f - - 0.0 0.0 1.0 glColor3f - -1.0 1.0 1.0 glVertex3f - -1.0 1.0 -1.0 glVertex3f - -1.0 -1.0 -1.0 glVertex3f - -1.0 -1.0 1.0 glVertex3f - - 1.0 0.0 1.0 glColor3f - 1.0 1.0 -1.0 glVertex3f - 1.0 1.0 1.0 glVertex3f - 1.0 -1.0 1.0 glVertex3f - 1.0 -1.0 -1.0 glVertex3f - ] do-state - [ 0.2 + ] change-rtri - [ 0.15 - ] change-rquad drop ; - -: nehe5-update-thread ( gadget -- ) - dup quit?>> [ - drop - ] [ - redraw-interval sleep - dup relayout-1 - nehe5-update-thread - ] if ; - -M: nehe5-gadget graft* ( gadget -- ) - f >>quit? - [ nehe5-update-thread ] curry in-thread ; - -M: nehe5-gadget ungraft* ( gadget -- ) - t >>quit? drop ; - - -: run5 ( -- ) - "NeHe Tutorial 5" open-window ; diff --git a/unmaintained/nehe/5/authors.txt b/unmaintained/nehe/5/authors.txt deleted file mode 100755 index 44b06f94bc..0000000000 --- a/unmaintained/nehe/5/authors.txt +++ /dev/null @@ -1 +0,0 @@ -Chris Double diff --git a/unmaintained/nehe/authors.txt b/unmaintained/nehe/authors.txt deleted file mode 100644 index 44b06f94bc..0000000000 --- a/unmaintained/nehe/authors.txt +++ /dev/null @@ -1 +0,0 @@ -Chris Double diff --git a/unmaintained/nehe/deploy.factor b/unmaintained/nehe/deploy.factor deleted file mode 100755 index 6cf9543678..0000000000 --- a/unmaintained/nehe/deploy.factor +++ /dev/null @@ -1,12 +0,0 @@ -USING: tools.deploy.config ; -V{ - { deploy-ui? t } - { deploy-io 1 } - { deploy-reflection 1 } - { deploy-compiler? t } - { deploy-math? t } - { deploy-word-props? f } - { deploy-c-types? f } - { "stop-after-last-window?" t } - { deploy-name "NeHe OpenGL demos" } -} diff --git a/unmaintained/nehe/nehe.factor b/unmaintained/nehe/nehe.factor deleted file mode 100644 index a96c024683..0000000000 --- a/unmaintained/nehe/nehe.factor +++ /dev/null @@ -1,15 +0,0 @@ -USING: ui.gadgets.buttons ui.gadgets.packs ui.gadgets ui -nehe.2 nehe.3 nehe.4 nehe.5 kernel ; -IN: nehe - -: nehe-window ( -- ) - [ - - "Nehe 2" [ drop run2 ] add-gadget - "Nehe 3" [ drop run3 ] add-gadget - "Nehe 4" [ drop run4 ] add-gadget - "Nehe 5" [ drop run5 ] add-gadget - "Nehe examples" open-window - ] with-ui ; - -MAIN: nehe-window diff --git a/unmaintained/nehe/summary.txt b/unmaintained/nehe/summary.txt deleted file mode 100644 index 7811f84702..0000000000 --- a/unmaintained/nehe/summary.txt +++ /dev/null @@ -1 +0,0 @@ -NeHe OpenGL tutorials ported to Factor diff --git a/unmaintained/nehe/tags.txt b/unmaintained/nehe/tags.txt deleted file mode 100644 index cb5fc203e1..0000000000 --- a/unmaintained/nehe/tags.txt +++ /dev/null @@ -1 +0,0 @@ -demos