From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Sun, 3 Nov 2013 23:28:44 +0000 (+0000)
Subject: numbered-alias-sheet: remove some now-unneeded gsaves
X-Git-Tag: A~14
X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~ijackson/git?a=commitdiff_plain;h=fce16227d2ea6464a55052064c0c559a9b1806da;hp=625cfe71f80c0cc453514747e671d9497cb6e5b0;p=d.git

numbered-alias-sheet: remove some now-unneeded gsaves
---

diff --git a/numbered-alias-sheet b/numbered-alias-sheet
index 16db545..90a3862 100755
--- a/numbered-alias-sheet
+++ b/numbered-alias-sheet
@@ -375,7 +375,6 @@ sub write_output_tile ($) {
     my ($tile_string_off) = @_;
     my @cnr;
     my $c;
-    prf "gsave\n";
     for ($cnr[0]=0; $cnr[0]<2; $cnr[0]++) {
 	for ($cnr[1]=0; $cnr[1]<2; $cnr[1]++) {
 	    foreach my $cnrc (qw(0 1)) {
@@ -388,7 +387,6 @@ sub write_output_tile ($) {
 	    }
 	}
     }
-    prf "grestore gsave\n";
     prf "%s ", $borders[$_] foreach qw(0 1);
     prf "translate\n";
     if ($lp_y->{rotate_paper}) {
@@ -444,7 +442,6 @@ sub write_output_tile ($) {
 	    }
 	}
     }
-    prf "grestore\n";
 }
 
 sub write_output () {