1 %!PS-Adobe-2.0 EPSF-1.2
\r
3 %%For: (Unregistered user) (Unregistered company)
\r
4 %%Title: (Butterfly.xar *)
\r
5 %%CreationDate: (06/01/08) (05:22 PM)
\r
6 %%BoundingBox: 13 24 98 56
\r
7 %%HiResBoundingBox: 13.749 24.341 97.251 55.160
\r
9 %%+h (Red) 0.0 100.0 100.0
\r
10 %%+h (Orange-Red) 15.0 100.0 100.0
\r
11 %%+h (Orange) 30.0 100.0 100.0
\r
12 %%+h (Orange-Yellow) 45.0 100.0 100.0
\r
13 %%+h (Yellow) 60.0 100.0 100.0
\r
14 %%+h (Yellow-Chartreuse) 75.0 100.0 100.0
\r
15 %%+h (Chartreuse) 90.0 100.0 100.0
\r
16 %%+h (Chartreuse-Green) 105.0 100.0 100.0
\r
17 %%+h (Green) 120.0 100.0 100.0
\r
18 %%+h (Green-SpringGreen) 135.0 100.0 100.0
\r
19 %%+h (Spring Green) 150.0 100.0 100.0
\r
20 %%+h (SpringGreen-Cyan) 165.0 100.0 100.0
\r
21 %%+h (Cyan) 180.0 100.0 100.0
\r
22 %%+h (Sky Blue) 195.0 100.0 100.0
\r
23 %%+h (Mid Blue) 210.0 100.0 100.0
\r
24 %%+h (MidBlue-Blue) 225.0 100.0 100.0
\r
25 %%+h (Blue) 240.0 100.0 100.0
\r
26 %%+h (Blue-Indigo) 255.0 100.0 100.0
\r
27 %%+h (Indigo) 270.0 100.0 100.0
\r
28 %%+h (Violet) 285.0 100.0 100.0
\r
29 %%+h (Magenta) 300.0 100.0 100.0
\r
30 %%+h (Magenta-Crimson) 315.0 100.0 100.0
\r
31 %%+h (Crimson) 330.0 100.0 100.0
\r
32 %%+h (Crimson-Red) 345.0 100.0 100.0
\r
33 %%+h (Black) 0.0 0.0 0.0
\r
43 %%+h (White) 0.0 0.0 100.0
\r
47 %%BeginResource: procset XaraStudio1Dict
\r
48 % Copyright (c) 1995,1996 Xara Ltd
\r
49 /XaraStudio1Dict 300 dict def XaraStudio1Dict begin
\r
50 /bd{bind def}bind def/ld{load def}bind def/xd{exch def}bind def/sv{save}bd
\r
51 /rs{restore}bd/gs{gsave}bd/gr{grestore}bd/bg{begin}bd/en{end}bd/level2
\r
52 /languagelevel where{pop languagelevel 2 ge}{false}ifelse def/setseps{
\r
53 /v_gseps xd}bd/setplate{/v_plate xd}bd/setkgray{/v_keyg xd}bd/setmono{
\r
54 /v_mono xd}bd/rgb2gray{0.109 mul exch 0.586 mul add exch 0.305 mul
\r
55 add}bd/cmyk2rgb{3{dup 5 -1 roll add dup 1 gt{pop 1}if 1 exch sub exch}repeat
\r
56 pop}bd/rgb2cmyk{3{1.0 exch sub 3 1 roll}repeat 3 copy 2 copy gt{exch}if
\r
57 pop 2 copy gt{exch}if pop dup 0.5 gt{0.5 sub dup 3{5 1 roll dup 3 1
\r
58 roll sub}repeat 5 1 roll pop}{pop 0}ifelse}bd/cmyk2hsb{3{dup 5 -1 roll
\r
59 add 1 exch sub dup 0 lt{pop 0}if exch}repeat pop rgb2hsb}bd/rgb2hsb{setrgbcolor
\r
60 currenthsbcolor}bd/readcurve{exch 255.0 mul 0.5 add cvi get 255.0 div}bd
\r
61 /rgb2devcmyk{3 copy dup 3 1 roll eq 3 1 roll eq v_keyg 1 eq and and{pop
\r
62 pop 1 exch sub 0 0 0 4 -1 roll}{/ucurve where{pop 3{1.0 exch sub 3
\r
63 1 roll}repeat 3 copy 2 copy gt{exch}if pop 2 copy gt{exch}if pop dup
\r
64 ucurve readcurve exch bcurve readcurve clamp01 3{5 1 roll dup 3 1 roll
\r
65 sub clamp01}repeat 5 1 roll pop 4 1 roll ycurve readcurve 4 1 roll
\r
66 mcurve readcurve 4 1 roll ccurve readcurve 4 1 roll}{rgb2cmyk}ifelse}ifelse}def
\r
67 /rgb2keyG{3 copy dup 3 1 roll eq 3 1 roll eq and{pop pop}{Max3}ifelse
\r
68 1 exch sub bcurve readcurve clamp01}bd/rgb2key{Max3 1 exch sub bcurve
\r
69 readcurve clamp01}bd/rgb2cyanG{3 copy dup 3 1 roll eq 3 1 roll eq and{pop
\r
70 pop pop 0}{rgb2cyan}ifelse}bd/rgb2cyan{3 copy Max3 1 exch sub ucurve
\r
71 readcurve 4 1 roll pop pop 1 exch sub exch sub ccurve readcurve clamp01}bd
\r
72 /rgb2magentaG{3 copy dup 3 1 roll eq 3 1 roll eq and{pop pop pop 0}{rgb2magenta}ifelse}bd
\r
73 /rgb2magenta{3 copy Max3 1 exch sub ucurve readcurve 4 1 roll pop
\r
74 1 exch sub 3 1 roll pop sub mcurve readcurve clamp01}bd/rgb2yellowG{3
\r
75 copy dup 3 1 roll eq 3 1 roll eq and{pop pop pop 0}{rgb2yellow}ifelse}bd
\r
76 /rgb2yellow{3 copy Max3 1 exch sub ucurve readcurve 4 1 roll 1 exch
\r
77 sub 4 1 roll pop pop sub ycurve readcurve clamp01}bd/rgb2plategray{v_keyg
\r
78 0 eq v_plate v_cpky eq{{rgb2key}{rgb2keyG}ifelse}{v_plate v_cpyl eq{{rgb2yellow}{rgb2yellowG}ifelse}{v_plate
\r
79 v_cpmg eq{{rgb2magenta}{rgb2magentaG}ifelse}{v_plate v_cpcy eq{{rgb2cyan}{rgb2cyanG}ifelse}{{rgb2key}{rgb2keyG}ifelse}ifelse}ifelse}ifelse}ifelse
\r
80 1 exch sub setgray}bd/dc{0 def}bd/aca{/v_cpnone 0 def/v_cpcy 1 def
\r
81 /v_cpyl 2 def/v_cpmg 3 def/v_cpky 4 def/v_gseps 0 def/v_keyg 0 def
\r
82 /v_plate v_cpnone def/v_mono 0 def/v_wr dc/v_fc dc/v_fm dc/v_fy dc
\r
83 /v_fk dc/v_fg dc/v_fr dc/v_fg dc/v_fb dc/v_sc dc/v_sm dc/v_sy dc/v_sk
\r
84 dc/v_sg dc/v_sr dc/v_sg dc/v_sb dc/v_sct 0 def/v_fct 0 def/v_ft 0 def
\r
85 /v_cxe 0 def/v_cxm 0 def/v_sa -1 def/v_ea -1 def/sR dc/sG dc/sB dc
\r
86 /mR dc/mG dc/mB dc/eR dc/eG dc/eB dc/sC dc/sM dc/sY dc/sK dc/eC dc
\r
87 /eM dc/eY dc/eK dc/sH dc/sS dc/sV dc/eH dc/eS dc/eV dc/sGy dc/eGy
\r
88 dc/mGy dc/ci_datasrc dc/ci_matrix dc/ci_dataleft dc/ci_buf dc/ci_dataofs
\r
89 dc/ci_y dc/rciBuf dc/cbslw dc/cmiBuf dc/cPalette dc/cpci_datasrc dc
\r
90 /cpci_matrix dc/cpci_bpp dc/cpci_y dc/cpci_sampsleft dc/cpci_nextcol
\r
91 dc/cpci_buf dc/startX dc/startY dc/endX dc/endY dc/endX2 dc/endY2 dc
\r
92 /fillX dc/urx dc/ury dc/llx dc/lly dc/incD dc/distance dc/slice dc
\r
93 /startangle dc/Steps dc/incH dc/incS dc/incV dc/incR dc/incG dc/incB
\r
94 dc/incGy dc 0.25 setlinewidth [] 0 setdash 0 setlinejoin 0 setlinecap}bd
\r
95 aca/setplategray{v_plate v_cpky eq{1 exch sub setgray pop pop pop}{v_plate
\r
96 v_cpyl eq{pop 1 exch sub setgray pop pop}{v_plate v_cpmg eq{pop pop
\r
97 1 exch sub setgray pop}{v_plate v_cpcy eq{pop pop pop 1 exch sub setgray}{1
\r
98 exch sub setgray pop pop pop}ifelse}ifelse}ifelse}ifelse}bd/setplatecolor{v_plate
\r
99 v_cpky eq{1 exch sub 0 0 0 4 -1 roll setcmykcolor pop pop pop}{v_plate
\r
100 v_cpyl eq{pop 1 exch sub 0 0 0 4 2 roll setcmykcolor pop pop}{v_plate
\r
101 v_cpmg eq{pop pop 1 exch sub 0 0 0 4 1 roll setcmykcolor pop}{v_plate
\r
102 v_cpcy eq{pop pop pop 1 exch sub 0 0 0 setcmykcolor}{1 exch sub 0 0
\r
103 0 4 -1 roll setcmykcolor pop pop pop}ifelse}ifelse}ifelse}ifelse}bd
\r
104 /setcmykcolor where{pop}{/setcmykcolor{cmyk2rgb setrgbcolor}bd}ifelse
\r
105 /setlogcmykcolor{v_gseps 1 eq{v_mono 1 eq{1 exch sub setgray pop pop
\r
106 pop}{setcmykcolor}ifelse}{v_mono 1 eq{cmyk2rgb rgb2gray setgray}{setcmykcolor}ifelse}ifelse}bd
\r
107 /setlogrgbcolor{v_gseps 1 eq{v_mono 1 eq{rgbtoplategray}{rgb2devcmyk
\r
108 setplatecolor}ifelse}{v_mono 1 eq{rgb2gray setgray}{systemdict begin
\r
109 setrgbcolor end}ifelse}ifelse}bd/setfillcolor{v_fct 0 eq{v_fc v_fm
\r
110 v_fy v_fk setlogcmykcolor}{v_fr v_fg v_fb setlogrgbcolor}ifelse}bd
\r
111 /setstrokecolor{v_sct 0 eq{v_sc v_sm v_sy v_sk setlogcmykcolor}{v_sr
\r
112 v_sg v_sb setlogrgbcolor}ifelse}bd/setgfillcmyk{v_gseps 1 eq{v_mono
\r
113 1 eq{cmyk2rgb rgb2plategray}{cmyk2rgb rgb2devcmyk setplatecolor}ifelse}{v_mono
\r
114 1 eq{cmyk2rgb rgb2gray setgray}{setcmykcolor}ifelse}ifelse}bd/setgfillrgb{v_gseps
\r
115 1 eq{v_mono 1 eq{rgb2plategray}{rgb2devcmyk setplatecolor}ifelse}{v_mono
\r
116 1 eq{rgb2gray setgray}{systemdict begin setrgbcolor end}ifelse}ifelse}bd
\r
117 /setgfillhsb{v_gseps 1 eq{v_mono 1 eq{systemdict begin sethsbcolor
\r
118 currentrgbcolor end rgb2plategray}{systemdict begin sethsbcolor currentrgbcolor
\r
119 end rgb2devcmyk setplatecolor}ifelse}{v_mono 1 eq{systemdict begin
\r
120 sethsbcolor currentgray end setgray}{systemdict begin sethsbcolor end}ifelse}ifelse}bd
\r
121 /Max{2 copy lt{exch}if pop}bd/Max3{2 copy lt{exch}if pop 2 copy lt{exch}if
\r
122 pop}bd/Min{2 copy gt{exch}if pop}bd/Min3{2 copy gt{exch}if pop 2 copy
\r
123 gt{exch}if pop}bd/clamp{3 1 roll Max 2 1 roll Min}bd/clamp01{0 Max
\r
124 1 Min}bd/Pythag{dup mul exch dup mul add sqrt}bd/ssc{DeviceRGB setcolorspace
\r
125 setcolor}bd/ssg{setgray}bd/p_render{}def/p_count 0 def/vis_flag true
\r
126 def/DataString 3 string def/DataSrc{currentfile DataString readhexstring
\r
127 pop}bd/DataStr1 1 string def/DataStr2 1 string def/DataStr3 1 string
\r
128 def/DataSrc1{DataStr1}bd/DataSrc2{DataStr2}bd/DataSrc3{DataStr3}bd
\r
129 /colorimage where{pop/ci{colorimage}bd}{/ci{pop pop/ci_datasrc exch
\r
130 def matrix invertmatrix/ci_matrix exch def pop/ci_dataleft 0 def/ci_buf()def
\r
131 /ci_dataofs 0 def 0 1 3 -1 roll 1 sub{/ci_y exch def dup 0 1 3 -1
\r
132 roll 1 sub{0 1 2{pop ci_dataleft 0 eq{ci_datasrc dup length/ci_dataleft
\r
133 exch def/ci_buf exch def/ci_dataofs 0 def}if ci_buf ci_dataofs get
\r
134 255 div/ci_dataofs ci_dataofs 1 add def/ci_dataleft ci_dataleft 1 sub
\r
135 def}for setrgbcolor dup ci_y 3 -1 roll 1 add ci_y 1 add 4 copy 5 1
\r
136 roll 4 2 roll 5 -1 roll 1 1 4{pop ci_matrix transform 8 2 roll}for
\r
137 m l l l closepath fill}for}for pop}bd}ifelse/rci{/rciBuf 4 index 3
\r
138 index mul 7 add 8 div floor cvi string def{currentfile rciBuf readhexstring
\r
139 pop}bind false 3 ci}bd/cbsl{2 eq/cbslL2 xd 5 index/cbslw xd translate
\r
140 scale 8 [ 3 index 0 0 5 index 0 0 ] cbslL2{/DataStr1 cbslw string def
\r
141 currentfile/ASCII85Decode filter/RunLengthDecode filter DataStr1 readstring
\r
142 pop pop/DataStr2 cbslw string def currentfile/ASCII85Decode filter
\r
143 /RunLengthDecode filter DataStr2 readstring pop pop/DataStr3 cbslw
\r
144 string def currentfile/ASCII85Decode filter/RunLengthDecode filter
\r
145 DataStr3 readstring pop pop{DataStr1}bind{DataStr2}bind{DataStr3}bind
\r
146 true}{/DataSrc load false}ifelse 3 ci}bd/gbsl{2 eq/gbslL2 xd 5 index
\r
147 /gbslw xd translate scale 8 [ 3 index 0 0 5 index 0 0 ] gbslL2{/DataStr1
\r
148 gbslw string def currentfile/ASCII85Decode filter/RunLengthDecode filter
\r
149 DataStr1 readstring pop pop{DataStr1}bind}{/DataStr1 gbslw string def
\r
150 currentfile DataSrc1 readhexstring pop pop{DataStr1}bind}ifelse image}bd
\r
151 /cmi{/cmiBuf 4 index 3 index mul 7 add 8 div floor cvi string def{currentfile
\r
152 cmiBuf readhexstring pop}bind image}bd/cpal{4 mul string/cPalette exch
\r
153 def currentfile cPalette readhexstring pop}bd/cpci{/cpci_datasrc exch
\r
154 def matrix invertmatrix/cpci_matrix exch def/cpci_bpp exch def cpci_init
\r
155 0 1 3 -1 roll 1 sub{/cpci_y exch def dup cpci_bpp 4 eq{cpci_sampsleft
\r
156 1 eq{/cpci_sampsleft 0 def}if}if 0 1 3 -1 roll 1 sub{cpci_nextcol dup
\r
157 cpci_y 3 -1 roll 1 add cpci_y 1 add 4 copy 5 1 roll 4 2 roll 5 -1 roll
\r
158 1 1 4{pop cpci_matrix transform 8 2 roll}for m l l l closepath fill}for}for
\r
159 pop}bd/cpci_init{/cpci_sampsleft 0 def}bd/cpci_buf 1 string def/cpci_nextcol{cpci_bpp
\r
160 1 eq{cpci_sampsleft 0 eq{currentfile cpci_buf readhexstring pop pop
\r
161 /cpci_sampsleft 8 def}if cpci_buf dup 0 get dup 1 and setgray -1 bitshift
\r
162 1 exch put/cpci_sampsleft cpci_sampsleft 1 sub def}{cpci_bpp 4 eq{cpci_sampsleft
\r
163 0 eq{currentfile cpci_buf readhexstring pop pop/cpci_sampsleft 2 def}if
\r
164 cpci_buf 0 get dup 15 and exch -4 bitshift cpci_buf 0 3 -1 roll put
\r
165 /cpci_sampsleft cpci_sampsleft 1 sub def}{currentfile cpci_buf readhexstring
\r
166 pop 0 get}ifelse 4 mul dup 2 add cPalette exch get 255 div exch dup
\r
167 1 add cPalette exch get 255 div exch cPalette exch get 255 div setrgbcolor}ifelse}bd
\r
168 /setup1asciiproc{[ currentfile mystring/readhexstring cvx/pop cvx
\r
169 ] cvx bind}bd/setup1binaryproc{[ currentfile mystring/readstring cvx
\r
170 /pop cvx ] cvx bind}bd level2{save/dontloadlevel1 xd}if/iw 0 def/ih
\r
171 0 def/im_save 0 def/setupimageproc 0 def/polarity 0 def/smoothflag
\r
172 0 def/mystring 0 def/bpc 0 def/beginimage{/im_save save def dup 0 eq{pop
\r
173 /setup1binaryproc}{1 eq{/setup1asciiproc}{(error, can't use level2 data acquisition procs for level1)print
\r
174 flush}ifelse}ifelse/setupimageproc exch ld/polarity xd/smoothflag xd
\r
175 /imat xd/mystring exch string def/bpc xd/ih xd/iw xd}bd/endimage{im_save
\r
176 restore}bd/1bitbwcopyimage{1 setgray 0 0 moveto 0 1 rlineto 1 0 rlineto
\r
177 0 -1 rlineto closepath fill 0 setgray iw ih polarity imat setupimageproc
\r
178 imagemask}bd/1bitcopyimage{setrgbcolor 0 0 moveto 0 1 rlineto 1 0 rlineto
\r
179 0 -1 rlineto closepath fill setrgbcolor iw ih polarity imat setupimageproc
\r
180 imagemask}bd/1bitmaskimage{setrgbcolor iw ih polarity [iw 0 0 ih 0
\r
181 0] setupimageproc imagemask}bd level2{dontloadlevel1 restore}if level2
\r
182 not{save/dontloadlevel2 xd}if/setup2asciiproc{currentfile/ASCII85Decode
\r
183 filter/RunLengthDecode filter}bd/setup2binaryproc{currentfile/RunLengthDecode
\r
184 filter}bd/myimagedict 9 dict dup begin/ImageType 1 def/MultipleDataSource
\r
185 false def end def/im_save 0 def/setupimageproc 0 def/polarity 0 def
\r
186 /smoothflag 0 def/mystring 0 def/bpc 0 def/ih 0 def/iw 0 def/beginimage{
\r
187 /im_save save def dup 2 eq{pop/setup2binaryproc}{dup 3 eq{pop/setup2asciiproc}{0
\r
188 eq{/setup1binaryproc}{/setup1asciiproc}ifelse}ifelse}ifelse/setupimageproc
\r
189 exch ld{[ 1 0 ]}{[ 0 1 ]}ifelse/polarity xd/smoothflag xd/imat xd/mystring
\r
190 exch string def/bpc xd/ih xd/iw xd}bd/endimage{im_save restore}bd/1bitbwcopyimage{1
\r
191 ssg 0 0 moveto 0 1 rlineto 1 0 rlineto 0 -1 rlineto closepath fill
\r
192 0 ssg myimagedict dup begin/Width iw def/Height ih def/Decode polarity
\r
193 def/ImageMatrix imat def/DataSource setupimageproc def/BitsPerComponent
\r
194 1 def/Interpolate smoothflag def end imagemask}bd/1bitcopyimage{ssc
\r
195 0 0 moveto 0 1 rlineto 1 0 rlineto 0 -1 rlineto closepath fill ssc
\r
196 myimagedict dup begin/Width iw def/Height ih def/Decode polarity def
\r
197 /ImageMatrix imat def/DataSource setupimageproc def/BitsPerComponent
\r
198 1 def/Interpolate smoothflag def end imagemask}bd/1bitmaskimage{ssc
\r
199 myimagedict dup begin/Width iw def/Height ih def/Decode polarity def
\r
200 /ImageMatrix imat def/DataSource setupimageproc def/BitsPerComponent
\r
201 1 def/Interpolate smoothflag def end imagemask}bd level2 not{dontloadlevel2
\r
203 level2{save/dontloadlevel1 xd}if/startnoload{{/noload save def}if}bd
\r
204 /endnoload{{noload restore}if}bd/testsystemdict{where{systemdict eq{true}{false}ifelse}{false}ifelse}bd
\r
205 /ncolors 1 def/colorimage where{pop true}{false}ifelse{/ncolors 0
\r
206 statusdict begin/processcolors where{pop pop processcolors}{/deviceinfo
\r
207 where{pop deviceinfo/Colors known{pop{deviceinfo/Colors get}}if}if}ifelse
\r
208 end def ncolors 0 ne{/colorimage testsystemdict/setcolortransfer testsystemdict
\r
209 /currentcolortransfer testsystemdict/currentcmykcolor testsystemdict
\r
210 and and and not{/ncolors 0 def}if}if}if ncolors dup 1 ne exch dup 3
\r
211 ne exch 4 ne and and{/ncolors 0 def}if ncolors 1 eq dup dup not startnoload{
\r
212 /expandbw{expandfactor mul round cvi bwclut exch get 255 div}bd/doclutimage{bwclut
\r
213 colorclut pop/bwclut xd bpc dup 8 eq{pop 255}{4 eq{15}{3}ifelse}ifelse
\r
214 /expandfactor xd [/expandbw load/exec load dup currenttransfer exch
\r
215 ] cvx bind settransfer iw ih bpc imat setupimageproc image}bd}if not
\r
216 endnoload ncolors dup 3 eq exch 4 eq or dup dup not startnoload{/nullproc{{}}def
\r
217 /concatutil{/exec load 7 -1 roll/exec load}bd/defsubclut{1 add getinterval
\r
218 def}bd/spconcattransfer{/Dclut exch def/Cclut exch def/Bclut exch def
\r
219 /Aclut exch def/ncompute exch ld currentcolortransfer [{Aclut ncompute}concatutil
\r
220 ] cvx [{Bclut ncompute}concatutil ] cvx [{Cclut ncompute}concatutil
\r
221 ] cvx [{Dclut ncompute}concatutil ] cvx setcolortransfer}bd/setuprgbcluts{
\r
222 /bit3x rgbclut length 3 sub def/bit1x bit3x 3 idiv def/rclut rgbclut
\r
223 def/gclut rclut 1 bit3x defsubclut/bclut rclut 2 bit3x defsubclut}bd}if
\r
224 not endnoload ncolors 3 eq dup dup not startnoload{/3compute{exch bit3x
\r
225 mul round cvi get 255 div}bd/doclutimage{/rgbclut xd pop setuprgbcluts
\r
226 /3compute rclut gclut bclut dup spconcattransfer iw ih bpc imat [
\r
227 setupimageproc/exec load/dup load dup ] cvx nullproc nullproc true
\r
228 3 colorimage}bd}if not endnoload ncolors 4 eq dup dup not startnoload{
\r
229 /stuffclut{cmykindex 3 -1 roll put}bd/ftoint{1 exch sub 255 mul round
\r
230 cvi}bd/4compute{exch bit4x mul round cvi get 255 div}bd/computecmykclut{setuprgbcluts
\r
231 /bit4x rgbclut length 3 idiv 4 mul 4 sub def/cmykclut bit4x 4 add
\r
232 string def/cclut cmykclut def/mclut cclut 1 bit4x defsubclut/yclut
\r
233 cclut 2 bit4x defsubclut/kclut cclut 3 bit4x defsubclut/cmykindex 0
\r
234 def 0 1 bit1x{dup/cmykindex exch bit1x exch sub 4 mul def 3 mul dup
\r
235 rclut exch get 255 div exch dup gclut exch get 255 div exch bclut exch
\r
236 get 255 div setrgbcolor currentcmykcolor ftoint kclut stuffclut ftoint
\r
237 yclut stuffclut ftoint mclut stuffclut ftoint cclut stuffclut}for}bd
\r
238 /doclutimage{/rgbclut xd pop invalidcolortable?{computecmykclut}if
\r
239 /4compute cclut mclut yclut kclut spconcattransfer iw ih bpc imat
\r
240 [ setupimageproc/exec load/dup load dup dup ] cvx nullproc nullproc
\r
241 nullproc true 4 colorimage}bd}if not endnoload ncolors 0 eq dup dup
\r
242 not startnoload{/lookupandstore{3 mul 3 getinterval putinterval exch
\r
243 3 add exch 3 copy}bd/8lookup/lookupandstore ld/4lookup{/byte 1 index
\r
244 def -4 bitshift lookupandstore byte 15 and lookupandstore}bd/2lookup{
\r
245 /byte 1 index def -6 bitshift lookupandstore byte -4 bitshift 3 and
\r
246 lookupandstore byte -2 bitshift 3 and lookupandstore byte 3 and lookupandstore}bd
\r
247 /colorexpand{mystringexp 0 rgbclut 3 copy 7 -1 roll/mylookup load
\r
248 forall pop pop pop pop pop}bd/createexpandstr{/mystringexp exch mystring
\r
249 length mul string def}bd/doclutimage{/rgbclut xd pop/mylookup bpc 8
\r
250 eq{3 createexpandstr/8lookup}{bpc 4 eq{6 createexpandstr/4lookup}{12
\r
251 createexpandstr/2lookup}ifelse}ifelse ld iw ih bpc imat [ setupimageproc
\r
252 /exec load/colorexpand load/exec load] cvx false 3 colorimage}bd}if
\r
253 not endnoload/colorimage where{pop true}{false}ifelse dup{/do24image{iw
\r
254 ih 8 imat setupimageproc false 3 colorimage}bd}if dup dup startnoload
\r
255 not{/rgbtogray{/str xd/len str length def/smlen len 3 idiv def/rstr
\r
256 str def/gstr str 1 len 1 sub getinterval def/bstr str 2 len 2 sub getinterval
\r
257 def str dup 0 1 smlen 1 sub{dup 3 mul rstr 1 index get .3 mul gstr
\r
258 2 index get .59 mul add bstr 3 -1 roll get .11 mul add round cvi put
\r
259 dup}for pop 0 smlen getinterval}bd/do24image{iw ih 8 imat [ setupimageproc
\r
260 /exec load/rgbtogray load/exec load ] cvx bind image}bd}if endnoload
\r
261 /doimage{iw ih 8 imat setupimageproc image}bd level2{dontloadlevel1
\r
262 restore}if level2 not{save/dontloadlevel2 xd}if/myappcolorspace/DeviceRGB
\r
263 def/rgbclut 0 def/doclutimage{/rgbclut xd pop bpc dup 8 eq{pop 255}{4
\r
264 eq{15}{3}ifelse}ifelse/hival xd [/Indexed myappcolorspace hival rgbclut]
\r
265 setcolorspace myimagedict dup begin/Width iw def/Height ih def/Decode
\r
266 [0 hival] def/ImageMatrix imat def/DataSource setupimageproc def/BitsPerComponent
\r
267 bpc def/Interpolate smoothflag def end image}bd/do24image{myappcolorspace
\r
268 setcolorspace myimagedict dup begin/Width iw def/Height ih def/Decode
\r
269 [0 1 0 1 0 1] def/ImageMatrix imat def/DataSource setupimageproc def
\r
270 /BitsPerComponent 8 def/Interpolate smoothflag def end image}bd level2
\r
271 not{dontloadlevel2 restore}if
\r
272 /NumSteps{dtransform matrix defaultmatrix idtransform Pythag currentscreen
\r
273 pop pop 72 exch div div}bd/FindMinSteps{v_ft 4 eq{urx startX sub abs
\r
274 llx startX sub abs Max ury startY sub abs lly startY sub abs Max Pythag
\r
275 2 3.14159265 mul mul 0}{v_ft 2 eq{endY startY sub endX startX sub Pythag
\r
276 endY2 startY sub endX2 startX sub Pythag gt{endY startY sub endX startX
\r
277 sub}{endY2 startY sub endX2 startX sub}ifelse}{endY startY sub endX
\r
278 startX sub}ifelse}ifelse NumSteps}bd/cxe{/v_cxe exch def}bd/cxm{pop
\r
279 /v_cxm exch def}bd/cxmt{pop pop}bd/cxt{pop}bd/S_eoclip{currentflat{{eoclip}stopped{dup
\r
280 currentflat exch sub 20 gt{([Error: PathTooComplex; OffendingCommand: eoclip]\n)print
\r
281 flush exit}{currentflat 2 add setflat}ifelse}{exit}ifelse}loop setflat}bd
\r
282 /S_clip{currentflat{{clip}stopped{dup currentflat exch sub 20 gt{([Error: PathTooComplex; OffendingCommand: clip]\n)print
\r
283 flush exit}{currentflat 2 add setflat}ifelse}{exit}ifelse}loop setflat}bd
\r
284 /S_eofill{currentflat{{eofill}stopped{dup currentflat exch sub 20
\r
285 gt{([Error: PathTooComplex; OffendingCommand: eofill]\n)print flush
\r
286 exit}{currentflat 2 add setflat}ifelse}{exit}ifelse}loop setflat}bd
\r
287 /gpbbx{pathbbox/ury exch def/urx exch def/lly exch def/llx exch def}bd
\r
288 /lineargfill{initgfill{false initgfx/distance endX startX sub endY
\r
289 startY sub Pythag def/incD distance Steps div def endY startY sub endX
\r
290 startX sub atan newpath llx lly urx ury Bx startX startY translate
\r
291 rotate gpbbx eGy ssg newpath llx lly urx ury Bx S_eofill sGy ssg newpath
\r
292 llx lly 0 ury Bx S_eofill/fillX 0 def 0 1 Steps 1 sub{stepgfx newpath
\r
293 fillX lly fillX incD add dup/fillX exch def ury Bx S_eofill pop}for}if}bd
\r
294 /radialgfill{initgfill{false initgfx/distance endX startX sub endY
\r
295 startY sub Pythag def/incD distance Steps div def eGy ssg newpath llx
\r
296 lly urx ury Bx S_eofill/distance 0 def 0 1 Steps 1 sub{stepgfx newpath
\r
297 startX startY distance 0 360 arc closepath distance incD add dup/distance
\r
298 exch def 0 rmoveto startX startY distance 0 360 arc closepath S_eofill
\r
299 pop}for}if}bd/ellipticgfill{initgfill{true initgfx sGy ssg newpath
\r
300 llx lly urx ury Bx S_eofill [ endX startX sub endY startY sub endX2
\r
301 startX sub endY2 startY sub startX startY ] concat Steps 1 sub -1 0{stepgfx
\r
302 /i exch def 0 0 moveto 0 0 i Steps div 0 360 arc fill}for}if}bd/conicalgfill{initgfill{urx
\r
303 startX sub abs llx startX sub abs Max ury startY sub abs lly startY
\r
304 sub abs Max Pythag startY endY sub startX endX sub Pythag div/radius
\r
305 exch def true initgfx [ endX startX sub endY startY sub startY endY
\r
306 sub endX startX sub startX startY ] concat/slice 180 Steps div def
\r
307 /startangle 0 def Steps -1 0{pop stepgfx 0 0 moveto 0 0 radius startangle
\r
308 neg dup slice add arc fill 0 0 moveto 0 0 radius startangle dup slice
\r
309 add dup/startangle exch def arc fill}for}if}bd/initgfill{gpbbx{S_eoclip}{S_clip}ifelse
\r
310 startX endX eq startY endY eq and sGy eGy eq or dup{sGy ssg newpath
\r
311 llx lly urx ury Bx S_eofill}if not}bd/initgfx{/flag exch def flag{sGy
\r
312 eGy/sGy exch def/eGy exch def}if eGy sGy sub abs 256 mul FindMinSteps
\r
313 Min 256 Min ceiling 1 Max/Steps exch def eGy sGy sub Steps div/incGy
\r
314 exch def sGy/mGy exch def}bd/stepgfx{mGy ssg mGy incGy add/mGy exch
\r
315 def}bd/linearfill{initfill{false initfx endX startX sub endY startY
\r
316 sub Pythag/distance exch def/incD distance Steps div def endY startY
\r
317 sub endX startX sub atan newpath llx lly urx ury Bx startX startY translate
\r
318 rotate gpbbx v_cxe 0 eq{eR eG eB setgfillrgb}{eH eS eV setgfillhsb}ifelse
\r
319 newpath llx lly urx ury Bx S_eofill v_cxe 0 eq{sR sG sB setgfillrgb}{sH
\r
320 sS sV setgfillhsb}ifelse newpath llx lly 0 ury Bx S_eofill/fillX 0
\r
321 def 0 1 Steps 1 sub{stepfx newpath fillX lly fillX incD add dup/fillX
\r
322 exch def ury Bx S_eofill pop}for}if}bd/radialfill{initfill{false initfx
\r
323 endX startX sub endY startY sub Pythag/distance exch def/incD distance
\r
324 Steps div def v_cxe 0 eq{eR eG eB setgfillrgb}{eH eS eV setgfillhsb}ifelse
\r
325 newpath llx lly urx ury Bx S_eofill/distance 0 def 0 1 Steps 1 sub{stepfx
\r
326 newpath startX startY distance 0 360 arc closepath distance incD add
\r
327 dup/distance exch def 0 rmoveto startX startY distance 0 360 arc closepath
\r
328 S_eofill pop}for}if}bind def/ellipticalfill{initfill{true initfx v_cxe
\r
329 0 eq{sR sG sB setgfillrgb}{sH sS sV setgfillhsb}ifelse newpath llx
\r
330 lly urx ury Bx S_eofill [ endX startX sub endY startY sub endX2 startX
\r
331 sub endY2 startY sub startX startY ] concat Steps 1 sub -1 0{stepfx
\r
332 /i exch def 0 0 moveto 0 0 i Steps div 0 360 arc fill}for v_cxe 0
\r
333 eq{sR sG sB eR eG eB/sB exch def/sG exch def/sR exch def/eB exch def
\r
334 /eG exch def/eR exch def}if}if}bd/conicalfill{initfill{urx startX
\r
335 sub abs llx startX sub abs Max ury startY sub abs lly startY sub abs
\r
336 Max Pythag startY endY sub startX endX sub Pythag div/radius exch def
\r
337 true initfx [ endX startX sub endY startY sub startY endY sub endX
\r
338 startX sub startX startY ] concat/slice 180 Steps div def/startangle
\r
339 0 def Steps -1 0{pop stepfx 0 0 moveto 0 0 radius startangle neg dup
\r
340 slice add arc fill 0 0 moveto 0 0 radius startangle dup slice add dup
\r
341 /startangle exch def arc fill}for}if}bd/initfill{gpbbx{S_eoclip}{S_clip}ifelse
\r
342 startX endX eq startY endY eq and v_cxe 2 ne sR eR eq sG eG eq and
\r
343 sB eB eq and and or dup{sR sG sB setgfillrgb newpath llx lly urx ury
\r
344 Bx S_eofill}if not}bd/initfx{/flag exch def v_cxe 0 eq{flag{sR sG sB
\r
345 eR eG eB/sB exch def/sG exch def/sR exch def/eB exch def/eG exch def
\r
346 /eR exch def}if eR sR sub abs 256 mul eG sG sub abs 256 mul Max eB
\r
347 sB sub abs 256 mul Max FindMinSteps Min 256 Min ceiling 1 Max/Steps
\r
348 exch def/incR eR sR sub Steps div def/incG eG sG sub Steps div def
\r
349 /incB eB sB sub Steps div def sR/mR exch def sG/mG exch def sB/mB
\r
350 exch def}{sR sG sB rgb2hsb/sV exch def/sS exch def/sH exch def eR eG
\r
351 eB rgb2hsb/eV exch def/eS exch def/eH exch def eH sH sub abs v_cxe
\r
352 1 eq{dup 0.5 gt{1 exch sub}if}{dup 0.5 lt{1 exch sub}if}ifelse 256
\r
353 mul eS sS sub abs 256 mul Max eV sV sub abs 256 mul Max FindMinSteps
\r
354 Min 256 Min ceiling 1 Max/Steps exch def v_cxe 1 eq{/incH eH sH sub
\r
355 dup abs 0.5 gt{dup 0 ge{1 sub}{1 add}ifelse}if Steps div def/incS eS
\r
356 sS sub Steps div def/incV eV sV sub Steps div def}{/incH eH sH sub
\r
357 dup abs 0.5 le{dup 0 ge{1 sub}{1 add}ifelse}if Steps div def/incS eS
\r
358 sS sub Steps div def/incV eV sV sub Steps div def}ifelse flag{/sH eH
\r
359 /eH sH def def/sS eS/eS sS def def/sV eV/eV sV def def/incH incH neg
\r
360 def/incS incS neg def/incV incV neg def}if}ifelse}bd/stepfx{v_cxe 0
\r
361 eq{mR mG mB setgfillrgb mR incR add/mR exch def mG incG add/mG exch
\r
362 def mB incB add/mB exch def}{sH sS sV setgfillhsb sH incH add dup 0
\r
363 le{1 add}{dup 1 ge{1 sub}if}ifelse/sH exch def sS incS add/sS exch
\r
364 def sV incV add/sV exch def}ifelse}bd
\r
365 /ar{}bd/arr{pop pop pop pop pop pop pop}bd/ae{pop pop pop pop pop
\r
366 pop}bd/aoa{pop}bd/apl{pop}bd/apc{}bd/aof{pop pop}bd/aafs{pop pop pop}bd
\r
367 /O{pop}bd/R{pop}bd/axop{pop pop pop pop}bd/g{/v_ft 0 def/v_fc 0 def
\r
368 /v_fm 0 def/v_fy 0 def 1 exch sub/v_fk exch def/v_fct 0 def}bd/G{
\r
369 /v_sc 0 def/v_sm 0 def/v_sy 0 def 1 exch sub/v_sk exch def/v_sct 0
\r
370 def}bd/k{/v_fk exch def/v_fy exch def/v_fm exch def/v_fc exch def/v_ft
\r
371 0 def/v_fct 0 def}bd/K{/v_sk exch def/v_sy exch def/v_sm exch def/v_sc
\r
372 exch def/v_sct 0 def}bd/Xa{/v_fb exch def/v_fg exch def/v_fr exch def
\r
373 /v_ft 0 def/v_fct 1 def}bd/XA{/v_sb exch def/v_sg exch def/v_sr exch
\r
374 def/v_sct 1 def}bd/a_tc{exch pop 1 exch sub dup 3 -1 roll exch div
\r
375 exch dup 4 -1 roll exch div 3 1 roll dup 5 -1 roll exch div 4 1 roll
\r
376 5 -1 roll exch div 4 1 roll}bd/x{a_tc k}bd/X{a_tc K}bd/Xx{0 eq{x}{pop
\r
377 pop Xa}ifelse}bd/XX{0 eq{X}{pop pop XA}ifelse}bd/awr{/v_wr exch def}bd
\r
378 /w{setlinewidth}bd/j{setlinejoin}bd/J{setlinecap}bd/d{setdash}bd/asc{pop
\r
379 pop J}bd/aec{pop pop J}bd/csah{pop pop pop}bd/ceah{pop pop pop}bd/cst{pop
\r
380 pop}bd/cdp{pop}bd/m{moveto}bd/l{lineto}bd/c{curveto}bd/Bx{4 copy 5
\r
381 1 roll 4 2 roll 5 -1 roll m l l l closepath}bd/Cp{Bx clip newpath}bd
\r
382 /a_fp{gsave v_wr 0 ne v_ft 0 eq{setfillcolor{eofill}{fill}ifelse}{v_ft
\r
383 1 eq{linearfill}{v_ft 2 eq{ellipticalfill}{v_ft 3 eq{radialfill}{v_ft
\r
384 4 eq{conicalfill}{v_ft 8 eq{lineargfill}{v_ft 9 eq{ellipticgfill}{v_ft
\r
385 10 eq{radialgfill}{conicalgfill}ifelse}ifelse}ifelse}ifelse}ifelse}ifelse}ifelse}ifelse
\r
386 grestore}bd/*u{/p_count p_count 1 add def}bd/*U{/p_count p_count 1
\r
387 sub def p_count 0 eq{vis_flag{p_render}{newpath}ifelse}if}bd/B{/p_render{a_fp
\r
388 setstrokecolor stroke}bd p_count 0 eq{vis_flag{p_render}{newpath}ifelse}if}bd
\r
389 /b{closepath B}bd/F{/p_render{a_fp newpath}bd p_count 0 eq{vis_flag{p_render}{newpath}ifelse}if}bd
\r
390 /f{closepath F}bd/S{/p_render{setstrokecolor stroke}bd p_count 0 eq{vis_flag{p_render}{newpath}ifelse}if}bd
\r
391 /s{closepath S}bd/H{/p_render{newpath}bd p_count 0 eq{vis_flag{p_render}{newpath}ifelse}if}bd
\r
392 /h{closepath H}bd/N{H}bd/n{h}bd/cag{dup 7 add/v_ft exch def dup 2
\r
393 eq{pop/endY2 exch def/endX2 exch def}{7 eq{pop pop/v_ft 8 def}if}ifelse
\r
394 /endY exch def/endX exch def/startY exch def/startX exch def/eGy exch
\r
395 def/sGy exch def}bd/caz{dup/v_ft exch def dup 2 eq{pop/endY2 exch def
\r
396 /endX2 exch def}{7 eq{pop pop/v_ft 1 def}if}ifelse/endY exch def/endX
\r
397 exch def/startY exch def/startX exch def/eB exch def/eG exch def/eR
\r
398 exch def/sB exch def/sG exch def/sR exch def}bd/cax{dup/v_ft exch def
\r
399 dup 2 eq{pop/endY2 exch def/endX2 exch def}{7 eq{pop pop/v_ft 1 def}if}ifelse
\r
400 /endY exch def/endX exch def/startY exch def/startX exch def pop pop
\r
401 8 3 roll pop pop/sB exch def/sG exch def/sR exch def/eB exch def/eG
\r
402 exch def/eR exch def}bd/axm{/endY exch def/endX exch def/startY exch
\r
403 def/startX exch def}bd/alyr{pop pop 1 eq{true}{false}ifelse/vis_flag
\r
404 exch def pop pop}bd
\r
405 /t{moveto show}bd/ts{moveto false charpath S}bd/tf{moveto true charpath
\r
406 F}bd/tb{3 copy moveto true charpath F moveto false charpath S}bd/selectfont
\r
407 where{pop}{/selectfont{dup type/integertype eq{exch findfont exch scalefont
\r
408 setfont}{exch findfont exch makefont setfont}ifelse}bd}ifelse/sf{selectfont}bd
\r
409 /u{}bd/U{}bd/anu{pop}bd
\r
414 save XaraStudio1Dict begin
\r
423 0.00 0.00 0.00 (Black) 0 1 Xx
\r
424 /Times-Roman 10 sf (X) 13.577 47.744 t (1) 20.428 47.744 t (Y) 85.577 47.744 t (1) 91.685 47.744 t (X)
\r
425 13.577 24.466 t (2) 20.428 24.466 t (Y) 85.577 24.466 t (2) 91.685 24.466 t 0.00 0.00 0.00 (Black) 0 1
\r
435 (X) 13.577 47.744 t (1) 20.428 47.744 t (Y) 85.577 47.744 t (1) 91.685 47.744 t (X) 13.577 24.466 t (2)
\r
436 20.428 24.466 t (Y) 85.577 24.466 t (2) 91.685 24.466 t 0.500 w
\r
projects / ads2.git / blob