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

      
    map

    BOIDS-GADGET (>>boids)

    origin get
      [ BOIDS-GADGET boids>> [ draw-boid ] each ]
    with-translation ] ;

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


       ui.render
       multi-methods
       multi-method-syntax
       combinators.short-circuit
       processing.shapes
       flatland ;

