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 sub o {
  12   local $_;
  13   for (@_) { $ps_framing .= $_ }
  14 }
  15
  16 ps_start(<<END);
  17 90 rotate
  18 0 -210 translate
  19 END
  20
  21 my $x_cut = 27;
  22 my $y_cut = 120; # XX
  23 my $y_top = 160; # XX
  24 my $y_cutd = 20;
  25
  26 o <<END;
  27 gsave
  28 0.5 setgray
  29
  30 /cut_line {
  31   $x_cut 0                    moveto
  32   $x_cut $y_cut               lineto
  33   0      $y_cut $y_cutd add   lineto
  34   0      $y_top               lineto
  35   stroke
  36 } def
  37
  38 cut_line
  39 END
  40
  41 print $ps_framing or die $!;