     QUARK
 
     dup myc>> >rgba-components drop 0.13 <rgba> stroke-color set
-    dup pos>> draw-point
-
-    dup pos>> first2 [ WIDTH swap - ] dip 2array draw-point
+    dup pos>> draw
+
+    dup pos>> first2 [ WIDTH swap - ] dip 2array draw
 
     [ ] [ vel>> ] bi move-by
 


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

  dup vel>> move-by



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

: draw ( point -- )
    gl-scale-factor get-global [
        stroke-color get fill-color set
        >integer draw-circle
    ] [
        draw-point
    ] if* ;

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