set-good-color ( particle -- particle )

Vocabulary

bubble-chamber

Inputs

particle

an object

Outputs

particle

an object

Definition

USING: accessors kernel math.order ;

IN: bubble-chamber

: set-good-color ( particle -- particle )
    color-fraction dup 0 1 between?
    [ good-colors at-fraction-of >>myc ] [ drop ] if ;