set-population ( n boids-gadget -- )

Vocabulary

boids

Inputs

n	an object
boids-gadget	an object

Outputs

None

Definition

USING: accessors boids.simulation kernel math sequences ;

IN: boids

:: set-population ( n boids-gadget -- )
    boids-gadget [
        dup length n >integer - dup 0 >
        [ head* ] [ neg random-boids append ] if
    ] change-boids drop ;