(********************************************************************************

Name         : Graphics.DEF
Version      : 1.0
Purpose      : Inteface to graphics library
Author       : ms
Modified     : 2.4.86  15:35  ms

********************************************************************************)

DEFINITION MODULE Graphics;

FROM SYSTEM IMPORT ADDRESS, BYTE;

TYPE ViewPort = RECORD
                  next: POINTER TO ViewPort;
                  colorMap,
                  dspIns,
                  sprIns,
                  clrIns,
                  uCopIns: ADDRESS;
                  dWidth, dHeight: INTEGER;
                  dxOffset, dyOffset: INTEGER;
                  modes: CARDINAL;
                  res: CARDINAL;
                  rasInfo: ADDRESS
                END;
     View     = RECORD
                  viewPort: ADDRESS;
                  lofCprList,
                  shfCprList: ADDRESS;
                  dyOffset, dxOffset: INTEGER;
                  modes: CARDINAL;
                END;
     RasInfo  = RECORD
                  next: POINTER TO RasInfo;
                  bitMap: ADDRESS;
                  rxOffset, ryOffset: INTEGER
                END;
     BitMap   = RECORD
                  bytesPerRow,
                  rows: CARDINAL;
                  flags, depth: BYTE;
                  pad: CARDINAL;
                  planes: ARRAY [0..7] OF ADDRESS
                END;

PROCEDURE OffDisplay;
PROCEDURE OnDisplay;

PROCEDURE InitView(VAR v: View);
PROCEDURE InitBitMap(VAR bm: BitMap; d, w, h: CARDINAL);
PROCEDURE InitVPort(VAR vp: ViewPort);

PROCEDURE MakeVPort(VAR v: View; VAR vp: ViewPort);
PROCEDURE MrgCop(VAR v: View);

PROCEDURE LoadView(VAR v: View);

END Graphics.