chiark
/
gitweb
/
~ijackson
/
trains.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
81a5d21
)
put %! at start but do not break segcmapreq
author
ian
<ian>
Thu, 5 Oct 2006 11:24:35 +0000
(11:24 +0000)
committer
ian
<ian>
Thu, 5 Oct 2006 11:24:35 +0000
(11:24 +0000)
layout/layout
patch
|
blob
|
history
diff --git
a/layout/layout
b/layout/layout
index bec971bdf548a9f7ea14f0a987c1985b81121411..b9752ccd87ee3a3a35849e534e4110bfea3a7b18 100755
(executable)
--- a/
layout/layout
+++ b/
layout/layout
@@
-1591,9
+1591,8
@@
sub cmd__one {
cmd__do();
}
cmd__do();
}
-print "%!\n" or die $!;
-
-o(" /lf /Courier-New findfont $lmu_marktpt scalefont def\n".
+o("%!\n".
+ " /lf /Courier-New findfont $lmu_marktpt scalefont def\n".
" $ps_page_shift 0 translate 90 rotate\n".
" gsave\n");
" $ps_page_shift 0 translate 90 rotate\n".
" gsave\n");
@@
-1657,7
+1656,8
@@
while (<>) {
if ($scale < 1.5) {
my ($tick_x, $tick_y, $ticklen);
$ticklen= 10;
if ($scale < 1.5) {
my ($tick_x, $tick_y, $ticklen);
$ticklen= 10;
- printf(" gsave 0.5 setgray 0.33 setlinewidth\n".
+ printf("%%!\n".
+ " gsave 0.5 setgray 0.33 setlinewidth\n".
" /regmark {\n".
" newpath moveto\n".
" -%d 0 rmoveto %d 0 rlineto\n".
" /regmark {\n".
" newpath moveto\n".
" -%d 0 rmoveto %d 0 rlineto\n".