Several changes. \n If new map is added to mapstorage it emits signal with the name of the new map. This was important, because from now on not only tha mapwin should be updated. \n Furthermore algobox gets a pointer to mapstorage instead of only the mapnames from it. This is important because without it it would be complicated to pass all of the required maps to algobox.
1 %!PS-Adobe-2.0 EPSF-2.0
2 %%Title: LEMON GraphToEps figure
3 %%Creator: LEMON GraphToEps function
4 %%BoundingBox: 0 0 200 200
6 /lb { setlinewidth setrgbcolor newpath moveto
7 4 2 roll 1 index 1 index curveto stroke } bind def
8 /l { setlinewidth setrgbcolor newpath moveto lineto stroke } bind def
9 /c { newpath dup 3 index add 2 index moveto 0 360 arc closepath } bind def
10 /sq { newpath 2 index 1 index add 2 index 2 index add moveto
11 2 index 1 index sub 2 index 2 index add lineto
12 2 index 1 index sub 2 index 2 index sub lineto
13 2 index 1 index add 2 index 2 index sub lineto
14 closepath pop pop pop} bind def
15 /di { newpath 2 index 1 index add 2 index moveto
16 2 index 2 index 2 index add lineto
17 2 index 1 index sub 2 index lineto
18 2 index 2 index 2 index sub lineto
19 closepath pop pop pop} bind def
20 /nc { 0 0 0 setrgbcolor 5 index 5 index 5 index c fill
21 setrgbcolor 1.1 div c fill
23 /nsq { 0 0 0 setrgbcolor 5 index 5 index 5 index sq fill
24 setrgbcolor 1.1 div sq fill
26 /ndi { 0 0 0 setrgbcolor 5 index 5 index 5 index di fill
27 setrgbcolor 1.1 div di fill
31 /lrl { 2 index mul exch 2 index mul exch rlineto pop} bind def
32 /arr { setrgbcolor /y1 exch def /x1 exch def /dy exch def /dx exch def
33 /w exch def /len exch def
34 newpath x1 dy w 2 div mul add y1 dx w 2 div mul sub moveto
35 len w sub arrl sub dx dy lrl
37 dx arrl w add mul dy w 2 div arrw add mul sub
38 dy arrl w add mul dx w 2 div arrw add mul add rlineto
39 dx arrl w add mul neg dy w 2 div arrw add mul sub
40 dy arrl w add mul neg dx w 2 div arrw add mul add rlineto
42 len w sub arrl sub neg dx dy lrl
43 closepath fill } bind def
44 /cshow { 2 index 2 index moveto dup stringwidth pop
45 neg 2 div fosi .35 mul neg rmoveto show pop pop} def