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

Maze doesn't need opengl.demo-support

db4
Slava Pestov 2008-12-03 00:06:16 -06:00
parent 503aee30f7
commit 5cbbc3e182
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
extra/maze/maze.factor
View File

@ -1,7 +1,7 @@
! From http://www.ffconsultancy.com/ocaml/maze/index.html ! From http://www.ffconsultancy.com/ocaml/maze/index.html
USING: sequences namespaces math math.vectors opengl opengl.gl USING: sequences namespaces math math.vectors opengl opengl.gl
opengl.demo-support arrays kernel random ui ui.gadgets arrays kernel random ui ui.gadgets ui.gadgets.canvas ui.render
ui.gadgets.canvas ui.render math.order math.geometry.rect ; math.order math.geometry.rect ;
IN: maze IN: maze
: line-width 8 ; : line-width 8 ;
@ -28,7 +28,7 @@ SYMBOL: visited
: (draw-maze) ( cell -- ) : (draw-maze) ( cell -- )
dup vertex dup vertex
glEnd glEnd
GL_POINTS [ dup vertex ] do-state GL_POINTS glBegin dup vertex glEnd
GL_LINE_STRIP glBegin GL_LINE_STRIP glBegin
dup vertex dup vertex
dup visit dup visit