TUPLE: my-gadget < gadget ; CONSTANT: width 256 CONSTANT: height 256 : ( -- gadget ) ; : run2 ( -- ) "hello world" open-window ; M: my-gadget draw-gadget* ( gardget -- ) drop GL_PROJECTION glMatrixMode glLoadIdentity 45.0 width height / >float 0.1 100.0 gluPerspective GL_MODELVIEW glMatrixMode glLoadIdentity GL_SMOOTH glShadeModel 1.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 ;