(draw-maze) ( cell -- )

Vocabulary

maze

Inputs

cell

an object

Outputs

None

Definition

USING: kernel opengl.demo-support opengl.gl ;

IN: maze

: (draw-maze) ( cell -- )
    dup vertex glEnd GL_POINTS [ dup vertex ] do-state
    GL_LINE_STRIP glBegin dup vertex dup visit
    dup random-neighbor
    [ (draw-maze) (draw-maze) ]
    [ drop glEnd GL_LINE_STRIP glBegin ] if* ;