tiling demo

diff --git a/pumpkin-books.ps.pl b/pumpkin-books.ps.pl
index 46e2d3be6737d6b51f325300dd481f1e030b1bf2..dcfbfd9f3fafec78d45b5d75ec2034963b250eb9 100755 (executable)
--- a/pumpkin-books.ps.pl
+++ b/pumpkin-books.ps.pl
@@ -70,31 +70,10 @@ END
   $o;
 }
 
-sub general_book ($$) {
+
+sub general_book ($$) { # put in a gsave
   my ($this, $costs) = @_;
   my $o = <<END;
-%!
-
-72 25.4 div dup scale
-210 0 translate
-90 rotate
-10 10 translate
-
-/tw 57.5 def
-/th 73 def
-/bdiag 5 def
-/thirdlineh 0.45 def
-/costcirch 0.3 def
-/chip 15 def
-/spot 3.5 def
-
-/costtexth 0.215 def
-/costtextsz 12 def
-/costtextdx -0.03 def
-/costfont /Heletica-BoldOblique findfont costtextsz scalefont def
-
-/rubysz 4 def
-
 tw  0  translate
 
 % diagonal conversion
@@ -195,4 +174,47 @@ END
   $o;
 }
 
+print <<END or die $!;
+%!
+
+72 25.4 div dup scale
+%210 0 translate
+%90 rotate
+7 10 translate
+
+/tw 57.5 def
+/th 73 def
+/bdiag 5 def
+/thirdlineh 0.45 def
+/costcirch 0.3 def
+/chip 15 def
+/spot 3.5 def
+
+/costtexth 0.215 def
+/costtextsz 12 def
+/costtextdx -0.03 def
+/costfont /Heletica-BoldOblique findfont costtextsz scalefont def
+
+/rubysz 4 def
+
+gsave
+END
+
 print green_book() or die $!;
+
+print <<END,green_book() or die $!;
+grestore
+gsave
+tw 2 mul th add 7 add 0 translate
+90 rotate
+END
+
+print <<END,green_book() or die $!;
+grestore
+gsave
+0   th 10 add  2 mul  translate
+END
+
+print <<END or die $!;
+grestore
+END