source: subversion/applications/editors/potlatch/potlatch_assets.pl @ 5281

Last change on this file since 5281 was 4869, checked in by richard, 12 years ago

Potlatch 0.4 (hopefully)

  • Property svn:executable set to *
File size: 43.0 KB
Line 
1
2        # updated 1.10.2007 - writeExports moved to end (d'oh)
3
4        # ----- Export symbols
5
6        #               Empty movie-clip for ways
7       
8        $ec=new SWF::Sprite();
9        $ec->nextFrame();
10        $m->addExport($ec,"way");
11
12        #               Empty movie-clip for key/value pairs
13       
14        $ec=new SWF::Sprite();
15        $ec->nextFrame();
16        $m->addExport($ec,"keyvalue");
17
18        #               Empty movie-clip for UI components
19
20        $ec=new SWF::Sprite(); $ec->nextFrame(); $m->addExport($ec,"menu");
21        $ec=new SWF::Sprite(); $ec->nextFrame(); $m->addExport($ec,"checkbox");
22
23        #               POI
24       
25        $ec=new SWF::Sprite();
26        $ch=new SWF::Shape();
27        $ch->setRightFill(0,155,0);
28        $ch->setLine(20,0,0,0);
29        $ch->drawCircle(4);
30        $ec->add($ch);
31        $ec->nextFrame();
32        $m->addExport($ec,"poi");
33
34        #               Anchor (selected)
35
36        $ec=new SWF::Sprite();
37        $ch=new SWF::Shape();
38        $ch->setRightFill(255,0,0); $ch->movePenTo(-2,-2);
39        $ch->drawLine( 4,0); $ch->drawLine(0, 4);
40        $ch->drawLine(-4,0); $ch->drawLine(0,-4);
41        $ec->add($ch); $ec->nextFrame();
42        $m->addExport($ec,"anchor");
43
44        #               Anchor (mouseover)
45
46        $ec=new SWF::Sprite();
47        $ch=new SWF::Shape();
48        $ch->setRightFill(0,0,255); $ch->movePenTo(-2,-2);
49        $ch->drawLine( 4,0); $ch->drawLine(0, 4);
50        $ch->drawLine(-4,0); $ch->drawLine(0,-4);
51        $ec->add($ch); $ec->nextFrame();
52        $m->addExport($ec,"anchorhint");
53
54        #               Zoom in
55
56        $ec=new SWF::Sprite();
57        $bq=new SWF::Shape();
58        $bq->setRightFill($bq->addFill(0,0,0x8b));
59        $bq->movePenTo(0,20);
60        $bq->drawLineTo(0,10);
61        $bq->drawCurveTo(0,0,10,0);
62        $bq->drawCurveTo(20,0,20,10);
63        $bq->drawLineTo(20,20);
64        $bq->drawLineTo(0,20);
65        $bq->setLine(50,255,255,255);
66        $bq->movePenTo(5,9); $bq->drawLineTo(15,9);
67        $bq->drawLineTo(10,9); $bq->drawLineTo(10,4); $bq->drawLineTo(10,14);
68        $bq->drawLineTo(10,9); $bq->drawLineTo(5,9);
69        $ec->add($bq); $ec->nextFrame();
70        $m->addExport($ec,"zoomin");
71       
72        #               Zoom out
73
74        $ec=new SWF::Sprite();
75        $bq=new SWF::Shape();
76        $bq->setRightFill($bq->addFill(0,0,0x8b));
77        $bq->drawLineTo(0,10);
78        $bq->drawCurveTo(0,20,10,20);
79        $bq->drawCurveTo(20,20,20,10);
80        $bq->drawLineTo(20,0);
81        $bq->drawLineTo(0,0);
82        $bq->setLine(50,255,255,255);
83        $bq->movePenTo(6,9); $bq->drawLineTo(14,9);
84        $ec->add($bq); $ec->nextFrame();
85        $m->addExport($ec,"zoomout");
86
87        # ------ padlock sprite
88       
89        $ec=new SWF::Sprite();
90        $s=new SWF::Shape();
91        $s->movePenTo(3,-2); $s->setLine(35,0,0,0); $s->drawCircle(2);
92        $s->movePenTo(0,0); $s->setRightFill($s->addFill(0,0,0));
93        $s->drawLineTo(6,0); $s->drawLineTo(6,6);
94        $s->drawLineTo(0,6); $s->drawLineTo(0,0); 
95        $ec->add($s);
96        $ec->nextFrame();
97        $m->addExport($ec,"padlock");
98       
99
100        # ------ exclamation sprite
101       
102        $ec=new SWF::Sprite();
103       
104        $s=new SWF::Shape();
105        $s->setRightFill(255,0,0);
106        $s->movePenTo(20.50,19.73);
107        $s->drawCurveTo(15.70,11.43,9.91,1.39);
108        $s->drawCurveTo(8.92,-0.32,7.70,0.00);
109        $s->drawCurveTo(7.01,0.18,5.98,1.96);
110        $s->drawCurveTo(3.21,6.76,-0.40,13.01);
111        $s->drawCurveTo(-2.56,16.76,-3.35,18.13);
112        $s->drawCurveTo(-3.36,18.14,-3.85,18.92);
113        $s->drawCurveTo(-4.48,19.92,-4.50,20.53);
114        $s->drawCurveTo(-4.54,22.24,-2.43,22.24);
115        $s->drawCurveTo(-2.43,22.24,2.00,22.24);
116        $s->drawCurveTo(2.00,22.24,15.52,22.24);
117        $s->drawCurveTo(15.52,22.24,18.97,22.24);
118        $s->drawCurveTo(20.66,22.24,20.72,20.60);
119        $s->drawCurveTo(20.73,20.15,20.50,19.73);
120        $ec->add($s);
121       
122        $s=new SWF::Shape();
123        $s->setRightFill(255,255,255);
124        $s->movePenTo(18.09,20.01);
125        $s->drawCurveTo(18.09,20.01,-1.84,20.01);
126        $s->drawCurveTo(-1.84,20.01,-1.86,20.01);
127        $s->drawCurveTo(-1.79,19.88,5.59,7.10);
128        $s->drawCurveTo(6.98,4.68,8.10,2.75);
129        $s->drawCurveTo(8.10,2.75,8.11,2.73);
130        $s->drawCurveTo(14.90,14.50,18.07,19.99);
131        $s->drawCurveTo(18.08,19.99,18.09,20.01);
132        $ec->add($s);
133       
134        $s=new SWF::Shape();
135        $s->setRightFill(0,0,0);
136        $s->movePenTo(9.60,17.78);
137        $s->drawCurveTo(9.58,16.10,7.84,16.37);
138        $s->drawCurveTo(6.62,16.56,6.62,17.78);
139        $s->drawCurveTo(6.62,19.46,8.37,19.20);
140        $s->drawCurveTo(9.58,19.00,9.60,17.78);
141        $ec->add($s);
142       
143        $s=new SWF::Shape();
144        $s->setRightFill(0,0,0);
145        $s->movePenTo(9.99,9.04);
146        $s->drawCurveTo(10.34,7.48,8.88,6.80);
147        $s->drawCurveTo(8.18,6.49,7.45,6.75);
148        $s->drawCurveTo(5.86,7.33,6.41,9.72);
149        $s->drawCurveTo(6.44,9.82,6.46,9.93);
150        $s->drawCurveTo(6.47,9.95,7.21,12.89);
151        $s->drawCurveTo(7.61,14.45,7.88,15.52);
152        $s->drawCurveTo(7.93,15.71,8.29,15.55);
153        $s->drawCurveTo(8.34,15.52,8.35,15.49);
154        $s->drawCurveTo(8.35,15.48,8.54,14.74);
155        $s->drawCurveTo(8.56,14.64,8.59,14.56);
156        $s->drawCurveTo(9.02,12.85,9.43,11.25);
157        $s->drawCurveTo(9.84,9.61,9.99,9.04);
158        $ec->add($s);
159       
160        $ec->nextFrame(); $m->addExport($ec,"exclamation");
161
162        # ------ potlatch_rotation sprite
163       
164        $ec=new SWF::Sprite();
165       
166        $s=new SWF::Shape();
167        $s->setRightFill(127,127,127);
168        drawLargeCircle();
169        $ec->add($s);
170       
171        $s=new SWF::Shape();
172        $s->setRightFill(255,255,255);
173        $s->movePenTo(5.68,0.63);
174        $s->drawLineTo(6.39,-6.49);
175        $s->drawLineTo(-0.72,-5.78);
176        $s->drawLineTo(5.68,0.63);
177        $ec->add($s);
178       
179        $s=new SWF::Shape();
180        $s->setRightFill(255,255,255);
181        $s->movePenTo(-4.22,6.41);
182        $s->drawLineTo(-6.41,4.22);
183        $s->drawLineTo(2.80,-5.00);
184        $s->drawLineTo(5.00,-2.80);
185        $s->drawLineTo(-4.22,6.41);
186        $ec->add($s);
187       
188        $ec->nextFrame(); $m->addExport($ec,"rotation");
189       
190        # ------ potlatch_roundabout sprite
191       
192        $ec=new SWF::Sprite();
193       
194        $s=new SWF::Shape();
195        $s->setRightFill(127,127,127);
196        drawLargeCircle();
197        $ec->add($s);
198       
199        $s=new SWF::Shape();
200        $s->setRightFill(255,255,255);
201        $s->movePenTo(-7.44,-0.00);
202        $s->drawLineTo(-6.04,-1.34);
203        $s->drawCurveTo(-6.04,-1.33,-6.03,-1.33);
204        $s->drawCurveTo(-5.94,-1.26,-5.84,-1.18);
205        $s->drawCurveTo(-4.73,-0.35,-4.71,-0.48);
206        $s->drawCurveTo(-4.28,-4.74,0.00,-4.74);
207        $s->drawCurveTo(0.53,-4.74,1.04,-4.62);
208        $s->drawLineTo(2.60,-5.36);
209        $s->drawLineTo(2.17,-7.12);
210        $s->drawCurveTo(1.12,-7.44,0.00,-7.44);
211        $s->drawCurveTo(-5.96,-7.44,-7.27,-1.61);
212        $s->drawCurveTo(-7.44,-0.82,-7.44,-0.00);
213        $ec->add($s);
214       
215        $s=new SWF::Shape();
216        $s->setRightFill(255,255,255);
217        $s->movePenTo(3.68,6.42);
218        $s->drawLineTo(1.82,5.88);
219        $s->drawLineTo(2.33,4.08);
220        $s->drawCurveTo(-1.77,6.45,-4.14,2.34);
221        $s->drawCurveTo(-4.47,1.77,-4.63,1.14);
222        $s->drawCurveTo(-4.66,1.02,-5.98,0.41);
223        $s->drawCurveTo(-6.11,0.35,-6.21,0.31);
224        $s->drawCurveTo(-6.22,0.30,-6.23,0.30);
225        $s->drawCurveTo(-6.23,0.30,-6.23,0.30);
226        $s->drawCurveTo(-6.29,0.35,-6.40,0.47);
227        $s->drawCurveTo(-7.34,1.42,-7.32,1.54);
228        $s->drawCurveTo(-7.07,2.68,-6.48,3.70);
229        $s->drawCurveTo(-3.31,9.20,2.64,6.92);
230        $s->drawCurveTo(3.18,6.71,3.68,6.42);
231        $ec->add($s);
232       
233        $s=new SWF::Shape();
234        $s->setRightFill(255,255,255);
235        $s->movePenTo(3.73,-6.48);
236        $s->drawLineTo(4.19,-4.60);
237        $s->drawCurveTo(4.18,-4.60,4.17,-4.60);
238        $s->drawCurveTo(4.07,-4.55,3.95,-4.50);
239        $s->drawCurveTo(2.66,-3.96,2.77,-3.88);
240        $s->drawCurveTo(5.52,-1.91,4.54,1.34);
241        $s->drawCurveTo(4.38,1.86,4.11,2.33);
242        $s->drawCurveTo(3.97,2.57,3.81,2.79);
243        $s->drawCurveTo(3.71,2.92,3.46,4.63);
244        $s->drawCurveTo(3.43,4.79,3.42,4.92);
245        $s->drawCurveTo(3.41,4.93,3.41,4.94);
246        $s->drawCurveTo(3.41,4.94,3.42,4.94);
247        $s->drawCurveTo(3.50,4.97,3.66,5.02);
248        $s->drawCurveTo(5.04,5.45,5.17,5.33);
249        $s->drawCurveTo(5.92,4.60,6.45,3.68);
250        $s->drawCurveTo(7.79,1.37,7.34,-1.29);
251        $s->drawCurveTo(6.75,-4.74,3.73,-6.48);
252        $ec->add($s);
253       
254        $ec->nextFrame(); $m->addExport($ec,"roundabout");
255
256        #               Scissors (auto-generated from AI-to-Ming script)
257
258        $ec=new SWF::Sprite();
259
260        $s=new SWF::Shape();
261        $s->setRightFill($s->addFill(127,127,127));
262        drawLargeCircle();
263        $ec->add($s);
264       
265        $s=new SWF::Shape();
266        $s->setRightFill($s->addFill(255,255,255));
267        $s->movePenTo(0.93,-1.62);
268        $s->drawLineTo(0.29,-2.66);
269        $s->drawLineTo(0.62,-3.22);
270        $s->drawCurveTo(1.07,-3.37,1.45,-4.24);
271        $s->drawLineTo(2.13,-5.78);
272        $s->drawCurveTo(2.89,-7.53,4.03,-7.53);
273        $s->drawCurveTo(4.63,-7.53,5.05,-7.08);
274        $s->drawCurveTo(5.46,-6.63,5.46,-5.99);
275        $s->drawCurveTo(5.46,-5.07,4.84,-4.38);
276        $s->drawCurveTo(4.23,-3.69,3.41,-3.69);
277        $s->drawCurveTo(3.34,-3.69,3.00,-3.73);
278        $s->drawLineTo(2.83,-3.74);
279        $s->drawCurveTo(2.65,-3.76,2.58,-3.76);
280        $s->drawCurveTo(2.04,-3.76,1.66,-2.91);
281        $s->drawCurveTo(1.59,-2.77,1.50,-2.62);
282        $s->drawLineTo(0.93,-1.62);
283        $ec->add($s);
284       
285        $s=new SWF::Shape();
286        $s->setRightFill($s->addFill(255,255,255));
287        $s->movePenTo(-0.45,-3.15);
288        $s->drawLineTo(4.77,5.25);
289        $s->drawCurveTo(4.80,5.46,4.80,5.66);
290        $s->drawCurveTo(4.80,6.68,4.39,7.68);
291        $s->drawLineTo(-0.78,-1.23);
292        $s->drawCurveTo(-1.03,-1.65,-1.09,-1.80);
293        $s->drawLineTo(-1.15,-1.97);
294        $s->drawCurveTo(-1.39,-2.60,-2.00,-2.60);
295        $s->drawLineTo(-2.07,-2.60);
296        $s->drawLineTo(-2.25,-2.59);
297        $s->drawLineTo(-2.62,-2.57);
298        $s->drawCurveTo(-3.63,-2.52,-4.58,-3.66);
299        $s->drawCurveTo(-5.54,-4.81,-5.54,-6.07);
300        $s->drawCurveTo(-5.54,-6.71,-5.21,-7.12);
301        $s->drawCurveTo(-4.89,-7.53,-4.39,-7.53);
302        $s->drawCurveTo(-3.74,-7.53,-2.94,-6.26);
303        $s->drawLineTo(-1.47,-3.90);
304        $s->drawCurveTo(-0.99,-3.13,-0.60,-3.13);
305        $s->drawCurveTo(-0.56,-3.13,-0.45,-3.15);
306        $ec->add($s);
307       
308        $s=new SWF::Shape();
309        $s->setRightFill($s->addFill(255,255,255));
310        $s->movePenTo(-0.92,-0.73);
311        $s->drawLineTo(-0.24,0.41);
312        $s->drawLineTo(-4.42,7.68);
313        $s->drawCurveTo(-4.79,6.77,-4.79,5.94);
314        $s->drawCurveTo(-4.79,5.60,-4.73,5.22);
315        $s->drawLineTo(-0.92,-0.73);
316        $ec->add($s);
317       
318        $s=new SWF::Shape();
319        $s->setRightFill($s->addFill(127,127,127));
320        $s->movePenTo(2.87,-5.99);
321        $s->drawLineTo(2.69,-5.63);
322        $s->drawCurveTo(2.46,-5.13,2.46,-4.83);
323        $s->drawCurveTo(2.46,-4.23,3.29,-4.23);
324        $s->drawCurveTo(3.91,-4.23,4.42,-4.79);
325        $s->drawCurveTo(4.94,-5.34,4.94,-6.00);
326        $s->drawCurveTo(4.94,-6.39,4.66,-6.68);
327        $s->drawCurveTo(4.39,-6.97,4.00,-6.97);
328        $s->drawCurveTo(3.37,-6.97,2.87,-5.99);
329        $ec->add($s);
330       
331        $s=new SWF::Shape();
332        $s->setRightFill($s->addFill(127,127,127));
333        $s->movePenTo(-2.47,-4.49);
334        $s->drawLineTo(-3.53,-6.19);
335        $s->drawCurveTo(-4.03,-6.97,-4.39,-6.97);
336        $s->drawCurveTo(-4.69,-6.97,-4.84,-6.73);
337        $s->drawCurveTo(-4.99,-6.49,-4.99,-6.02);
338        $s->drawCurveTo(-4.99,-5.03,-4.23,-4.09);
339        $s->drawCurveTo(-3.46,-3.15,-2.66,-3.15);
340        $s->drawCurveTo(-2.12,-3.15,-2.12,-3.62);
341        $s->drawCurveTo(-2.12,-3.90,-2.47,-4.49);
342        $ec->add($s);
343       
344        $s=new SWF::Shape();
345        $s->setRightFill($s->addFill(127,127,127));
346        $s->movePenTo(-0.38,-1.25);
347        $s->drawCurveTo(-0.38,-0.89,-0.04,-0.89);
348        $s->drawCurveTo(0.30,-0.89,0.30,-1.25);
349        $s->drawCurveTo(0.30,-1.60,-0.04,-1.60);
350        $s->drawCurveTo(-0.38,-1.60,-0.38,-1.25);
351        $ec->add($s);
352       
353        $ec->nextFrame();
354        $m->addExport($ec,"scissors");
355
356        #               GPS
357
358        $ec=new SWF::Sprite();
359
360        $s=new SWF::Shape();
361        $s->setRightFill(127,127,127);
362        drawLargeCircle();
363        $ec->add($s);
364       
365        $s=new SWF::Shape();
366        $s->setRightFill(255,255,255);
367        $s->movePenTo(1.47,8.21);
368        $s->drawCurveTo(1.27,8.74,0.74,8.54);
369        $s->drawLineTo(-5.96,6.06);
370        $s->drawCurveTo(-6.49,5.86,-6.29,5.32);
371        $s->drawLineTo(-1.22,-8.34);
372        $s->drawCurveTo(-1.02,-8.87,-0.48,-8.67);
373        $s->drawLineTo(6.21,-6.18);
374        $s->drawCurveTo(6.75,-5.98,6.55,-5.45);
375        $s->drawLineTo(1.47,8.21);
376        $ec->add($s);
377       
378        $s=new SWF::Shape();
379        $s->setRightFill(127,127,127);
380        $s->movePenTo(3.86,-0.62);
381        $s->drawCurveTo(4.06,-1.15,3.52,-1.35);
382        $s->drawLineTo(-1.57,-3.24);
383        $s->drawCurveTo(-2.10,-3.44,-2.30,-2.91);
384        $s->drawLineTo(-5.11,4.66);
385        $s->drawCurveTo(-5.31,5.20,-4.78,5.39);
386        $s->drawLineTo(0.31,7.29);
387        $s->drawCurveTo(0.85,7.48,1.04,6.95);
388        $s->drawLineTo(3.86,-0.62);
389        $ec->add($s);
390       
391        $s=new SWF::Shape();
392        $s->setRightFill(127,127,127);
393        $s->movePenTo(4.09,-4.36);
394        $s->drawCurveTo(3.94,-3.95,4.32,-3.81);
395        $s->drawCurveTo(4.70,-3.67,4.85,-4.07);
396        $s->drawCurveTo(5.00,-4.47,4.62,-4.61);
397        $s->drawCurveTo(4.24,-4.75,4.09,-4.36);
398        $ec->add($s);
399       
400        $s=new SWF::Shape();
401        $s->setRightFill(127,127,127);
402        $s->movePenTo(2.77,-3.40);
403        $s->drawCurveTo(2.62,-3.00,3.00,-2.86);
404        $s->drawCurveTo(3.39,-2.71,3.54,-3.12);
405        $s->drawCurveTo(3.68,-3.52,3.30,-3.66);
406        $s->drawCurveTo(2.92,-3.80,2.77,-3.40);
407        $ec->add($s);
408
409        $ec->nextFrame();
410        $m->addExport($ec,"gps");
411       
412        #               Prefs
413
414        $ec=new SWF::Sprite();
415       
416        $s=new SWF::Shape();
417        $s->setRightFill(127,127,127);
418        drawLargeCircle();
419        $ec->add($s);
420       
421        $s=new SWF::Shape();
422        $s->setRightFill(255,255,255);
423        $s->movePenTo(4.29,-2.58);
424        $s->drawLineTo(4.29,5.32);
425        $s->drawLineTo(-4.76,5.32);
426        $s->drawLineTo(-4.76,-3.72);
427        $s->drawLineTo(1.30,-3.72);
428        $s->drawLineTo(1.93,-4.80);
429        $s->drawLineTo(-5.84,-4.80);
430        $s->drawLineTo(-5.84,6.40);
431        $s->drawLineTo(5.37,6.40);
432        $s->drawLineTo(5.37,-3.89);
433        $s->drawLineTo(4.29,-2.58);
434        $ec->add($s);
435       
436        $s=new SWF::Shape();
437        $s->setRightFill(255,255,255);
438        $s->movePenTo(6.80,-6.73);
439        $s->drawCurveTo(4.78,-4.47,3.03,-2.08);
440        $s->drawCurveTo(1.27,0.31,-0.21,2.84);
441        $s->drawCurveTo(-0.31,3.02,-0.48,3.36);
442        $s->drawCurveTo(-0.99,4.37,-1.92,4.37);
443        $s->drawCurveTo(-2.31,4.37,-2.57,4.26);
444        $s->drawCurveTo(-2.83,4.14,-3.05,3.85);
445        $s->drawCurveTo(-3.22,3.61,-3.38,3.20);
446        $s->drawCurveTo(-3.53,2.81,-3.75,2.03);
447        $s->drawCurveTo(-3.76,1.98,-3.78,1.91);
448        $s->drawCurveTo(-4.02,1.05,-4.02,0.83);
449        $s->drawCurveTo(-4.02,0.39,-3.50,0.02);
450        $s->drawCurveTo(-2.98,-0.35,-2.48,-0.35);
451        $s->drawCurveTo(-2.32,-0.35,-2.21,-0.25);
452        $s->drawCurveTo(-2.11,-0.16,-1.98,0.16);
453        $s->drawCurveTo(-1.90,0.36,-1.79,0.69);
454        $s->drawCurveTo(-1.52,1.44,-1.34,1.44);
455        $s->drawCurveTo(-1.19,1.44,-0.12,-0.27);
456        $s->drawCurveTo(0.94,-1.94,1.65,-2.99);
457        $s->drawCurveTo(2.68,-4.53,3.22,-5.23);
458        $s->drawCurveTo(3.76,-5.92,4.20,-6.27);
459        $s->drawCurveTo(4.57,-6.58,5.18,-6.76);
460        $s->drawCurveTo(5.78,-6.94,6.69,-7.00);
461        $s->drawLineTo(6.80,-6.73);
462        $ec->add($s);
463       
464        $ec->nextFrame(); $m->addExport($ec,"prefs");
465
466
467
468        #Ê===== Menu icons
469               
470# ------ potlatch_iplace sprite
471
472$ec=new SWF::Sprite();
473
474$s=new SWF::Shape();
475$s->setRightFill(190,190,190);
476$s->movePenTo(-10.00,7.17);
477$s->drawLineTo(19.00,7.17);
478$s->drawLineTo(19.00,-10.00);
479$s->drawLineTo(-10.00,-10.00);
480$s->drawLineTo(-10.00,7.17);
481$ec->add($s);
482
483$s=new SWF::Shape();
484$s->setRightFill(255,255,255);
485$s->movePenTo(-7,5);
486$s->drawLineTo(-7,-3);
487$s->drawLineTo(-4,-3);
488$s->drawLineTo(-4,3); $s->drawLineTo(-3,3);
489
490$s->drawLineTo(-3,-7);
491$s->drawLineTo(0,-7);
492$s->drawLineTo(0,3); $s->drawLineTo(1,3);
493
494$s->drawLineTo(1,-4); $s->drawLineTo(3.5,-7);
495$s->drawLineTo(6,-4); $s->drawLineTo(6,3);
496$s->drawLineTo(7,3);
497
498$s->drawLineTo(7,-1); $s->drawLineTo(10,-1);
499$s->drawLineTo(10,3);
500$s->drawLineTo(11,3);
501
502$s->drawLineTo(11,-7); $s->drawLineTo(14,-7);
503$s->drawLineTo(14,3);
504$s->drawLineTo(15,3);
505
506$s->drawLineTo(15,0); $s->drawLineTo(17,0);
507$s->drawLineTo(17,5);
508
509$ec->add($s);
510
511$ec->nextFrame(); $m->addExport($ec,"preset_place");
512
513# ------ potlatch_itourism sprite
514
515$ec=new SWF::Sprite();
516
517$s=new SWF::Shape();
518$s->setRightFill(190,190,190);
519$s->movePenTo(-10.00,7.17);
520$s->drawLineTo(19.00,7.17);
521$s->drawLineTo(19.00,-10.00);
522$s->drawLineTo(-10.00,-10.00);
523$s->drawLineTo(-10.00,7.17);
524$ec->add($s);
525
526$s=new SWF::Shape();
527$s->setLine(30,255,255,255);
528$s->movePenTo(-5,-5); $s->drawLineTo(14,-5);
529$s->drawLineTo(14,4); $s->drawLineTo(-5,4);
530$s->drawLineTo(-5,-5);
531
532$s->movePenTo(8,-5); $s->drawLineTo(8,-8);
533$s->drawLineTo(13,-8); $s->drawLineTo(13,-5);
534
535$s->movePenTo(5,-0.5); $s->drawCircle(4);
536$ec->add($s);
537
538$ec->nextFrame(); $m->addExport($ec,"preset_tourism");
539
540# ------ potlatch_inatural sprite
541
542$ec=new SWF::Sprite();
543
544$s=new SWF::Shape();
545        $s->setRightFill(190,190,190);
546$s->movePenTo(-10.00,7.17);
547$s->drawLineTo(19.00,7.17);
548$s->drawLineTo(19.00,-10.00);
549$s->drawLineTo(-10.00,-10.00);
550$s->drawLineTo(-10.00,7.17);
551$ec->add($s);
552
553$s=new SWF::Shape();
554$s->setRightFill(255,255,255);
555$s->movePenTo(-2.98,-8.43);
556$s->drawLineTo(-8.37,2.55);
557$s->drawLineTo(-4.82,3.05);
558$s->drawLineTo(-4.73,5.64);
559$s->drawLineTo(-2.52,5.72);
560$s->drawLineTo(-2.40,3.01);
561$s->drawLineTo(1.15,2.76);
562$s->drawLineTo(-2.98,-8.43);
563$ec->add($s);
564
565$s=new SWF::Shape();
566$s->setRightFill(255,255,255);
567$s->movePenTo(4.86,-2.63);
568$s->drawLineTo(1.63,3.95);
569$s->drawLineTo(3.76,4.25);
570$s->drawLineTo(3.81,5.80);
571$s->drawLineTo(5.14,5.85);
572$s->drawLineTo(5.21,4.23);
573$s->drawLineTo(7.34,4.08);
574$s->drawLineTo(4.86,-2.63);
575$ec->add($s);
576
577$s=new SWF::Shape();
578$s->setRightFill(255,255,255);
579$s->movePenTo(12.96,-8.22);
580$s->drawLineTo(7.58,2.76);
581$s->drawLineTo(11.12,3.26);
582$s->drawLineTo(11.21,5.85);
583$s->drawLineTo(13.42,5.93);
584$s->drawLineTo(13.54,3.22);
585$s->drawLineTo(17.09,2.97);
586$s->drawLineTo(12.96,-8.22);
587$ec->add($s);
588
589$ec->nextFrame(); $m->addExport($ec,"preset_natural");
590
591        # ----- potlatch_iboat sprite
592       
593        $ec=new SWF::Sprite();
594       
595        $s=new SWF::Shape();
596        $s->setRightFill(190,190,190);
597        $s->movePenTo(-10.00,7.17);
598        $s->drawLineTo(19.00,7.17);
599        $s->drawLineTo(19.00,-10.00);
600        $s->drawLineTo(-10.00,-10.00);
601        $s->drawLineTo(-10.00,7.17);
602        $ec->add($s);
603       
604        $s=new SWF::Shape();
605        $s->setRightFill(255,255,255);
606        $s->movePenTo(-7.61,1.78);
607        $s->drawCurveTo(-3.99,-0.47,-0.35,1.17);
608        $s->drawCurveTo(0.41,1.52,1.06,1.74);
609        $s->drawCurveTo(3.05,2.40,4.79,2.05);
610        $s->drawCurveTo(5.51,1.91,7.34,1.11);
611        $s->drawCurveTo(8.58,0.58,9.96,0.50);
612        $s->drawCurveTo(12.31,0.38,14.52,1.99);
613        $s->drawLineTo(14.66,1.83);
614        $s->drawCurveTo(14.80,1.91,17.13,-2.69);
615        $s->drawCurveTo(17.34,-3.12,17.52,-3.47);
616        $s->drawCurveTo(17.54,-3.50,17.55,-3.53);
617        $s->drawCurveTo(17.55,-3.53,17.44,-3.53);
618        $s->drawCurveTo(17.08,-3.52,16.86,-3.51);
619        $s->drawCurveTo(13.20,-3.44,13.20,-3.65);
620        $s->drawCurveTo(13.20,-3.65,13.20,-5.08);
621        $s->drawLineTo(11.42,-6.73);
622        $s->drawCurveTo(0.47,-6.73,0.47,-6.73);
623        $s->drawLineTo(0.41,-3.48);
624        $s->drawLineTo(-6.43,-3.53);
625        $s->drawLineTo(-6.43,-1.55);
626        $s->drawLineTo(-7.71,-1.55);
627        $s->drawLineTo(-7.61,1.78);
628        $ec->add($s);
629       
630        $s=new SWF::Shape();
631        $s->setRightFill(255,255,255);
632        $s->movePenTo(14.25,3.39);
633        $s->drawCurveTo(12.08,1.85,9.78,2.08);
634        $s->drawCurveTo(9.78,2.08,5.71,3.40);
635        $s->drawCurveTo(5.35,3.51,5.02,3.59);
636        $s->drawCurveTo(2.64,4.13,0.33,3.13);
637        $s->drawCurveTo(-1.61,2.30,-2.00,2.22);
638        $s->drawCurveTo(-3.34,1.95,-4.43,2.14);
639        $s->drawCurveTo(-6.07,2.42,-7.59,3.48);
640        $s->drawCurveTo(-7.30,3.94,-7.16,4.18);
641        $s->drawCurveTo(-6.97,4.49,-6.68,4.29);
642        $s->drawCurveTo(-6.20,3.98,-5.58,3.74);
643        $s->drawCurveTo(-4.39,3.29,-3.15,3.35);
644        $s->drawCurveTo(-3.11,3.35,0.98,4.67);
645        $s->drawCurveTo(1.32,4.78,1.63,4.84);
646        $s->drawCurveTo(4.15,5.38,6.59,4.43);
647        $s->drawCurveTo(6.60,4.43,7.83,3.88);
648        $s->drawCurveTo(8.46,3.60,8.92,3.50);
649        $s->drawCurveTo(10.24,3.22,11.36,3.44);
650        $s->drawCurveTo(12.26,3.62,13.07,4.04);
651        $s->drawCurveTo(13.07,4.04,13.51,4.30);
652        $s->drawCurveTo(13.81,4.49,13.82,4.48);
653        $s->drawCurveTo(13.83,4.47,14.13,3.65);
654        $s->drawCurveTo(14.18,3.50,14.25,3.39);
655        $ec->add($s);
656       
657        $s=new SWF::Shape();
658        $s->setRightFill(190,190,190);
659        $s->movePenTo(7.56,-5.46);
660        $s->drawLineTo(7.56,-3.53);
661        $s->drawLineTo(11.61,-3.53);
662        $s->drawLineTo(11.61,-5.46);
663        $s->drawLineTo(7.56,-5.46);
664        $ec->add($s);
665       
666        $s=new SWF::Shape();
667        $s->setRightFill(190,190,190);
668        $s->movePenTo(1.91,-5.46);
669        $s->drawLineTo(1.91,-3.53);
670        $s->drawLineTo(5.96,-3.53);
671        $s->drawLineTo(5.96,-5.46);
672        $s->drawLineTo(1.91,-5.46);
673        $ec->add($s);
674       
675        $s=new SWF::Shape();
676        $s->setRightFill(255,255,255);
677        $s->movePenTo(-0.80,-8.58);
678        $s->drawLineTo(1.71,-6.08);
679        $s->drawLineTo(2.18,-6.55);
680        $s->drawLineTo(-0.33,-9.05);
681        $s->drawLineTo(-0.80,-8.58);
682        $ec->add($s);
683       
684        $ec->nextFrame(); $m->addExport($ec,"preset_waterway");
685       
686        # ------ potlatch_icar sprite
687       
688        $ec=new SWF::Sprite();
689       
690        $s=new SWF::Shape();
691        $s->setRightFill(190,190,190);
692        $s->movePenTo(-10.00,7.17);
693        $s->drawLineTo(19.00,7.17);
694        $s->drawLineTo(19.00,-10.00);
695        $s->drawLineTo(-10.00,-10.00);
696        $s->drawLineTo(-10.00,7.17);
697        $ec->add($s);
698       
699        $s=new SWF::Shape();
700        $s->setRightFill(255,255,255);
701        $s->movePenTo(10.82,3.30);
702        $s->drawCurveTo(10.86,2.02,11.77,1.31);
703        $s->drawCurveTo(12.75,0.54,13.93,0.79);
704        $s->drawCurveTo(17.07,1.47,15.72,4.37);
705        $s->drawCurveTo(14.37,7.25,11.84,5.36);
706        $s->drawCurveTo(10.86,4.63,10.82,3.30);
707        $ec->add($s);
708       
709        $s=new SWF::Shape();
710        $s->setRightFill(190,190,190);
711        $s->movePenTo(12.02,3.30);
712        $s->drawCurveTo(12.09,1.88,13.48,1.95);
713        $s->drawCurveTo(14.96,2.03,14.73,3.47);
714        $s->drawCurveTo(14.53,4.72,13.28,4.66);
715        $s->drawCurveTo(12.09,4.60,12.02,3.30);
716        $ec->add($s);
717       
718        $s=new SWF::Shape();
719        $s->setRightFill(255,255,255);
720        $s->movePenTo(-7.14,3.37);
721        $s->drawCurveTo(-7.10,2.08,-6.18,1.37);
722        $s->drawCurveTo(-5.20,0.59,-4.03,0.86);
723        $s->drawCurveTo(-0.92,1.56,-2.24,4.43);
724        $s->drawCurveTo(-3.57,7.33,-6.11,5.42);
725        $s->drawCurveTo(-7.10,4.68,-7.14,3.37);
726        $ec->add($s);
727       
728        $s=new SWF::Shape();
729        $s->setRightFill(190,190,190);
730        $s->movePenTo(-5.93,3.37);
731        $s->drawCurveTo(-5.86,1.94,-4.47,2.01);
732        $s->drawCurveTo(-3.00,2.09,-3.23,3.53);
733        $s->drawCurveTo(-3.42,4.78,-4.67,4.72);
734        $s->drawCurveTo(-5.87,4.66,-5.93,3.37);
735        $ec->add($s);
736       
737        $s=new SWF::Shape();
738        $s->setRightFill(255,255,255);
739        $s->movePenTo(-7.22,-2.70);
740        $s->drawCurveTo(-7.21,-2.73,-7.19,-2.77);
741        $s->drawCurveTo(-7.06,-3.15,-6.84,-3.60);
742        $s->drawCurveTo(-4.50,-8.53,0.05,-8.53);
743        $s->drawCurveTo(4.48,-8.53,8.98,-3.62);
744        $s->drawCurveTo(9.57,-2.97,9.75,-2.83);
745        $s->drawCurveTo(13.58,-2.33,15.54,-1.77);
746        $s->drawCurveTo(17.62,-1.16,17.64,1.82);
747        $s->drawCurveTo(17.64,1.87,17.64,1.96);
748        $s->drawCurveTo(17.64,2.04,17.64,2.05);
749        $s->drawCurveTo(17.64,3.26,16.63,3.43);
750        $s->drawCurveTo(16.74,1.87,15.89,0.90);
751        $s->drawCurveTo(15.02,-0.10,13.48,-0.15);
752        $s->drawCurveTo(11.90,-0.20,10.94,0.83);
753        $s->drawCurveTo(10.02,1.81,10.13,3.43);
754        $s->drawLineTo(-1.16,3.43);
755        $s->drawCurveTo(-1.05,1.88,-1.90,0.90);
756        $s->drawCurveTo(-2.76,-0.10,-4.30,-0.15);
757        $s->drawCurveTo(-5.91,-0.20,-6.85,0.83);
758        $s->drawCurveTo(-7.53,1.58,-7.78,3.07);
759        $s->drawLineTo(-8.76,2.80);
760        $s->drawCurveTo(-9.11,3.60,-7.80,-0.85);
761        $s->drawCurveTo(-7.46,-2.02,-7.22,-2.70);
762        $ec->add($s);
763       
764        $s=new SWF::Shape();
765        $s->setRightFill(190,190,190);
766        $s->movePenTo(8.25,-2.81);
767        $s->drawCurveTo(8.23,-2.83,8.21,-2.85);
768        $s->drawCurveTo(7.96,-3.10,7.65,-3.40);
769        $s->drawCurveTo(4.31,-6.61,2.57,-7.16);
770        $s->drawCurveTo(2.15,-7.29,1.44,-7.39);
771        $s->drawCurveTo(1.38,-7.40,1.33,-7.40);
772        $s->drawCurveTo(1.32,-7.41,1.32,-7.41);
773        $s->drawLineTo(1.37,-3.31);
774        $s->drawLineTo(8.25,-2.81);
775        $ec->add($s);
776       
777        $s=new SWF::Shape();
778        $s->setRightFill(190,190,190);
779        $s->movePenTo(0.40,-7.53);
780        $s->drawCurveTo(0.38,-7.53,0.35,-7.53);
781        $s->drawCurveTo(0.09,-7.54,-0.25,-7.50);
782        $s->drawCurveTo(-3.83,-7.08,-5.57,-3.43);
783        $s->drawLineTo(0.31,-3.27);
784        $s->drawLineTo(0.40,-7.53);
785        $ec->add($s);
786       
787        $s=new SWF::Shape();
788        $s->setRightFill(255,255,255);
789        $s->movePenTo(1.55,-1.77);
790        $s->drawLineTo(2.89,-1.68);
791        $s->drawLineTo(2.92,-2.18);
792        $s->drawLineTo(1.59,-2.27);
793        $s->drawLineTo(1.55,-1.77);
794        $ec->add($s);
795       
796        $s=new SWF::Shape();
797        $s->setRightFill(255,255,255);
798        $s->movePenTo(-1.07,-1.89);
799        $s->drawLineTo(0.26,-1.81);
800        $s->drawLineTo(0.29,-2.31);
801        $s->drawLineTo(-1.04,-2.39);
802        $s->drawLineTo(-1.07,-1.89);
803        $ec->add($s);
804       
805        $ec->nextFrame(); $m->addExport($ec,"preset_road");
806       
807        # ------ potlatch_icycle sprite
808       
809        $ec=new SWF::Sprite();
810       
811        $s=new SWF::Shape();
812        $s->setRightFill(190,190,190);
813        $s->movePenTo(-10.00,7.17);
814        $s->drawLineTo(19.00,7.17);
815        $s->drawLineTo(19.00,-10.00);
816        $s->drawLineTo(-10.00,-10.00);
817        $s->drawLineTo(-10.00,7.17);
818        $ec->add($s);
819       
820        $s=new SWF::Shape();
821        $s->setRightFill(255,255,255);
822        $s->movePenTo(9.43,-6.21);
823        $s->drawCurveTo(10.17,-3.43,10.35,-2.77);
824        $s->drawCurveTo(12.09,-3.33,13.45,-2.73);
825        $s->drawCurveTo(15.07,-2.01,15.70,-0.59);
826        $s->drawCurveTo(16.25,0.64,16.06,1.88);
827        $s->drawCurveTo(16.00,2.21,15.90,2.53);
828        $s->drawCurveTo(15.34,4.17,13.91,4.94);
829        $s->drawCurveTo(10.39,6.83,8.26,3.51);
830        $s->drawCurveTo(6.84,1.30,8.24,-1.01);
831        $s->drawCurveTo(8.67,-1.72,9.33,-2.21);
832        $s->drawCurveTo(9.40,-2.26,9.35,-2.45);
833        $s->drawCurveTo(9.34,-2.49,9.26,-2.71);
834        $s->drawCurveTo(9.25,-2.75,9.25,-2.77);
835        $s->drawCurveTo(8.10,-1.97,6.39,-0.77);
836        $s->drawCurveTo(5.01,0.19,4.70,0.41);
837        $s->drawCurveTo(4.70,0.42,4.41,0.61);
838        $s->drawCurveTo(4.37,0.65,4.33,0.67);
839        $s->drawCurveTo(4.32,0.68,4.38,1.21);
840        $s->drawCurveTo(4.39,1.29,4.39,1.31);
841        $s->drawCurveTo(4.39,2.37,3.41,2.80);
842        $s->drawCurveTo(2.91,3.03,2.46,2.98);
843        $s->drawCurveTo(2.46,2.98,2.28,2.94);
844        $s->drawCurveTo(2.11,2.90,2.07,2.98);
845        $s->drawCurveTo(1.98,3.18,1.84,3.49);
846        $s->drawCurveTo(1.84,3.49,2.27,3.49);
847        $s->drawCurveTo(2.35,3.49,2.33,3.74);
848        $s->drawCurveTo(2.32,3.80,2.32,3.82);
849        $s->drawCurveTo(2.32,3.83,2.33,3.94);
850        $s->drawCurveTo(2.34,4.06,2.24,4.06);
851        $s->drawCurveTo(2.24,4.06,2.08,4.05);
852        $s->drawCurveTo(1.86,4.03,1.81,4.10);
853        $s->drawCurveTo(1.52,4.45,1.16,4.19);
854        $s->drawCurveTo(0.98,4.06,0.90,4.06);
855        $s->drawCurveTo(0.90,4.06,0.77,4.07);
856        $s->drawCurveTo(0.54,4.08,0.54,4.01);
857        $s->drawCurveTo(0.54,4.01,0.54,3.53);
858        $s->drawCurveTo(0.54,3.46,0.81,3.48);
859        $s->drawCurveTo(0.83,3.49,0.84,3.49);
860        $s->drawCurveTo(0.84,3.49,1.29,3.49);
861        $s->drawCurveTo(1.31,3.49,1.43,3.19);
862        $s->drawCurveTo(1.45,3.15,1.45,3.14);
863        $s->drawCurveTo(1.58,2.87,1.65,2.72);
864        $s->drawCurveTo(1.65,2.71,1.41,2.51);
865        $s->drawCurveTo(1.38,2.48,1.37,2.47);
866        $s->drawCurveTo(1.05,2.16,0.95,1.81);
867        $s->drawCurveTo(0.89,1.61,0.71,1.61);
868        $s->drawCurveTo(0.47,1.61,0.45,1.80);
869        $s->drawCurveTo(0.41,2.12,0.26,2.60);
870        $s->drawCurveTo(0.06,3.30,-0.49,3.93);
871        $s->drawCurveTo(-1.60,5.23,-3.23,5.44);
872        $s->drawCurveTo(-7.10,5.93,-7.94,2.04);
873        $s->drawCurveTo(-8.18,0.94,-7.77,-0.21);
874        $s->drawCurveTo(-7.62,-0.63,-7.38,-1.03);
875        $s->drawCurveTo(-6.59,-2.35,-4.89,-2.89);
876        $s->drawCurveTo(-4.16,-3.12,-3.37,-3.02);
877        $s->drawCurveTo(-2.87,-2.95,-2.54,-2.86);
878        $s->drawCurveTo(-2.10,-2.73,-2.07,-2.79);
879        $s->drawCurveTo(-2.06,-2.80,-1.45,-3.86);
880        $s->drawCurveTo(-1.21,-4.27,-1.04,-4.57);
881        $s->drawCurveTo(-1.04,-4.58,-0.62,-5.30);
882        $s->drawCurveTo(-0.58,-5.36,-0.55,-5.42);
883        $s->drawCurveTo(-0.44,-5.61,-0.47,-5.72);
884        $s->drawCurveTo(-0.48,-5.75,-0.51,-5.83);
885        $s->drawCurveTo(-0.51,-5.83,-0.65,-6.22);
886        $s->drawCurveTo(-0.68,-6.29,-0.70,-6.35);
887        $s->drawCurveTo(-0.76,-6.52,-0.94,-6.55);
888        $s->drawCurveTo(-1.27,-6.60,-1.59,-6.93);
889        $s->drawCurveTo(-1.86,-7.19,-1.90,-7.46);
890        $s->drawCurveTo(-1.91,-7.53,-1.89,-7.58);
891        $s->drawCurveTo(-1.84,-7.67,-1.50,-7.65);
892        $s->drawCurveTo(-1.48,-7.65,-1.47,-7.65);
893        $s->drawCurveTo(-1.47,-7.65,0.73,-7.65);
894        $s->drawCurveTo(0.73,-7.65,1.68,-7.65);
895        $s->drawCurveTo(2.04,-7.65,2.15,-7.56);
896        $s->drawCurveTo(2.44,-7.30,2.15,-7.04);
897        $s->drawCurveTo(2.09,-6.98,1.72,-6.90);
898        $s->drawCurveTo(1.72,-6.90,0.34,-6.59);
899        $s->drawCurveTo(0.63,-5.80,0.67,-5.71);
900        $s->drawCurveTo(0.73,-5.53,0.84,-5.53);
901        $s->drawCurveTo(0.84,-5.53,2.25,-5.53);
902        $s->drawCurveTo(2.25,-5.53,6.95,-5.53);
903        $s->drawCurveTo(6.95,-5.53,8.51,-5.53);
904        $s->drawCurveTo(8.25,-6.48,8.39,-6.82);
905        $s->drawCurveTo(8.43,-6.92,8.50,-7.02);
906        $s->drawCurveTo(8.50,-7.02,8.73,-7.22);
907        $s->drawCurveTo(8.94,-7.41,8.83,-7.55);
908        $s->drawCurveTo(8.75,-7.65,8.20,-7.65);
909        $s->drawCurveTo(8.20,-7.65,7.11,-7.65);
910        $s->drawCurveTo(7.02,-7.65,7.02,-7.72);
911        $s->drawCurveTo(7.02,-7.72,7.02,-8.29);
912        $s->drawCurveTo(7.02,-8.29,7.02,-8.71);
913        $s->drawCurveTo(7.02,-8.73,7.17,-8.72);
914        $s->drawCurveTo(7.19,-8.72,7.20,-8.72);
915        $s->drawCurveTo(7.20,-8.72,8.31,-8.72);
916        $s->drawCurveTo(9.12,-8.72,9.34,-8.67);
917        $s->drawCurveTo(9.80,-8.57,10.07,-7.98);
918        $s->drawCurveTo(10.27,-7.56,9.98,-7.00);
919        $s->drawCurveTo(9.97,-6.98,9.58,-6.60);
920        $s->drawCurveTo(9.40,-6.42,9.43,-6.21);
921        $ec->add($s);
922       
923        $s=new SWF::Shape();
924        $s->setRightFill(190,190,190);
925        $s->movePenTo(9.99,-0.01);
926        $s->drawCurveTo(9.99,-0.01,9.80,-0.72);
927        $s->drawCurveTo(9.77,-0.82,9.75,-0.90);
928        $s->drawCurveTo(8.45,0.55,9.00,2.09);
929        $s->drawCurveTo(9.65,3.88,11.31,4.15);
930        $s->drawCurveTo(13.20,4.44,14.20,3.04);
931        $s->drawCurveTo(15.05,1.86,14.75,0.55);
932        $s->drawCurveTo(14.68,0.24,14.54,-0.05);
933        $s->drawCurveTo(13.76,-1.66,11.94,-1.76);
934        $s->drawCurveTo(11.53,-1.78,11.17,-1.68);
935        $s->drawCurveTo(10.96,-1.63,10.75,-1.55);
936        $s->drawCurveTo(10.66,-1.52,10.71,-1.38);
937        $s->drawCurveTo(10.71,-1.38,10.74,-1.29);
938        $s->drawCurveTo(10.75,-1.25,10.76,-1.23);
939        $s->drawCurveTo(11.03,-0.20,11.42,0.26);
940        $s->drawCurveTo(11.55,0.43,11.83,0.68);
941        $s->drawCurveTo(11.83,0.68,12.05,0.84);
942        $s->drawCurveTo(12.20,0.94,12.23,1.05);
943        $s->drawCurveTo(12.33,1.33,12.12,1.54);
944        $s->drawCurveTo(11.98,1.69,11.57,1.59);
945        $s->drawCurveTo(10.43,1.31,9.99,-0.01);
946        $ec->add($s);
947       
948        $s=new SWF::Shape();
949        $s->setRightFill(190,190,190);
950        $s->movePenTo(4.70,-1.62);
951        $s->drawLineTo(4.70,-1.05);
952        $s->drawLineTo(4.02,-1.05);
953        $s->drawLineTo(3.60,-0.26);
954        $s->drawLineTo(3.71,-0.19);
955        $s->drawLineTo(8.86,-3.80);
956        $s->drawLineTo(8.69,-4.46);
957        $s->drawLineTo(1.12,-4.46);
958        $s->drawLineTo(2.54,-0.56);
959        $s->drawLineTo(3.10,-0.49);
960        $s->drawLineTo(3.41,-1.05);
961        $s->drawLineTo(2.98,-1.05);
962        $s->drawLineTo(2.98,-1.62);
963        $s->drawCurveTo(3.01,-1.62,3.04,-1.62);
964        $s->drawCurveTo(3.38,-1.58,3.42,-1.64);
965        $s->drawCurveTo(3.82,-2.13,4.24,-1.62);
966        $s->drawLineTo(4.70,-1.62);
967        $ec->add($s);
968       
969        $s=new SWF::Shape();
970        $s->setRightFill(190,190,190);
971        $s->movePenTo(-0.81,0.83);
972        $s->drawCurveTo(-0.81,0.83,-2.92,0.83);
973        $s->drawCurveTo(-2.20,-0.43,-1.84,-1.06);
974        $s->drawCurveTo(-1.00,-0.27,-0.81,0.83);
975        $ec->add($s);
976       
977        $s=new SWF::Shape();
978        $s->setRightFill(190,190,190);
979        $s->movePenTo(0.04,-4.31);
980        $s->drawCurveTo(0.04,-4.30,-0.78,-2.90);
981        $s->drawCurveTo(-0.84,-2.80,-0.89,-2.70);
982        $s->drawCurveTo(-0.89,-2.70,-0.94,-2.63);
983        $s->drawCurveTo(-1.21,-2.19,-1.19,-2.17);
984        $s->drawCurveTo(-0.80,-1.86,-0.60,-1.62);
985        $s->drawCurveTo(-0.07,-1.00,0.24,-0.22);
986        $s->drawCurveTo(0.38,0.14,0.43,0.50);
987        $s->drawCurveTo(0.43,0.51,0.44,0.64);
988        $s->drawCurveTo(0.45,0.83,0.53,0.83);
989        $s->drawCurveTo(0.89,0.83,0.91,0.75);
990        $s->drawCurveTo(1.01,0.41,1.20,0.16);
991        $s->drawCurveTo(1.20,0.16,1.42,-0.07);
992        $s->drawCurveTo(1.55,-0.20,1.54,-0.21);
993        $s->drawCurveTo(1.54,-0.22,1.28,-0.92);
994        $s->drawCurveTo(1.18,-1.19,1.11,-1.39);
995        $s->drawCurveTo(0.42,-3.29,0.04,-4.31);
996        $ec->add($s);
997       
998        $s=new SWF::Shape();
999        $s->setRightFill(190,190,190);
1000        $s->movePenTo(1.49,1.22);
1001        $s->drawCurveTo(1.56,0.28,2.31,0.13);
1002        $s->drawCurveTo(3.15,-0.05,3.61,0.66);
1003        $s->drawCurveTo(4.97,2.75,2.43,2.34);
1004        $s->drawCurveTo(2.24,2.31,2.07,2.21);
1005        $s->drawCurveTo(1.54,1.88,1.49,1.22);
1006        $ec->add($s);
1007       
1008        $s=new SWF::Shape();
1009        $s->setRightFill(190,190,190);
1010        $s->movePenTo(-4.27,1.02);
1011        $s->drawCurveTo(-4.57,1.66,-3.23,1.61);
1012        $s->drawCurveTo(-3.13,1.61,-3.09,1.61);
1013        $s->drawCurveTo(-3.09,1.61,-0.81,1.61);
1014        $s->drawCurveTo(-1.16,3.50,-2.74,4.01);
1015        $s->drawCurveTo(-4.55,4.60,-5.77,3.42);
1016        $s->drawCurveTo(-7.13,2.11,-6.64,0.44);
1017        $s->drawCurveTo(-6.12,-1.38,-4.37,-1.70);
1018        $s->drawCurveTo(-3.61,-1.84,-2.76,-1.59);
1019        $s->drawCurveTo(-3.78,0.18,-4.27,1.02);
1020        $ec->add($s);
1021       
1022        $ec->nextFrame(); $m->addExport($ec,"preset_cycleway");
1023       
1024        # ------ potlatch_itrain sprite
1025       
1026        $ec=new SWF::Sprite();
1027       
1028        $s=new SWF::Shape();
1029        $s->setRightFill(190,190,190);
1030        $s->movePenTo(-10.00,7.17);
1031        $s->drawLineTo(19.00,7.17);
1032        $s->drawLineTo(19.00,-10.00);
1033        $s->drawLineTo(-10.00,-10.00);
1034        $s->drawLineTo(-10.00,7.17);
1035        $ec->add($s);
1036       
1037        $s=new SWF::Shape();
1038        $s->setRightFill(255,255,255);
1039        $s->movePenTo(2.12,4.24);
1040        $s->drawCurveTo(2.16,3.21,2.88,2.64);
1041        $s->drawCurveTo(3.66,2.02,4.61,2.23);
1042        $s->drawCurveTo(7.12,2.77,6.04,5.09);
1043        $s->drawCurveTo(4.96,7.40,2.94,5.88);
1044        $s->drawCurveTo(2.16,5.29,2.12,4.24);
1045        $ec->add($s);
1046       
1047       
1048        $s=new SWF::Shape();
1049        $s->setRightFill(255,255,255);
1050        $s->movePenTo(7.13,4.24);
1051        $s->drawCurveTo(7.16,3.21,7.89,2.64);
1052        $s->drawCurveTo(8.67,2.02,9.62,2.23);
1053        $s->drawCurveTo(12.13,2.77,11.05,5.09);
1054        $s->drawCurveTo(9.97,7.40,7.95,5.88);
1055        $s->drawCurveTo(7.17,5.29,7.13,4.24);
1056        $ec->add($s);
1057       
1058        $s=new SWF::Shape();
1059        $s->setRightFill(255,255,255);
1060        $s->movePenTo(15.27,-1.30);
1061        $s->drawCurveTo(15.76,-0.83,16.02,-0.52);
1062        $s->drawCurveTo(16.04,-0.49,16.06,-0.47);
1063        $s->drawCurveTo(16.06,-0.47,16.07,-0.46);
1064        $s->drawCurveTo(16.12,-0.42,16.17,-0.35);
1065        $s->drawCurveTo(16.71,0.33,16.15,1.11);
1066        $s->drawCurveTo(15.60,1.89,13.73,3.35);
1067        $s->drawCurveTo(13.55,3.49,13.41,3.59);
1068        $s->drawCurveTo(13.40,3.60,13.39,3.61);
1069        $s->drawCurveTo(13.34,3.64,13.28,3.67);
1070        $s->drawCurveTo(12.68,4.01,12.20,4.01);
1071        $s->drawCurveTo(11.99,4.01,-5.15,4.08);
1072        $s->drawCurveTo(-6.72,4.09,-8.04,4.09);
1073        $s->drawCurveTo(-8.16,4.09,-8.25,4.09);
1074        $s->drawCurveTo(-8.26,4.09,-8.26,4.09);
1075        $s->drawLineTo(-8.25,-7.49);
1076        $s->drawLineTo(6.94,-7.49);
1077        $s->drawCurveTo(6.94,-7.49,6.95,-7.49);
1078        $s->drawCurveTo(7.00,-7.49,7.08,-7.48);
1079        $s->drawCurveTo(7.96,-7.39,9.44,-6.39);
1080        $s->drawCurveTo(9.63,-6.26,10.18,-5.81);
1081        $s->drawCurveTo(10.23,-5.77,10.27,-5.74);
1082        $s->drawCurveTo(10.27,-5.73,10.28,-5.73);
1083        $s->drawLineTo(8.18,-5.73);
1084        $s->drawLineTo(12.52,-1.30);
1085        $s->drawLineTo(15.27,-1.30);
1086        $ec->add($s);
1087       
1088        $s=new SWF::Shape();
1089        $s->setRightFill(190,190,190);
1090        $s->movePenTo(6.62,-3.06);
1091        $s->drawLineTo(9.50,-3.06);
1092        $s->drawLineTo(11.29,-1.32);
1093        $s->drawLineTo(6.62,-1.32);
1094        $s->drawLineTo(6.62,-3.06);
1095        $ec->add($s);
1096       
1097        $s=new SWF::Shape();
1098        $s->setRightFill(190,190,190);
1099        $s->movePenTo(1.27,-1.32);
1100        $s->drawLineTo(-8.45,-1.32);
1101        $s->drawLineTo(-8.45,-3.06);
1102        $s->drawLineTo(1.27,-3.06);
1103        $s->drawLineTo(1.27,-1.32);
1104        $ec->add($s);
1105       
1106        $s=new SWF::Shape();
1107        $s->setLine(0.50,255,255,255);
1108        $s->setRightFill(190,190,190);
1109        $s->movePenTo(1.74,-6.13);
1110        $s->drawLineTo(6.22,-6.13);
1111        $s->drawLineTo(6.22,1.29);
1112        $s->drawLineTo(1.74,1.29);
1113        $s->drawLineTo(1.74,-6.13);
1114        $ec->add($s);
1115       
1116        $s=new SWF::Shape();
1117        $s->setRightFill(190,190,190);
1118        $s->movePenTo(13.00,4.20);
1119        $s->drawLineTo(-8.45,4.20);
1120        $s->drawLineTo(-8.45,3.87);
1121        $s->drawLineTo(13.00,3.87);
1122        $s->drawLineTo(13.00,4.20);
1123        $ec->add($s);
1124       
1125        $ec->nextFrame(); $m->addExport($ec,"preset_railway");
1126       
1127        # ------ potlatch_iwalking sprite
1128       
1129        $ec=new SWF::Sprite();
1130       
1131        $s=new SWF::Shape();
1132        $s->setRightFill(190,190,190);
1133        $s->movePenTo(-10.00,7.17);
1134        $s->drawLineTo(19.00,7.17);
1135        $s->drawLineTo(19.00,-10.00);
1136        $s->drawLineTo(-10.00,-10.00);
1137        $s->drawLineTo(-10.00,7.17);
1138        $ec->add($s);
1139       
1140        $s=new SWF::Shape();
1141        $s->setRightFill(255,255,255);
1142        $s->movePenTo(-0.14,-0.20);
1143        $s->drawCurveTo(-0.80,-1.72,-0.28,-3.26);
1144        $s->drawCurveTo(0.44,-1.75,2.08,-1.21);
1145        $s->drawCurveTo(2.08,-1.21,2.27,-1.15);
1146        $s->drawCurveTo(3.15,-0.84,3.27,-1.13);
1147        $s->drawCurveTo(3.40,-1.42,3.44,-1.59);
1148        $s->drawCurveTo(3.48,-1.79,3.44,-1.88);
1149        $s->drawCurveTo(3.44,-1.88,2.99,-1.97);
1150        $s->drawCurveTo(2.98,-1.97,2.97,-1.97);
1151        $s->drawCurveTo(1.97,-2.32,1.34,-3.14);
1152        $s->drawCurveTo(1.34,-3.15,0.70,-4.57);
1153        $s->drawCurveTo(0.64,-4.68,0.59,-4.78);
1154        $s->drawCurveTo(0.40,-5.12,0.12,-5.46);
1155        $s->drawCurveTo(0.12,-5.46,-0.18,-5.73);
1156        $s->drawCurveTo(-0.40,-5.93,-0.40,-6.02);
1157        $s->drawCurveTo(-0.41,-6.06,-0.05,-6.36);
1158        $s->drawCurveTo(0.22,-6.58,0.32,-6.92);
1159        $s->drawCurveTo(1.09,-9.39,-1.26,-8.25);
1160        $s->drawCurveTo(-1.93,-7.93,-1.90,-7.18);
1161        $s->drawCurveTo(-1.90,-7.18,-1.68,-6.62);
1162        $s->drawCurveTo(-1.55,-6.27,-1.83,-6.25);
1163        $s->drawCurveTo(-3.73,-6.14,-4.82,-3.89);
1164        $s->drawCurveTo(-5.28,-2.97,-5.41,-1.99);
1165        $s->drawCurveTo(-5.45,-1.67,-5.62,-1.46);
1166        $s->drawCurveTo(-5.74,-1.32,-5.66,-1.11);
1167        $s->drawCurveTo(-5.35,-0.25,-4.52,-0.61);
1168        $s->drawCurveTo(-4.34,-0.69,-4.34,-0.92);
1169        $s->drawCurveTo(-4.34,-0.93,-4.42,-1.67);
1170        $s->drawCurveTo(-4.45,-1.89,-4.43,-2.06);
1171        $s->drawCurveTo(-4.42,-2.12,-4.41,-2.19);
1172        $s->drawCurveTo(-4.27,-2.81,-3.23,-3.71);
1173        $s->drawCurveTo(-3.07,-0.08,-6.07,3.03);
1174        $s->drawCurveTo(-6.07,3.03,-6.46,3.35);
1175        $s->drawCurveTo(-6.75,3.59,-6.77,3.69);
1176        $s->drawCurveTo(-6.81,3.82,-6.25,4.65);
1177        $s->drawCurveTo(-6.20,4.74,-6.17,4.78);
1178        $s->drawCurveTo(-5.95,5.20,-5.04,5.31);
1179        $s->drawCurveTo(-4.63,5.36,-4.96,5.08);
1180        $s->drawCurveTo(-4.96,5.08,-4.97,5.07);
1181        $s->drawCurveTo(-5.24,4.87,-5.44,4.04);
1182        $s->drawCurveTo(-5.47,3.90,-4.29,2.88);
1183        $s->drawCurveTo(-4.16,2.76,-4.11,2.71);
1184        $s->drawCurveTo(-2.93,1.45,-2.18,-0.20);
1185        $s->drawCurveTo(-0.12,2.55,0.61,5.94);
1186        $s->drawCurveTo(1.36,5.62,1.75,5.46);
1187        $s->drawCurveTo(1.75,5.45,2.16,5.32);
1188        $s->drawCurveTo(2.78,5.12,2.83,4.98);
1189        $s->drawCurveTo(2.91,4.74,2.26,4.72);
1190        $s->drawCurveTo(2.21,4.72,2.18,4.72);
1191        $s->drawCurveTo(2.18,4.72,1.62,4.66);
1192        $s->drawCurveTo(1.51,4.65,1.43,4.64);
1193        $s->drawCurveTo(1.35,4.63,1.33,4.20);
1194        $s->drawCurveTo(1.33,4.18,1.33,4.16);
1195        $s->drawCurveTo(1.21,3.05,0.86,1.91);
1196        $s->drawCurveTo(0.81,1.75,-0.14,-0.20);
1197        $ec->add($s);
1198       
1199        $ec->nextFrame(); $m->addExport($ec,"preset_footway");
1200       
1201       
1202
1203
1204
1205
1206        #               add new attribute
1207       
1208        $ec=new SWF::Sprite();
1209
1210        $s=new SWF::Shape();
1211        $s->setRightFill(127,127,127);
1212        drawSmallCircle();
1213        $ec->add($s);
1214       
1215        $s=new SWF::Shape();
1216        $s->setRightFill(255,255,255);
1217        $s->movePenTo(-1.62,1.83);
1218        $s->drawLineTo(-3.38,1.83);
1219        $s->drawLineTo(-3.38,-6.83);
1220        $s->drawLineTo(-1.62,-6.83);
1221        $s->drawLineTo(-1.62,1.83);
1222        $ec->add($s);
1223       
1224        $s=new SWF::Shape();
1225        $s->setRightFill(255,255,255);
1226        $s->movePenTo(1.83,-3.38);
1227        $s->drawLineTo(1.83,-1.62);
1228        $s->drawLineTo(-6.83,-1.62);
1229        $s->drawLineTo(-6.83,-3.38);
1230        $s->drawLineTo(1.83,-3.38);
1231        $ec->add($s);
1232       
1233        $ec->nextFrame();
1234        $m->addExport($ec,"newattr");
1235       
1236        #               repeat last attributes
1237       
1238        $ec=new SWF::Sprite();
1239       
1240        $s=new SWF::Shape();
1241        $s->setRightFill(127,127,127);
1242        drawSmallCircle();
1243        $ec->add($s);
1244       
1245        $s=new SWF::Shape();
1246        $s->setRightFill(255,255,255);
1247        $s->movePenTo(-6.03,1.04);
1248        $s->drawCurveTo(-2.57,4.50,0.89,1.04);
1249        $s->drawLineTo(-0.45,-0.30);
1250        $s->drawCurveTo(-2.56,1.80,-4.69,-0.30);
1251        $s->drawCurveTo(-4.69,-0.30,-4.69,-0.30);
1252        $s->drawCurveTo(-6.30,-1.91,-5.19,-3.89);
1253        $s->drawCurveTo(-4.99,-4.25,-4.69,-4.55);
1254        $s->drawCurveTo(-2.57,-6.67,-0.45,-4.55);
1255        $s->drawLineTo(0.89,-5.89);
1256        $s->drawCurveTo(-2.57,-9.35,-6.03,-5.89);
1257        $s->drawCurveTo(-8.36,-3.56,-7.08,-0.51);
1258        $s->drawCurveTo(-6.71,0.36,-6.03,1.04);
1259        $ec->add($s);
1260       
1261        $s=new SWF::Shape();
1262        $s->setRightFill(255,255,255);
1263        $s->movePenTo(-2.14,-3.35);
1264        $s->drawLineTo(2.31,-2.90);
1265        $s->drawLineTo(1.86,-7.35);
1266        $s->drawLineTo(-2.14,-3.35);
1267        $ec->add($s);
1268       
1269        $ec->nextFrame();
1270        $m->addExport($ec,"repeatattr");
1271       
1272        #               next page of attributes
1273       
1274        $ec=new SWF::Sprite();
1275       
1276        $s=new SWF::Shape();
1277        $s->setRightFill(127,127,127);
1278        drawSmallCircle();
1279        $ec->add($s);
1280       
1281        $s=new SWF::Shape();
1282        $s->setRightFill(255,255,255);
1283        $s->movePenTo(-6.35,1.09);
1284        $s->drawLineTo(-1.78,-2.64);
1285        $s->drawLineTo(-6.35,-6.38);
1286        $s->drawLineTo(-6.35,1.09);
1287        $ec->add($s);
1288       
1289        $s=new SWF::Shape();
1290        $s->setRightFill(255,255,255);
1291        $s->movePenTo(-1.69,1.09);
1292        $s->drawLineTo(2.87,-2.64);
1293        $s->drawLineTo(-1.69,-6.38);
1294        $s->drawLineTo(-1.69,1.09);
1295        $ec->add($s);
1296       
1297        $ec->nextFrame();
1298        $m->addExport($ec,"nextattr");
1299       
1300        #               pointers
1301        #               compasses
1302
1303        # ----- Set up screen layout
1304
1305        #               Properties window
1306
1307        $ch=new SWF::Shape();
1308        $ch->setLine(1,0xCC,0xCC,0xCC);
1309        $ch->setRightFill(0xF3,0xF3,0xF3);
1310        $ch->movePenTo(0,500); $ch->drawLine( 699,0);
1311        $ch->drawLine (0,99 ); $ch->drawLine(-699,0);
1312        $ch->drawLine (0,-99); $m->add($ch);
1313        $m->add($ch);
1314
1315        $ch=new SWF::Shape();
1316        $ch->setLine(1,0xCC,0xCC,0xCC);
1317        $ch->movePen(100,500); $ch->drawLine (0,99 );
1318        $i=$m->add($ch);
1319
1320#       #               Centre crosshair
1321       
1322#       $ch=new SWF::Shape();
1323#       $ch->setLine(1,0xFF,0xFF,0xFF);
1324#       $ch->movePenTo(-2,0); $ch->drawLine(-10,0);
1325#       $ch->movePenTo( 2,0); $ch->drawLine( 10,0);
1326#       $ch->movePenTo(0,-2); $ch->drawLine(0,-10);
1327#       $ch->movePenTo(0, 2); $ch->drawLine(0, 10);
1328#       $i=$m->add($ch); $i->moveTo(350,250); $i->setDepth(5002);
1329       
1330        #               Map background
1331
1332        #               ..mask
1333
1334        $maskSprite=new SWF::MovieClip();
1335        $maskShape =new SWF::Shape();
1336        $maskShape->setLine(1,0,0,0);
1337        $maskShape->setRightFill($maskShape->addFill(0xE0,0xE0,0xFF));
1338        $maskShape->movePenTo(0,0);
1339        $maskShape->drawLine( 700,0); $maskShape->drawLine(0,500);
1340        $maskShape->drawLine(-700,0); $maskShape->drawLine(0,-500);
1341        $maskSprite->add($maskShape);
1342        $maskSprite->nextFrame();
1343        $i=$m->add($maskSprite);
1344        $i->setName("masksquare");
1345
1346        $maskSprite=new SWF::MovieClip();
1347        $maskShape =new SWF::Shape();
1348        $maskShape->setRightFill($maskShape->addFill(0xF3,0xF3,0xF3));
1349        $maskShape->movePenTo(0,500);
1350        $maskShape->drawLine( 700,0); $maskShape->drawLine(0,200);
1351        $maskShape->drawLine(-700,0); $maskShape->drawLine(0,-200);
1352        $maskSprite->add($maskShape);
1353        $maskSprite->nextFrame();
1354        $i=$m->add($maskSprite);
1355        $i->setName("masksquare2");
1356
1357
1358        # ====== pointers
1359       
1360        # ------ hand pointer
1361       
1362        $ec=new SWF::Sprite();
1363       
1364        $s=new SWF::Shape();
1365        $s->setLine(0.94,0,0,0);
1366        $s->setRightFill(255,255,255);
1367        $s->movePenTo(6.00,14.57);
1368        $s->drawLineTo(6.00,14.21);
1369        $s->drawCurveTo(5.98,14.04,8.06,10.29);
1370        $s->drawCurveTo(9.24,8.17,9.50,5.56);
1371        $s->drawCurveTo(9.79,2.68,8.06,2.68);
1372        $s->drawCurveTo(7.02,2.68,6.67,4.94);
1373        $s->drawCurveTo(6.64,5.15,6.62,5.32);
1374        $s->drawCurveTo(6.62,5.34,6.62,5.35);
1375        $s->drawCurveTo(6.62,5.35,6.62,2.88);
1376        $s->drawCurveTo(6.62,1.30,5.18,0.82);
1377        $s->drawCurveTo(4.13,0.48,3.96,4.60);
1378        $s->drawCurveTo(3.94,4.98,3.94,5.30);
1379        $s->drawCurveTo(3.94,5.33,3.94,5.35);
1380        $s->drawCurveTo(3.94,5.35,3.94,1.85);
1381        $s->drawCurveTo(3.94,0.00,2.29,0.00);
1382        $s->drawCurveTo(0.91,0.00,1.02,4.33);
1383        $s->drawCurveTo(1.03,4.74,1.05,5.09);
1384        $s->drawCurveTo(1.06,5.12,1.06,5.14);
1385        $s->drawCurveTo(1.06,5.13,1.06,5.13);
1386        $s->drawCurveTo(1.04,5.03,1.02,4.90);
1387        $s->drawCurveTo(0.79,3.54,0.44,2.68);
1388        $s->drawCurveTo(-0.45,0.45,-2.03,1.24);
1389        $s->drawCurveTo(-3.46,1.95,-1.78,5.47);
1390        $s->drawCurveTo(-1.31,6.47,-0.70,7.45);
1391        $s->drawCurveTo(-0.64,7.54,-0.60,7.61);
1392        $s->drawCurveTo(-0.59,7.61,-0.59,7.62);
1393        $s->drawCurveTo(-0.59,7.61,-0.59,7.61);
1394        $s->drawCurveTo(-0.62,7.55,-0.67,7.47);
1395        $s->drawCurveTo(-1.16,6.66,-2.03,5.97);
1396        $s->drawCurveTo(-3.26,4.98,-4.50,5.97);
1397        $s->drawCurveTo(-5.76,6.98,-2.24,10.50);
1398        $s->drawCurveTo(-1.02,11.72,-0.29,14.01);
1399        $s->drawCurveTo(-0.23,14.22,-0.18,14.39);
1400        $s->drawCurveTo(-0.18,14.40,-0.18,14.41);
1401        $s->drawLineTo(-0.18,14.66);
1402        $s->drawLineTo(6.00,14.57);
1403        $ec->add($s);
1404       
1405        $ec->nextFrame(); $m->addExport($ec,"hand");
1406
1407        # ------ pen pointer
1408       
1409        $ec=new SWF::Sprite();
1410        drawPen();
1411        $ec->nextFrame(); $m->addExport($ec,"pen");
1412       
1413        # ------ penx pointer
1414       
1415        $ec=new SWF::Sprite();
1416        drawPen();
1417        $s=new SWF::Shape();
1418        $s->setLine(3,0,0,0);
1419        $s->movePenTo(5,18);
1420        $s->drawLine(5,-5); $s->movePen(-5,0); $s->drawLine(5,5);
1421        $ec->add($s);
1422        $ec->nextFrame(); $m->addExport($ec,"penx");
1423       
1424        # ------ penplus pointer
1425       
1426        $ec=new SWF::Sprite();
1427        drawPen();
1428        $s=new SWF::Shape();
1429        $s->setLine(3,0,0,0);
1430        $s->movePenTo(6,14);
1431        $s->drawLine(0,5); $s->movePen(-2,-3); $s->drawLine(5,0);
1432        $ec->add($s);
1433        $ec->nextFrame(); $m->addExport($ec,"penplus");
1434       
1435        # ------ peno pointer
1436       
1437        $ec=new SWF::Sprite();
1438        drawPen();
1439        $s=new SWF::Shape();
1440        $s->setLine(2,0,0,0);
1441        $s->setRightFill(255,255,255);
1442        $s->movePenTo(7,16); $s->drawCircle(2);
1443        $ec->add($s);
1444        $ec->nextFrame(); $m->addExport($ec,"peno");
1445       
1446        # ------ penso pointer (solid o)
1447       
1448        $ec=new SWF::Sprite();
1449        drawPen();
1450        $s=new SWF::Shape();
1451        $s->setLine(2,0,0,0);
1452        $s->setRightFill(0,0,0);
1453        $s->movePenTo(7,16); $s->drawCircle(2);
1454        $ec->add($s);
1455        $ec->nextFrame(); $m->addExport($ec,"penso");
1456       
1457
1458
1459
1460        # ----- repeated drawing instructions
1461
1462        sub drawLargeCircle {
1463                $s->movePenTo(-10.00,0.00);
1464                $s->drawCurveTo(-10.00,-6.72,-3.75,-9.27);
1465                $s->drawCurveTo(-1.96,-10.00,0.00,-10.00);
1466                $s->drawCurveTo(7.41,-10.00,9.58,-2.89);
1467                $s->drawCurveTo(10.00,-1.48,10.00,0.00);
1468                $s->drawCurveTo(10.00,6.72,3.75,9.27);
1469                $s->drawCurveTo(1.96,10.00,0.00,10.00);
1470                $s->drawCurveTo(-7.41,10.00,-9.58,2.89);
1471                $s->drawCurveTo(-10.00,1.48,-10.00,0.00);
1472        }
1473
1474       
1475        sub drawSmallCircle {
1476                $s->movePenTo(-10.00,-2.50);
1477                $s->drawCurveTo(-10.00,-8.58,-4.03,-9.84);
1478                $s->drawCurveTo(-3.28,-10.00,-2.50,-10.00);
1479                $s->drawCurveTo(3.90,-10.00,4.91,-3.67);
1480                $s->drawCurveTo(5.00,-3.09,5.00,-2.50);
1481                $s->drawCurveTo(5.00,3.58,-0.97,4.84);
1482                $s->drawCurveTo(-1.72,5.00,-2.50,5.00);
1483                $s->drawCurveTo(-8.90,5.00,-9.91,-1.33);
1484                $s->drawCurveTo(-10.00,-1.91,-10.00,-2.50);
1485        }
1486
1487        sub drawPen {
1488                $s=new SWF::Shape();
1489                $s->setLine(1.08,0,0,0);
1490                $s->setRightFill(255,255,255);
1491                $s->movePenTo(-2.13,13.97);
1492                $s->drawLineTo(-4.50,8.76);
1493                $s->drawLineTo(-0.00,0.00);
1494                $s->drawLineTo(4.50,8.76);
1495                $s->drawLineTo(1.89,13.97);
1496                $s->drawLineTo(-2.13,13.97);
1497                $ec->add($s);
1498               
1499                $s=new SWF::Shape();
1500                $s->setLine(1.08,130,130,130);
1501                $s->movePenTo(-0.00,8.53);
1502                $s->drawLineTo(-0.00,1.90);
1503                $s->drawLineTo(-0.20,1.90);
1504                $s->drawLineTo(-0.20,8.53);
1505                $s->drawLineTo(-0.00,8.53);
1506                $ec->add($s);
1507               
1508                $s=new SWF::Shape();
1509                $s->setLine(1.08,0,0,0);
1510                $s->movePenTo(-3.79,13.97);
1511                $s->drawLineTo(4.03,13.97);
1512                $ec->add($s);
1513               
1514                $s=new SWF::Shape();
1515                $s->setRightFill(0,0,0);
1516                $s->movePenTo(2.60,14.21);
1517                $s->drawLineTo(-2.61,14.21);
1518                $s->drawLineTo(-2.61,17.53);
1519                $s->drawLineTo(2.60,17.53);
1520                $s->drawLineTo(2.60,14.21);
1521                $ec->add($s);
1522        }
1523
1524        $m->writeExports();
1525
1526        1;
Note: See TracBrowser for help on using the repository browser.