From aa948d8ebe79f47db1d79760e9c22523c9c156fa Mon Sep 17 00:00:00 2001
From: Matthew Butterick <mb@mbtype.com>
Date: Tue, 23 May 2017 15:22:21 -1000
Subject: [PATCH] start test11

---
 pitfall/pitfall/path.rkt            |  17 +++++++++++++++++
 pitfall/pitfall/test/test11.rkt     |  15 +++++++++++++++
 pitfall/pitfall/test/test11crkt.pdf | Bin 0 -> 738 bytes
 3 files changed, 32 insertions(+)
 create mode 100644 pitfall/pitfall/test/test11.rkt
 create mode 100644 pitfall/pitfall/test/test11crkt.pdf

diff --git a/pitfall/pitfall/path.rkt b/pitfall/pitfall/path.rkt
index a88c07b3..1c496ceb 100644
--- a/pitfall/pitfall/path.rkt
+++ b/pitfall/pitfall/path.rkt
@@ -42,12 +42,29 @@
         [(M) (send doc moveTo . cmd-args)
              (match-define (list a0 a1) cmd-args)
              (values a0 a1 #f #f a0 a1)]
+        [(m) (match-define (list a0 a1) cmd-args)
+             (loop 'M (list (+ cx a0) (+ cy a1)))]
         [(C) (send doc bezierCurveTo . cmd-args)
              (match-define (list a0 a1 a2 a3 a4 a5) cmd-args)
              (values a4 a5 a2 a3 sx sy)]
+        [(c) (match-define (list a0 a1 a2 a3 a4 a5) cmd-args)
+             (loop 'C (list (+ cx a0) (+ cy a1)
+                            (+ cx a2) (+ cy a3)
+                            (+ cx a4) (+ cy a5)))]
         [(L) (send doc lineTo . cmd-args)
              (match-define (list a0 a1) cmd-args)
              (values a0 a1 #f #f sx sy)]
+        [(l) (match-define (list a0 a1) cmd-args)
+             (loop 'L (list (+ cx a0) (+ cy a1)))]
+        [(H) (match-define (list a0) cmd-args)
+             (loop 'L (list a0 cy))]
+        [(h) (match-define (list a0) cmd-args)
+             (loop 'L (list (+ cx a0) cy))]
+        [(V) (match-define (list a0) cmd-args)
+             (loop 'L (list cx a0))]
+        [(v) (match-define (list a0) cmd-args)
+             (loop 'L (list cx (+ cy a0)))]
+             
         [(Q) (send doc quadraticCurveTo . cmd-args)
              (match-define (list a0 a1 a2 a3) cmd-args)
              (values a2 a3 a0 a1 sx sy)]
diff --git a/pitfall/pitfall/test/test11.rkt b/pitfall/pitfall/test/test11.rkt
new file mode 100644
index 00000000..dfcd3104
--- /dev/null
+++ b/pitfall/pitfall/test/test11.rkt
@@ -0,0 +1,15 @@
+#lang pitfall/pdftest
+
+(define (proc doc)
+  (send doc translate 200 300)
+  (send* doc [path "m 0 0 v 100 h 100 v -100 h -100"]
+    [stroke])
+
+  (send doc translate 0 150)
+  (send* doc [path "M 0 0 L 0 100 L 100 0 L 0 -100 L -100 0"]
+    [stroke]))
+
+
+
+(define-runtime-path that "test11crkt.pdf")
+(make-doc that #t proc #:test #f)
diff --git a/pitfall/pitfall/test/test11crkt.pdf b/pitfall/pitfall/test/test11crkt.pdf
new file mode 100644
index 0000000000000000000000000000000000000000..43436d46bf7f3df10fe3cab18d78599b9983ff0e
GIT binary patch
literal 738
zcmZWnF>ljA6plKe>ZS?_R586JQW(H@cI`B%>JXa<t5jI2Cqjm6{E`}_J~&^bz*rTj
zV}C#ggcuQfM_8Gd_zV06CV1y0twqj~&;IV+_rCYN*G!_`Bk|Z{&A+sm4;<9-Yqqz?
zoJ49Y3<!ey%;{sPW_pAr>@0v#6^71B@D~4vnB}so<}ly{1j2=O#~m^!efI`|$R^14
z_Zb$M<+mI+d9)fGp@D%zTEIzhZor98=|Xq8hs!-4)+lV+6~%KbCguc!UFP)isX+}+
zZz>H&I8s@aw=^2%DVtw;DQ|R#A;=>Ce0lW)H}8v-yFB4{jz4ZaYeWw=t~;;b?zfGf
zTkiJPdl!dqPtIGvK5YK}9-Un`zI@vLV{2H_EvpG?QbNjOa#ci>9$L{8(P?uo=&9Dr
zhs>!Wl!jIkrw4ILNTO9X8<FZ8=+-H>#%)b3R}ESC8cHLlYEtvX_G{(KL7tT`uubh#
zCqgx|{j9g7tX-UI95W7WwvcMy5ct05!x&cBPC&I*C&eu$+H08DU5^u@vlhn%iTjVw
wb8DE<GM}QZ1~M+j3ar<59F;O)y`k@;{5_Iv@~kvco2m}qrIBtvebHn80Jf;e!~g&Q

literal 0
HcmV?d00001