/* called from model.menu
maplimits %.xpos% .2 [calc %.xpos% + 10.8] 15.5
&if %.xpos% < 2 &then
  mappos lr lr /* to overwrite legend stats
&else
  mappos ll ll
units map
textj ll
gridshade qust%.stag%_%.cur% # class.remap
shadecolor white
patch 545391 5280555  545921 5280838
units page
/*plot legend.gra box 10.6 .4 12.1 5.4
plot legend.gra box 10.6 4.4 12.1 9.4


&s .xpos [calc %.xpos% + 0.1]
&s .xpos [calc %.xpos% + 6.8]
/* No match key
&s xy [show convert map %.X% 5280800 page]
&s .xpos [before %xy% ,]
&s ypos [after %xy% ,]
&ty xy is %xy% %.xpos% %ypos%

&s ypos = 3.4 /*15.0
&s dx .5
&s dxp .6
&s dy  .28
move %.xpos% %ypos%
text [quote Transmissivity = [value .T%.cur%]]
&set ypos = [calc %ypos% - %dy%]
move %.xpos% %ypos%
text [quote Bulk Density = [value .bd%.cur%]]
&set ypos = [calc %ypos% - %dy%]
move %.xpos% %ypos%
text [quote Soil Depth = [value .depth%.cur%]]
&set ypos = [calc %ypos% - %dy%]
move %.xpos% %ypos%
text [quote Phi = [value .phi%.cur%]              Run %.cur%]
&set ypos = [calc %ypos% - %dy%]
move %.xpos% %ypos%
text [quote Cohesion = [value .coh%.cur%]]

textj lr
&s .yp 9
&do i = 7 &to 1 &by -1
  move %.xp% %.yp%
  text [value .ncells%i%_%.cur%]
  &set .yp [calc %.yp% - .75]
&end
units map
shadecolor black
&s .X  545400; &s .Y 5280400;&s .kheight 20; &s .ktext '500 meters'; &s .kunit 100
 &s .knunits 5;&s .textsz .25
&r scalebar