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

Last change on this file since 8926 was 8894, checked in by richard, 11 years ago

Potlatch 0.10

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