overflow-tube.ps.pl

   1 #!/usr/bin/perl -w
   2 # Books of Pumpkins, etc.  Extensions to Quacks of Quedlinburg
   3 #  SPDX-License-Identifier: GPL-3.0-or-later OR CC-BY-SA-4.0
   4 # Copyright 2020-2022 Ian Jackson
   5
   6 use strict;
   7
   8 BEGIN { unshift @INC, '.'; }
   9 use Quacks;
  10
  11 ps_head();
  12
  13 sub o {
  14   local $_;
  15   for (@_) { $ps_framing .= $_ }
  16 }
  17
  18 o <<END;
  19 0 0 moveto 20 20 lineto stroke
  20 END
  21
  22 print $ps_framing or die $!;