mouse->collision-theta ( BUBBLE-CHAMBER -- BUBBLE-CHAMBER )

Vocabulary

bubble-chamber

Inputs

BUBBLE-CHAMBER

an object

Outputs

BUBBLE-CHAMBER

an object

Definition

USING: accessors math.libm math.vectors sequences ;

IN: bubble-chamber

:: mouse->collision-theta
    ( BUBBLE-CHAMBER -- BUBBLE-CHAMBER )
    mouse BUBBLE-CHAMBER size>> 2 v/n v- first2 fatan2
    BUBBLE-CHAMBER collision-theta<< BUBBLE-CHAMBER ;