| 123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144 |
- Listing:
- 1 (******************************************************************************)
- 2 (* SAMPLE05.MOD *)
- 3 (* *)
- 4 (* ZoomBits Example *)
- 5 (* Taken from SAMPLE05.PAS - Metagraphics Software Corporation (c) 1987-1989 *)
- 6 (* *)
- 7 (* PSW 10/31/90 09:25pm *)
- 8 (******************************************************************************)
- 9
- 10 MODULE Sample05;
- 11 (*
- 12 * Graphix
- 13 * Release 3.7
- 14 * (c) Copyright 1986-1992 PMI
- 15 * Green Bay, Wisconsin
- 16 * (414) 468-6040
- 17 * All rights reserved
- 18 *
- 19 *)
- 20
- 21 IMPORT GrQry;
- 22 IMPORT GrConst;
- 23 IMPORT GrPorts;
- 24 IMPORT Meta;
- 25 IMPORT IO;
- 26
- 27 VAR
- 28 GrafixCard,
- 29 CommPort: INTEGER;
- 30 i, j: INTEGER;
- 31 ch: CHAR;
- 32 thePort: GrPorts.adsPort; (* pointer to default port *)
- ***** ^ not supported yet
- 33 theBitmap: GrPorts.adsBMap; (* pointer to default bitmap *)
- ***** ^ not supported yet
- 34 scrnR, dstR,
- 35 srcR: GrConst.rect;
- ***** ^ not supported yet
- 36
- 37
- 38 BEGIN
- 39 (* init the system *)
- 40
- 41 GrQry.GrInit(GrafixCard, CommPort);
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- 42
- 43 i := Meta.InitGrafix(-GrafixCard);
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- 44
- 45 IF (i # 0) THEN
- 46 (* Display reason for no go *)
- 47 GrQry.GrInitErr(GrafixCard, CommPort, i);
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- 48 END;
- 49
- 50 Meta.ScreenRect(scrnR);
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- 51 Meta.SetDisplay(GrConst.GrafPg0);
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- 52 Meta.EraseRect(scrnR);
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- 53
- 54 Meta.GetPort(thePort); (* Get default port address *)
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- 55 theBitmap := thePort^.portBMap; (* Get default bmap address *)
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- 56 Meta.MoveTo(50, 50);
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- 57 Meta.DrawString('ZoomBits');
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- 58 Meta.SetRect(srcR, 45, 40, 115, 55);
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- 59 Meta.FrameRect(srcR);
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- 60 Meta.SetRect(dstR, 50, 100, 595, 195);
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- 61 Meta.FrameRect(dstR);
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- 62 Meta.ZoomBits(theBitmap, theBitmap, srcR, dstR, dstR, 0);
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- 63
- 64 Meta.MoveTo(10, 20);
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- 65 Meta.DrawString('press return to terminate');
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- 66
- 67 ch := IO.RdChar();
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- 68
- 69 GrQry.GrQuit('', 0);
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- 70 END Sample05.
- 68 errors
|
