steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

*** empty log message ***

cvs
Eduardo Cavazos 2005-12-31 01:10:37 +00:00
parent fc32e87b68
commit 2585c833c8
1 changed files with 3 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
contrib/x11/hello.factor → contrib/x11/examples/hello.factor
View File

@ -1,12 +1,8 @@
USING: kernel words namespaces sequences x x11 opengl gl ; USING: kernel words namespaces sequences x x11 opengl gl ;
f initialize-x create-window win set { 250 250 } resize-window map-window
[ GLX_RGBA ] choose-visual create-context make-current
: display ( -- ) : display ( -- )
GL_COLOR_BUFFER_BIT glClear GL_COLOR_BUFFER_BIT glClear
1.0 0.0 0.0 glColor3f 1.0 1.0 1.0 glColor3f
GL_POLYGON glBegin GL_POLYGON glBegin
0.25 0.25 0.0 glVertex3f 0.25 0.25 0.0 glVertex3f
0.75 0.25 0.0 glVertex3f 0.75 0.25 0.0 glVertex3f
@ -22,4 +18,5 @@ glLoadIdentity
0.0 1.0 0.0 1.0 -1.0 1.0 glOrtho 0.0 1.0 0.0 1.0 -1.0 1.0 glOrtho
; ;
init display f initialize-x create-window win set { 250 250 } resize-window map-window
[ GLX_RGBA ] choose-visual create-context make-current init display