From 67dc51160ce40545e4a2566d5eb4c20f1a21a82c Mon Sep 17 00:00:00 2001 From: John Benediktsson Date: Fri, 24 Oct 2014 21:34:53 -0700 Subject: [PATCH] boids: removing unnecessary with-translation. --- extra/boids/boids.factor | 15 +++++++-------- 1 file changed, 7 insertions(+), 8 deletions(-) diff --git a/extra/boids/boids.factor b/extra/boids/boids.factor index 92d2b85f0e..69605f8b4b 100644 --- a/extra/boids/boids.factor +++ b/extra/boids/boids.factor @@ -2,11 +2,11 @@ ! Copyright (C) 2011 Anton Gorenko. ! See http://factorcode.org/license.txt for BSD license. USING: accessors arrays boids.simulation calendar classes kernel -literals locals math math.functions math.trig models namespaces -opengl opengl.demo-support opengl.gl sequences threads ui -ui.gadgets ui.gadgets.borders ui.gadgets.buttons -ui.gadgets.frames ui.gadgets.grids ui.gadgets.labeled -ui.gadgets.labels ui.gadgets.packs ui.gadgets.sliders ui.render ; +literals locals math math.functions math.trig models opengl +opengl.demo-support opengl.gl sequences threads ui ui.gadgets +ui.gadgets.borders ui.gadgets.buttons ui.gadgets.frames +ui.gadgets.grids ui.gadgets.labeled ui.gadgets.labels +ui.gadgets.packs ui.gadgets.sliders ui.render ; QUALIFIED-WITH: models.range mr IN: boids @@ -49,9 +49,8 @@ M: boids-gadget ungraft* 0.0 0.0 0.0 0.5 glColor4f [ draw-boid ] each ; -M:: boids-gadget draw-gadget* ( boids-gadget -- ) - origin get - [ boids-gadget boids>> draw-boids ] with-translation ; +M: boids-gadget draw-gadget* ( boids-gadget -- ) + boids>> draw-boids ; : iterate-system ( boids-gadget -- ) dup [ boids>> ] [ behaviours>> ] [ dt>> ] tri