annotate paper/pic/updateinout.eps @ 13:42bea7b0a8f6

add pdf
author kazz <kazz@cr.ie.u-ryukyu.ac.jp>
date Fri, 27 Aug 2010 19:42:23 +0900
parents
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
13
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
1 %!PS-Adobe-2.0 EPSF-2.0
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
2 %%Title: updateinout.eps
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
3 %%Creator: gnuplot 4.4 patchlevel 0
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
4 %%CreationDate: Fri Aug 27 19:35:14 2010
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
5 %%DocumentFonts: (atend)
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
6 %%BoundingBox: 50 50 410 302
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
7 %%EndComments
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
8 %%BeginProlog
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
9 /gnudict 256 dict def
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
10 gnudict begin
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
11 %
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
12 % The following true/false flags may be edited by hand if desired.
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
13 % The unit line width and grayscale image gamma correction may also be changed.
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
14 %
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
15 /Color false def
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
16 /Blacktext false def
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
17 /Solid false def
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
18 /Dashlength 1 def
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
19 /Landscape false def
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
20 /Level1 false def
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
21 /Rounded false def
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
22 /ClipToBoundingBox false def
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
23 /TransparentPatterns false def
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
24 /gnulinewidth 5.000 def
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
25 /userlinewidth gnulinewidth def
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
26 /Gamma 1.0 def
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
27 %
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
28 /vshift -46 def
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
29 /dl1 {
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
30 10.0 Dashlength mul mul
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
31 Rounded { currentlinewidth 0.75 mul sub dup 0 le { pop 0.01 } if } if
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
32 } def
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
33 /dl2 {
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
34 10.0 Dashlength mul mul
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
35 Rounded { currentlinewidth 0.75 mul add } if
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
36 } def
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
37 /hpt_ 31.5 def
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
38 /vpt_ 31.5 def
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
39 /hpt hpt_ def
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
40 /vpt vpt_ def
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
41 Level1 {} {
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
42 /SDict 10 dict def
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
43 systemdict /pdfmark known not {
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
44 userdict /pdfmark systemdict /cleartomark get put
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
45 } if
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
46 SDict begin [
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
47 /Title (updateinout.eps)
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
48 /Subject (gnuplot plot)
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
49 /Creator (gnuplot 4.4 patchlevel 0)
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
50 /Author (kazz)
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
51 % /Producer (gnuplot)
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
52 % /Keywords ()
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
53 /CreationDate (Fri Aug 27 19:35:14 2010)
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
54 /DOCINFO pdfmark
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
55 end
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
56 } ifelse
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
57 /doclip {
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
58 ClipToBoundingBox {
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
59 newpath 50 50 moveto 410 50 lineto 410 302 lineto 50 302 lineto closepath
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
60 clip
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
61 } if
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
62 } def
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
63 %
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
64 % Gnuplot Prolog Version 4.4 (January 2010)
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
65 %
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
66 %/SuppressPDFMark true def
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
67 %
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
68 /M {moveto} bind def
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
69 /L {lineto} bind def
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
70 /R {rmoveto} bind def
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
71 /V {rlineto} bind def
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
72 /N {newpath moveto} bind def
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
73 /Z {closepath} bind def
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
74 /C {setrgbcolor} bind def
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
75 /f {rlineto fill} bind def
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
76 /Gshow {show} def % May be redefined later in the file to support UTF-8
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
77 /vpt2 vpt 2 mul def
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
78 /hpt2 hpt 2 mul def
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
79 /Lshow {currentpoint stroke M 0 vshift R
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
80 Blacktext {gsave 0 setgray show grestore} {show} ifelse} def
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
81 /Rshow {currentpoint stroke M dup stringwidth pop neg vshift R
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
82 Blacktext {gsave 0 setgray show grestore} {show} ifelse} def
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
83 /Cshow {currentpoint stroke M dup stringwidth pop -2 div vshift R
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
84 Blacktext {gsave 0 setgray show grestore} {show} ifelse} def
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
85 /UP {dup vpt_ mul /vpt exch def hpt_ mul /hpt exch def
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
86 /hpt2 hpt 2 mul def /vpt2 vpt 2 mul def} def
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
87 /DL {Color {setrgbcolor Solid {pop []} if 0 setdash}
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
88 {pop pop pop 0 setgray Solid {pop []} if 0 setdash} ifelse} def
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
89 /BL {stroke userlinewidth 2 mul setlinewidth
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
90 Rounded {1 setlinejoin 1 setlinecap} if} def
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
91 /AL {stroke userlinewidth 2 div setlinewidth
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
92 Rounded {1 setlinejoin 1 setlinecap} if} def
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
93 /UL {dup gnulinewidth mul /userlinewidth exch def
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
94 dup 1 lt {pop 1} if 10 mul /udl exch def} def
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
95 /PL {stroke userlinewidth setlinewidth
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
96 Rounded {1 setlinejoin 1 setlinecap} if} def
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
97 % Default Line colors
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
98 /LCw {1 1 1} def
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
99 /LCb {0 0 0} def
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
100 /LCa {0 0 0} def
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
101 /LC0 {1 0 0} def
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
102 /LC1 {0 1 0} def
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
103 /LC2 {0 0 1} def
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
104 /LC3 {1 0 1} def
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
105 /LC4 {0 1 1} def
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
106 /LC5 {1 1 0} def
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
107 /LC6 {0 0 0} def
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
108 /LC7 {1 0.3 0} def
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
109 /LC8 {0.5 0.5 0.5} def
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
110 % Default Line Types
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
111 /LTw {PL [] 1 setgray} def
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
112 /LTb {BL [] LCb DL} def
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
113 /LTa {AL [1 udl mul 2 udl mul] 0 setdash LCa setrgbcolor} def
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
114 /LT0 {PL [] LC0 DL} def
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
115 /LT1 {PL [4 dl1 2 dl2] LC1 DL} def
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
116 /LT2 {PL [2 dl1 3 dl2] LC2 DL} def
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
117 /LT3 {PL [1 dl1 1.5 dl2] LC3 DL} def
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
118 /LT4 {PL [6 dl1 2 dl2 1 dl1 2 dl2] LC4 DL} def
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
119 /LT5 {PL [3 dl1 3 dl2 1 dl1 3 dl2] LC5 DL} def
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
120 /LT6 {PL [2 dl1 2 dl2 2 dl1 6 dl2] LC6 DL} def
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
121 /LT7 {PL [1 dl1 2 dl2 6 dl1 2 dl2 1 dl1 2 dl2] LC7 DL} def
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
122 /LT8 {PL [2 dl1 2 dl2 2 dl1 2 dl2 2 dl1 2 dl2 2 dl1 4 dl2] LC8 DL} def
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
123 /Pnt {stroke [] 0 setdash gsave 1 setlinecap M 0 0 V stroke grestore} def
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
124 /Dia {stroke [] 0 setdash 2 copy vpt add M
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
125 hpt neg vpt neg V hpt vpt neg V
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
126 hpt vpt V hpt neg vpt V closepath stroke
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
127 Pnt} def
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
128 /Pls {stroke [] 0 setdash vpt sub M 0 vpt2 V
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
129 currentpoint stroke M
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
130 hpt neg vpt neg R hpt2 0 V stroke
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
131 } def
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
132 /Box {stroke [] 0 setdash 2 copy exch hpt sub exch vpt add M
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
133 0 vpt2 neg V hpt2 0 V 0 vpt2 V
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
134 hpt2 neg 0 V closepath stroke
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
135 Pnt} def
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
136 /Crs {stroke [] 0 setdash exch hpt sub exch vpt add M
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
137 hpt2 vpt2 neg V currentpoint stroke M
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
138 hpt2 neg 0 R hpt2 vpt2 V stroke} def
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
139 /TriU {stroke [] 0 setdash 2 copy vpt 1.12 mul add M
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
140 hpt neg vpt -1.62 mul V
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
141 hpt 2 mul 0 V
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
142 hpt neg vpt 1.62 mul V closepath stroke
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
143 Pnt} def
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
144 /Star {2 copy Pls Crs} def
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
145 /BoxF {stroke [] 0 setdash exch hpt sub exch vpt add M
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
146 0 vpt2 neg V hpt2 0 V 0 vpt2 V
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
147 hpt2 neg 0 V closepath fill} def
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
148 /TriUF {stroke [] 0 setdash vpt 1.12 mul add M
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
149 hpt neg vpt -1.62 mul V
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
150 hpt 2 mul 0 V
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
151 hpt neg vpt 1.62 mul V closepath fill} def
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
152 /TriD {stroke [] 0 setdash 2 copy vpt 1.12 mul sub M
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
153 hpt neg vpt 1.62 mul V
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
154 hpt 2 mul 0 V
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
155 hpt neg vpt -1.62 mul V closepath stroke
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
156 Pnt} def
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
157 /TriDF {stroke [] 0 setdash vpt 1.12 mul sub M
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
158 hpt neg vpt 1.62 mul V
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
159 hpt 2 mul 0 V
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
160 hpt neg vpt -1.62 mul V closepath fill} def
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
161 /DiaF {stroke [] 0 setdash vpt add M
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
162 hpt neg vpt neg V hpt vpt neg V
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
163 hpt vpt V hpt neg vpt V closepath fill} def
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
164 /Pent {stroke [] 0 setdash 2 copy gsave
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
165 translate 0 hpt M 4 {72 rotate 0 hpt L} repeat
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
166 closepath stroke grestore Pnt} def
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
167 /PentF {stroke [] 0 setdash gsave
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
168 translate 0 hpt M 4 {72 rotate 0 hpt L} repeat
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
169 closepath fill grestore} def
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
170 /Circle {stroke [] 0 setdash 2 copy
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
171 hpt 0 360 arc stroke Pnt} def
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
172 /CircleF {stroke [] 0 setdash hpt 0 360 arc fill} def
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
173 /C0 {BL [] 0 setdash 2 copy moveto vpt 90 450 arc} bind def
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
174 /C1 {BL [] 0 setdash 2 copy moveto
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
175 2 copy vpt 0 90 arc closepath fill
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
176 vpt 0 360 arc closepath} bind def
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
177 /C2 {BL [] 0 setdash 2 copy moveto
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
178 2 copy vpt 90 180 arc closepath fill
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
179 vpt 0 360 arc closepath} bind def
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
180 /C3 {BL [] 0 setdash 2 copy moveto
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
181 2 copy vpt 0 180 arc closepath fill
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
182 vpt 0 360 arc closepath} bind def
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
183 /C4 {BL [] 0 setdash 2 copy moveto
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
184 2 copy vpt 180 270 arc closepath fill
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
185 vpt 0 360 arc closepath} bind def
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
186 /C5 {BL [] 0 setdash 2 copy moveto
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
187 2 copy vpt 0 90 arc
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
188 2 copy moveto
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
189 2 copy vpt 180 270 arc closepath fill
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
190 vpt 0 360 arc} bind def
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
191 /C6 {BL [] 0 setdash 2 copy moveto
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
192 2 copy vpt 90 270 arc closepath fill
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
193 vpt 0 360 arc closepath} bind def
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
194 /C7 {BL [] 0 setdash 2 copy moveto
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
195 2 copy vpt 0 270 arc closepath fill
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
196 vpt 0 360 arc closepath} bind def
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
197 /C8 {BL [] 0 setdash 2 copy moveto
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
198 2 copy vpt 270 360 arc closepath fill
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
199 vpt 0 360 arc closepath} bind def
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
200 /C9 {BL [] 0 setdash 2 copy moveto
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
201 2 copy vpt 270 450 arc closepath fill
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
202 vpt 0 360 arc closepath} bind def
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
203 /C10 {BL [] 0 setdash 2 copy 2 copy moveto vpt 270 360 arc closepath fill
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
204 2 copy moveto
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
205 2 copy vpt 90 180 arc closepath fill
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
206 vpt 0 360 arc closepath} bind def
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
207 /C11 {BL [] 0 setdash 2 copy moveto
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
208 2 copy vpt 0 180 arc closepath fill
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
209 2 copy moveto
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
210 2 copy vpt 270 360 arc closepath fill
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
211 vpt 0 360 arc closepath} bind def
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
212 /C12 {BL [] 0 setdash 2 copy moveto
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
213 2 copy vpt 180 360 arc closepath fill
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
214 vpt 0 360 arc closepath} bind def
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
215 /C13 {BL [] 0 setdash 2 copy moveto
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
216 2 copy vpt 0 90 arc closepath fill
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
217 2 copy moveto
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
218 2 copy vpt 180 360 arc closepath fill
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
219 vpt 0 360 arc closepath} bind def
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
220 /C14 {BL [] 0 setdash 2 copy moveto
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
221 2 copy vpt 90 360 arc closepath fill
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
222 vpt 0 360 arc} bind def
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
223 /C15 {BL [] 0 setdash 2 copy vpt 0 360 arc closepath fill
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
224 vpt 0 360 arc closepath} bind def
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
225 /Rec {newpath 4 2 roll moveto 1 index 0 rlineto 0 exch rlineto
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
226 neg 0 rlineto closepath} bind def
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
227 /Square {dup Rec} bind def
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
228 /Bsquare {vpt sub exch vpt sub exch vpt2 Square} bind def
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
229 /S0 {BL [] 0 setdash 2 copy moveto 0 vpt rlineto BL Bsquare} bind def
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
230 /S1 {BL [] 0 setdash 2 copy vpt Square fill Bsquare} bind def
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
231 /S2 {BL [] 0 setdash 2 copy exch vpt sub exch vpt Square fill Bsquare} bind def
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
232 /S3 {BL [] 0 setdash 2 copy exch vpt sub exch vpt2 vpt Rec fill Bsquare} bind def
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
233 /S4 {BL [] 0 setdash 2 copy exch vpt sub exch vpt sub vpt Square fill Bsquare} bind def
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
234 /S5 {BL [] 0 setdash 2 copy 2 copy vpt Square fill
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
235 exch vpt sub exch vpt sub vpt Square fill Bsquare} bind def
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
236 /S6 {BL [] 0 setdash 2 copy exch vpt sub exch vpt sub vpt vpt2 Rec fill Bsquare} bind def
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
237 /S7 {BL [] 0 setdash 2 copy exch vpt sub exch vpt sub vpt vpt2 Rec fill
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
238 2 copy vpt Square fill Bsquare} bind def
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
239 /S8 {BL [] 0 setdash 2 copy vpt sub vpt Square fill Bsquare} bind def
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
240 /S9 {BL [] 0 setdash 2 copy vpt sub vpt vpt2 Rec fill Bsquare} bind def
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
241 /S10 {BL [] 0 setdash 2 copy vpt sub vpt Square fill 2 copy exch vpt sub exch vpt Square fill
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
242 Bsquare} bind def
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
243 /S11 {BL [] 0 setdash 2 copy vpt sub vpt Square fill 2 copy exch vpt sub exch vpt2 vpt Rec fill
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
244 Bsquare} bind def
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
245 /S12 {BL [] 0 setdash 2 copy exch vpt sub exch vpt sub vpt2 vpt Rec fill Bsquare} bind def
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
246 /S13 {BL [] 0 setdash 2 copy exch vpt sub exch vpt sub vpt2 vpt Rec fill
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
247 2 copy vpt Square fill Bsquare} bind def
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
248 /S14 {BL [] 0 setdash 2 copy exch vpt sub exch vpt sub vpt2 vpt Rec fill
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
249 2 copy exch vpt sub exch vpt Square fill Bsquare} bind def
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
250 /S15 {BL [] 0 setdash 2 copy Bsquare fill Bsquare} bind def
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
251 /D0 {gsave translate 45 rotate 0 0 S0 stroke grestore} bind def
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
252 /D1 {gsave translate 45 rotate 0 0 S1 stroke grestore} bind def
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
253 /D2 {gsave translate 45 rotate 0 0 S2 stroke grestore} bind def
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
254 /D3 {gsave translate 45 rotate 0 0 S3 stroke grestore} bind def
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
255 /D4 {gsave translate 45 rotate 0 0 S4 stroke grestore} bind def
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
256 /D5 {gsave translate 45 rotate 0 0 S5 stroke grestore} bind def
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
257 /D6 {gsave translate 45 rotate 0 0 S6 stroke grestore} bind def
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
258 /D7 {gsave translate 45 rotate 0 0 S7 stroke grestore} bind def
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
259 /D8 {gsave translate 45 rotate 0 0 S8 stroke grestore} bind def
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
260 /D9 {gsave translate 45 rotate 0 0 S9 stroke grestore} bind def
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
261 /D10 {gsave translate 45 rotate 0 0 S10 stroke grestore} bind def
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
262 /D11 {gsave translate 45 rotate 0 0 S11 stroke grestore} bind def
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
263 /D12 {gsave translate 45 rotate 0 0 S12 stroke grestore} bind def
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
264 /D13 {gsave translate 45 rotate 0 0 S13 stroke grestore} bind def
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
265 /D14 {gsave translate 45 rotate 0 0 S14 stroke grestore} bind def
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
266 /D15 {gsave translate 45 rotate 0 0 S15 stroke grestore} bind def
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
267 /DiaE {stroke [] 0 setdash vpt add M
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
268 hpt neg vpt neg V hpt vpt neg V
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
269 hpt vpt V hpt neg vpt V closepath stroke} def
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
270 /BoxE {stroke [] 0 setdash exch hpt sub exch vpt add M
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
271 0 vpt2 neg V hpt2 0 V 0 vpt2 V
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
272 hpt2 neg 0 V closepath stroke} def
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
273 /TriUE {stroke [] 0 setdash vpt 1.12 mul add M
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
274 hpt neg vpt -1.62 mul V
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
275 hpt 2 mul 0 V
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
276 hpt neg vpt 1.62 mul V closepath stroke} def
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
277 /TriDE {stroke [] 0 setdash vpt 1.12 mul sub M
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
278 hpt neg vpt 1.62 mul V
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
279 hpt 2 mul 0 V
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
280 hpt neg vpt -1.62 mul V closepath stroke} def
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
281 /PentE {stroke [] 0 setdash gsave
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
282 translate 0 hpt M 4 {72 rotate 0 hpt L} repeat
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
283 closepath stroke grestore} def
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
284 /CircE {stroke [] 0 setdash
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
285 hpt 0 360 arc stroke} def
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
286 /Opaque {gsave closepath 1 setgray fill grestore 0 setgray closepath} def
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
287 /DiaW {stroke [] 0 setdash vpt add M
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
288 hpt neg vpt neg V hpt vpt neg V
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
289 hpt vpt V hpt neg vpt V Opaque stroke} def
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
290 /BoxW {stroke [] 0 setdash exch hpt sub exch vpt add M
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
291 0 vpt2 neg V hpt2 0 V 0 vpt2 V
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
292 hpt2 neg 0 V Opaque stroke} def
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
293 /TriUW {stroke [] 0 setdash vpt 1.12 mul add M
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
294 hpt neg vpt -1.62 mul V
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
295 hpt 2 mul 0 V
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
296 hpt neg vpt 1.62 mul V Opaque stroke} def
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
297 /TriDW {stroke [] 0 setdash vpt 1.12 mul sub M
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
298 hpt neg vpt 1.62 mul V
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
299 hpt 2 mul 0 V
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
300 hpt neg vpt -1.62 mul V Opaque stroke} def
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
301 /PentW {stroke [] 0 setdash gsave
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
302 translate 0 hpt M 4 {72 rotate 0 hpt L} repeat
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
303 Opaque stroke grestore} def
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
304 /CircW {stroke [] 0 setdash
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
305 hpt 0 360 arc Opaque stroke} def
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
306 /BoxFill {gsave Rec 1 setgray fill grestore} def
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
307 /Density {
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
308 /Fillden exch def
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
309 currentrgbcolor
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
310 /ColB exch def /ColG exch def /ColR exch def
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
311 /ColR ColR Fillden mul Fillden sub 1 add def
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
312 /ColG ColG Fillden mul Fillden sub 1 add def
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
313 /ColB ColB Fillden mul Fillden sub 1 add def
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
314 ColR ColG ColB setrgbcolor} def
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
315 /BoxColFill {gsave Rec PolyFill} def
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
316 /PolyFill {gsave Density fill grestore grestore} def
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
317 /h {rlineto rlineto rlineto gsave closepath fill grestore} bind def
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
318 %
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
319 % PostScript Level 1 Pattern Fill routine for rectangles
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
320 % Usage: x y w h s a XX PatternFill
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
321 % x,y = lower left corner of box to be filled
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
322 % w,h = width and height of box
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
323 % a = angle in degrees between lines and x-axis
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
324 % XX = 0/1 for no/yes cross-hatch
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
325 %
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
326 /PatternFill {gsave /PFa [ 9 2 roll ] def
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
327 PFa 0 get PFa 2 get 2 div add PFa 1 get PFa 3 get 2 div add translate
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
328 PFa 2 get -2 div PFa 3 get -2 div PFa 2 get PFa 3 get Rec
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
329 gsave 1 setgray fill grestore clip
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
330 currentlinewidth 0.5 mul setlinewidth
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
331 /PFs PFa 2 get dup mul PFa 3 get dup mul add sqrt def
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
332 0 0 M PFa 5 get rotate PFs -2 div dup translate
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
333 0 1 PFs PFa 4 get div 1 add floor cvi
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
334 {PFa 4 get mul 0 M 0 PFs V} for
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
335 0 PFa 6 get ne {
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
336 0 1 PFs PFa 4 get div 1 add floor cvi
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
337 {PFa 4 get mul 0 2 1 roll M PFs 0 V} for
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
338 } if
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
339 stroke grestore} def
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
340 %
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
341 /languagelevel where
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
342 {pop languagelevel} {1} ifelse
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
343 2 lt
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
344 {/InterpretLevel1 true def}
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
345 {/InterpretLevel1 Level1 def}
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
346 ifelse
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
347 %
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
348 % PostScript level 2 pattern fill definitions
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
349 %
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
350 /Level2PatternFill {
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
351 /Tile8x8 {/PaintType 2 /PatternType 1 /TilingType 1 /BBox [0 0 8 8] /XStep 8 /YStep 8}
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
352 bind def
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
353 /KeepColor {currentrgbcolor [/Pattern /DeviceRGB] setcolorspace} bind def
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
354 << Tile8x8
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
355 /PaintProc {0.5 setlinewidth pop 0 0 M 8 8 L 0 8 M 8 0 L stroke}
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
356 >> matrix makepattern
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
357 /Pat1 exch def
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
358 << Tile8x8
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
359 /PaintProc {0.5 setlinewidth pop 0 0 M 8 8 L 0 8 M 8 0 L stroke
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
360 0 4 M 4 8 L 8 4 L 4 0 L 0 4 L stroke}
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
361 >> matrix makepattern
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
362 /Pat2 exch def
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
363 << Tile8x8
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
364 /PaintProc {0.5 setlinewidth pop 0 0 M 0 8 L
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
365 8 8 L 8 0 L 0 0 L fill}
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
366 >> matrix makepattern
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
367 /Pat3 exch def
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
368 << Tile8x8
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
369 /PaintProc {0.5 setlinewidth pop -4 8 M 8 -4 L
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
370 0 12 M 12 0 L stroke}
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
371 >> matrix makepattern
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
372 /Pat4 exch def
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
373 << Tile8x8
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
374 /PaintProc {0.5 setlinewidth pop -4 0 M 8 12 L
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
375 0 -4 M 12 8 L stroke}
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
376 >> matrix makepattern
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
377 /Pat5 exch def
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
378 << Tile8x8
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
379 /PaintProc {0.5 setlinewidth pop -2 8 M 4 -4 L
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
380 0 12 M 8 -4 L 4 12 M 10 0 L stroke}
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
381 >> matrix makepattern
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
382 /Pat6 exch def
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
383 << Tile8x8
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
384 /PaintProc {0.5 setlinewidth pop -2 0 M 4 12 L
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
385 0 -4 M 8 12 L 4 -4 M 10 8 L stroke}
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
386 >> matrix makepattern
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
387 /Pat7 exch def
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
388 << Tile8x8
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
389 /PaintProc {0.5 setlinewidth pop 8 -2 M -4 4 L
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
390 12 0 M -4 8 L 12 4 M 0 10 L stroke}
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
391 >> matrix makepattern
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
392 /Pat8 exch def
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
393 << Tile8x8
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
394 /PaintProc {0.5 setlinewidth pop 0 -2 M 12 4 L
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
395 -4 0 M 12 8 L -4 4 M 8 10 L stroke}
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
396 >> matrix makepattern
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
397 /Pat9 exch def
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
398 /Pattern1 {PatternBgnd KeepColor Pat1 setpattern} bind def
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
399 /Pattern2 {PatternBgnd KeepColor Pat2 setpattern} bind def
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
400 /Pattern3 {PatternBgnd KeepColor Pat3 setpattern} bind def
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
401 /Pattern4 {PatternBgnd KeepColor Landscape {Pat5} {Pat4} ifelse setpattern} bind def
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
402 /Pattern5 {PatternBgnd KeepColor Landscape {Pat4} {Pat5} ifelse setpattern} bind def
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
403 /Pattern6 {PatternBgnd KeepColor Landscape {Pat9} {Pat6} ifelse setpattern} bind def
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
404 /Pattern7 {PatternBgnd KeepColor Landscape {Pat8} {Pat7} ifelse setpattern} bind def
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
405 } def
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
406 %
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
407 %
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
408 %End of PostScript Level 2 code
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
409 %
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
410 /PatternBgnd {
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
411 TransparentPatterns {} {gsave 1 setgray fill grestore} ifelse
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
412 } def
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
413 %
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
414 % Substitute for Level 2 pattern fill codes with
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
415 % grayscale if Level 2 support is not selected.
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
416 %
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
417 /Level1PatternFill {
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
418 /Pattern1 {0.250 Density} bind def
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
419 /Pattern2 {0.500 Density} bind def
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
420 /Pattern3 {0.750 Density} bind def
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
421 /Pattern4 {0.125 Density} bind def
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
422 /Pattern5 {0.375 Density} bind def
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
423 /Pattern6 {0.625 Density} bind def
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
424 /Pattern7 {0.875 Density} bind def
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
425 } def
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
426 %
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
427 % Now test for support of Level 2 code
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
428 %
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
429 Level1 {Level1PatternFill} {Level2PatternFill} ifelse
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
430 %
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
431 /Symbol-Oblique /Symbol findfont [1 0 .167 1 0 0] makefont
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
432 dup length dict begin {1 index /FID eq {pop pop} {def} ifelse} forall
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
433 currentdict end definefont pop
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
434 end
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
435 %%EndProlog
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
436 gnudict begin
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
437 gsave
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
438 doclip
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
439 50 50 translate
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
440 0.050 0.050 scale
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
441 0 setgray
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
442 newpath
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
443 (Helvetica) findfont 140 scalefont setfont
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
444 /Helvetica findfont 140 scalefont setfont
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
445 /Helvetica findfont 140 scalefont setfont
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
446 1.000 UL
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
447 LTb
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
448 1022 448 M
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
449 63 0 V
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
450 5904 0 R
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
451 -63 0 V
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
452 938 448 M
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
453 ( 0) Rshow
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
454 1.000 UL
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
455 LTb
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
456 1022 1080 M
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
457 63 0 V
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
458 5904 0 R
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
459 -63 0 V
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
460 -5988 0 R
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
461 ( 20000) Rshow
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
462 1.000 UL
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
463 LTb
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
464 1022 1712 M
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
465 63 0 V
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
466 5904 0 R
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
467 -63 0 V
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
468 -5988 0 R
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
469 ( 40000) Rshow
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
470 1.000 UL
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
471 LTb
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
472 1022 2344 M
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
473 63 0 V
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
474 5904 0 R
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
475 -63 0 V
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
476 -5988 0 R
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
477 ( 60000) Rshow
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
478 1.000 UL
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
479 LTb
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
480 1022 2975 M
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
481 63 0 V
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
482 5904 0 R
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
483 -63 0 V
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
484 -5988 0 R
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
485 ( 80000) Rshow
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
486 1.000 UL
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
487 LTb
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
488 1022 3607 M
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
489 63 0 V
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
490 5904 0 R
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
491 -63 0 V
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
492 -5988 0 R
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
493 ( 100000) Rshow
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
494 1.000 UL
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
495 LTb
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
496 1022 4239 M
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
497 63 0 V
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
498 5904 0 R
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
499 -63 0 V
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
500 -5988 0 R
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
501 ( 120000) Rshow
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
502 1.000 UL
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
503 LTb
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
504 1022 4871 M
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
505 63 0 V
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
506 5904 0 R
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
507 -63 0 V
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
508 -5988 0 R
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
509 ( 140000) Rshow
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
510 1.000 UL
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
511 LTb
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
512 1022 448 M
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
513 0 63 V
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
514 0 4360 R
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
515 0 -63 V
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
516 0 -4500 R
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
517 ( 0) Cshow
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
518 1.000 UL
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
519 LTb
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
520 2017 448 M
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
521 0 63 V
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
522 0 4360 R
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
523 0 -63 V
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
524 0 -4500 R
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
525 ( 500) Cshow
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
526 1.000 UL
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
527 LTb
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
528 3011 448 M
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
529 0 63 V
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
530 0 4360 R
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
531 0 -63 V
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
532 0 -4500 R
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
533 ( 1000) Cshow
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
534 1.000 UL
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
535 LTb
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
536 4006 448 M
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
537 0 63 V
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
538 0 4360 R
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
539 0 -63 V
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
540 0 -4500 R
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
541 ( 1500) Cshow
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
542 1.000 UL
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
543 LTb
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
544 5000 448 M
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
545 0 63 V
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
546 0 4360 R
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
547 0 -63 V
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
548 0 -4500 R
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
549 ( 2000) Cshow
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
550 1.000 UL
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
551 LTb
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
552 5995 448 M
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
553 0 63 V
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
554 0 4360 R
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
555 0 -63 V
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
556 0 -4500 R
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
557 ( 2500) Cshow
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
558 1.000 UL
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
559 LTb
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
560 6989 448 M
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
561 0 63 V
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
562 0 4360 R
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
563 0 -63 V
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
564 0 -4500 R
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
565 ( 3000) Cshow
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
566 1.000 UL
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
567 LTb
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
568 1.000 UL
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
569 LTb
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
570 1022 4871 N
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
571 0 -4423 V
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
572 5967 0 V
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
573 0 4423 V
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
574 -5967 0 V
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
575 Z stroke
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
576 LCb setrgbcolor
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
577 196 2659 M
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
578 currentpoint gsave translate -270 rotate 0 0 M
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
579 (Time[ms]) Cshow
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
580 grestore
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
581 LTb
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
582 LCb setrgbcolor
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
583 4005 98 M
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
584 (Update Count) Cshow
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
585 LTb
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
586 1.000 UP
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
587 1.000 UL
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
588 LTb
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
589 % Begin plot #1
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
590 1.000 UL
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
591 LT0
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
592 /Helvetica findfont 140 scalefont setfont
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
593 LCb setrgbcolor
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
594 6338 4738 M
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
595 ("testinout.dat" using 1:2) Rshow
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
596 LT0
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
597 6422 4738 M
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
598 399 0 V
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
599 1221 574 M
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
600 199 130 V
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
601 199 123 V
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
602 199 130 V
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
603 199 130 V
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
604 198 127 V
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
605 199 128 V
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
606 199 120 V
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
607 199 133 V
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
608 199 128 V
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
609 199 128 V
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
610 199 126 V
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
611 199 124 V
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
612 199 132 V
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
613 199 126 V
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
614 198 127 V
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
615 199 128 V
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
616 199 120 V
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
617 199 134 V
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
618 199 127 V
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
619 199 127 V
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
620 199 127 V
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
621 199 128 V
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
622 199 127 V
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
623 199 129 V
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
624 198 122 V
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
625 199 131 V
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
626 199 123 V
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
627 199 128 V
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
628 199 134 V
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
629 % End plot #1
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
630 % Begin plot #2
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
631 stroke
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
632 LT1
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
633 /Helvetica findfont 140 scalefont setfont
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
634 LCb setrgbcolor
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
635 6338 4598 M
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
636 ("testupdate.dat" using 1:2) Rshow
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
637 LT1
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
638 6422 4598 M
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
639 399 0 V
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
640 1221 574 M
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
641 199 130 V
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
642 199 127 V
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
643 199 128 V
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
644 199 129 V
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
645 198 127 V
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
646 199 128 V
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
647 199 125 V
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
648 199 129 V
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
649 199 126 V
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
650 199 131 V
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
651 199 125 V
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
652 199 127 V
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
653 199 129 V
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
654 199 127 V
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
655 198 127 V
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
656 199 128 V
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
657 199 127 V
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
658 199 127 V
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
659 199 129 V
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
660 199 125 V
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
661 199 126 V
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
662 199 127 V
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
663 199 129 V
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
664 199 127 V
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
665 198 128 V
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
666 199 125 V
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
667 199 129 V
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
668 199 127 V
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
669 199 129 V
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
670 % End plot #2
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
671 stroke
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
672 LTb
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
673 1022 4871 N
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
674 0 -4423 V
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
675 5967 0 V
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
676 0 4423 V
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
677 -5967 0 V
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
678 Z stroke
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
679 1.000 UP
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
680 1.000 UL
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
681 LTb
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
682 stroke
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
683 grestore
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
684 end
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
685 showpage
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
686 %%Trailer
42bea7b0a8f6 add pdf
kazz <kazz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
687 %%DocumentFonts: Helvetica