summaryrefslogtreecommitdiff
path: root/Master/tlpkg/dviout/GRAPHIC/PS/sample1.ps
diff options
context:
space:
mode:
Diffstat (limited to 'Master/tlpkg/dviout/GRAPHIC/PS/sample1.ps')
-rw-r--r--Master/tlpkg/dviout/GRAPHIC/PS/sample1.ps52
1 files changed, 52 insertions, 0 deletions
diff --git a/Master/tlpkg/dviout/GRAPHIC/PS/sample1.ps b/Master/tlpkg/dviout/GRAPHIC/PS/sample1.ps
new file mode 100644
index 00000000000..f928f547328
--- /dev/null
+++ b/Master/tlpkg/dviout/GRAPHIC/PS/sample1.ps
@@ -0,0 +1,52 @@
+%!PS-Adobe-3.0 EPSF-3.0
+%%BoundingBox: 2 19 478 492
+
+/GNU {
+1 dict begin
+
+/R 1.0 def
+/NotUnix (GNU's not UNIX) def
+gsave
+1.2 1.2 rmoveto
+gsave
+/Courier findfont [ 0.7 0 0 0.8 0 0 ] makefont setfont
+(UNIX) dup stringwidth pop 2 div neg -0.25 rmoveto show
+grestore
+
+gsave
+0.2 setlinewidth
+1 0 0 setrgbcolor
+gsave
+currentpoint newpath R 0 370 arc stroke
+grestore
+gsave
+135 cos R mul 135 sin R mul rmoveto
+R 2 sqrt mul dup neg rlineto stroke
+grestore
+grestore
+
+gsave
+0 1 NotUnix length 1 sub {
+ gsave
+ dup 10 mul 65 sub /Rol exch def
+ /Courier findfont
+ [ 1 0 0 1 -0.3 0 ] makefont
+ [ Rol cos Rol sin neg Rol sin Rol cos 0 0 ] makefont
+ 0.25 scalefont setfont
+ Rol neg 90 add dup cos 1.15 mul exch sin 1.15 mul rmoveto
+ NotUnix exch 1 getinterval show
+ grestore
+} for
+grestore
+
+grestore
+end
+} def
+
+0 0 moveto
+gsave
+200 200 scale
+GNU
+grestore
+
+showpage