1 USING: arrays kernel math opengl opengl.gl opengl.glu
2 opengl.demo-support ui ui.gadgets ui.render ;
5 TUPLE: nehe2-gadget < gadget ;
10 : <nehe2-gadget> ( -- gadget )
11 nehe2-gadget new-gadget ;
13 M: nehe2-gadget pref-dim* ( gadget -- dim )
14 drop width height 2array ;
16 M: nehe2-gadget draw-gadget* ( gadget -- )
18 GL_PROJECTION glMatrixMode
20 45.0 width height / >float 0.1 100.0 gluPerspective
21 GL_MODELVIEW glMatrixMode
23 GL_SMOOTH glShadeModel
24 0.0 0.0 0.0 0.0 glClearColor
26 GL_DEPTH_TEST glEnable
28 GL_PERSPECTIVE_CORRECTION_HINT GL_NICEST glHint
29 GL_COLOR_BUFFER_BIT GL_DEPTH_BUFFER_BIT bitor glClear
31 -1.5 0.0 -6.0 glTranslatef
33 0.0 1.0 0.0 glVertex3f
34 -1.0 -1.0 0.0 glVertex3f
35 1.0 -1.0 0.0 glVertex3f
37 3.0 0.0 0.0 glTranslatef
39 -1.0 1.0 0.0 glVertex3f
40 1.0 1.0 0.0 glVertex3f
41 1.0 -1.0 0.0 glVertex3f
42 -1.0 -1.0 0.0 glVertex3f
46 <nehe2-gadget> "NeHe Tutorial 2" open-window ;