X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=blobdiff_plain;f=extra%2Fbunny%2Fbunny.factor;h=b7400c4acb53e054c7497d95dd2d451b8cc41848;hp=620f737fe3783ddff6ea7750f7542a84d9aacfbf;hb=3f3d57032bf29190e9bee12d168a4bce6d74653c;hpb=cd1bb8f4c8afba318249c7b756a45aa1c46ea51e diff --git a/extra/bunny/bunny.factor b/extra/bunny/bunny.factor index 620f737fe3..b7400c4acb 100755 --- a/extra/bunny/bunny.factor +++ b/extra/bunny/bunny.factor @@ -11,7 +11,7 @@ TUPLE: bunny-world < demo-world model-triangles geom draw-seq draw-n ; : next-draw ( gadget -- ) dup [ draw-seq>> ] [ draw-n>> ] bi - 1+ swap length mod + 1 + swap length mod >>draw-n relayout-1 ; : make-draws ( gadget -- draw-seq )