DEFINITION MODULE VDIAttribs;


FROM GEMVDIbase IMPORT PxyArrayType;


(* attribute functions *)

PROCEDURE SetWritingMode (Handle, mode: INTEGER): INTEGER;

(* set mode used for subsequent drawing operations *)


PROCEDURE SetColour (Handle, Index: INTEGER; RGBIn: PxyArrayType);

(* set colour representation *)


PROCEDURE SetLineType (Handle, style: INTEGER): INTEGER;

(* set polyline line type *)


PROCEDURE DefineLineStyle (Handle, pattern: INTEGER);

(* Set user-defined line style pattern *)


PROCEDURE SetLineWidth (Handle, width: INTEGER): INTEGER;

(* Set polyline line width *)


PROCEDURE SetLineColour (Handle, ColourIndex: INTEGER): INTEGER;

(* sets colour index for subsequent polyline operations *)


PROCEDURE SetEndLineStyle (Handle, BegStyle, EndStyle: INTEGER);

(* set polyline end styles *)


PROCEDURE SetMarkerType (Handle, symbol: INTEGER): INTEGER;

(* set polymarker type *)


PROCEDURE SetMarkerHeight (Handle, height: INTEGER): INTEGER;

(* Set polymarker height *)


PROCEDURE SetMarkerColour (Handle, ColourIndex: INTEGER): INTEGER;

(* set polymarker colour index *)


PROCEDURE SetAbsCharHeight (Handle, height: INTEGER;
                            VAR CharWidth, CharHeight,
                                CellWidth, CellHeight: INTEGER);

(* Set character height, absolute mode *)


PROCEDURE SetPointCharHeight (Handle, point: INTEGER;
                              VAR CharWidth, CharHeight,
                                  CellWidth, CellHeight: INTEGER): INTEGER;

(* set character cell height, points mode *)


PROCEDURE SetRotation (Handle, angle: INTEGER): INTEGER;

(* set character baseline vector *)


PROCEDURE SetFont (Handle, font: INTEGER): INTEGER;

(* Set text face *)


PROCEDURE SetGraphicTextColour (Handle, ColourIndex: INTEGER): INTEGER;

(* set graphic text colour index *)


PROCEDURE SetGraphicTextEffects (Handle, Effect: INTEGER): INTEGER;

(* set graphic text special effects *)


PROCEDURE SetGraphicTextAlignment (Handle, HorIn, VertIn: INTEGER;
                                   VAR HorOut, VertOut: INTEGER);

(* Set graphic text alignment *)


PROCEDURE SetFillInteriorStyle (Handle, style: INTEGER): INTEGER;

(* set fill interior style *)


PROCEDURE SetFillStyle (Handle, styleIndex: INTEGER): INTEGER;

(* Set fill style index *)


PROCEDURE SetFillColour (Handle, colourIndex: INTEGER): INTEGER;

(* set fill colour index *)


PROCEDURE SetFillPerimeterVisibility (Handle, perVis: INTEGER): INTEGER;

(* set fill perimeter visibility *)


PROCEDURE DefineFillPattern (Handle: INTEGER;
                             VAR pFillPatt: ARRAY OF INTEGER;
                             planes: INTEGER);

(* Set user-defined fill pattern *)

END VDIAttribs.