initialize-particle ( particle -- particle )


Vocabulary
bubble-chamber

Inputs
particlean object


Outputs
particlean object


Definition
USING: accessors colors kernel ;

IN: bubble-chamber

: initialize-particle ( particle -- particle )
{ 0 0 } >>pos { 0 0 } >>vel 0 >>speed 0 >>speed-d 0 >>theta
0 >>theta-d 0 >>theta-dd 0 0 0 1 rgba boa >>myc
0 0 0 1 rgba boa >>mya ;