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

Last change on this file since 2829 was 2829, checked in by richard, 13 years ago

Potlatch on Rails, first working version

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