home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / l / l210 / 1.ddi / EXAMPLES.ARC / CH17EX03.PRO < prev    next >
Encoding:
Text File  |  1988-06-21  |  664 b   |  26 lines
  1. /*
  2.    Turbo Prolog 2.0 Chapter 17, Example Program 3
  3.    
  4.    Copyright (c) 1986, 88 by Borland International, Inc
  5.    
  6. */
  7.  
  8.  
  9. constants
  10. % To access your BGI drivers and fonts bgi_path may need to equal "..\\BGI".
  11.    bgi_path = ""
  12.  
  13. % To access the GRAPDECL.PRO file you may need to add a path: 
  14. % include "..\\programs\\GRAPDECL.PRO" 
  15. include "GRAPDECL.PRO" 
  16.  
  17. goal
  18.    initgraph(detect, 0, GraphDriver, GraphMode, bgi_path),
  19.    rectangle(0, 0, 100, 100),
  20.    bar3d(100, 10, 200, 100, 5, 1),
  21.    bar(30, 30, 80, 80),
  22.    drawpoly([50, 100, 100, 100, 150, 150, 50, 100]),
  23.    fillpoly([50, 10, 90, 50, 50, 90, 10, 50]),
  24.    readchar(_),
  25.    closegraph.
  26.