| 123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129 |
- Listing:
- 1 (******************************************************************************)
- 2 (* SAMPLE01.MOD *)
- 3 (* *)
- 4 (* MoveTo/LineTo Example *)
- 5 (* Taken from SAMPLE01.PAS - Metagraphics Software Corporation (c) 1987-1989 *)
- 6 (* *)
- 7 (* PSW 10/31/90 07:42pm *)
- 8 (******************************************************************************)
- 9
- 10 MODULE Sample01;
- 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 Meta;
- 24 IMPORT IO;
- 25
- 26 VAR
- 27 GrafixCard,
- 28 CommPort,
- 29 i: INTEGER;
- 30 ch: CHAR;
- 31 sR: GrConst.rect;
- ***** ^ not supported yet
- 32
- 33
- 34 BEGIN
- 35 (* init the system *)
- 36
- 37 GrQry.GrInit(GrafixCard, CommPort);
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- 38
- 39 i := Meta.InitGrafix(-GrafixCard);
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- 40
- 41 IF (i # 0) THEN
- 42 (* Display reason for no go *)
- 43 GrQry.GrInitErr(GrafixCard, CommPort, i);
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- 44 END;
- 45
- 46 Meta.SetDisplay(GrConst.GrafPg0); (* Switch to graphics page 0 *)
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- 47 Meta.ScreenRect(sR); (* Get the screen limits *)
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- 48 Meta.EraseRect(sR); (* Erase the screen *)
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- 49 Meta.FrameRect(sR);
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- 50 Meta.MoveTo(sR.Xmin, sR.Ymin); (* Draw a full screen x *)
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- 51 Meta.LineTo(sR.Xmax, sR.Ymax);
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- 52 Meta.MoveTo(sR.Xmin, sR.Ymax);
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- 53 Meta.LineTo(sR.Xmax, sR.Ymin);
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- 54
- 55 Meta.MoveTo(sR.Xmin+10, sR.Ymax DIV 2);
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- 56 Meta.DrawString('This is a line of text');
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- 57 ch := IO.RdChar(); (* Wait for a keypress *)
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- 58
- 59 GrQry.GrQuit('', 0);
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- 60 END Sample01.
- 63 errors
|
