draw ( point -- )

Vocabulary

bubble-chamber

Inputs

point

an object

Outputs

None

Definition

USING: kernel math namespaces opengl processing.shapes ;

IN: bubble-chamber

: draw ( point -- )
    gl-scale-factor get-global
    [ stroke-color get fill-color set >integer draw-circle ]
    [ draw-point ] if* ;