diff --git a/extra/springies/ui/ui.factor b/extra/springies/ui/ui.factor index 07865f38e0..21e97a1827 100644 --- a/extra/springies/ui/ui.factor +++ b/extra/springies/ui/ui.factor @@ -7,7 +7,7 @@ IN: springies.ui ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! -: draw-node ( node -- ) pos>> { -5 -5 } v+ dup { 10 10 } v+ gl-rect ; +: draw-node ( node -- ) pos>> { -5 -5 } v+ [ { 10 10 } gl-rect ] with-translation ; : draw-spring ( spring -- ) [ node-a>> pos>> ] [ node-b>> pos>> ] bi gl-line ;