home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1989 / 07 / tricks / f_demo.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1989-03-22  |  1.1 KB  |  50 lines
  1. (* ------------------------------------------------------ *)
  2. (*                     F_DEMO.PAS                         *)
  3. (*          (c) 1989  D.Nashed  &  TOOLBOX                *)
  4. (* ------------------------------------------------------ *)
  5. PROGRAM Farben_Demo;
  6.  
  7. USES Graph, Crt, Pats;
  8.  
  9. VAR x, y, t : INTEGER;
  10.  
  11. PROCEDURE Init;
  12.  
  13. VAR det, modus : INTEGER;
  14.  
  15. BEGIN
  16.   ClrScr;
  17.   DetectGraph(det, modus);
  18.   IF det <> 7 THEN Halt;
  19.   InitGraph(det, modus,'');
  20.   IF GraphResult <> grOk THEN Halt;
  21.   OutTextXY(420, 325, '(c) 1989 D.Nashed & TOOLBOX');
  22. END;
  23.  
  24. PROCEDURE Male_Quadrat(xk, yk, farbe : WORD);
  25. VAR x, y : INTEGER;  s : STRING[10];
  26. BEGIN
  27.   SetFillPattern(pat[farbe], 1);
  28.   Rectangle(xk, yk, xk+60, yk+35);
  29.   FloodFill(xk+1, yk+1, 1);
  30.   Str(farbe, s); OutTextXY(xk+5, yk-10, s);
  31. END;
  32.  
  33. BEGIN
  34.   Init;
  35.   x := -70;
  36.   y :=  10;
  37.   FOR t := 0 TO 64 DO BEGIN
  38.     x := x+70;
  39.     IF x+70 > 710 THEN BEGIN
  40.       y := y+50;
  41.       x := 0;
  42.     END;
  43.     Male_Quadrat (x,y,t);
  44.   END;
  45.   ReadLn;
  46.   CloseGraph;
  47. END.
  48. (* ------------------------------------------------------ *)
  49. (*                 Ende von F_DEMO.PAS                    *)
  50.