From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Tue, 26 Oct 2021 17:28:44 +0000 (+0100)
Subject: yellow: process bag image
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?a=commitdiff_plain;h=c682d6d9a243ff1ddf92ec1cd24dfd7ebb524922;p=quacks.git

yellow: process bag image
---

diff --git a/Makefile b/Makefile
index 6ff324b..121d838 100644
--- a/Makefile
+++ b/Makefile
@@ -1,6 +1,8 @@
 
 PUBLISH= pumpkin-books.pdf house-rules.md
 
+SHELL=bash
+
 all:	pumpkin-books.pdf
 
 # Don't print the ps, printers (eg ours!) don't always have the fonts
@@ -8,10 +10,20 @@ all:	pumpkin-books.pdf
 pumpkin-books.ps: pumpkin-books.ps.pl
 	./$< >$@.new && mv -f $@.new $@
 
-pumpkin-books.pdf: pumpkin-books.ps
+pumpkin-books.pdf: pumpkin-books.ps bag.pgm
 	gs -q -dNOPAUSE -dBATCH -dPDFSETTINGS=/prepress \
 		-sDEVICE=pdfwrite -sOutputFile=$@ $<
 
+bag.pgm: Sack_-_Sac_-_Zak_brown.svg Makefile
+	rsvg-convert -f png -o $@.tmp.png $<
+	set -o pipefail; set -e;			\
+	pngtopnm <$@.tmp.png				\
+	| ppmtopgm 					\
+	| pnmdepth 255 					\
+	| pnmnoraw >$@.tmp.new
+	mv -f $@.tmp.new $@
+
+
 pubssh=c
 pubpath=games-rules/quacks
 puburl=https://www.chiark.greenend.org.uk/~ijackson/
diff --git a/Sack_-_Sac_-_Zak_(brown).svg b/Sack_-_Sac_-_Zak_brown.svg
similarity index 100%
rename from Sack_-_Sac_-_Zak_(brown).svg
rename to Sack_-_Sac_-_Zak_brown.svg
diff --git a/pumpkin-books.ps.pl b/pumpkin-books.ps.pl
index 00b3ddc..9de6062 100755
--- a/pumpkin-books.ps.pl
+++ b/pumpkin-books.ps.pl
@@ -484,6 +484,7 @@ gsave
   -26 0 translate
   gsave 26 0 translate ${\ chip($anychip,0) } grestore
   gsave 46 0 translate ${\ chip($pumpkin,0) } grestore
+  bag_image
   10 6 translate
   -120 rotate
   ${\ arrow_any("
@@ -606,6 +607,39 @@ $page_pre
 
 END
 
+sub def_image ($) {
+  my ($name) = @_;
+
+  open B, "$name.pgm" or die $!;
+  <B> eq "P2\n" or die;
+  local $/ = undef;
+  my @d = split ' ', <B>;
+  close B;
+
+  my $w = shift @d;
+  my $h = shift @d;
+  my $maxval = shift @d;
+  die unless $maxval eq 255;
+
+  my $sz = $w/17.0;
+  my $hsz = $sz/2;
+
+  print <<END, '{<' or die $!;
+/${name}_image {
+  $w $h 8 
+  [ -$sz 0 0  -$sz  $w 2 div  $h 2 div  ]
+END
+  for (my $i=0; $i< $w*$h; $i++) {
+    printf "%02x", shift @d or die $!;
+  }
+  print <<END or die $!;
+>} image
+} def
+END
+}
+
+def_image("bag");
+
 print "gsave\n" or die $!;
 
 print tile(