Faultintr.aml

arcplot
display 1040
faultintr
mape faultintr 
mapunits meters
mapscale 200000
lineset pd24a.lin
res faultwn arcs lntype = 25
arclines faultwn 1
arclines faultw lntype 
res faultcn arc lntype = 25
arclines faultcn 1
arclines faultc lntype 
res faulten arc lntype = 25
arclines faulten 1
arclines faulte lntype 
annotext faultintr
arclines faultintr lntype
arcs prout
shadeset ver256.shd
res east poly prov = 2
asel east poly prov = 183
polygonshade east fmatn prprov.lut
res central poly prov = 2
asel central poly prov = 183
polygonshade central fmatn prprov.lut
res west poly prov = 2
asel west poly prov = 183
polygonshade west fmatn prprov.lut
polygonshade faultintr prov
quit