home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / l / l216 / 2.ddi / XPICDEMO.PRO < prev    next >
Encoding:
Text File  |  1987-03-23  |  1.4 KB  |  42 lines
  1. /****************************************************************
  2.  
  3.      Turbo Prolog Toolbox
  4.      (C) Copyright 1987 Borland International.
  5.  
  6.         Demo of    loadPic
  7. ****************************************************************/
  8.  
  9. project "xpicdemo"
  10.  
  11. include "tdoms.pro"
  12. include "gdoms.pro"
  13. include "gglobs.pro"
  14. include "tpreds.pro"
  15.  
  16. PREDICATES
  17.   picture(filename)        
  18.     
  19. GOAL
  20.     picture(X),
  21.     graphics(1,1,2),
  22.     loadpic(X,0,0,0,0,200,320),readchar(_),
  23.     graphics(1,1,3),
  24.     write("\nPIC 1: Whole screen"),readchar(_),
  25.     loadpic(X,0,0, 0,0,200,320),readchar(_),clearwindow,
  26.     write("\nPIC 2: Upper Left Hand Corner "),readchar(_),
  27.     loadpic(X,0,0, 0,0,100,160),readchar(_),clearwindow,
  28.     write("\nPIC 3: Bottom Left Hand Corner "),readchar(_),
  29.     loadpic(X,100,0, 100,0,100,160),readchar(_),clearwindow,
  30.     write("\nPIC 4: Bottom Right Hand Corner "),readchar(_),
  31.     loadpic(X,100,160,100,160,100,160),readchar(_),clearwindow,
  32.     write("\nPIC 5: Upper Right Hand Corner "),readchar(_),
  33.     loadpic(X,0,160, 0,160,100,160),readchar(_),clearwindow,
  34.     write("\nPIC 6: Top Left Corner ===> Bottom Right Corner "),readchar(_),
  35.     loadpic(X,0,0,100,160,100,160),readchar(_),clearwindow,
  36.     write("\nPIC 7: Middle ===> Upper Left Hand\n                   Corner "),readchar(_),
  37.     loadpic(X,50,80, 0,0,100,160),readchar(_),clearwindow,fail.
  38.  
  39. CLAUSES
  40.   picture("Welcome.pic").
  41.   picture("Test.pic").
  42.