;;;FLANGEFLASH.gxm
;;;author: Milan Anthony Vlasak
;;;date: 29. June 2002
;;;e-mail address: landolay@bigpond.com
;;;website :http://www.caddmouse.com
;;;description: experimental macro to show the possibility of  Parametric Macro
;;;The macro will show 20 different designs of a simple flange and then exits.
;
;
/MSP,++,/XMD,++;
UN,M;
OD,--,RB,--,MO,OR,--;
YC, 0;
LW, 2;
LT, 0;
LC, 11;
DX,Y,!;
TS,R,0,!,!;
TL,!,*** FLANGE SIZES DESIGN BY TWO RANDOM PARAMETERS ***, ,     Centre radius and holding holes radius,!,#;
ZA;
WB,10,!
DX,Y,!;
/VIN,0,0;
.LOOP;
PO, 0.000000,0.000000;
/VRL,1,$RND(50);
/VRL,2,$RND(10);
LW, 2;
LC, 21;
C2, 0.000000,0.000000;
 $R(1),0.000000;      inside radius - first parameter 1
LC, 13;
C2, $R(1)+3*$R(2),0.000000;
 $R(1)+4*$R(2),0.000000;      radius of a hole - second parameter 2
/VIN,3,(6.28*($R(1)+3*$R(2)))/(4*$R(2);
RC,O,$R(1)+2*$R(2),0,!,0,0,360,$I(3);    does $I(3) radial copies - intermediate parameter as function of 1 and 2
LC, 10;
C2, 0.000000,0.000000;
 $R(1)+6*$R(2),0.000000;      outside radius - intermediate parameter 4 as function of 1 and 2
ZM,3,!;
PA,0,0,!;
WB,2,!;
ZA;
WB,0.5,!;
DX,Y,!;
/VIN,0,$I(0)+1;
/IF,$I(0) [EQ] 20,/GTO,END;
/IF,$I(0) [NE] 20,/GTO,LOOP;
.END
TS,R,0,!,!;
TL,!,END OF BATCH - by Milan A.Vlasak - www.caddmouse.com,!,#;
ZA;
WB,4,!;
DX,Y,!;
OD,++,RB,++,MO,OR,++;
/MSP,--,/XMD,--,PU;