summaryrefslogtreecommitdiff
path: root/Master/tlpkg/dviout/GRAPHIC/PS/sample1.ps
blob: f928f5473286a06f1bad910ddb9c3de6c29aa273 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
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