VS:HScale2D
.VectorScript|VectorScript ..VS:Function Reference|Function Reference ..VS:Function_Reference_Appendix|Appendix
Description
Scales the object about the center specified.
PROCEDURE HScale2D(
h :HANDLE;
centerX :REAL;
centerY :REAL;
scaleX :REAL;
scaleY :REAL;
scaleText :BOOLEAN);
def vs.HScale2D(h, centerX, centerY, scaleX, scaleY, scaleText): return None
Parameters
h HANDLE centerX REAL centerY REAL scaleX REAL scaleY REAL scaleText BOOLEAN
Example
PROCEDURE ScaleEachObject; VAR x, y, scaleX, scaleY :REAL; PROCEDURE ScaleTheObject(h :HANDLE); BEGIN HCenter(h, x, y); HScale2D(h, x, y, scaleX, scaleY, TRUE); END; BEGIN scaleX := RealDialog('Enter the X scale factor: ', '2'); scaleY := RealDialog('Enter the Y scale factor: ', '2'); ForEachObject(ScaleTheObject, (SEL)); END; RUN(ScaleEachObject);
Version
Availability: from All Versions
This is drop-in function.