annotate paper/images/ring10B.eps @ 41:17d6daf672bc

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