Skip to content

Commit

Permalink
Minor change to dvips set up
Browse files Browse the repository at this point in the history
  • Loading branch information
@josephwright
josephwright committed Mar 7, 2018
1 parent 40019ad commit 61b1169
Show file tree
Hide file tree
Showing 7 changed files with 436 additions and 130 deletions.
12 changes: 4 additions & 8 deletions l3kernel/l3drivers.dtx
View file
Expand Up @@ -723,14 +723,10 @@
% \begin{macrocode}
\cs_new_protected:Npn \@@_literal:n #1
{
\tex_special:D
{
ps:
currentpoint~
currentpoint~translate~
#1 ~
neg~exch~neg~exch~translate
}
\tex_special:D { ps:currentpoint }
\tex_special:D { ps:currentpoint~translate }
\tex_special:D { ps: #1 }
\tex_special:D { ps:neg~exch~neg~exch~translate}
}
% \end{macrocode}
% \end{macro}
Expand Down
104 changes: 72 additions & 32 deletions l3kernel/testfiles/d3dvips.luatex.tlg
View file
Expand Up @@ -7,8 +7,11 @@ TEST 1: Clip box
> \box...=
\hbox(6.94444+1.0)x86.45851, direction TLT
.\special{ps:gsave}
.\special{ps:currentpoint currentpoint translate matrix currentmatrix Resolutio
.\special{ps:currentpoint}
.\special{ps:currentpoint translate}
.\special{ps:matrix currentmatrix Resolution 72 div VResolution 72 div scale DV
\ETC.}
.\special{ps:neg exch neg exch translate}
.\hbox(6.94444+1.0)x0.0, glue set - 86.45851fil, direction TLT
..\hbox(6.94444+1.0)x86.45851, direction TLT
...\OT1/cmr/m/n/10 G
Expand Down Expand Up @@ -40,8 +43,11 @@ l. ... }
> \box...=
\hbox(6.94444+0.0)x86.45851, direction TLT
.\special{ps:gsave}
.\special{ps:currentpoint currentpoint translate matrix currentmatrix Resolutio
.\special{ps:currentpoint}
.\special{ps:currentpoint translate}
.\special{ps:matrix currentmatrix Resolution 72 div VResolution 72 div scale DV
\ETC.}
.\special{ps:neg exch neg exch translate}
.\hbox(6.94444+0.0)x0.0, glue set - 86.45851fil, direction TLT
..\hbox(6.94444+0.0)x86.45851, direction TLT
...\OT1/cmr/m/n/10 G
Expand Down Expand Up @@ -73,8 +79,11 @@ l. ... }
> \box...=
\hbox(6.94444+1.0)x86.45851, direction TLT
.\special{ps:gsave}
.\special{ps:currentpoint currentpoint translate matrix currentmatrix Resolutio
.\special{ps:currentpoint}
.\special{ps:currentpoint translate}
.\special{ps:matrix currentmatrix Resolution 72 div VResolution 72 div scale DV
\ETC.}
.\special{ps:neg exch neg exch translate}
.\hbox(6.94444+1.0)x0.0, glue set - 86.45851fil, direction TLT
..\hbox(6.94444+1.0)x86.45851, direction TLT
...\OT1/cmr/m/n/10 G
Expand Down Expand Up @@ -106,8 +115,11 @@ l. ... }
> \box...=
\hbox(6.94444+1.94444)x20.0, direction TLT
.\special{ps:gsave}
.\special{ps:currentpoint currentpoint translate matrix currentmatrix Resolutio
.\special{ps:currentpoint}
.\special{ps:currentpoint translate}
.\special{ps:matrix currentmatrix Resolution 72 div VResolution 72 div scale DV
\ETC.}
.\special{ps:neg exch neg exch translate}
.\hbox(6.94444+1.94444)x0.0, glue set - 20.0fil, direction TLT
..\hbox(6.94444+1.94444)x20.0, direction TLT
...\OT1/cmr/m/n/10 G
Expand Down Expand Up @@ -163,8 +175,10 @@ l. ... }
..\kern 0.0
..\hbox(6.94444+0.0)x50.02786, direction TLT
...\special{ps:gsave}
...\special{ps:currentpoint currentpoint translate 0 rotate neg exch neg exch t
ra\ETC.}
...\special{ps:currentpoint}
...\special{ps:currentpoint translate}
...\special{ps:0 rotate}
...\special{ps:neg exch neg exch translate}
...\hbox(6.94444+0.0)x50.02786, direction TLT
....\hbox(6.94444+0.0)x50.02786, direction TLT
.....\OT1/cmr/m/n/10 H
Expand All @@ -189,8 +203,10 @@ l. ... }
..\kern 3.47223
..\hbox(6.94444+0.0)x50.02786, direction TLT
...\special{ps:gsave}
...\special{ps:currentpoint currentpoint translate -30 rotate neg exch neg exch
t\ETC.}
...\special{ps:currentpoint}
...\special{ps:currentpoint translate}
...\special{ps:-30 rotate}
...\special{ps:neg exch neg exch translate}
...\hbox(6.94444+0.0)x50.02786, direction TLT
....\hbox(6.94444+0.0)x50.02786, direction TLT
.....\OT1/cmr/m/n/10 H
Expand All @@ -215,8 +231,10 @@ l. ... }
..\kern 4.91046
..\hbox(6.94444+0.0)x50.02786, direction TLT
...\special{ps:gsave}
...\special{ps:currentpoint currentpoint translate -45 rotate neg exch neg exch
t\ETC.}
...\special{ps:currentpoint}
...\special{ps:currentpoint translate}
...\special{ps:-45 rotate}
...\special{ps:neg exch neg exch translate}
...\hbox(6.94444+0.0)x50.02786, direction TLT
....\hbox(6.94444+0.0)x50.02786, direction TLT
.....\OT1/cmr/m/n/10 H
Expand All @@ -241,8 +259,10 @@ l. ... }
..\kern 40.2855
..\hbox(6.94444+0.0)x50.02786, direction TLT
...\special{ps:gsave}
...\special{ps:currentpoint currentpoint translate -135 rotate neg exch neg exc
h \ETC.}
...\special{ps:currentpoint}
...\special{ps:currentpoint translate}
...\special{ps:-135 rotate}
...\special{ps:neg exch neg exch translate}
...\hbox(6.94444+0.0)x50.02786, direction TLT
....\hbox(6.94444+0.0)x50.02786, direction TLT
.....\OT1/cmr/m/n/10 H
Expand All @@ -267,8 +287,10 @@ l. ... }
..\kern 35.37505
..\hbox(6.94444+0.0)x50.02786, direction TLT
...\special{ps:gsave}
...\special{ps:currentpoint currentpoint translate -225 rotate neg exch neg exc
h \ETC.}
...\special{ps:currentpoint}
...\special{ps:currentpoint translate}
...\special{ps:-225 rotate}
...\special{ps:neg exch neg exch translate}
...\hbox(6.94444+0.0)x50.02786, direction TLT
....\hbox(6.94444+0.0)x50.02786, direction TLT
.....\OT1/cmr/m/n/10 H
Expand All @@ -293,8 +315,10 @@ l. ... }
..\kern 0.0
..\hbox(6.94444+0.0)x50.02786, direction TLT
...\special{ps:gsave}
...\special{ps:currentpoint currentpoint translate -315 rotate neg exch neg exc
h \ETC.}
...\special{ps:currentpoint}
...\special{ps:currentpoint translate}
...\special{ps:-315 rotate}
...\special{ps:neg exch neg exch translate}
...\hbox(6.94444+0.0)x50.02786, direction TLT
....\hbox(6.94444+0.0)x50.02786, direction TLT
.....\OT1/cmr/m/n/10 H
Expand All @@ -319,16 +343,20 @@ l. ... }
..\kern 28.48616
..\hbox(40.2855+0.0)x40.2855, direction TLT
...\special{ps:gsave}
...\special{ps:currentpoint currentpoint translate -45 rotate neg exch neg exch
t\ETC.}
...\special{ps:currentpoint}
...\special{ps:currentpoint translate}
...\special{ps:-45 rotate}
...\special{ps:neg exch neg exch translate}
...\hbox(40.2855+0.0)x40.2855, direction TLT
....\hbox(40.2855+0.0)x40.2855, direction TLT
.....\hbox(40.2855+0.0)x40.2855, direction TLT
......\kern 4.91046
......\hbox(6.94444+0.0)x50.02786, direction TLT
.......\special{ps:gsave}
.......\special{ps:currentpoint currentpoint translate -45 rotate neg exch neg
exch t\ETC.}
.......\special{ps:currentpoint}
.......\special{ps:currentpoint translate}
.......\special{ps:-45 rotate}
.......\special{ps:neg exch neg exch translate}
.......\hbox(6.94444+0.0)x50.02786, direction TLT
........\hbox(6.94444+0.0)x50.02786, direction TLT
.........\OT1/cmr/m/n/10 H
Expand Down Expand Up @@ -375,8 +403,10 @@ l. ... }
..\kern 0.0
..\hbox(6.94444+0.0)x50.02786, direction TLT
...\special{ps:gsave}
...\special{ps:currentpoint currentpoint translate 1 1 scale neg exch neg exch
tr\ETC.}
...\special{ps:currentpoint}
...\special{ps:currentpoint translate}
...\special{ps:1 1 scale}
...\special{ps:neg exch neg exch translate}
...\hbox(6.94444+0.0)x0.0, glue set - 50.02786fil, direction TLT
....\hbox(6.94444+0.0)x50.02786, direction TLT
.....\OT1/cmr/m/n/10 H
Expand All @@ -403,8 +433,10 @@ l. ... }
..\kern 0.0
..\hbox(6.94444+0.0)x125.06966, direction TLT
...\special{ps:gsave}
...\special{ps:currentpoint currentpoint translate 2.5 1 scale neg exch neg exc
h \ETC.}
...\special{ps:currentpoint}
...\special{ps:currentpoint translate}
...\special{ps:2.5 1 scale}
...\special{ps:neg exch neg exch translate}
...\hbox(6.94444+0.0)x0.0, glue set - 50.02786fil, direction TLT
....\hbox(6.94444+0.0)x50.02786, direction TLT
.....\OT1/cmr/m/n/10 H
Expand All @@ -431,8 +463,10 @@ l. ... }
..\kern 0.0
..\hbox(2.31477+0.0)x50.02786, direction TLT
...\special{ps:gsave}
...\special{ps:currentpoint currentpoint translate 1 0.33333 scale neg exch neg
e\ETC.}
...\special{ps:currentpoint}
...\special{ps:currentpoint translate}
...\special{ps:1 0.33333 scale}
...\special{ps:neg exch neg exch translate}
...\hbox(6.94444+0.0)x0.0, glue set - 50.02786fil, direction TLT
....\hbox(6.94444+0.0)x50.02786, direction TLT
.....\OT1/cmr/m/n/10 H
Expand All @@ -459,8 +493,10 @@ l. ... }
..\kern 0.0
..\hbox(6.94444+1.94444)x103.61133, direction TLT
...\special{ps:gsave}
...\special{ps:currentpoint currentpoint translate 1 1 scale neg exch neg exch
tr\ETC.}
...\special{ps:currentpoint}
...\special{ps:currentpoint translate}
...\special{ps:1 1 scale}
...\special{ps:neg exch neg exch translate}
...\hbox(6.94444+1.94444)x0.0, glue set - 103.61133fil, direction TLT
....\hbox(6.94444+1.94444)x103.61133, direction TLT
.....\OT1/cmr/m/n/10 T
Expand Down Expand Up @@ -500,8 +536,10 @@ l. ... }
..\kern 0.0
..\hbox(20.83333+5.83333)x310.83398, direction TLT
...\special{ps:gsave}
...\special{ps:currentpoint currentpoint translate 3 3 scale neg exch neg exch
tr\ETC.}
...\special{ps:currentpoint}
...\special{ps:currentpoint translate}
...\special{ps:3 3 scale}
...\special{ps:neg exch neg exch translate}
...\hbox(6.94444+1.94444)x0.0, glue set - 103.61133fil, direction TLT
....\hbox(6.94444+1.94444)x103.61133, direction TLT
.....\OT1/cmr/m/n/10 T
Expand Down Expand Up @@ -541,8 +579,10 @@ l. ... }
..\kern 310.83398
..\hbox(5.83333+20.83333)x0.0, direction TLT
...\special{ps:gsave}
...\special{ps:currentpoint currentpoint translate -3 -3 scale neg exch neg exc
h \ETC.}
...\special{ps:currentpoint}
...\special{ps:currentpoint translate}
...\special{ps:-3 -3 scale}
...\special{ps:neg exch neg exch translate}
...\hbox(6.94444+1.94444)x0.0, glue set - 103.61133fil, direction TLT
....\hbox(6.94444+1.94444)x103.61133, direction TLT
.....\OT1/cmr/m/n/10 T
Expand Down

0 comments on commit 61b1169

Please sign in to comment.