     [
       GADGET paused>>
         [ f ]
-        [ GADGET relayout-1 25 milliseconds sleep t ]
+        [ GADGET iterate-system GADGET relayout-1 1 milliseconds sleep t ]
       if
     ]
     loop


! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

M:: <boids-gadget> draw-gadget* ( BOIDS-GADGET -- )

  [let | SKY        [ BOIDS-GADGET gadget->sky   ]
         BOIDS      [ BOIDS-GADGET boids>>       ]

      
    map

    BOIDS-GADGET (>>boids) ] ;

! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

M:: <boids-gadget> draw-gadget* ( BOIDS-GADGET -- )
  origin get
    [ BOIDS-GADGET boids>> [ draw-boid ] each ]
  with-translation ;

! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

