draw-boid-legacy ( boid -- )

Vocabulary

boids

Inputs

boid

an object

Outputs

None

Definition

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

IN: boids

: draw-boid-legacy ( boid -- )
    [ pos>> ] keep [
        vel>> vec>deg 0 0 1 glRotated GL_TRIANGLES [
            -6.0 4.0 glVertex2f -6.0 -4.0 glVertex2f
            8.0 0.0 glVertex2f
        ] do-state
    ] curry with-translation ;