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
8 BEGIN { unshift @INC, '.'; }
13 for (@_) { $ps_framing .= $_ }
33 0 $y_cut $y_cutd add lineto
52 foreach (split /\n/, $data) {
58 my ($x,$y,$money,$veeps,$ruby) = map { eval $_ } split /\s+/;
60 print STDERR "DATA $x $y $money $veeps $ruby\n";
66 print $ps_framing or die $!;