; ;LTtest.MCR;
;author: Milan Anthony Vlasak
;date: November 1th 2003
;landolay@bigpond.com
;http://caddmouse.com
;description: Macro to test for Linetypes. Maintains current LC,LW and LZ.
;description: Draws 81 linetypes 6 units long and 1/10 units above each other
;;;setting:
/XMD,++,/MSP,++;
MO; sets absolute mode
/VIN,1,0; sets control loop variable to zero
/VRL,2,1/10; sets parallel lines at 1/10 of the unit appart - change "10" if desired
/VRL,1,0; sets start 'y' to zero
;;;execution:
.LOOP; start loop routine
LT,$I(1);
LI,0,$R(1),6,$R(1);
/VIN,1,$I(1)+1;
/VRL,1,$R(1)-$R(2);
/IF,$I(1)[EQ]81,/GTO,END;
/GTO,LOOP;
.END;
ZA;
/XMD,--,/MSP,--;