From f32b6a3b17ac2a739ab5fa25a8b0b7d30a9240f7 Mon Sep 17 00:00:00 2001 From: Ian Jackson Date: Sun, 3 Mar 2019 21:17:26 +0000 Subject: [PATCH] sort out track, wip, nfc --- generate-board | 34 ++++++++++++++++------------------ 1 file changed, 16 insertions(+), 18 deletions(-) diff --git a/generate-board b/generate-board index 078b67c..ac38bc5 100755 --- a/generate-board +++ b/generate-board @@ -586,24 +586,22 @@ sub sea_track(){ o(" $prepline\n"); o(" gsave ", psvec($pos[$i] + mkvec(-0.0 * $token_sz, $dy/2))," translate\n"); - if ($i >= 0 && - ($i == 0 || - $track->[$i] != $track->[$i-1])) { - my $t_sz = 24; - my $shrink = ($hs_sz * 0.75 / $deck_h); - o(" gsave % T M $i\n"); - o(" -44 -6.5 translate\n"); - o(" 0.8 .8 scale \n"); - o(" ",0.6 * $dx, " ", -0.28 * $dy," translate\n"); - o(" gsave"); - o(" $shrink dup scale -90 rotate\n"); - o(" newpath ", ($hs_lw / $shrink)," setlinewidth\n"); - o(" deck1path stroke\n"); - o(" grestore"); - o(" /Helvetica-Bold findfont $t_sz scalefont setfont\n"); - o(" 12 -22 moveto ($track->[$i]) show"); - o(" grestore\n"); - } + + my $t_sz = 24; + my $shrink = ($hs_sz * 0.75 / $deck_h); + o(" gsave % T M $i\n"); + o(" -44 -6.5 translate\n"); + o(" 0.8 .8 scale \n"); + o(" ",0.6 * $dx, " ", -0.28 * $dy," translate\n"); + o(" gsave"); + o(" $shrink dup scale -90 rotate\n"); + o(" newpath ", ($hs_lw / $shrink)," setlinewidth\n"); + o(" deck1path stroke\n"); + o(" grestore"); + o(" /Helvetica-Bold findfont $t_sz scalefont setfont\n"); + o(" 12 -22 moveto ($track->[$i]) show"); + o(" grestore\n"); + if ($i > 0) { o(" 0 -$dy moveto", " ",psvec(mkvec( $dx + $cube_sz, 0 )), -- 2.30.2