home *** CD-ROM | disk | FTP | other *** search
/ gondwana.ecr.mu.oz.au/pub/ / Graphics.tar / Graphics / fermiVogle.tar.Z / fermiVogle.tar / devel / examples / ptrivial.p < prev    next >
Text File  |  1996-02-07  |  847b  |  41 lines
  1.  
  2. program trivial;
  3.  
  4. #include "Vogle.h"
  5. (*
  6.  * the basic test program for a driver if we can draw a line and do
  7.  * hardware text we are almost there!
  8.  *)
  9. var
  10.     device: string_t;
  11.     i: integer;
  12.  
  13. begin
  14.     write('Enter output device: ');   (* read in device name *)
  15.     readln(device);
  16.  
  17.     Vinit(device);
  18.  
  19.     Font('large');
  20.  
  21.     Color(BLACK);            (* we want to clear in black *)
  22.     Clear;                (* clear to current color *)
  23.  
  24.     Color(GREEN);            (* set current color to green *)
  25.  
  26.     Move2(-1.0, 0.0);        (* draw a horizontal line at y = 0 *)
  27.     Draw2(1.0, 0.0);
  28.  
  29.     i := GetKey;            (* pause for some input *)
  30.  
  31.     Move2(0.0, 0.0);        (* draw a line along x = 0 *)
  32.     Draw2(0.0, 1.0);
  33.  
  34.     Move2(0.0, 0.0);        (* move to the middle of the screen *)
  35.     DrawStr('Hello');        (* draw "Hello" starting at the origin *)
  36.  
  37.     i := GetKey;            (* pause again *)
  38.  
  39.     Vexit            (* set screen back to original state *)
  40. end.
  41.