summaryrefslogtreecommitdiff
path: root/Build/source/texk/dviout-util/tests/tpicsh.tex
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2021-02-25 19:22:25 +0000
committerKarl Berry <karl@freefriends.org>2021-02-25 19:22:25 +0000
commitad547a6b5986815fda458221149728d9d9ab1d87 (patch)
tree16296910eb3eca724371474ea9aea3994dc69614 /Build/source/texk/dviout-util/tests/tpicsh.tex
parent947b43de3dd21d58ccc2ffadefc4441ea1c2a813 (diff)
restore Build,TODO from r57911
git-svn-id: svn://tug.org/texlive/trunk@57915 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Build/source/texk/dviout-util/tests/tpicsh.tex')
-rw-r--r--Build/source/texk/dviout-util/tests/tpicsh.tex41
1 files changed, 41 insertions, 0 deletions
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}