 
 M: hadron move
 
-  T{ gray f 1 0.11 } stroke-color set  dup pos>> 1 v-y draw-point
-  T{ gray f 0 0.11 } stroke-color set  dup pos>> 1 v+y draw-point
+  T{ gray f 1 0.11 } stroke-color set  dup pos>> 1 v-y draw
+  T{ gray f 0 0.11 } stroke-color set  dup pos>> 1 v+y draw
 
   dup vel>> move-by
 

    MUON

    dup myc>> >rgba-components drop 0.16 <rgba> stroke-color set
    dup pos>> draw-point

    dup mya>> >rgba-components drop 0.16 <rgba> stroke-color set
    dup pos>> first2 [ WIDTH swap - ] dip 2array draw-point

    dup
    [ speed>> ] [ theta>> [ sin ] [ cos ] bi 2array ] bi n*v

USING: accessors arrays calendar colors colors.gray
combinators.short-circuit frame-buffer kernel locals math
math.constants math.functions math.libm math.order math.points
math.ranges math.vectors namespaces opengl processing.shapes
random sequences threads ui ui.gadgets ui.gestures ;

IN: bubble-chamber

