š¨Syntax10.Scn.FntSyntax10i.Scn.FntSyntax10b.Scn.Fnt L ļ‚@MODULE Bitmaps; (** Markus Knasm…ller *) IMPORT Display; TYPE Bitmap* = POINTER TO BitmapDesc; BitmapDesc* = RECORD w-, h-: LONGINT; END; VAR Disp-: Bitmap; PROCEDURE CopyBlock* (sb, db: Bitmap; sx, sy, w, h, dx, dy, mode: INTEGER); BEGIN IF (sx = 0) & (sy = 0) THEN Display.CopyBlock (dx, -h, w, h, dx, dy, mode) ELSE Display.CopyBlock (sx, sy, w, h, sx, -h, mode) END END CopyBlock; PROCEDURE New* (w, h: LONGINT): Bitmap; VAR b: Bitmap; BEGIN NEW (b); b.w := w; b.h := h; RETURN b END New; BEGIN NEW (Disp); END Bitmaps.