home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / l / l045 / 1.ddi / DRWHCH.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1987-12-23  |  1.2 KB  |  52 lines
  1.  
  2. {           Copyright (c) 1985, 87 by Borland International, Inc.            }
  3.  
  4. program DrawHatch;
  5.  
  6. {$I Float.inc}  { Determines what type Float means. }
  7.  
  8. uses
  9.   Dos, Crt, GDriver, GKernel, GWindow, GShell;
  10.  
  11. var
  12.   I : integer;
  13.   X1, X2, Y1, Y2, Temp : Float;
  14.  
  15. begin
  16.   Randomize;
  17.   InitGraphic;                    { Init the system and screen }
  18.  
  19.   DefineWorld(1,0,0,1000,1000);   { Define a world for drawing }
  20.   SelectWorld(1);                 { Select it }
  21.   SelectWindow(1);
  22.   DrawBorder;
  23.  
  24.   for I := 1 to 5 do              { Draw Random boxes with Random Hatch }
  25.   begin
  26.     X1 := 100 + Random(800);
  27.     X2 := 100 + Random(800);
  28.     Y1 := 100 + Random(800);
  29.     Y2 := 100 + Random(800);
  30.  
  31.     if X1 > X2 then               { Swap X's }
  32.     begin
  33.       Temp := X1;
  34.       X1 := X2;
  35.       X2 := Temp;
  36.     end;
  37.  
  38.     if Y1 > Y2 then               { Swap Y's }
  39.     begin
  40.       Temp := Y1;
  41.       Y1 := Y2;
  42.       Y2 := Temp;
  43.     end;
  44.  
  45.     DrawSquare(X1, Y1, X2, Y2, false);      { Draw a square }
  46.     Hatch(X1, Y1, X2, Y2, Random(22)-11);   { Hatch it }
  47.   end;
  48.  
  49.   repeat until KeyPressed;        { Wait until a key is pressed }
  50.   LeaveGraphic;
  51. end. { DrawHatch }
  52.