       [ BEHAVIOUR view-angle>> in-view?   ]
       [ eq? not                           ]
     }
-  && ;
+  2&& ;
 
 :: neighborhood ( SELF OTHERS BEHAVIOUR -- boids )
   OTHERS [| OTHER | SELF OTHER BEHAVIOUR within-neighborhood? ] filter ;


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

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 ;

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

