default to origin

6 years ago · e3e6664ec3
parent 3091304c3b
commit e3e6664ec3
1 changed files with 1 additions and 1 deletions
--- a/quad/quad/position.rkt
+++ b/quad/quad/position.rkt
@ -45,7 +45,7 @@
  (pt+ (origin q) (anchor->point q (out q) signal))) ; no offset because end-point is calculated without padding


-(define/contract (position q [previous-end-pt (pt 0 0)])
+(define/contract (position q [previous-end-pt (origin q)])
  ((quad?) (point?) . ->* . quad?)
  (set-origin! q (pt- previous-end-pt (in-point q)))
  (for/fold ([pt (inner-point q)])