 : axion-white ( dy -- dy ) dup 1 swap dy>alpha gray boa stroke-color set ;
 : axion-black ( dy -- dy ) dup 0 swap dy>alpha gray boa stroke-color set ;
 
-: axion-point- ( particle dy -- particle ) [ dup pos>> ] dip v-y draw-point ;
-: axion-point+ ( particle dy -- particle ) [ dup pos>> ] dip v+y draw-point ;
+: axion-point- ( particle dy -- particle ) [ dup pos>> ] dip v-y draw ;
+: axion-point+ ( particle dy -- particle ) [ dup pos>> ] dip v+y draw ;
 
 M: axion move
 
   T{ gray f 0.06 0.59 } stroke-color set
-  dup pos>> draw-point
+  dup pos>> draw
 
   1 4 [a,b] [ axion-white axion-point- ] each
   1 4 [a,b] [ axion-black axion-point+ ] each


: mouse-x ( -- x ) mouse first  ;
: mouse-y ( -- y ) mouse second ;

GENERIC: collide ( particle -- )
GENERIC: move    ( particle -- )

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

