From 1f09f40ebea19febe7537a2813765b49e7b6b5bf Mon Sep 17 00:00:00 2001
From: Matthew Butterick <mb@mbtype.com>
Date: Tue, 15 Aug 2017 11:03:14 -0700
Subject: [PATCH] add clipping

---
 pitfall/pitfall/vector.rkt | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/pitfall/pitfall/vector.rkt b/pitfall/pitfall/vector.rkt
index 4aeccfdf..5a2e5999 100644
--- a/pitfall/pitfall/vector.rkt
+++ b/pitfall/pitfall/vector.rkt
@@ -29,6 +29,7 @@
      fill
      stroke
      fillAndStroke
+     clip
      transform
      translate
      scale)))
@@ -210,6 +211,11 @@
         (+ (* n12 mdx) (* n22 mdy) ndy)))
 
 
+(define/contract (clip this [rule #f])
+  (() ((or/c string? #f)) . ->*m . object?)
+  (send this addContent (string-append "W" (_windingRule rule) " n")))
+
+
 (define/contract (transform this m11 m12 m21 m22 mdx mdy)
   (number? number? number? number? number? number? . ->m . object?)
   (define new-ctm (list m11 m12 m21 m22 mdx mdy))