examp/guitest.log

   1 program guitest;
   2
   3 #include "classes/gui.inc"
   4
   5 unit intro:GUI procedure;
   6 var mx,my,mb:integer;
   7 begin
   8  call GUI_Rect(50,10,300,30,c_red,c_darkblue);
   9  call GUI_WriteText(51,11,unpack("Graphic User Interface Test Program"),c_white,
  10                               c_darkblue);
  11  call GUI_WriteText(20,140,unpack("Press mouse key"),c_red,c_white);
  12  call GUI_Rect(10,40,300,110,c_green,c_lightgrey);
  13  call GUI_WriteText(15,45,unpack("This is demonstration program"),c_black,
  14 c_lightgrey);
  15  call GUI_WriteText(15,65,unpack("for new class named GUI."),c_black,c_lightgrey);
  16  call GUI_WriteText(15,85,unpack("Written by O.S."),c_black,c_lightgrey);
  17  mb:=0;
  18  while mb=0 do call GUI_MousePressed(mx,my,mb); od;
  19 end intro;
  20
  21 unit Lines:GUI procedure;
  22 var i,j:integer;
  23 begin
  24  call GUI_Clear;
  25  call GUI_WriteText(10,10,unpack("You can draw lines using Line or LineTo procedures"),
  26      c_black,c_white);
  27  call GUI_Line(20,20,120,120,c_blue);
  28  i:=10; call GUI_Move(150,50);
  29  j:=0;
  30  while i<120 do
  31    call GUI_LineTo(i,100,j);
  32    i:=i+5;j:=j+1;
  33    if j>15 then j:=0; fi;
  34  od;
  35  call GUI_WriteText(10,150,unpack(" Press any key "),c_yellow,c_red);
  36 i:=0;
  37  while i=0 do i:=inkey; od;
  38 end Lines;
  39
  40
  41 unit Rectangles:GUI procedure;
  42 var i,j:integer;
  43 begin
  44  call GUI_Clear;
  45  call GUI_WriteText(10,10,unpack("You can draw rectangles using Rect procedure"),
  46      c_black,c_white);
  47  call GUI_Rect(30,30,300,130,c_darkred,c_darkblue);
  48  call GUI_Rect(130,40,100,50,c_blue,c_blue);
  49  call GUI_Rect(50,80,180,100,c_yellow,c_darkgrey);
  50 call GUI_WriteText(10,150,unpack(" Press any key "),c_yellow,c_red);
  51 i:=0;
  52  while i=0 do i:=inkey; od;
  53 end Rectangles;
  54
  55 unit Ellipses:GUI procedure;
  56 var i,j:integer;
  57 begin
  58  call GUI_Clear;
  59  call GUI_WriteText(10,10,unpack("You can draw ellipses and arcs using
  60   Ellipse  procedure"),c_black,c_white);
  61  call GUI_Ellipse(50,50,30,30,0,360,c_darkblue,c_yellow);
  62  call GUI_Ellipse(100,50,50,30,0,360,c_red,c_red);
  63  call GUI_Ellipse(150,50,80,50,0,180,c_black,c_green);
  64  call GUI_Ellipse(250,50,50,50,0,40,c_violet,c_violet);
  65 call GUI_WriteText(10,150,unpack(" Press any key "),c_yellow,c_red);
  66 i:=0;
  67  while i=0 do i:=inkey; od;
  68 end Ellipses;
  69
  70
  71 unit Images:GUI procedure;
  72 var c:array_of integer,i:integer;
  73 begin
  74 call GUI_Clear;
  75  call GUI_WriteText(10,10,unpack("There is also possibility to put images"),
  76                               c_black,c_white);
  77  call GUI_WriteText(10,25,unpack("on the screen"),
  78                               c_black,c_white);
  79  call GUI_WriteText(10,40,unpack("You can load an image from .BMP,.GIF,.XPM file:"),
  80                               c_black,c_white);
  81  call GUI_PutImgFile(50,60,"examp/logo.bmp");
  82  call GUI_WriteText(10,130,unpack("and copy bitmaps from/to screen:"),
  83                               c_black,c_white);
  84  c:=GUI_GetImg(50,60,100,20);
  85  call GUI_PutImg(20,150,c);
  86  call GUI_KillImg(c);
  87 call GUI_WriteText(10,200,unpack(" Press any key "),c_yellow,c_red);
  88 i:=0;
  89  while i=0 do i:=inkey; od;
  90
  91 end Images;
  92
  93 unit WriteRead:GUI procedure;
  94 var i:integer,r:real,c:char,s:array_of char;
  95 begin
  96  call GUI_Clear;
  97  call GUI_WriteText(10,10,unpack("These are functions for read/write operations"),
  98                       c_yellow,c_red);
  99  call GUI_WriteText(10,30,unpack("Text:"),c_black,c_white);
 100  s:=GUI_ReadText(10,50,c_darkblue,c_lightgrey);
 101  call GUI_WriteText(10,70,s,c_darkred,c_yellow);
 102  call GUI_WriteText(10,90,unpack("Integer:"),c_black,c_white);
 103  i:=GUI_ReadInt(10,110,c_darkblue,c_lightgrey);
 104  call GUI_WriteInt(10,130,i,c_darkred,c_yellow);
 105  call GUI_WriteText(10,250,unpack("Press any key"),c_black,c_white);
 106 i:=0;
 107 while i=0 do i:=inkey; od;
 108  call GUI_ClearArea(10,30,200,150);
 109  call GUI_WriteText(10,30,unpack("Real:"),c_black,c_white);
 110  r:=GUI_ReadReal(10,50,c_darkblue,c_lightgrey);
 111  call GUI_WriteReal(10,70,r,c_darkred,c_yellow);
 112  call GUI_WriteText(10,90,unpack("Char:"),c_black,c_white);
 113  c:=GUI_ReadChar(10,110,c_darkblue,c_lightgrey);
 114  call GUI_WriteChar(10,130,c,c_darkred,c_yellow);
 115
 116  call GUI_WriteText(10,250,unpack("Press any key"),c_black,c_white);
 117 i:=0;
 118 while i=0 do i:=inkey; od;
 119
 120 end WriteRead;
 121
 122 unit QuitProc:GUI procedure;
 123 begin
 124  call GUI_WriteText(30,150,unpack("This is the end my dear friend..."),
 125           c_yellow,c_lightgrey);
 126 end QuitProc;
 127
 128 unit menu:GUI function:integer;
 129 var i:integer;
 130 begin
 131 call GUI_Clear;
 132 call GUI_Rect(0,0,640,480,c_black,c_lightgrey);
 133 call GUI_WriteText(10,10,unpack("Choose your option: (red letter)"),
 134    c_black,c_lightgrey);
 135 call GUI_WriteChar(10,50,'L',c_red,c_lightgrey);
 136 call GUI_WriteText(18,50,unpack("ines"),c_blue,c_lightgrey);
 137 call GUI_WriteChar(100,50,'R',c_red,c_lightgrey);
 138 call GUI_WriteText(110,50,unpack("ectangles"),c_blue,c_lightgrey);
 139 call GUI_WriteChar(220,50,'E',c_red,c_lightgrey);
 140 call GUI_WriteText(230,50,unpack("llipses"),c_blue,c_lightgrey);
 141
 142 call GUI_WriteChar(10,70,'I',c_red,c_lightgrey);
 143 call GUI_WriteText(18,70,unpack("mages"),c_blue,c_lightgrey);
 144 call GUI_WriteChar(100,70,'W',c_red,c_lightgrey);
 145 call GUI_WriteText(110,70,unpack("rite/read functions"),c_blue,c_lightgrey);
 146
 147 call GUI_WriteChar(10,90,'Q',c_red,c_lightgrey);
 148 call GUI_WriteText(18,90,unpack("uit"),c_blue,c_lightgrey);
 149 i:=0;
 150 while i=0 do i:=inkey; od;
 151 result:=i;
 152 end menu;
 153
 154 var mn:integer;
 155 begin
 156  call intro;
 157  mn:=0;
 158  while ( mn<>ord('q')) and  (mn<>ord('Q')) do
 159   mn:=menu;
 160   if (mn=ord('l')) or (mn=ord('L')) then call Lines; fi;
 161   if (mn=ord('r')) or (mn=ord('R')) then call Rectangles; fi;
 162   if (mn=ord('e')) or (mn=ord('E')) then call Ellipses; fi;
 163   if (mn=ord('i')) or (mn=ord('I')) then call Images; fi;
 164  if (mn=ord('w')) or (mn=ord('W')) then call WriteRead; fi;
 165 od;
 166  call QuitProc;
 167 end.\0\0