home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / l / l216 / 2.ddi / XGRAPH.PRO < prev    next >
Encoding:
Text File  |  1987-03-23  |  6.8 KB  |  215 lines
  1. /***************************************************************
  2.      Prolog Toolbox
  3.      (C) Copyright 1987 Borland International.
  4. ***************************************************************/
  5.  
  6. code=3000 include "c:tdoms.pro" include "c:gdoms.pro"
  7.  
  8. database
  9.     Scale(ScaleNo,x,x,y,y)
  10.     activeScale(ScaleNo)
  11.     axes(integer,integer,integer,xmarker,ymarker,col,row,col,row)
  12.     newsline(string)       /* used by this demo only */
  13.  
  14. include "gglobs.pro"
  15. include "tpreds.pro"
  16. include "gpreds.pro"
  17. include "ggraph.pro"
  18.  
  19. predicates
  20.     element(string,drawing)
  21.     process(char)
  22.     zoom(x,x,y,y)
  23.     message(string,string,string,string,string)
  24.     wfs(char)
  25.     wait(integer)
  26.     function(x)
  27.  
  28. goal
  29.     retract(_),fail; /* clear the database, then continue */
  30.     assert(newsline("Press  the  space  bar     ")),
  31.     graphics(2,1,1),
  32.     makewindow(1,11,1,"Window used for Graph 1",0,36,18,44),
  33.         makewindow(2,12,1,"Window used for Graph 2",0,0,18,35),
  34.     makewindow(3,13,1,"Events",18,0,7,80),
  35.     makewindow(4,7,0,"SPACE BAR MESSAGE",24,30,1,20),
  36.  
  37.     message("The first graph is used for coordinates, which on the X-axis run from 0",
  38.         "to 100 and on the Y-axis run from -100 to +100.  This is accomplished by",
  39.         "defining a 'scale'. In this way the graph is automatically scaled to fit",
  40.         "the actual window.",
  41.         "\tdefineScale(1,0,100,-100,100)"),
  42.     defineScale(1,0,100,-100,100),
  43.     wfs(_),
  44.     message("Now we can draw axes in the actual window corresponding to that scale:",
  45.         "",
  46.         "\tmakeAxes(1,Ano,Gno,marker(10,d,3),marker(10,d,4),1,1,1,1)",
  47.         "",
  48.         ""),
  49.     shiftwindow(1),
  50.     removewindow,
  51.     makewindow(1,11,0,"Graph 1",0,36,18,44),
  52.  
  53.     makeAxes(1,         /* Axes pair 1*/
  54.          _,              /* Axes Window No */
  55.          GWindow,    /* Graphics Window No*/
  56.          marker(10,d,3),
  57.          marker(10,d,4),
  58.          2,        /* Left   */
  59.          3,        /* Bottom */
  60.          2,        /* Right  */
  61.          1),        /* Top    */
  62.     wfs(_),
  63.     message("The axes may be labeled. For example using:",
  64.         "",
  65.         "\taxisLabels(1,\"Length in cm\",\"Height in cm\")",
  66.         "",
  67.         ""),
  68.     axisLabels(1,"Length in mm","Height in cm"),
  69.     wfs(_),
  70.     message("Any output may be directed to the graphics window by:",
  71.         "",
  72.         "\tshiftwindow(GraphWindowNo)",
  73.         "\t...draw function output....",
  74.         ""),
  75.     shiftwindow(GWindow),
  76.     function(0),
  77.     wfs(_),
  78.     message("Normal text can be written in the graph-area.",
  79.         "",
  80.         "\tshiftwindow(Gno),cursor(0,0),write(\"F(X)=100*cos(6.28*X/50)\"),",
  81.         "",
  82.         ""),
  83.     shiftwindow(GWindow),
  84.     cursor(0,0),write("F(X)=100*cos(6.28*X/50)"),
  85.     wfs(_),
  86.     message("The markings of the axes may be modified. Notice, that the intervals are",
  87.         "increased, and that exponential notation is used on the X-axis instead of",
  88.         "decimal notation, due to the calls:",
  89.         "",
  90.         "\tmodifyAxes(1,marker(20,e,4),marker(15,d,4)), refreshAxes(1),"),
  91.     modifyAxes(1,marker(20,e,5),marker(15,d,4)),
  92.     refreshAxes(1),
  93.     axisLabels(1,"Length in mm","Height in cm"),
  94.     shiftwindow(GWindow),
  95.     function(0),
  96.     wfs(_),
  97.     message("Window 2 is to be used for another graph - a drawing - which is drawn",
  98.         "relative to a new coordinate system. This requires two calls:",
  99.         "",
  100.         "\tdefineScale(2,0,500,0,300)",
  101.         "\tmakeAxes(2,_,GWindow2,marker(50,d,3),marker(20,d,3),1,1,2,1),"),
  102.     shiftwindow(2),
  103.     makewindow(2,12,0,"Graph 2",0,0,18,35),
  104.     defineScale(2,0,500,0,300),
  105.     makeAxes(2,_,GWindow2,marker(50,d,3),marker(20,d,3),1,1,2,1),
  106.     element(carbody,E1),element(frontwindow,E2),
  107.     element(frontdoor,E3),element(rearwindow,E4),
  108.     element(light,E5),
  109.     shiftwindow(Gwindow2),
  110.     draw([d(1,E1),d(1,E2),d(1,E3),d(1,E4),d(1,E5)]),
  111.     wfs(_),
  112.     message("Text may be positioned according to scaled coordinates using scaleCursor:",
  113.         "For example:",
  114.         "",
  115.         "\tscaleCursor(100,40),write(\"Ford T - Year 1942\")",
  116.         ""),
  117.     shiftwindow(Gwindow2),
  118.     scaleCursor(100,40),write("Ford T - Year 1942"),
  119.     wfs(_),
  120.     message("The following predicates use scaled coordinates: scaleCursor,scalePlot and",
  121.         "scaleLine. As an example of their use we will shift back to the first graph",
  122.         "and the corresponding coordinate system, and then draw a line. This may be",
  123.         "performed by:",
  124.         "\tshiftwindow(GWindow),shiftScale(1),scaleLine(0,0,100,0,1),"),
  125.     shiftwindow(GWindow),shiftScale(1),scaleLine(0,0,100,0,1),
  126.     wfs(_),
  127.     message("Any drawing or graph may be modified by changing the scale.",
  128.         "In this example it is used to make the car look more sporty.",
  129.         "","\tdefineScale(3,0,400,0,400),",""),
  130.     defineScale(3,0,500,0,900),
  131.     modifyAxes(2,marker(50,d,3),marker(50,d,3)),
  132.     refreshAxes(2),
  133.     shiftwindow(Gwindow2),
  134.     draw([d(1,E1),d(1,E2),d(1,E3),d(1,E4),d(1,E5)]),
  135.     wfs(_),
  136.     message("Changing the coordinate system may be used to ZOOM in or out.",
  137.         "Notice the effect when pressing either + or -." ,
  138.         "(Any of the keys  l,r,u,d,<,>  will cause an effect).",
  139.         "",
  140.         "Use Ctrl-Break to stop."),
  141.     retract(newsline(_)),
  142.     assert(newsline("Press  +  -  <  >  l  r  u   or  d.    ")),
  143.     repeat,
  144.     wfs(C),
  145.     write(C),
  146.     process(C),
  147.     refreshAxes(2),
  148.     shiftwindow(Gwindow2),
  149.     draw([d(1,E1),d(1,E2),d(1,E3),d(1,E4),d(1,E5)]),
  150.     fail.
  151.  
  152. clauses
  153.   element(carbody,
  154.      [p(70,100),p(90,195),p(190,205),p(240,300),
  155.     p(400,300),p(450,205),p(500,205),p(500,100),p(70,100)]).
  156.   element(frontwindow,
  157.     [p(243,290),p(320,290),p(320,210),p(200,210),p(243,290)]).
  158.   element(frontdoor,
  159.     [p(200,205),p(200,105),p(320,105),p(320,205),p(200,205)]).
  160.   element(rearwindow,
  161.      [p(330,290),p(398,290),p(438,210),p(330,210),p(330,290)]).
  162.   element(light,[p(85,165),p(93,165),p(98,196)]).
  163.  
  164.   process('+'):- zoom(0,-100,0,-60).    /*big*/
  165.   process('-'):- zoom(0,100,0,60).    /*small*/
  166.   process('l'):- zoom(50,50,0,0).    /*left*/
  167.   process('r'):- zoom(-50,-50,0,0).    /*right*/
  168.   process('u'):- zoom(0,0,-50,-50).    /*up*/
  169.   process('d'):- zoom(0,0,50,50).    /*down*/
  170.   process('w'):- zoom(0,-50,0,0).    /*wide*/
  171.   process('t'):- zoom(0,0,0,-50).    /*tall*/
  172.   process('<'):-
  173.                 activescale(N),!,
  174.           scale(N,X1,X2,_,_),!,
  175.          L=X2-X1,H=X1-X2,
  176.          zoom(L,H,0,0).
  177.   process('>'):-
  178.                 activescale(N),!,
  179.           scale(N,_,_,Y1,Y2),!,
  180.           L=Y2-Y1,H=Y1-Y2,
  181.           zoom(0,0,L,H).
  182.  
  183.   zoom(Dxl,Dxh,Dyl,Dyh):-
  184.     activescale(N),!,
  185.     scale(N,Xmin,Xmax,Ymin,Ymax),!,
  186.     NewXl=Xmin+Dxl,
  187.     NewYl=Ymin+Dyl,
  188.     NewXh=Xmax+Dxh,
  189.     NewYh=Ymax+Dyh,
  190.     NewXl<>NewXh,
  191.     NewYl<>NewYh,!,
  192.     retract(scale(N,_,_,_,_)),!,
  193.     asserta(scale(N,NewXl,NewXh,NewYl,NewYh)).
  194.  
  195.  
  196.    message(S1,S2,S3,S4,S5):-
  197.        shiftwindow(Old),shiftwindow(3),
  198.        clearwindow,write(S1,"\n",S2,"\n",S3,"\n",S4,"\n",S5),shiftwindow(Old).
  199.    
  200.    wfs(C):- 
  201.        shiftwindow(4),clearwindow,
  202.        newsline(S),field_str(0,0,20,S),
  203.        keypressed,readchar(C),!,shiftwindow(3).
  204.    wfs(C):-wait(3000),
  205.        retract(newsline(String)),!,
  206.        frontstr(1,String,F,Rest),
  207.        concat(Rest,F,New),
  208.        assertz(newsline(New)),!,
  209.        wfs(C).
  210.  
  211.    wait(0):-!. wait(N):-N1=N-1,wait(N1).
  212.  
  213.    function(N):-N>100,!.
  214.    function(N):-Y=100*cos(6.28*N/50),scalePlot(N,Y,1),N1=N+1,function(N1).
  215.