&rem SB.SML

&rem **** draw scalebar in ARCPLOTW ***********************************

&rem Original version: 4/27/95 mtc
&rem Revised for 3.5:  7/23/96 mtc

&rem **** establish variable set and arguments ************************


&goto usage &if &eq "x%-1" "x"
&goto usage &if &eq "x%-1" "x/?"
&goto usage &if &eq "x%-2" "x"
&goto usage &if &eq "x%-3" "x"
 &goto *TRUE_0000* &if &EQ "x%-4" "x"
 &goto *FALSE0000* &if &NE "x%-4" "x#"
 &LABEL *TRUE_0000*
   &sv -4 meters
 &LABEL *FALSE0000*
 &goto *TRUE_0001* &if &EQ "x%-5" "x"
 &goto *FALSE0001* &if &NE "x%-5" "x#"
 &LABEL *TRUE_0001*
   &sv -5 1
 &LABEL *FALSE0001*
 &goto *TRUE_0002* &if &EQ "x%-6" "x"
 &goto *FALSE0002* &if &NE "x%-6" "x#"
 &LABEL *TRUE_0002*
   &sv -6 0.1
 &LABEL *FALSE0002*

&rem **** draw scalebar ***********************************************

LINESET PLOTTER.LIN
SHADESET COLOR100.SHD
TEXTSET TRUETYPE.TXT
LINESYMBOL 1
SHADESYMBOL 100
TEXTSYMBOL 31
TEXTSIZE %-6
UNITS PAGE
&cv -11 %-1
&cv -12 %-1 + ( %-5 / 2 )
&cv -13 %-1 + %-5
&cv -14 %-1 + ( %-5 * 2 )
&cv -15 %-1 + ( %-5 * 3 )
&cv -16 %-2
&rem &cv %-17 %-2 + 0.1
&rem &cv %-18 %-2 + 0.2
&rem &cv %-19 %-2 + 0.3
&cv -17 %-2 + ( %-5 * 0.1 )
&cv -18 %-2 + ( %-5 * 0.2 )
&cv -19 %-2 + ( %-5 * 0.3 )

BOX %-11 %-16 %-15 %-18
PATCH %-11 %-17 %-12 %-18
PATCH %-12 %-16 %-13 %-17
PATCH %-13 %-17 %-14 %-18
PATCH %-14 %-16 %-15 %-17

&rem **** draw text ***************************************************

MOVE %-13 %-19
TEXT '0' LC
&cv -7 %-3 * 2
MOVE %-15 %-19
TEXT '%-7' LC
TEXT '  %-4'
MOVE %-1 %-19
TEXT '%-3' LC
MOVE %-14 %-19
TEXT '%-3' LC

&return

&label usage

&type "Usage: &r SB [xbegin] [ybegin] [map] {units} {page} {tsize}"
&type " "
&type "        xbegin = starting x coordinates (page units)"
&type "        ybegin = starting y coordinates (page units)"
&type "           map = length of interval in map units"
&type "         units = map units"
&type "                 (default = meters)"
&type "          page = length of interval in page units"
&type "                 (default = 1)"
&type "         tsize = text size"
&type "                 (default = 0.1)"

&return

&rem ******************************************************************