home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / l / l216 / 2.ddi / XPIE.PRO < prev    next >
Encoding:
Text File  |  1987-03-23  |  5.6 KB  |  206 lines
  1. /****************************************************************
  2.  
  3.      Turbo Prolog Toolbox
  4.      (C) Copyright 1987 Borland International.
  5.  
  6.         Demo of    piechart
  7. ****************************************************************/
  8.  
  9. project "xpie"
  10.  
  11. include "tdoms.pro"
  12. include "gdoms.pro"
  13.  
  14. database
  15.     newsline(string)
  16.  
  17. include "gglobs.pro"
  18. include "tpreds.pro"
  19. include "gpreds.pro"
  20. include "gpie.pro"
  21.  
  22. predicates
  23.     message(string,string,string,string,string)
  24.     wfs(char)
  25.     wait(integer)
  26.  
  27.  
  28. goal
  29.     assert(newsline("Press the space bar to continue.   ")),
  30.     graphics(1,1,1),
  31.     makewindow(1,6,0,"",0,0,18,40),
  32.     makewindow(3,7,0,"",18,0,6,40),
  33.     makewindow(4,8,0,"SPACE BAR MESSAGE",24,5,1,20),
  34.     message("PIECHARTS are easily drawn by giving",
  35.         "the CENTER and RADIUS of the", 
  36.                 "piechart and the PERCENTAGE,",
  37.         "FRAMECOLOR, FILLCOLOR and",
  38.         "LABEL for each slice in the pie."),
  39.     shiftwindow(1),    
  40.     pieChart(11000,19000,6000,
  41.              [slice(10.6,"January",1,2),
  42.               slice(20.7,"February",2,3),
  43.               slice(15.1,"March",3,2),
  44.               slice(23.5,"April",1,3),
  45.               slice(5,"June",2,1),
  46.                   slice(17,"July",3,2)]),
  47.     wfs(_),
  48.     message("To attach an explanatory text to",
  49.         "a pie chart you can use",
  50.         "the gwrite tool predicate.",
  51.         "",
  52.         ""),
  53.     shiftwindow(1),
  54.     gwrite(0,5,"SALES THE FIRST SIX MONTHS IN 1987",3,0),
  55.     gwrite(5,0,"EVALUATION:",1,0),
  56.     gwrite(6,0,"------------",1,0),
  57.     gwrite(8,0,"\219 = good",3,0),
  58.     gwrite(10,0,"\219 = average",2,0),
  59.     gwrite(12,0,"\219 = bad",1,0),
  60.     gwrite(14,0,"------------",1,0),
  61.     wfs(_),
  62.     message("If certain slices need special",
  63.         "attention they may be moved outwards",
  64.         "and their labels may be suffixed with",
  65.         "a percentage.",
  66.         ""),
  67.     shiftwindow(1),
  68.     clearwindow,
  69.     pieChart(11000,19000,6000,
  70.              [slice(10.6,"January",1,2),
  71.               slice(-20.7,"February=",2,3),
  72.               slice(15.1,"March",3,2),
  73.               slice(-23.5,"April=",1,3),
  74.               slice(5,"June",2,1),
  75.               slice(17,"July",3,2)]),
  76.     gwrite(0,5,"SALES THE FIRST SIX MONTHS IN 1987",3,0),
  77.     gwrite(4,0,"EVALUATION:",3,0),
  78.     gwrite(6,0,"------------",1,0),
  79.     gwrite(8,0,"\219 = good",3,0),
  80.     gwrite(10,0,"\219 = average",2,0),
  81.     gwrite(12,0,"\219 = bad",1,0),
  82.     gwrite(14,0,"------------",1,0),
  83.     wfs(_),
  84.     message("Two small piecharts may be ",
  85.         "used for comparing different periods.",
  86.         "",
  87.         "",
  88.         ""),
  89.     shiftwindow(1),
  90.     clearwindow,
  91.     pieChart(15000,7000,3000,
  92.              [slice(10.6,"Jan",1,2),
  93.               slice(20.7,"Feb",2,3),
  94.               slice(15.1,"Mar",3,2),
  95.               slice(17,"Apr",2,1)]),
  96.     pieChart(15000,20000,3000,
  97.              [slice(16,"May",1,2),
  98.               slice(10.7,"Jun",2,3),
  99.               slice(15.1,"Jul",3,2),
  100.               slice(6,"Aug",2,1)]),
  101.     wfs(_),
  102.     message("The next demo requires an EGA card.",
  103.         "16 colors are used to distinguish",
  104.         "the different slices.",
  105.         "Press E if the EGA card is attached",
  106.                 "otherwise press the space bar"),
  107.         
  108.     retract(newsline(_)),
  109.     assert(newsline("Press E when using EGA-card  ")),
  110.     wfs(Key),!,
  111.     str_char(K,Key),
  112.     upper_lower(K,"e"),
  113.     graphics(4,1,1),
  114.     makewindow(1,6,0,"",0,0,18,80),
  115.     makewindow(3,7,0,"",18,0,6,80),
  116.     makewindow(4,8,0,"SPACE BAR MESSAGE",24,30,1,20),
  117.     message("Piechart using EGA mode with 640 x 200 pixels in 16 colors",
  118.         "",
  119.         "",
  120.         "",
  121.         ""),
  122.     shiftwindow(1),    
  123.     gwrite(0,0,"SALES JANUARY 1986 - MARCH 1987",1,0),
  124.     gwrite(3,0,"Colors of the two best months:",1,0),
  125.     gwrite(5,10,"\219",7,0),
  126.     gwrite(7,10,"\219",10,0),
  127.  
  128.     pieChart(11000,20000,6500,
  129.              [slice(5,"Jan86",1,1),
  130.               slice(7,"Feb86",2,2),
  131.               slice(8,"Mar86",3,3),
  132.               slice(5,"Apr86",4,4),
  133.               slice(6,"May86",5,5),
  134.               slice(6,"Jun86",6,6),
  135.               slice(-9,"Jul86=",7,7),
  136.               slice(4,"Aug86",8,8),
  137.               slice(8,"Sep86",9,9),
  138.               slice(-9,"Oct86=",10,10),
  139.               slice(6,"Nov86",11,11),
  140.               slice(3,"Dec86",12,12),
  141.               slice(5,"Jan87",13,13),
  142.               slice(7,"Feb87",14,14),
  143.               slice(3,"Mar87",15,15)]),
  144.     retract(newsline(_)),
  145.     assert(newsline("Press the SPACE BAR to continue. ")),
  146.     wfs(_),
  147.     graphics(5,1,1),
  148.     makewindow(1,6,0,"",0,0,18,80),
  149.     makewindow(3,7,0,"",18,0,6,80),
  150.     makewindow(4,8,0,"SPACE BAR MESSAGE",24,30,1,20),
  151.     message("EGA supports 640 x 350 pixel resolution in 16 colors",
  152.         "Higher resolution implies a decrease in speed.",
  153.         "",
  154.         "",
  155.         ""),
  156.     shiftwindow(1),
  157.     gwrite(0,0,"SALES JANUARY 1986 - MARCH 1987",1,0),
  158.     gwrite(3,0,"The two best months:",1,0),
  159.     gwrite(5,5,"Jul86  \219",7,0),
  160.     gwrite(7,5,"Oct86  \219",10,0),
  161.  
  162.     pieChart(11000,20000,6000,
  163.              [slice(5,"Jan86",1,1),
  164.               slice(7,"Feb86",2,2),
  165.               slice(8,"Mar86",3,3),
  166.               slice(5,"Apr86",4,4),
  167.               slice(6,"May86",5,5),
  168.               slice(6,"Jun86",6,6),
  169.               slice(-9,"Jul86=",7,7),
  170.               slice(4,"Aug86",8,8),
  171.               slice(8,"Sep86",9,9),
  172.               slice(-9,"Oct86=",10,10),
  173.               slice(6,"Nov86",11,11),
  174.               slice(3,"Dec86",12,12),
  175.               slice(5,"Jan87",13,13),
  176.               slice(7,"Feb87",14,14),
  177.               slice(3,"Mar87",15,15)]),
  178.     wfs(_).
  179.  
  180.  
  181. clauses
  182.    message(S1,S2,S3,S4,S5):-
  183.        shiftwindow(Old),shiftwindow(3),
  184.        clearwindow,
  185.     attribute(1),write(S1,"\n"),
  186.     attribute(2),write(S2,"\n"),
  187.     attribute(1),write(S3,"\n"),
  188.     attribute(2),write(S4,"\n"),
  189.     attribute(1),write(S5,"\n"),
  190.     shiftwindow(Old).
  191.    
  192.    wfs(C):- 
  193.        shiftwindow(4),clearwindow,
  194.     attribute(1),
  195.        newsline(S),field_str(0,0,20,S),
  196.        keypressed,readchar(C),!,shiftwindow(3).
  197.  
  198.    wfs(C):-wait(8000),
  199.        retract(newsline(String)),!,
  200.        frontstr(1,String,F,Rest),
  201.        concat(Rest,F,New),
  202.        assertz(newsline(New)),
  203.        wfs(C).
  204.  
  205.    wait(0):-!. wait(N):-N1=N-1,wait(N1).
  206.