0 $y_top lineto
stroke
} def
-
-cut_line
END
sub places ($) {
}
}
-places(0);
+sub repis () {
+ for my $repi (0..4) {
+ o(<<END);
+gsave
+ $repi $colspacing 2 mul mul 0 translate
+
+ cut_line
+END
+ places($repi);
+ o(<<END);
+grestore
+END
+ }
+}
+
+repis();
print $ps_framing or die $!;