chiark / gitweb /
numbered-alias-sheet: remove some now-unneeded gsaves
authorIan Jackson <ijackson@chiark.greenend.org.uk>
Sun, 3 Nov 2013 23:28:44 +0000 (23:28 +0000)
committerIan Jackson <ijackson@chiark.greenend.org.uk>
Sun, 3 Nov 2013 23:28:44 +0000 (23:28 +0000)
numbered-alias-sheet

index 16db545838c7cd255fd19014847d71cb064ab856..90a38629fa9325d61b95497d138ea035b41ea625 100755 (executable)
@@ -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 () {