/* mapbar.aml 12/16/93 W R Beeman
/* This aml draws a scalebar for any specified scale.  There are eight parts to
/* the aml - each referring to a specific template for a range of scale
/* values.  The templates were provided by USGS Central Technical Reports.
/* This aml uses variables to assign the various values for the boxes and
/* lines that constitute a scalebar.  As a consequence, it modifies the
/* appropriate scalebar for any scale.  It is designed to be called from
/* arcplot by specifying the x and y coordinates and the mapscale.  The
/* x and y coordinates will specify the location of the left edge of the
/* "Miles" scalebar (the middle scalebar).  The mapscale should be specified
/* as a single integer.  eg: &r mapbar 1 2 100000 will construct a scalebar
/* for a 1:100000 coverage with its left edge 1 inch in, and centered at
/* approximately 2 inches up.
/* Because of the possibility that someone could have an inappropriate line
/* width specified when the program is called, the lineset plotter.lin
/* and linesymbol 1 are specified at the beginning of the program.  Those
/* program lines can be removed if a different lineset, weight or color is
/* desired.
/* This program has been tested and has worked to perform the specified tasks.
/* However, no warranty is expressed or implied as to its performance on any
/* other system.  It was designed for ARC/INFO version 6.1.1.
/* wbeeman@greenwood.cr.usgs.gov
/* 
/* Note: this program changes the current lineset, linesymbol, textset, and
/*       textsymbol settings. Run it at the end of your arcplot session to
/*       avoid any problems these changes might create.

&args varx vary msc
lineset plotter.lin
linesymbol 1
textset plotter.txt
textsymbol 1
&sv in1 := 63360 / %msc%
&if %msc% >= 1000000 and %msc% < 10000000 &then
&do
&sv msca := [substr %msc% 1 1]
&sv mscb := [substr %msc% 2 3]
&sv mscc := [substr %msc% 5 3]
&sv msc2 := %msca% %mscb% %mscc%
&end
&if %msc% >= 100000 and %msc% < 1000000 &then
&do
&sv msca := [substr %msc% 1 3]
&sv mscb := [substr %msc% 4 3]
&sv msc2 := %msca% %mscb%
&end
&if %msc% >= 10000 and %msc% < 100000 &then
&do
&sv msca := [substr %msc% 1 2]
&sv mscb := [substr %msc% 3 3]
&sv msc2 := %msca% %mscb%
&end
&if %msc% < 10000 or %msc% > 10000000 &then
&do
&sv msc2 := %msc%
&end
&sv vary2 := %vary% + .05
&sv vary3 := %vary% + .025
&sv vary4 := %vary% + .07
&sv vary5 := %vary% + .42
&sv vary6 := %vary% - .33
&sv vary7 := %vary% - .40
&sv vary8 := %vary% - .35
&sv vary9 := %vary% - .375
&if %msc% >= 150000 and %msc% <= 350000 &then
&do
pensize .005
&sv varx1 := %varx% + %in1%
&sv varx2 := %varx1% + %in1%
&sv varx3 := %varx2% + %in1%
&sv varx4 := %varx3% + %in1%
&sv varx5 := %varx4% + %in1%
&sv varx6 := %varx5% + 5 * %in1%
&sv varx7 := %varx6% + 5 * %in1%
&sv varx8 := %varx7% + 5 * %in1%
&sv varx9 := %varx% - .02
&sv varx10 := %varx5% - .02
&sv varx11 := %varx6% - .02
&sv varx12 := %varx7% - .04
&sv varx13 := %varx8% - .04
&sv varx14 := %varx6% - .40
box %varx% %vary% %varx1% %vary2%
box %varx1% %vary% %varx2% %vary2%
box %varx2% %vary% %varx3% %vary2%
box %varx3% %vary% %varx4% %vary2%
box %varx4% %vary% %varx5% %vary2%
box %varx5% %vary% %varx6% %vary2%
box %varx6% %vary% %varx7% %vary2%
box %varx7% %vary% %varx8% %vary2%
pensize .010
line %varx% %vary3% %varx1% %vary3%
line %varx2% %vary3% %varx3% %vary3%
line %varx4% %vary3% %varx5% %vary3%
line %varx6% %vary3% %varx7% %vary3%
textspacing 1.2
textquality proportional
textsize .1 .08
textfont 94021
move %varx9% %vary4%
text '5'
move %varx10% %vary4%
text '0'
move %varx11% %vary4%
text '5'
move %varx12% %vary4%
text '10'
move %varx13% %vary4%
text '15 MILES'
textsize .125 .1
move %varx14% %vary5%
text 'SCALE 1: '
text [quote %msc2%]
&sv varx15 := 2.23286 * %in1%
&sv mtr1 := .62137119 * %in1%
&sv varx16 := %varx% + %varx15%
&sv varx17 := %varx16% + %mtr1%
&sv varx18 := %varx17% + %mtr1%
&sv varx19 := %varx18% + %mtr1%
&sv varx20 := %varx19% + %mtr1%
&sv varx21 := %varx20% + %mtr1%
&sv varx22 := %varx21% + 5 * %mtr1%
&sv varx23 := %varx22% + 5 * %mtr1%
&sv varx24 := %varx23% + 5 * %mtr1%
&sv varx25 := %varx24% + 5 * %mtr1%
&sv varx26 := %varx16% - .02
&sv varx27 := %varx21% - .02
&sv varx28 := %varx22% - .02
&sv varx29 := %varx23% - .04
&sv varx30 := %varx24% - .04
&sv varx31 := %varx25% - .04
pensize .005
box %varx16% %vary7% %varx17% %vary8%
box %varx17% %vary7% %varx18% %vary8%
box %varx18% %vary7% %varx19% %vary8%
box %varx19% %vary7% %varx20% %vary8%
box %varx20% %vary7% %varx21% %vary8%
box %varx21% %vary7% %varx22% %vary8%
box %varx22% %vary7% %varx23% %vary8%
box %varx23% %vary7% %varx24% %vary8%
box %varx24% %vary7% %varx25% %vary8%
pensize .010
line %varx16% %vary9% %varx17% %vary9%
line %varx18% %vary9% %varx19% %vary9%
line %varx20% %vary9% %varx21% %vary9%
line %varx22% %vary9% %varx23% %vary9%
line %varx24% %vary9% %varx25% %vary9%
textsize .1 .08
move %varx26% %vary6%
text '5'
move %varx27% %vary6%
text '0'
move %varx28% %vary6%
text '5'
move %varx29% %vary6%
text '10'
move %varx30% %vary6%
text '15'
move %varx31% %vary6%
text '20 KILOMETERS'
&end
/* part2 mapbar.aml 12/08/93  wbeeman 
&if %msc% >= 80000 and %msc% < 150000 &then
&do
pensize .005
&sv varx1 := %varx% + %in1%
&sv varx2 := %varx1% + %in1%
&sv varx3 := %varx2% + %in1%
&sv varx4 := %varx3% + %in1%
&sv varx5 := %varx4% + %in1%
&sv varx6 := %varx5% + 5 * %in1%
&sv varx9 := %varx% - .02
&sv varx10 := %varx5% - .02
&sv varx11 := %varx6% - .02
box %varx% %vary% %varx1% %vary2%
box %varx1% %vary% %varx2% %vary2%
box %varx2% %vary% %varx3% %vary2%
box %varx3% %vary% %varx4% %vary2%
box %varx4% %vary% %varx5% %vary2%
box %varx5% %vary% %varx6% %vary2%
pensize .010
line %varx% %vary3% %varx1% %vary3%
line %varx2% %vary3% %varx3% %vary3%
line %varx4% %vary3% %varx5% %vary3%
textspacing 1.2
textquality proportional
textsize .1 .08
textfont 94021
move %varx9% %vary4%
text '5'
move %varx10% %vary4%
text '0'
move %varx11% %vary4%
text '5 MILES'
textsize .125 .1
&sv varx14 := %varx5% - .4
move %varx14% %vary5%
text 'SCALE 1: '
text [quote %msc2%]
&sv varx15 := .33971608 * %in1%
&sv mtr1 := .62137119 * %in1%
&sv varx16 := %varx% + %varx15%
&sv varx17 := %varx16% + %mtr1%
&sv varx18 := %varx17% + %mtr1%
&sv varx19 := %varx18% + %mtr1%
&sv varx20 := %varx19% + %mtr1%
&sv varx21 := %varx20% + %mtr1%
&sv varx22 := %varx21% + 5 * %mtr1%
&sv varx23 := %varx22% + 5 * %mtr1%
&sv varx26 := %varx16% - .02
&sv varx27 := %varx21% - .02
&sv varx28 := %varx22% - .02
&sv varx29 := %varx23% - .04
pensize .005
box %varx16% %vary7% %varx17% %vary8%
box %varx17% %vary7% %varx18% %vary8%
box %varx18% %vary7% %varx19% %vary8%
box %varx19% %vary7% %varx20% %vary8%
box %varx20% %vary7% %varx21% %vary8%
box %varx21% %vary7% %varx22% %vary8%
box %varx22% %vary7% %varx23% %vary8%
pensize .010
line %varx16% %vary9% %varx17% %vary9%
line %varx18% %vary9% %varx19% %vary9%
line %varx20% %vary9% %varx21% %vary9%
line %varx22% %vary9% %varx23% %vary9%
textsize .1 .08
move %varx26% %vary6%
text '5'
move %varx27% %vary6%
text '0'
move %varx28% %vary6%
text '5'
move %varx29% %vary6%
text '10 KILOMETERS'
&end
/* Part 3  mapbar.aml 12/08/93 W R Beeman
&if %msc% < 40000 &then
&do
&sv in8 := .1 * %in1%
pensize .005
&sv varx1 := %varx% + %in8%
&sv varx2 := %varx1% + %in8%
&sv varx3 := %varx2% + %in8%
&sv varx4 := %varx3% + %in8%
&sv varx5 := %varx4% + %in8%
&sv varx6 := %varx5% + %in8%
&sv varx7 := %varx6% + %in8%
&sv varx8 := %varx7% + %in8%
&sv varx8a := %varx8% + %in8%
&sv varx8b := %varx8a% + %in8%
&sv varx8c := %varx8b% + %in1%
&sv varx9 := %varx% - .02
&sv varx10 := %varx5% - .04
&sv varx11 := %varx8b% - .02
&sv varx12 := %varx8c% - .02
&sv varx14a := %varx8c% + %varx%
&sv varx14b := %varx14a% / 2
&sv varx14 := %varx14b% - .4
box %varx% %vary% %varx1% %vary2%
box %varx1% %vary% %varx2% %vary2%
box %varx2% %vary% %varx3% %vary2%
box %varx3% %vary% %varx4% %vary2%
box %varx4% %vary% %varx5% %vary2%
box %varx5% %vary% %varx6% %vary2%
box %varx6% %vary% %varx7% %vary2%
box %varx7% %vary% %varx8% %vary2%
box %varx8% %vary% %varx8a% %vary2%
box %varx8a% %vary% %varx8b% %vary2%
box %varx8b% %vary% %varx8c% %vary2%
pensize .010
line %varx% %vary3% %varx1% %vary3%
line %varx2% %vary3% %varx3% %vary3%
line %varx4% %vary3% %varx5% %vary3%
line %varx6% %vary3% %varx7% %vary3%
line %varx8% %vary3% %varx8a% %vary3%
line %varx8b% %vary3% %varx8c% %vary3%
textspacing 1.2
textquality proportional
textsize .1 .08
textfont 94021
move %varx9% %vary4%
text '1'
move %varx10% %vary4%
text '.5'
move %varx11% %vary4%
text '0'
move %varx12% %vary4%
text '1 MILE'
textsize .125 .1
move %varx14% %vary5%
text 'SCALE 1: '
text [quote %msc2%]
&sv varx15 := .37862881 * %in1%
&sv mtr1 := .62137119 * %in1%
&sv mtr2 := .1 * %mtr1%
&sv varx16 := %varx% + %varx15%
&sv varx17 := %varx16% + %mtr2%
&sv varx18 := %varx17% + %mtr2%
&sv varx19 := %varx18% + %mtr2%
&sv varx20 := %varx19% + %mtr2%
&sv varx21 := %varx20% + %mtr2%
&sv varx22 := %varx21% + %mtr2%
&sv varx23 := %varx22% + %mtr2%
&sv varx24 := %varx23% + %mtr2%
&sv varx25 := %varx24% + %mtr2%
&sv varx25a := %varx25% + %mtr2%
&sv varx25b := %varx25a% + %mtr1%
&sv varx26 := %varx16% - .02
&sv varx27 := %varx21% - .04
&sv varx28 := %varx25a% - .02
&sv varx29 := %varx25b% - .02
pensize .005
box %varx16% %vary7% %varx17% %vary8%
box %varx17% %vary7% %varx18% %vary8%
box %varx18% %vary7% %varx19% %vary8%
box %varx19% %vary7% %varx20% %vary8%
box %varx20% %vary7% %varx21% %vary8%
box %varx21% %vary7% %varx22% %vary8%
box %varx22% %vary7% %varx23% %vary8%
box %varx23% %vary7% %varx24% %vary8%
box %varx24% %vary7% %varx25% %vary8%
box %varx25% %vary7% %varx25a% %vary8%
box %varx25a% %vary7% %varx25b% %vary8%
pensize .010
line %varx16% %vary9% %varx17% %vary9%
line %varx18% %vary9% %varx19% %vary9%
line %varx20% %vary9% %varx21% %vary9%
line %varx22% %vary9% %varx23% %vary9%
line %varx24% %vary9% %varx25% %vary9%
line %varx25a% %vary9% %varx25b% %vary9%
line %varx24% %vary9% %varx25b% %vary9%
textsize .1 .08
move %varx26% %vary6%
text '1'
move %varx27% %vary6%
text '.5'
move %varx28% %vary6%
text '0'
move %varx29% %vary6%
text '1 KILOMETER'
&end
/* Part 4 mapbar.aml 12/08/93 W R Beeman
&if %msc% > 350000 and %msc% <= 750000 &then
&do
&sv in2 := 2 * %in1%
pensize .005
&sv varx1 := %varx% + %in2%
&sv varx2 := %varx1% + %in2%
&sv varx3 := %varx2% + %in2%
&sv varx4 := %varx3% + %in2%
&sv varx5 := %varx4% + %in2%
&sv varx6 := %varx5% + 5 * %in2%
&sv varx7 := %varx6% + 5 * %in2%
&sv varx8 := %varx7% + 5 * %in2%
&sv varx8a := %varx8% + 5 * %in2%
&sv varx8b := %varx8a% + 5 * %in2%
&sv varx9 := %varx% - .04
&sv varx10 := %varx5% - .02
&sv varx11 := %varx6% - .04
&sv varx12 := %varx7% - .04
&sv varx13 := %varx8% - .04
&sv varx13a := %varx8a% - .04
&sv varx13b := %varx8b% - .04
&sv varx14a := %varx8b% + %varx%
&sv varx14b := %varx14a% / 2
&sv varx14 := %varx14b% - .4
box %varx% %vary% %varx1% %vary2%
box %varx1% %vary% %varx2% %vary2%
box %varx2% %vary% %varx3% %vary2%
box %varx3% %vary% %varx4% %vary2%
box %varx4% %vary% %varx5% %vary2%
box %varx5% %vary% %varx6% %vary2%
box %varx6% %vary% %varx7% %vary2%
box %varx7% %vary% %varx8% %vary2%
box %varx8% %vary% %varx8a% %vary2%
box %varx8a% %vary% %varx8b% %vary2%
pensize .010
line %varx% %vary3% %varx1% %vary3%
line %varx2% %vary3% %varx3% %vary3%
line %varx4% %vary3% %varx5% %vary3%
line %varx6% %vary3% %varx7% %vary3%
line %varx8% %vary3% %varx8a% %vary3%
textspacing 1.2
textquality proportional
textsize .1 .08
textfont 94021
move %varx9% %vary4%
text '10'
move %varx10% %vary4%
text '0'
move %varx11% %vary4%
text '10'
move %varx12% %vary4%
text '20'
move %varx13% %vary4%
text '30'
move %varx13a% %vary4%
text '40'
move %varx13b% %vary4%
text '50 MILES'
textsize .125 .1
move %varx14% %vary5%
text 'SCALE 1: '
text [quote %msc2%]
&sv varx15 := 11.358864 * %in1%
&sv mtr1 := .62137119 * %in1%
&sv mtr2 := 2 * %mtr1%
&sv varx16 := %varx% + %varx15%
&sv varx17 := %varx16% + %mtr2%
&sv varx18 := %varx17% + %mtr2%
&sv varx19 := %varx18% + %mtr2%
&sv varx20 := %varx19% + %mtr2%
&sv varx21 := %varx20% + %mtr2%
&sv varx22 := %varx21% + 5 * %mtr2%
&sv varx23 := %varx22% + 5 * %mtr2%
&sv varx24 := %varx23% + 5 * %mtr2%
&sv varx25 := %varx24% + 5 * %mtr2%
&sv varx25a := %varx25% + 5 * %mtr2%
&sv varx26 := %varx16% - .04
&sv varx27 := %varx21% - .02
&sv varx28 := %varx22% - .04
&sv varx29 := %varx23% - .04
&sv varx30 := %varx24% - .04
&sv varx31 := %varx25% - .04
&sv varx31a := %varx25a% - .04
pensize .005
box %varx16% %vary7% %varx17% %vary8%
box %varx17% %vary7% %varx18% %vary8%
box %varx18% %vary7% %varx19% %vary8%
box %varx19% %vary7% %varx20% %vary8%
box %varx20% %vary7% %varx21% %vary8%
box %varx21% %vary7% %varx22% %vary8%
box %varx22% %vary7% %varx23% %vary8%
box %varx23% %vary7% %varx24% %vary8%
box %varx24% %vary7% %varx25% %vary8%
box %varx25% %vary7% %varx25a% %vary8%
pensize .010
line %varx16% %vary9% %varx17% %vary9%
line %varx18% %vary9% %varx19% %vary9%
line %varx20% %vary9% %varx21% %vary9%
line %varx22% %vary9% %varx23% %vary9%
line %varx24% %vary9% %varx25% %vary9%
textsize .1 .08
move %varx26% %vary6%
text '10'
move %varx27% %vary6%
text '0'
move %varx28% %vary6%
text '10'
move %varx29% %vary6%
text '20'
move %varx30% %vary6%
text '30'
move %varx31% %vary6%
text '40'
move %varx31a% %vary6%
text '50 KILOMETERS'
&end
/* Part 5 mapbar.aml 12/08/93 W R Beeman
&if %msc% > 750000 and %msc% <= 2000000 &then
&do
&sv in2 := 5 * %in1%
pensize .005
&sv varx1 := %varx% + %in2%
&sv varx2 := %varx1% + %in2%
&sv varx3 := %varx2% + %in2%
&sv varx4 := %varx3% + %in2%
&sv varx5 := %varx4% + %in2%
&sv varx6 := %varx5% + 5 * %in2%
&sv varx7 := %varx6% + 5 * %in2%
&sv varx9 := %varx% - .04
&sv varx10 := %varx5% - .02
&sv varx11 := %varx6% - .04
&sv varx12 := %varx7% - .04
&sv varx14a := %varx7% + %varx%
&sv varx14b := %varx14a% / 2
&sv varx14 := %varx14b% - .4
box %varx% %vary% %varx1% %vary2%
box %varx1% %vary% %varx2% %vary2%
box %varx2% %vary% %varx3% %vary2%
box %varx3% %vary% %varx4% %vary2%
box %varx4% %vary% %varx5% %vary2%
box %varx5% %vary% %varx6% %vary2%
box %varx6% %vary% %varx7% %vary2%
pensize .010
line %varx% %vary3% %varx1% %vary3%
line %varx2% %vary3% %varx3% %vary3%
line %varx4% %vary3% %varx5% %vary3%
line %varx6% %vary3% %varx7% %vary3%
textspacing 1.2
textquality proportional
textsize .1 .08
textfont 94021
move %varx9% %vary4%
text '25'
move %varx10% %vary4%
text '0'
move %varx11% %vary4%
text '25'
move %varx12% %vary4%
text '50 MILES'
textsize .125 .1
move %varx14% %vary5%
text 'SCALE 1: '
text [quote %msc2%]
&sv varx15 := 14.19858 * %in1%
&sv mtr1 := .62137119 * %in1%
&sv mtr2 := 5 * %mtr1%
&sv varx16 := %varx% + %varx15%
&sv varx17 := %varx16% + %mtr2%
&sv varx18 := %varx17% + %mtr2%
&sv varx19 := %varx18% + %mtr2%
&sv varx20 := %varx19% + %mtr2%
&sv varx21 := %varx20% + %mtr2%
&sv varx22 := %varx21% + 5 * %mtr2%
&sv varx23 := %varx22% + 5 * %mtr2%
&sv varx26 := %varx16% - .04
&sv varx27 := %varx21% - .02
&sv varx28 := %varx22% - .04
&sv varx29 := %varx23% - .04
pensize .005
box %varx16% %vary7% %varx17% %vary8%
box %varx17% %vary7% %varx18% %vary8%
box %varx18% %vary7% %varx19% %vary8%
box %varx19% %vary7% %varx20% %vary8%
box %varx20% %vary7% %varx21% %vary8%
box %varx21% %vary7% %varx22% %vary8%
box %varx22% %vary7% %varx23% %vary8%
pensize .010
line %varx16% %vary9% %varx17% %vary9%
line %varx18% %vary9% %varx19% %vary9%
line %varx20% %vary9% %varx21% %vary9%
line %varx22% %vary9% %varx23% %vary9%
textsize .1 .08
move %varx26% %vary6%
text '25'
move %varx27% %vary6%
text '0'
move %varx28% %vary6%
text '25'
move %varx29% %vary6%
text '50 KILOMETERS'
&end
/* Part 6 mapbar.aml 12/08/93 W R Beeman
&if %msc% > 2000000 and %msc% <= 4000000 &then
&do
&sv in2 := 10 * %in1%
pensize .005
&sv varx1 := %varx% + %in2%
&sv varx2 := %varx1% + %in2%
&sv varx3 := %varx2% + %in2%
&sv varx4 := %varx3% + %in2%
&sv varx5 := %varx4% + %in2%
&sv varx6 := %varx5% + 5 * %in2%
&sv varx7 := %varx6% + 5 * %in2%
&sv varx8 := %varx7% + 5 * %in2%
&sv varx8a := %varx8% + 5 * %in2%
&sv varx8b := %varx8a% + 5 * %in2%
&sv varx9 := %varx% - .04
&sv varx10 := %varx5% - .02
&sv varx11 := %varx6% - .04
&sv varx12 := %varx7% - .06
&sv varx13 := %varx8% - .06
&sv varx13a := %varx8a% - .06
&sv varx13b := %varx8b% - .06
&sv varx14a := %varx8b% + %varx%
&sv varx14b := %varx14a% / 2
&sv varx14 := %varx14b% - .4
box %varx% %vary% %varx1% %vary2%
box %varx1% %vary% %varx2% %vary2%
box %varx2% %vary% %varx3% %vary2%
box %varx3% %vary% %varx4% %vary2%
box %varx4% %vary% %varx5% %vary2%
box %varx5% %vary% %varx6% %vary2%
box %varx6% %vary% %varx7% %vary2%
box %varx7% %vary% %varx8% %vary2%
box %varx8% %vary% %varx8a% %vary2%
box %varx8a% %vary% %varx8b% %vary2%
pensize .010
line %varx% %vary3% %varx1% %vary3%
line %varx2% %vary3% %varx3% %vary3%
line %varx4% %vary3% %varx5% %vary3%
line %varx6% %vary3% %varx7% %vary3%
line %varx8% %vary3% %varx8a% %vary3%
textspacing 1.2
textquality proportional
textsize .1 .08
textfont 94021
move %varx9% %vary4%
text '50'
move %varx10% %vary4%
text '0'
move %varx11% %vary4%
text '50'
move %varx12% %vary4%
text '100'
move %varx13% %vary4%
text '150 '
move %varx13a% %vary4%
text '200 '
move %varx13b% %vary4%
text '250 MILES'
textsize .125 .1
move %varx14% %vary5%
text 'SCALE 1: '
text [quote %msc2%]
&sv varx15 := 56.794322 * %in1%
&sv mtr1 := .62137119 * %in1%
&sv mtr2 := 10 * %mtr1%
&sv varx16 := %varx% + %varx15%
&sv varx17 := %varx16% + %mtr2%
&sv varx18 := %varx17% + %mtr2%
&sv varx19 := %varx18% + %mtr2%
&sv varx20 := %varx19% + %mtr2%
&sv varx21 := %varx20% + %mtr2%
&sv varx22 := %varx21% + 5 * %mtr2%
&sv varx23 := %varx22% + 5 * %mtr2%
&sv varx24 := %varx23% + 5 * %mtr2%
&sv varx25 := %varx24% + 5 * %mtr2%
&sv varx25a := %varx25% + 5 * %mtr2%
&sv varx26 := %varx16% - .04
&sv varx27 := %varx21% - .02
&sv varx28 := %varx22% - .04
&sv varx29 := %varx23% - .06
&sv varx30 := %varx24% - .06
&sv varx31 := %varx25% - .06
&sv varx31a := %varx25a% - .06
pensize .005
box %varx16% %vary7% %varx17% %vary8%
box %varx17% %vary7% %varx18% %vary8%
box %varx18% %vary7% %varx19% %vary8%
box %varx19% %vary7% %varx20% %vary8%
box %varx20% %vary7% %varx21% %vary8%
box %varx21% %vary7% %varx22% %vary8%
box %varx22% %vary7% %varx23% %vary8%
box %varx23% %vary7% %varx24% %vary8%
box %varx24% %vary7% %varx25% %vary8%
box %varx25% %vary7% %varx25a% %vary8%
pensize .010
line %varx16% %vary9% %varx17% %vary9%
line %varx18% %vary9% %varx19% %vary9%
line %varx20% %vary9% %varx21% %vary9%
line %varx22% %vary9% %varx23% %vary9%
line %varx24% %vary9% %varx25% %vary9%
textsize .1 .08
move %varx26% %vary6%
text '50'
move %varx27% %vary6%
text '0'
move %varx28% %vary6%
text '50'
move %varx29% %vary6%
text '100'
move %varx30% %vary6%
text '150'
move %varx31% %vary6%
text '200'
move %varx31a% %vary6%
text '250 KILOMETERS'
&end
/* Part 7 mapbar.aml 12/08/93 W R Beeman
&if %msc% > 4000000 &then
&do
&sv in2 := 25 * %in1%
pensize .005
&sv varx1 := %varx% + %in2%
&sv varx2 := %varx1% + %in2%
&sv varx3 := %varx2% + %in2%
&sv varx4 := %varx3% + %in2%
&sv varx5 := %varx4% + 4 * %in2%
&sv varx6 := %varx5% + 4 * %in2%
&sv varx7 := %varx6% + 4 * %in2%
&sv varx8 := %varx7% + 4 * %in2%
&sv varx8a := %varx8% + 4 * %in2%
&sv varx9 := %varx% - .06
&sv varx10 := %varx4% - .02
&sv varx11 := %varx5% - .04
&sv varx12 := %varx6% - .06
&sv varx13 := %varx7% - .06
&sv varx13a := %varx8% - .06
&sv varx13b := %varx8a% - .06
&sv varx14a := %varx8a% + %varx%
&sv varx14b := %varx14a% / 2
&sv varx14 := %varx14b% - .4
box %varx% %vary% %varx1% %vary2%
box %varx1% %vary% %varx2% %vary2%
box %varx2% %vary% %varx3% %vary2%
box %varx3% %vary% %varx4% %vary2%
box %varx4% %vary% %varx5% %vary2%
box %varx5% %vary% %varx6% %vary2%
box %varx6% %vary% %varx7% %vary2%
box %varx7% %vary% %varx8% %vary2%
box %varx8% %vary% %varx8a% %vary2%
pensize .010
line %varx% %vary3% %varx1% %vary3%
line %varx2% %vary3% %varx3% %vary3%
line %varx4% %vary3% %varx5% %vary3%
line %varx6% %vary3% %varx7% %vary3%
line %varx8% %vary3% %varx8a% %vary3%
textspacing 1.2
textquality proportional
textsize .1 .08
textfont 94021
move %varx9% %vary4%
text '100'
move %varx10% %vary4%
text '0'
move %varx11% %vary4%
text '100'
move %varx12% %vary4%
text '200'
move %varx13% %vary4%
text '300'
move %varx13a% %vary4%
text '400'
move %varx13b% %vary4%
text '500 MILES'
textsize .125 .1
move %varx14% %vary5%
text 'SCALE 1: '
text [quote %msc2%]
&sv varx15 := 113.58864 * %in1%
&sv mtr1 := .62137119 * %in1%
&sv mtr2 := 25 * %mtr1%
&sv varx16 := %varx% + %varx15%
&sv varx17 := %varx16% + %mtr2%
&sv varx18 := %varx17% + %mtr2%
&sv varx19 := %varx18% + %mtr2%
&sv varx20 := %varx19% + %mtr2%
&sv varx21 := %varx20% + 4 * %mtr2%
&sv varx22 := %varx21% + 4 * %mtr2%
&sv varx23 := %varx22% + 4 * %mtr2%
&sv varx24 := %varx23% + 4 * %mtr2%
&sv varx25 := %varx24% + 4 * %mtr2%
&sv varx26 := %varx16% - .06
&sv varx27 := %varx20% - .02
&sv varx28 := %varx21% - .06
&sv varx29 := %varx22% - .06
&sv varx30 := %varx23% - .06
&sv varx31 := %varx24% - .06
&sv varx32 := %varx25% - .06
pensize .005
box %varx16% %vary7% %varx17% %vary8%
box %varx17% %vary7% %varx18% %vary8%
box %varx18% %vary7% %varx19% %vary8%
box %varx19% %vary7% %varx20% %vary8%
box %varx20% %vary7% %varx21% %vary8%
box %varx21% %vary7% %varx22% %vary8%
box %varx22% %vary7% %varx23% %vary8%
box %varx23% %vary7% %varx24% %vary8%
box %varx24% %vary7% %varx25% %vary8%
pensize .010
line %varx16% %vary9% %varx17% %vary9%
line %varx18% %vary9% %varx19% %vary9%
line %varx20% %vary9% %varx21% %vary9%
line %varx22% %vary9% %varx23% %vary9%
line %varx24% %vary9% %varx25% %vary9%
textsize .1 .08
move %varx26% %vary6%
text '100'
move %varx27% %vary6%
text '0'
move %varx28% %vary6%
text '100'
move %varx29% %vary6%
text '200'
move %varx30% %vary6%
text '300'
move %varx31% %vary6%
text '400'
move %varx32% %vary6%
text '500 KILOMETERS'
&end
/* Part 8  mapbar.aml 12/08/93 W R Beeman
&if %msc% >= 40000 and %msc% < 80000 &then
&do
&sv in8 := .1 * %in1%
pensize .005
&sv varx1 := %varx% + %in8%
&sv varx2 := %varx1% + %in8%
&sv varx3 := %varx2% + %in8%
&sv varx4 := %varx3% + %in8%
&sv varx5 := %varx4% + %in8%
&sv varx6 := %varx5% + %in8%
&sv varx7 := %varx6% + %in8%
&sv varx8 := %varx7% + %in8%
&sv varx8a := %varx8% + %in8%
&sv varx8b := %varx8a% + %in8%
&sv varx8c := %varx8b% + %in1%
&sv varx8d := %varx8c% + %in1%
&sv varx8e := %varx8d% + %in1%
&sv varx9 := %varx% - .02
&sv varx10 := %varx5% - .04
&sv varx11 := %varx8b% - .02
&sv varx12 := %varx8c% - .02
&sv varx13 := %varx8d% - .02
&sv varx13a := %varx8e% - .02
&sv varx14a := %varx8e% + %varx%
&sv varx14b := %varx14a% / 2
&sv varx14 := %varx14b% - .4
box %varx% %vary% %varx1% %vary2%
box %varx1% %vary% %varx2% %vary2%
box %varx2% %vary% %varx3% %vary2%
box %varx3% %vary% %varx4% %vary2%
box %varx4% %vary% %varx5% %vary2%
box %varx5% %vary% %varx6% %vary2%
box %varx6% %vary% %varx7% %vary2%
box %varx7% %vary% %varx8% %vary2%
box %varx8% %vary% %varx8a% %vary2%
box %varx8a% %vary% %varx8b% %vary2%
box %varx8b% %vary% %varx8c% %vary2%
box %varx8c% %vary% %varx8d% %vary2%
box %varx8d% %vary% %varx8e% %vary2%
pensize .010
line %varx% %vary3% %varx1% %vary3%
line %varx2% %vary3% %varx3% %vary3%
line %varx4% %vary3% %varx5% %vary3%
line %varx6% %vary3% %varx7% %vary3%
line %varx8% %vary3% %varx8a% %vary3%
line %varx8b% %vary3% %varx8c% %vary3%
line %varx8d% %vary3% %varx8e% %vary3%
textspacing 1.2
textquality proportional
textsize .1 .08
textfont 94021
move %varx9% %vary4%
text '1'
move %varx10% %vary4%
text '.5'
move %varx11% %vary4%
text '0'
move %varx12% %vary4%
text '1'
move %varx13% %vary4%
text '2'
move %varx13a% %vary4%
text '3 MILES'
textsize .125 .1
move %varx14% %vary5%
text 'SCALE 1: '
text [quote %msc2%]
&sv varx15 := .75725762 * %in1%
&sv mtr1 := .62137119 * %in1%
&sv mtr2 := .1 * %mtr1%
&sv varx16 := %varx% + %varx15%
&sv varx17 := %varx16% + %mtr2%
&sv varx18 := %varx17% + %mtr2%
&sv varx19 := %varx18% + %mtr2%
&sv varx20 := %varx19% + %mtr2%
&sv varx21 := %varx20% + %mtr2%
&sv varx22 := %varx21% + %mtr2%
&sv varx23 := %varx22% + %mtr2%
&sv varx24 := %varx23% + %mtr2%
&sv varx25 := %varx24% + %mtr2%
&sv varx25a := %varx25% + %mtr2%
&sv varx25b := %varx25a% + %mtr1%
&sv varx25c := %varx25b% + %mtr1%
&sv varx25d := %varx25c% + %mtr1%
&sv varx26 := %varx16% - .02
&sv varx27 := %varx21% - .04
&sv varx28 := %varx25a% - .02
&sv varx29 := %varx25b% - .02
&sv varx30 := %varx25c% - .02
&sv varx31 := %varx25d% - .02
pensize .005
box %varx16% %vary7% %varx17% %vary8%
box %varx17% %vary7% %varx18% %vary8%
box %varx18% %vary7% %varx19% %vary8%
box %varx19% %vary7% %varx20% %vary8%
box %varx20% %vary7% %varx21% %vary8%
box %varx21% %vary7% %varx22% %vary8%
box %varx22% %vary7% %varx23% %vary8%
box %varx23% %vary7% %varx24% %vary8%
box %varx24% %vary7% %varx25% %vary8%
box %varx25% %vary7% %varx25a% %vary8%
box %varx25a% %vary7% %varx25b% %vary8%
box %varx25b% %vary7% %varx25c% %vary8%
box %varx25c% %vary7% %varx25d% %vary8% 
pensize .010
line %varx16% %vary9% %varx17% %vary9%
line %varx18% %vary9% %varx19% %vary9%
line %varx20% %vary9% %varx21% %vary9%
line %varx22% %vary9% %varx23% %vary9%
line %varx24% %vary9% %varx25% %vary9%
line %varx25a% %vary9% %varx25b% %vary9%
line %varx25c% %vary9% %varx25d% %vary9%
textsize .1 .08
move %varx26% %vary6%
text '1'
move %varx27% %vary6%
text '.5'
move %varx28% %vary6%
text '0'
move %varx29% %vary6%
text '1'
move %varx30% %vary6%
text '2'
move %varx31% %vary6%
text '3 KILOMETERS'
&end
&return