;>>> TEXT-RESCALE.Gxm
;>>> Rescales Text of one size to another. 
;>>> Written by Vincent Ferrara 2005 
;**************************************************
;>>> Description:
;>>> FIrstly you are asked for the text size you whish to rescale.
;>>> Secondly you are asked for the new text size. 
;>>> Thirdly you select the text for rescaling.
;>>> This macro will filter out the text and process only the text you wish to rescale.
;
/MSP,++,MO; 
/VLC;
TZ,!,/VRL,0,$VAL;
;
.SOURCE;
/PMT,1,'Text Rescale',#;
/PMT,2,'Enter EXISTING text size you whish to Rescale:_',#,|, Click object to match size  OR [D] show distance between 2 pts',#; 
TZ,~;
/MSP,--;
TZ,!,/VRL,1,$VAL;
;
.TARGET;
/MSP,++;
/PMT,1,'Text Rescale',#;
/PMT,2,'Enter NEW text size you whish to change to:_',#,|, Click object to match size  OR [D] show distance between 2 pts',#; 
TZ,~;
/MSP,--;
TZ,!,/VRL,2,$VAL;
;
/VRL,3,$R(2)/$R(1);
;
.SELECT;
/SEL,Select Text Lines to Rescale ...; 
/CEL,F,T,!,A,!,L,!; 
/VIN,0,$VAL; 
/VIN,1,$I(0)+1; 
;
.LOOP; 
/VIN,1,$I(1)-1; 
/IF,$I(1)[EQ]0,/GTO,EXIT; 
/EEX,$I(1),V,2,A,/VRL,4,$STR; 
/IF,$R(4)[EQ]$R(1),/GTO,RESCALE;
/GTO,LOOP; 
;
.RESCALE;
/EEX,$I(1),P,1,A,/VPT,1,$PNTX,$PNTY; 
/EEX,$I(1),V,1,A,/VRL,5,$STR; 
/EEX,$I(1),V,1,N,$R(5)*$R(3); 
/EEX,$I(1),V,2,A,/VRL,6,$STR; 
/EEX,$I(1),V,2,N,$R(6)*$R(3); 
/IF,$I(1)[GT]$I(0),/GTO,EXIT; 
/GTO,LOOP; 
;
.EXIT; 
TZ,$R(0),!,!;
/MSP,--,PU;