1 13f7391e 2004-05-15 devnull /LOGO-dict-mm dup where not
2 13f7391e 2004-05-15 devnull { dup 64 dict def currentdict } if
5 13f7391e 2004-05-15 devnull /globesetup {
6 13f7391e 2004-05-15 devnull /r exch def
7 13f7391e 2004-05-15 devnull /N exch def
8 13f7391e 2004-05-15 devnull /d 2 N r mul N 1 sub add div def
9 13f7391e 2004-05-15 devnull /h d r mul def
12 13f7391e 2004-05-15 devnull /yp exch def
13 13f7391e 2004-05-15 devnull /xl exch def
14 13f7391e 2004-05-15 devnull dup dup 0 get xl mul 0 exch put
15 13f7391e 2004-05-15 devnull dup dup 1 get h mul yp add 1 exch put
16 13f7391e 2004-05-15 devnull dup dup 2 get xl mul 2 exch put
17 13f7391e 2004-05-15 devnull dup dup 3 get h mul yp add 3 exch put
18 13f7391e 2004-05-15 devnull dup dup 4 get xl mul 4 exch put
19 13f7391e 2004-05-15 devnull dup dup 5 get h mul yp add 5 exch put
21 13f7391e 2004-05-15 devnull /topsegment {
22 13f7391e 2004-05-15 devnull /n exch def
23 13f7391e 2004-05-15 devnull /y n r mul n .5 add add d mul def
24 13f7391e 2004-05-15 devnull /a y 1 y dup mul sub sqrt atan def
25 13f7391e 2004-05-15 devnull /x a cos def
26 13f7391e 2004-05-15 devnull /c2 exch x y mkabs def
27 13f7391e 2004-05-15 devnull /ly1 exch h mul y add def
28 13f7391e 2004-05-15 devnull /lx1 exch x abs mul def
29 13f7391e 2004-05-15 devnull /c1 exch x y mkabs def
30 13f7391e 2004-05-15 devnull x y /moveto load
31 13f7391e 2004-05-15 devnull 0 0 1 a 180 a sub /arc load
32 13f7391e 2004-05-15 devnull c1 aload pop /curveto load
33 13f7391e 2004-05-15 devnull lx1 ly1 /lineto load
34 13f7391e 2004-05-15 devnull c2 aload pop /curveto load
35 13f7391e 2004-05-15 devnull /closepath load
37 13f7391e 2004-05-15 devnull /botsegment {
38 13f7391e 2004-05-15 devnull /n exch 1 add def
39 13f7391e 2004-05-15 devnull /y n r mul n .5 sub add d mul def
40 13f7391e 2004-05-15 devnull /a y 1 y dup mul sub sqrt atan def
41 13f7391e 2004-05-15 devnull /x a cos def
42 13f7391e 2004-05-15 devnull /c2 exch x y mkabs def
43 13f7391e 2004-05-15 devnull /ly1 exch h mul y add def
44 13f7391e 2004-05-15 devnull /lx1 exch x abs mul def
45 13f7391e 2004-05-15 devnull /c1 exch x y mkabs def
46 13f7391e 2004-05-15 devnull x y /moveto load
47 13f7391e 2004-05-15 devnull 0 0 1 a 540 a sub /arcn load
48 13f7391e 2004-05-15 devnull c1 aload pop /curveto load
49 13f7391e 2004-05-15 devnull lx1 ly1 /lineto load
50 13f7391e 2004-05-15 devnull c2 aload pop /curveto load
51 13f7391e 2004-05-15 devnull /closepath load
53 13f7391e 2004-05-15 devnull /segment {
54 13f7391e 2004-05-15 devnull /n exch def
55 13f7391e 2004-05-15 devnull /dh exch 1 exch sub 2 div def
56 13f7391e 2004-05-15 devnull /ylb n r mul n 0.5 add add d mul def
57 13f7391e 2004-05-15 devnull /ylt ylb h add def
58 13f7391e 2004-05-15 devnull /yrb ylb h dh mul add def
59 13f7391e 2004-05-15 devnull /yrt ylt h dh mul sub def
60 13f7391e 2004-05-15 devnull /alb ylb 1 ylb dup mul sub sqrt atan def
61 13f7391e 2004-05-15 devnull /alt ylt 1 ylt dup mul sub sqrt atan def
62 13f7391e 2004-05-15 devnull /arb yrb 1 yrb dup mul sub sqrt atan 180 exch sub def
63 13f7391e 2004-05-15 devnull /art yrt 1 yrt dup mul sub sqrt atan 180 exch sub def
64 13f7391e 2004-05-15 devnull /xlb alb cos def
65 13f7391e 2004-05-15 devnull /xlt alt cos def
66 13f7391e 2004-05-15 devnull /xrb arb cos def
67 13f7391e 2004-05-15 devnull /xrt art cos def
68 13f7391e 2004-05-15 devnull /c4 exch xrb abs ylb mkabs def
69 13f7391e 2004-05-15 devnull /ly2 exch h mul ylb add def
70 13f7391e 2004-05-15 devnull /lx2 exch xrb abs mul def
71 13f7391e 2004-05-15 devnull /c3 exch xrb abs ylb mkabs def
72 13f7391e 2004-05-15 devnull /c2 exch xrt abs ylt mkabs def
73 13f7391e 2004-05-15 devnull /ly1 exch h mul ylt add def
74 13f7391e 2004-05-15 devnull /lx1 exch xrt abs mul def
75 13f7391e 2004-05-15 devnull /c1 exch xrt abs ylt mkabs def
76 13f7391e 2004-05-15 devnull xlb ylb /moveto load
77 13f7391e 2004-05-15 devnull 0 0 1 alb alt /arc load
78 13f7391e 2004-05-15 devnull c2 4 get c2 5 get /lineto load
79 13f7391e 2004-05-15 devnull c2 2 get c2 3 get
80 13f7391e 2004-05-15 devnull c2 0 get c2 1 get
81 13f7391e 2004-05-15 devnull lx1 ly1 /curveto load
82 13f7391e 2004-05-15 devnull c1 4 get c1 5 get /lineto load
83 13f7391e 2004-05-15 devnull c1 2 get c1 3 get
84 13f7391e 2004-05-15 devnull c1 0 get c1 1 get
85 13f7391e 2004-05-15 devnull xrt yrt /curveto load
86 13f7391e 2004-05-15 devnull 0 0 1 art arb /arc load
87 13f7391e 2004-05-15 devnull c3 aload pop /curveto load
88 13f7391e 2004-05-15 devnull lx2 ly2 /lineto load
89 13f7391e 2004-05-15 devnull c4 aload pop /curveto load
90 13f7391e 2004-05-15 devnull /closepath load
92 13f7391e 2004-05-15 devnull 8 2.5 globesetup
93 13f7391e 2004-05-15 devnull /globe8 [
94 13f7391e 2004-05-15 devnull /newpath load
95 13f7391e 2004-05-15 devnull [ -.9 .1 -.6 .2 -.5 .2 ] -.5 .2 [ -.4 .2 .0 .0 .4 .0 ] 3 topsegment
96 13f7391e 2004-05-15 devnull [ -.9 -.35 -.85 -.35 -.8 -.35 ] -.1 -.35 [ .1 -.35 .3 .0 .5 .0 ]
97 13f7391e 2004-05-15 devnull [ -.8 .35 -.75 .35 -.7 .35 ] -.1 .35 [ .1 .35 .4 .0 .55 .0 ] .55 2 segment
98 13f7391e 2004-05-15 devnull [ -.8 -.35 -.75 -.35 -.7 -.35 ] .05 -.35 [ .2 -.35 .4 .0 .55 .0 ]
99 13f7391e 2004-05-15 devnull [ -.8 .35 -.75 .35 -.7 .35 ] .05 .35 [ .2 .35 .45 .0 .6 .0 ] .7 1 segment
100 13f7391e 2004-05-15 devnull [ -.8 -.35 -.75 -.35 -.7 -.35 ] .0 -.35 [ .15 -.35 .4 .0 .6 .0 ]
101 13f7391e 2004-05-15 devnull [ -.8 .35 -.75 .35 -.7 .35 ] .0 .35 [ .15 .35 .4 .0 .6 .0 ] .7 0 segment
102 13f7391e 2004-05-15 devnull [ -.7 -.35 -.65 -.35 -.6 -.35 ] -.1 -.35 [ .05 -.35 .35 .0 .55 .0 ]
103 13f7391e 2004-05-15 devnull [ -.7 .35 -.65 .35 -.6 .35 ] -.1 .35 [ .05 .35 .25 .0 .4 .0 ] .8 -1 segment
104 13f7391e 2004-05-15 devnull [ -.65 -.2 -.55 -.2 -.45 -.2 ] -.3 -.2 [ -.2 -.2 .2 .0 .3 .0 ]
105 13f7391e 2004-05-15 devnull [ -.65 .1 -.55 .1 -.45 .1 ] -.45 .1 [ -.3 .1 -.1 .0 .0 .0 ] .96 -2 segment
106 13f7391e 2004-05-15 devnull [ .0 .0 .0 .0 .0 .0 ] .0 .0 [ .0 .0 .0 .0 .0 .0 ]
107 13f7391e 2004-05-15 devnull [ .0 .0 .0 .0 .0 .0 ] .0 .0 [ .0 .0 .0 .0 .0 .0 ] 1 -3 segment
108 13f7391e 2004-05-15 devnull [ .0 .0 .0 .0 .0 .0 ] .0 .0 [ .0 .0 .0 .0 .0 .0 ] -4 botsegment
109 13f7391e 2004-05-15 devnull ] cvx def
110 13f7391e 2004-05-15 devnull 12 3 globesetup
111 13f7391e 2004-05-15 devnull /globe12 [
112 13f7391e 2004-05-15 devnull /newpath load
113 13f7391e 2004-05-15 devnull [ -.8 .2 -.7 .25 -.5 .25 ] -.4 .25 [ -.2 .25 .0 .0 .2 .0 ] 5 topsegment
114 13f7391e 2004-05-15 devnull [ -.7 -.35 -.7 -.35 -.6 -.35 ] -.3 -.35 [ -.1 -.35 .3 .0 .55 .0 ]
115 13f7391e 2004-05-15 devnull [ -.7 .35 -.7 .35 -.6 .35 ] -.25 .35 [ -.05 .35 .4 .0 .55 .0 ] .6 4 segment
116 13f7391e 2004-05-15 devnull [ -.8 -.35 -.7 -.35 -.6 -.35 ] -.1 -.35 [ .1 -.35 .4 .0 .5 .0 ]
117 13f7391e 2004-05-15 devnull [ -.8 .35 -.7 .35 -.6 .35 ] -.1 .35 [ .1 .35 .4 .0 .5 .0 ] .7 3 segment
118 13f7391e 2004-05-15 devnull [ -.8 -.35 -.7 -.35 -.6 -.35 ] .0 -.35 [ .1 -.35 .45 .0 .55 .0 ]
119 13f7391e 2004-05-15 devnull [ -.8 .35 -.7 .35 -.6 .35 ] .0 .35 [ .15 .35 .4 .0 .5 .0 ] .8 2 segment
120 13f7391e 2004-05-15 devnull [ -.75 -.35 -.7 -.35 -.6 -.35 ] .0 -.35 [ .2 -.35 .4 .0 .5 .0 ]
121 13f7391e 2004-05-15 devnull [ -.75 .35 -.7 .35 -.6 .35 ] .0 .35 [ .2 .35 .45 .0 .55 .0 ] .9 1 segment
122 13f7391e 2004-05-15 devnull [ -.7 -.35 -.6 -.35 -.55 -.35 ] .0 -.35 [ .1 -.35 .45 .0 .55 .0 ]
123 13f7391e 2004-05-15 devnull [ -.7 .35 -.6 .35 -.55 .35 ] .0 .35 [ .1 .35 .5 .0 .6 .0 ] .9 0 segment
126 13f7391e 2004-05-15 devnull [ -.7 -.35 -.6 -.35 -.5 -.35 ] -.15 -.35 [ .0 -.35 .4 .0 .5 .0 ]
127 13f7391e 2004-05-15 devnull [ -.65 .35 -.55 .35 -.45 .35 ] -.15 .35 [ .0 .35 .35 .0 .45 .0 ] .9 -1 segment
128 13f7391e 2004-05-15 devnull [ -.8 -.1 -.5 -.3 -.4 -.3 ] -.2 -.3 [ .0 -.3 .3 .0 .4 .0 ]
129 13f7391e 2004-05-15 devnull [ -.8 .1 -.5 .3 -.4 .3 ] -.2 .3 [ .0 .3 .2 .0 .3 .0 ] 1 -2 segment
130 13f7391e 2004-05-15 devnull [ -.7 -.1 -.5 -.15 -.4 -.15 ] -.3 -.15 [ -.2 -.15 .0 .0 .2 .0 ]
131 13f7391e 2004-05-15 devnull [ -.7 .05 -.5 .1 -.4 .1 ] -.4 .1 [ -.3 .1 .0 .0 .2 .0 ] 1 -3 segment
132 13f7391e 2004-05-15 devnull [ .0 .0 .0 .0 .0 .0 ] .0 .0 [ .0 .0 .0 .0 .0 .0 ]
133 13f7391e 2004-05-15 devnull [ .0 .0 .0 .0 .0 .0 ] .0 .0 [ .0 .0 .0 .0 .0 .0 ] 1 -4 segment
134 13f7391e 2004-05-15 devnull [ .0 .0 .0 .0 .0 .0 ] .0 .0 [ .0 .0 .0 .0 .0 .0 ]
135 13f7391e 2004-05-15 devnull [ .0 .0 .0 .0 .0 .0 ] .0 .0 [ .0 .0 .0 .0 .0 .0 ] 1 -5 segment
136 13f7391e 2004-05-15 devnull [ .0 .0 .0 .0 .0 .0 ] .0 .0 [ .0 .0 .0 .0 .0 .0 ] -6 botsegment
138 13f7391e 2004-05-15 devnull 4 array cvx
139 13f7391e 2004-05-15 devnull dup 0 5 -1 roll put
140 13f7391e 2004-05-15 devnull dup 1 /exec load put
141 13f7391e 2004-05-15 devnull dup 2 4 -1 roll put
142 13f7391e 2004-05-15 devnull dup 3 /exec load put
145 13f7391e 2004-05-15 devnull /build_L1 {
147 13f7391e 2004-05-15 devnull LOGO-dict-mm begin
148 13f7391e 2004-05-15 devnull ptsize 29 lt
149 13f7391e 2004-05-15 devnull { /globe /globe8 load def }
150 13f7391e 2004-05-15 devnull { /globe /globe12 load def } ifelse
152 13f7391e 2004-05-15 devnull currentpoint translate
153 13f7391e 2004-05-15 devnull size 2 div dup scale
154 13f7391e 2004-05-15 devnull 1.02 1 transform round exch round exch itransform
155 13f7391e 2004-05-15 devnull translate
156 13f7391e 2004-05-15 devnull globe fill
157 13f7391e 2004-05-15 devnull grestore
