&rem CROP.SML

&rem **** crop/mask ARCPLOTW layout to mapextent **********************
&rem **** intended as workaround for ARCS/ARCLINES bug ****************

&rem Original version: 7/23/96  mtc


&rem **** calculate page values for mapextent *************************

SHOW MAPPOS -11 -12 -13 -14
SHOW MAPEXTENT -1 -2 -3 -4
SHOW MAPSCALE -9
&cv -5 %-13 + ( %-1 - %-11 / %-9 )
&cv -6 %-14 + ( %-2 - %-12 / %-9 )
&cv -7 %-13 + ( %-3 - %-11 / %-9 )
&cv -8 %-14 + ( %-4 - %-12 / %-9 )

&rem **** plot mask ***************************************************

SHOW PAGESIZE -13 -14
SHOW UNITS -15
UNITS PAGE
SHADESET HARDWARE.SHD
SHADESYMBOL 0
PATCH 0 0 %-13 %-6
PATCH 0 0 %-5 %-14
PATCH 0 %-8 %-13 %-14
PATCH %-7 0 %-13 %-14

&rem **** get rid of edge speckles ************************************

LINESET HARDWARE.LIN
LINESYMBOL 1
LINECOLOR 0
BOX 0 0 %-13 %-14
UNITS %-15

&return

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