wip overflow tube

Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>

diff --git a/.gitignore b/.gitignore
index 7e8105b8bd6e215933811c8b07fb3fbc2d05a846..349ab9f2a5dac87f031e00b0958b3287cb017520 100644 (file)
--- a/.gitignore
+++ b/.gitignore
@@ -1,5 +1,7 @@
 pumpkin-books.ps
 pumpkin-books.pdf
+overflow-tube.ps
+overflow-tube.pdf
 bag.pgm
 pot.pgm
 droplet.ppm

diff --git a/Makefile b/Makefile
index 05473cefa67814c803e80c3fe44d03ac9258347f..1a58fe5d83d39b5428c44eabb12bb269c31f8109 100644 (file)
--- a/Makefile
+++ b/Makefile
@@ -33,10 +33,10 @@ use_rsvg=rsvg-convert -f png -o $@.tmp.png $<
 shell_pipe=set -o pipefail; set -e;
 make_pnm = pnmdepth 255 | pnmnoraw $o
 
-pumpkin-books.ps: pumpkin-books.ps.pl bag.pgm pot.pgm droplet.ppm
+%.ps: %.ps.pl bag.pgm pot.pgm droplet.ppm
        ./$< $(BOOKS) $o
 
-pumpkin-books.pdf: pumpkin-books.ps
+%.pdf: %.ps
        gs -q -dNOPAUSE -dBATCH -dPDFSETTINGS=/prepress \
                -sDEVICE=pdfwrite -sOutputFile=$@ $<
 

diff --git a/overflow-tube.ps.pl b/overflow-tube.ps.pl
new file mode 100755 (executable)
index 0000000..d656f1f
--- /dev/null
+++ b/overflow-tube.ps.pl
@@ -0,0 +1,13 @@
+#!/usr/bin/perl -w
+# Books of Pumpkins, etc.  Extensions to Quacks of Quedlinburg
+#  SPDX-License-Identifier: GPL-3.0-or-later OR CC-BY-SA-4.0
+# Copyright 2020-2022 Ian Jackson
+
+use strict;
+
+BEGIN { unshift @INC, '.'; }
+use Quacks;
+
+ps_head();
+
+print $ps_framing or die $!;