collide ( particle -- )

Vocabulary

bubble-chamber

Inputs

particle

an object

Outputs

None

Definition

IN: bubble-chamber

GENERIC: collide ( particle -- )

Methods

USING: accessors bubble-chamber kernel math math.constants ;

M: axion collide
    dup center >>pos 2 pi * 1random >>theta 1.0 6.0 2random
    >>speed 0.998 1.0 2random >>speed-d 0 >>theta-d 0 >>theta-dd
    [ 0.00001 theta-dd-small? ] [ -0.001 0.001 random-theta-dd ]
    while drop ;


USING: accessors bubble-chamber colors kernel math
math.constants ;

M: hadron collide
    dup center >>pos 2 pi * 1random >>theta 0.5 3.5 2random
    >>speed 0.996 1.001 2random >>speed-d 0 >>theta-d
    0 >>theta-dd
    [ 0.00001 theta-dd-small? ] [ -0.001 0.001 random-theta-dd ]
    while 0 1 0 1 rgba boa >>myc drop ;


USING: accessors bubble-chamber kernel math random ranges ;

M: muon collide
    dup center >>pos 2 32 [a..b] random >>speed
    0.0001 0.001 2random >>speed-d
    dup collision-theta -0.1 0.1 2random + >>theta 0 >>theta-d
    0 >>theta-dd
    [ 0.001 theta-dd-small? ] [ -0.1 0.1 random-theta-dd ] while
    set-good-color set-anti-color drop ;


USING: accessors bubble-chamber kernel math ;

M: quark collide
    dup center >>pos dup collision-theta -0.11 0.11 2random +
    >>theta 0.5 3.0 2random >>speed 0.996 1.001 2random
    >>speed-d 0 >>theta-d 0 >>theta-dd
    [ 0.00001 theta-dd-small? ] [ -0.001 0.001 random-theta-dd ]
    while drop ;