From bbddb8bb777df0ec26f72b01569e6db769c6df44 Mon Sep 17 00:00:00 2001 From: Ian Jackson Date: Sun, 3 Mar 2019 00:32:45 +0000 Subject: [PATCH] deckpairpathx nfc --- generate-board | 18 ++++++++---------- 1 file changed, 8 insertions(+), 10 deletions(-) diff --git a/generate-board b/generate-board index a92657d..6cc6334 100755 --- a/generate-board +++ b/generate-board @@ -508,11 +508,11 @@ sub water_cubes($){ } sub decks(){ - o(" /deckpath {\n"); + o(" /deck1path {\n"); my $w = 63 * MM2PT; my $h = 89 * MM2PT; my $r = 5 * MM2PT; - o(" newpath ",($w/2)," 0 moveto\n"); + o(" ",($w/2)," 0 moveto\n"); my @p = ([ $w, 0 ], [ $w,$h ], [ 0, $h ], @@ -522,14 +522,12 @@ sub decks(){ } o(" closepath\n"); o(" } bind def"); - o(" gsave 407 50 translate"); - o(" deckpath stroke\n"); - o(" 200 0 translate deckpath stroke\n"); - o(" grestore"); - o(" gsave 225 1375 translate 90 rotate"); - o(" deckpath stroke\n"); - o(" 200 0 translate deckpath stroke\n"); - o(" grestore"); + o(" /deckpairpathx {\n"); # x because it leaves matrix changed + o(" newpath deck1path\n"); + o(" 200 0 translate deck1path\n"); + o(" } bind def"); + o(" gsave 407 50 translate deckpairpathx stroke grestore"); + o(" gsave 225 1375 translate 90 rotate deckpairpathx stroke grestore"); } sub sea_track(){ -- 2.30.2