diff --git a/contrib/x11/hello.factor b/contrib/x11/examples/hello.factor similarity index 82% rename from contrib/x11/hello.factor rename to contrib/x11/examples/hello.factor index ec6c846523..ddb3f35a67 100644 --- a/contrib/x11/hello.factor +++ b/contrib/x11/examples/hello.factor @@ -1,12 +1,8 @@ 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 ( -- ) GL_COLOR_BUFFER_BIT glClear -1.0 0.0 0.0 glColor3f +1.0 1.0 1.0 glColor3f GL_POLYGON glBegin 0.25 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 ; -init display \ No newline at end of file +f initialize-x create-window win set { 250 250 } resize-window map-window +[ GLX_RGBA ] choose-visual create-context make-current init display \ No newline at end of file