home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1988 / 02 / appl_grf / hintdemo.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1987-12-04  |  1.3 KB  |  44 lines
  1. (*------------------------------------------------------------------*)
  2. (*                      HINTDEMO.PAS                                *)
  3. (*        Zeichnen im Vorder- und Hintergrund mit den               *)
  4. (*            Grafikprimitiven aus IGRAFIK.PAS                      *)
  5. (*     (C) Prof. Dr. Rudolf Borges & PASCAL INTERNATIONAL           *)
  6.  
  7. PROGRAM HintDemo;
  8.  
  9. TYPE x_Koord_Sys = INTEGER;
  10.      y_Koord_Sys = INTEGER;
  11.  
  12. VAR y1, y2: INTEGER;
  13.  
  14. (*$I IGRAFIK *)
  15. (*$I IMEMMEM *)
  16. (* Fuer Kompilierung zum COM-File *)
  17. (* ersetze IMEMMEM durch ICOMFILE *)
  18.  
  19. BEGIN
  20.   (* Nur fuer Kompilierung zum COM-File mit *)
  21.   (* voreingestellter Startadresse:         *)
  22.   HeapZeigerSetzen;
  23.   ClrScr; GotoXY(10,13);
  24.   Write('Der erste Teil des Bildes wird im Hintergrund gezeichnet.');
  25.   SystemSicherstellen;
  26.   y1 := ScreenYmax DIV 2;
  27.   FOR y2 := 0 TO ScreenYmax DIV 10 DO BEGIN
  28.     Position(0, y1);
  29.     PlotLine(ScreenXmax, 10 * y2);
  30.   END;
  31.   GrafikEin; Delay(3000); Exit_Graphic;
  32.   GotoXY(10,13);
  33.   Write('Der zweite Teil des Bildes wird im Vordergrund gezeichnet.');
  34.   Delay(3000); ClrScr; GrafikEin;
  35.   y2 := y1;
  36.   FOR y1 := 0 TO ScreenYmax DIV 10 DO BEGIN
  37.     Position(0, 10 * y1);
  38.     PlotLine(ScreenXmax, y2);
  39.   END;
  40.   REPEAT UNTIL KeyPressed;
  41.   SystemZurueckbringen;
  42.   GotoXY(20,13); WriteLn('Aufwiedersehen!');
  43. END.
  44.