home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / CMPLTPAS.ZIP / PATTERNS.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1988-09-02  |  2.2 KB  |  76 lines
  1. {--------------------------------------------------------------}
  2. {                          Patterns                            }
  3. {                                                              }
  4. {            Graphics pattern demonstration program            }
  5. {                                                              }
  6. {                             by Jeff Duntemann                }
  7. {                             Turbo Pascal V5.0                }
  8. {                             Last update 9/3/88               }
  9. {                                                              }
  10. {     From: COMPLETE TURBO PASCAL 5.0  by Jeff Duntemann       }
  11. {    Scott, Foresman & Co., Inc. 1988   ISBN 0-673-38355-5     }
  12. {--------------------------------------------------------------}
  13.  
  14. PROGRAM Patterns;
  15.  
  16. USES Graph;
  17.  
  18. CONST
  19.   Halftone1 : FillPatternType =
  20.               ($CC,$33,$CC,$33,$CC,$33,$CC,$33);
  21.   Halftone2 : FillPatternType =
  22.               ($AA,$55,$AA,$55,$AA,$55,$AA,$55);
  23.   Squiggles : FillPatternType =
  24.               ($94,$84,$48,$30,$00,$c1,$22,$14);
  25.   Vertical  : FillPatternType =
  26.               ($CC,$CC,$CC,$CC,$CC,$CC,$CC,$CC);
  27.   Bricks    : FillPatternType =
  28.               ($01,$82,$44,$28,$10,$20,$40,$80);
  29.   Blocks    : FillPatternType =
  30.               ($00,$3C,$42,$42,$42,$42,$3C,$00);
  31.  
  32. VAR
  33.   GraphDriver : Integer;
  34.   GraphMode   : Integer;
  35.   ErrorCode   : Integer;
  36.  
  37.  
  38. BEGIN
  39.   GraphDriver := Detect;  { Let the BGI determine what board we're using }
  40.   DetectGraph(GraphDriver,GraphMode);
  41.   InitGraph(GraphDriver,GraphMode,'');
  42.   IF GraphResult <> 0 THEN
  43.     BEGIN
  44.       Writeln('>>Halted on graphics error: ',GraphErrorMsg(GraphResult));
  45.       Halt(2)
  46.     END;
  47.  
  48.  
  49.   SetFillPattern(Halftone1,White);
  50.   Bar(0,0,99,100);
  51.   Rectangle(0,0,99,100);
  52.  
  53.   SetFillPattern(Halftone2,White);
  54.   Bar(110,0,209,100);
  55.   Rectangle(110,0,209,100);
  56.  
  57.   SetFillPattern(Squiggles,White);
  58.   Bar(220,0,319,100);
  59.   Rectangle(220,0,319,100);
  60.  
  61.   SetFillPattern(Vertical,White);
  62.   Bar(0,105,99,199);
  63.   Rectangle(0,105,99,199);
  64.  
  65.   SetFillPattern(Bricks,White);
  66.   Bar(110,105,209,199);
  67.   Rectangle(110,105,209,199);
  68.  
  69.   SetFillPattern(Blocks,White);
  70.   Bar(220,105,319,199);
  71.   Rectangle(220,105,319,199);
  72.  
  73.   Readln;
  74.   CloseGraph;
  75. END.
  76.