draw-maze ( n -- )

Vocabulary

maze

Inputs

n

an object

Outputs

None

Definition

USING: arrays kernel math namespaces opengl.demo-support
opengl.gl sequences ;

IN: maze

: draw-maze ( n -- )
    line-width 2 - glLineWidth line-width 2 - glPointSize
    1.0 1.0 1.0 1.0 glColor4d dup [ t <array> ] curry replicate
    visited set GL_LINE_STRIP
    [ { 0 0 } dup vertex (draw-maze) ] do-state ;