Add ghost.

1 files changed, 10 insertions, 0 deletions

diff --git a/pict.scm b/pict.scm
index 63cd1d9..228aa1d 100644
--- a/pict.scm
+++ b/pict.scm
@@ -91,6 +91,7 @@
 
             pin-over
             pin-under
+            ghost
 
             ;; colors
             rgb
@@ -415,6 +416,15 @@ strings that are built from the list of attributes LST."
                              #:border-color color
                              #:border-width stroke-width)))
 
+(define (ghost pict)
+  "Create an empty picture with the same size as PICT."
+  (make-pict
+   `(svg (@ (height ,(pict-height pict))
+            (width  ,(pict-width pict))
+            (class "ghost")
+            (x 0)
+            (y 0)))))
+
 
 ;;; SVG graphics primitives.