Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>
-my $y_cut = 120; # XX
-my $y_top = 160; # XX
my $y_cutd = 10;
my $nrepis = 4;
my $y_cutd = 10;
my $nrepis = 4;
my $colspacing = 23;
my $vhalf = sqrt( $spacing ** 2 - ($colspacing*0.5) ** 2 );
my $colspacing = 23;
my $vhalf = sqrt( $spacing ** 2 - ($colspacing*0.5) ** 2 );
+my $y_cut = 2.75 * $spacing;
+
my $x_pl_zero = $paper_x*0.5 - 3*$colspacing;
my $y_pl_zero = $y_cut + $spacing - $y_cutd* 0.5 * $x_cut/$colspacing;
my $x_pl_zero = $paper_x*0.5 - 3*$colspacing;
my $y_pl_zero = $y_cut + $spacing - $y_cutd* 0.5 * $x_cut/$colspacing;
+my $y_top = $y_pl_zero + $y_cutd + $spacing*1.25;
+
o <<END;
gsave
0.5 setgray
o <<END;
gsave
0.5 setgray