From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Thu, 3 Dec 2020 16:22:46 +0000 (+0000)
Subject: tiling demo
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?a=commitdiff_plain;h=890deaa1fef8e0a8ccac33634a9de3f6a2a82d36;p=quacks.git

tiling demo
---

diff --git a/pumpkin-books.ps.pl b/pumpkin-books.ps.pl
index 46e2d3b..dcfbfd9 100755
--- 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