[ferret_users] many colors and shaset

[Bruno Levier <bruno.levier@xxxxxxxxxxxxxxxxx>]

Hi Ferreters

I'm trying to plot many polygones filled with different colors on the 
same plot. When I use "ferret -gif", the colors are not always those 
expected (in this case the rectangle of the legend is filled with brown 
rather than white). I've tried to use some "shaset protect" but with no 
success. I've attached the script I use. I use Ferret v6.2

Thank you for your help,

Bruno Levier




Set W /Aspect=1.6

PPL AXLSZE .18 .18
PPL TICS 0.125 0.25 0. 0. 1 1
PPL AXLABP -1 0
PPL AXLINT 1

Define Viewport /X=0.3:1.0 01

Def Symb xd001   0 ; Def Symb xu001  20 ; Def Symb xi001 5
Def Symb yd001   0 ; Def Symb yu001 310

!! Figure 1
!! ########

Set V 01
go margins 0.5 0.5 0.9 0.2

Plot /Nolab /I=1:2 /Hlim=($xd001):($xu001):($xi001) /Vlim=($yd001):($yu001) /Vgrat=dash /Set I
ppl xfor (F4.0)
ppl Plot

Def Symb inc0  =   4
Def Symb inc1  =   4
Def Symb ordup = `($yu001) - ($inc1)`
Def Symb orddo = `($ordup) - ($inc0)`

Repeat /Range=1:12 /Name=dd ( \
Repeat /Range=1:6 /Name=ii ( \
  Def Symb ii `ii` ;\
  Polygone /Over /Line /Nolab /Fill /Pal=broad /Lev=(0,7,1) {0,0,`($ii)*3`,`($ii)*3`}, {($orddo),($ordup),($ordup),($orddo)}, `($ii)-1` ;\
  Def Symb ordup =  `($orddo)+1` ;\
  Def Symb orddo = `($ordup)-($inc0)` ;\
) ;\
  Def Symb ordup = `($ordup)-($inc1)` ;\
  Def Symb orddo = `($ordup)-($inc0)` ;\
)

 !! Legend

Polygone /Over /Line /Nolab /Fill /Pal=white {4,4,18,18}, {2,`($ordup)+3`,`($ordup)+3`,2}
ppl shaset protect

Repeat /Range=1:6 /Name=ii ( \
  Def Symb ii `ii` ;\
  Polygone /Over /Line /Nolab /Fill /Pal=broad /Lev=(0,7,1) {5,5,10,10}, {($orddo),($ordup),($ordup),($orddo)}, `($ii)-1` ;\
  Def Symb ordup =  `($orddo)-3` ;\
  Def Symb orddo = `($ordup)-($inc0)` ;\
)


Frame /File=fig01.gif

ppl Shaset Reset

!! Figure 2
!! ########

Set W /Clear

Set V 01
go margins 0.5 0.5 0.9 0.2

Plot /Nolab /I=1:2 /Hlim=($xd001):($xu001):($xi001) /Vlim=($yd001):($yu001) /Vgrat=dash /Set I
ppl xfor (F4.0)
ppl Plot

Def Symb inc0  =   4
Def Symb inc1  =   4
Def Symb ordup = `($yu001) - ($inc1)`
Def Symb orddo = `($ordup) - ($inc0)`

Repeat /Range=1:12 /Name=dd ( \
Repeat /Range=1:6 /Name=ii ( \
  Def Symb ii `ii` ;\
  Polygone /Over /Line /Nolab /Fill /Pal=broad /Lev=(0,7,1) {0,0,`($ii)*3`,`($ii)*3`}, {($orddo),($ordup),($ordup),($orddo)}, `($ii)-1` ;\
  Def Symb ordup =  `($orddo)+1` ;\
  Def Symb orddo = `($ordup)-($inc0)` ;\
) ;\
  Def Symb ordup = `($ordup)-($inc1)` ;\
  Def Symb orddo = `($ordup)-($inc0)` ;\
)

 !! Legend

Polygone /Over /Line /Nolab /Fill /Pal=white {4,4,18,18}, {2,`($ordup)+3`,`($ordup)+3`,2}

Repeat /Range=1:6 /Name=ii ( \
  Def Symb ii `ii` ;\
  Polygone /Over /Line /Nolab /Fill /Pal=broad /Lev=(0,7,1) {5,5,10,10}, {($orddo),($ordup),($ordup),($orddo)}, `($ii)-1` ;\
  Def Symb ordup =  `($orddo)-3` ;\
  Def Symb orddo = `($ordup)-($inc0)` ;\
)

Frame /File=fig02.gif