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 .= $_ }
28 my $vhalf = sqrt( $spacing ** 2 - ($colspacing*0.5) ** 2 );
30 my $x_pl_zero = $x_cut + 0.5*$colspacing;
31 my $y_pl_zero = $y_cut + $spacing - $y_cutd* 0.5 * $x_cut/$colspacing;
41 0 $y_cut $y_cutd add lineto
62 foreach (split /\n/, $data) {
67 s{V}{ $vhalf / $spacing }ge;
69 my ($x,$y,$money,$veeps,$ruby) = map { eval $_ } split /\s+/;
74 push @line_poses, "$x $y";
75 next unless defined $money;
81 % place $x $y $money $veeps $ruby
83 $x_pl_zero $y_pl_zero translate
85 ${\ chip($anychip, 0) }
95 $repi $colspacing 2 mul mul 0 translate
108 print $ps_framing or die $!;