set-anti-color ( particle -- particle )

Vocabulary

bubble-chamber

Inputs

particle

an object

Outputs

particle

an object

Definition

USING: accessors kernel math.order ;

IN: bubble-chamber

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