summaryrefslogtreecommitdiff
path: root/Build/source/texk/dviout-util/tests
diff options
context:
space:
mode:
Diffstat (limited to 'Build/source/texk/dviout-util/tests')
-rw-r--r--Build/source/texk/dviout-util/tests/tpicpn.dvibin0 -> 1956 bytes
-rw-r--r--Build/source/texk/dviout-util/tests/tpicpn.tex84
-rw-r--r--Build/source/texk/dviout-util/tests/tpicpnout.dvibin0 -> 1980 bytes
-rw-r--r--Build/source/texk/dviout-util/tests/tpicsh.dvibin0 -> 724 bytes
-rw-r--r--Build/source/texk/dviout-util/tests/tpicsh.tex41
5 files changed, 125 insertions, 0 deletions
diff --git a/Build/source/texk/dviout-util/tests/tpicpn.dvi b/Build/source/texk/dviout-util/tests/tpicpn.dvi
new file mode 100644
index 00000000000..fd51acd340c
--- /dev/null
+++ b/Build/source/texk/dviout-util/tests/tpicpn.dvi
Binary files differ
diff --git a/Build/source/texk/dviout-util/tests/tpicpn.tex b/Build/source/texk/dviout-util/tests/tpicpn.tex
new file mode 100644
index 00000000000..a32ea3d793d
--- /dev/null
+++ b/Build/source/texk/dviout-util/tests/tpicpn.tex
@@ -0,0 +1,84 @@
+% tpic pn -> pa (-> fp etc.), ar
+\documentclass{article}
+\begin{document}
+\unitlength 0.001in
+
+PN 30 (explicit)\par
+\begin{picture}(850,550)(-50,-500)
+ \special{pn 30}%
+ \special{ar 400 250 400 250 0 6.28319}%
+ \put(400,-250){\makebox(0,0){document}}%
+\end{picture}
+\newpage
+
+PN 30 (implicit from previous page)\par
+\begin{picture}(850,550)(-50,-500)
+ \special{ar 400 250 400 250 0 6.28319}%
+ \put(400,-250){\makebox(0,0){document}}%
+\end{picture}
+\newpage
+
+PN 5 (explicit)\par
+\begin{picture}(850,550)(-50,-500)
+ \special{pn 5}%
+ \special{ar 400 250 400 250 0 6.28319}%
+ \put(400,-250){\makebox(0,0){document}}%
+\end{picture}
+\newpage
+
+No TPIC picture
+\newpage
+
+PN 5 (implicit from previous page)\par
+\begin{picture}(850,550)(-50,-500)
+ \special{ar 400 250 400 250 0 6.28319}%
+ \put(400,-250){\makebox(0,0){document}}%
+\end{picture}
+\newpage
+
+PN 5 (implicit from previous page)\par
+Note that IA has nothing to do with PN!\par
+\begin{picture}(850,550)(-50,-500)
+ \special{sh 0.1}
+ \special{ia 400 250 400 250 0 6.28319}%
+ \put(400,-250){\makebox(0,0){document}}%
+\end{picture}
+\newpage
+
+PN 30 (explicit)\par
+\begin{picture}(600,400)(0,-300)
+ \special{pn 30}%
+ \special{pa 100 0}%
+ \special{pa 500 0}%
+ \special{pa 500 200}%
+ \special{pa 100 200}%
+ \special{pa 100 0}%
+ \special{fp}%
+\end{picture}
+\newpage
+
+PN 30 (implicit from previous page)\par
+\begin{picture}(600,400)(0,-300)
+ \special{pa 100 0}%
+ \special{pa 500 0}%
+ \special{pa 500 200}%
+ \special{pa 100 200}%
+ \special{pa 100 0}%
+ \special{fp}%
+\end{picture}
+\newpage
+
+PN 30 (implicit from previous page) and PN 5 in the middle\par
+\begin{picture}(850,550)(-50,-500)
+ \special{pa 100 0}%
+ \special{pa 500 0}%
+ \special{pa 500 200}%
+ \special{pa 100 200}%
+ \special{pa 100 0}%
+ \special{fp}%
+ \special{pn 5}%
+ \special{ar 400 250 400 250 0 6.28319}%
+\end{picture}
+\newpage
+
+\end{document}
diff --git a/Build/source/texk/dviout-util/tests/tpicpnout.dvi b/Build/source/texk/dviout-util/tests/tpicpnout.dvi
new file mode 100644
index 00000000000..ba96cdb486f
--- /dev/null
+++ b/Build/source/texk/dviout-util/tests/tpicpnout.dvi
Binary files differ
diff --git a/Build/source/texk/dviout-util/tests/tpicsh.dvi b/Build/source/texk/dviout-util/tests/tpicsh.dvi
new file mode 100644
index 00000000000..62574b3f03b
--- /dev/null
+++ b/Build/source/texk/dviout-util/tests/tpicsh.dvi
Binary files differ
diff --git a/Build/source/texk/dviout-util/tests/tpicsh.tex b/Build/source/texk/dviout-util/tests/tpicsh.tex
new file mode 100644
index 00000000000..534672485d0
--- /dev/null
+++ b/Build/source/texk/dviout-util/tests/tpicsh.tex
@@ -0,0 +1,41 @@
+% tpic sh -> pa (-> fp, ip etc), ar, ia
+% No correction is needed for this file!
+\documentclass{article}
+\begin{document}
+\unitlength 0.001in
+
+SH (explicit)\par
+\begin{picture}(850,550)(-50,-500)
+ \special{pn 8}%
+ \special{sh}%
+ \special{ia 350 200 400 250 0 6.28319}%
+ \special{sh 0}%
+ \special{ar 400 250 400 250 0 6.28319}%
+ \put(400,-250){\makebox(0,0){document}}%
+\end{picture}
+\newpage
+
+SH 0.1 (explicit)\par
+\begin{picture}(600,400)(0,-300)
+ \special{pn 30}%
+ \special{sh 0.1}%
+ \special{pa 100 0}%
+ \special{pa 500 0}%
+ \special{pa 500 200}%
+ \special{pa 100 200}%
+ \special{pa 100 0}%
+ \special{fp}%
+\end{picture}
+
+SH 0 (implicit: SH should not be inherited from the previous one!)\par
+\begin{picture}(600,400)(0,-300)
+ \special{pn 30}%
+ \special{pa 100 0}%
+ \special{pa 500 0}%
+ \special{pa 500 200}%
+ \special{pa 100 200}%
+ \special{pa 100 0}%
+ \special{fp}%
+\end{picture}
+
+\end{document}