VS:SetRRDiam

.VectorScript|VectorScript ..VS:Function Reference|Function Reference ..VS:Function_Reference_Appendix|Appendix

Description

Sets the diameters of a rounded rectangle.

PROCEDURE SetRRDiam(
           h       :HANDLE;
           xDiam   :REAL;
           yDiam   :REAL);

def vs.SetRRDiam(h, xDiam, yDiam):
    return None

Parameters

h		HANDLE
xDiam		REAL
yDiam		REAL

Example

PROCEDURE Example;
VAR
   h :HANDLE;
   x, y :REAL;
BEGIN
   h := FSActLayer;
   IF (h = NIL) | (GetType(h) <> 13) THEN BEGIN
      CallTool(-217);
      h := FSActLayer;
   END;
   GetRRDiam(h, x, y);
   SetRRDiam(h, x * 2, y * 2);
END;
RUN(Example);

Version

Availability: from All Versions

This is drop-in function.