chiark / gitweb /
tweak green
authorIan Jackson <ijackson@chiark.greenend.org.uk>
Thu, 3 Dec 2020 16:57:02 +0000 (16:57 +0000)
committerIan Jackson <ijackson@chiark.greenend.org.uk>
Thu, 3 Dec 2020 16:57:02 +0000 (16:57 +0000)
pumpkin-books.ps.pl

index bd62de241d68429410f6bfd484a3120dc08e9051..e2c6b2b1465919dbe10196a8277d7f8970d160a5 100755 (executable)
@@ -137,16 +137,16 @@ sub green_book () {
   my $o = general_book($green, [qw(5 9 15)]);
 
   $o .= <<END;
-gsave 0.2 0.15 dc translate ${\ chip($pumpkin,0) } grestore
-gsave 0.2 0.40 dc translate ${\ chip($green,0) } grestore
+gsave 0.25 0.15 dc translate ${\ chip($pumpkin,0) } grestore
+gsave 0.25 0.40 dc translate ${\ chip($green,0) } grestore
 
 /Times-Bold findfont
 dup
   6 scalefont setfont
-  0.35 0.17 dc moveto (last) show
+  0.40 0.17 dc moveto (last) show
 %
   8 scalefont setfont
-  0.35 0.09 dc moveto (3) show
+  0.40 0.09 dc moveto (3) show
 /Times-Roman findfont
   38 scalefont setfont
   0.45 0.14 dc moveto (}) show