home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / l / l216 / 1.ddi / GGRAPH.PRO < prev    next >
Encoding:
Prolog Source  |  1987-03-23  |  8.7 KB  |  292 lines
  1. /************************************************************************
  2.                                       
  3.  
  4.      Turbo Prolog Toolbox
  5.      (C) Copyright 1987 Borland International.
  6.  
  7.              GGRAPH.PRO                     
  8.                                       
  9.  These graphics tools supplied in this file cover             
  10.     1) the alternative coordinates (SCALES)                
  11.     2) drawing axis (rulers)                    
  12.     3) drawing curves and point-graphs                
  13.                                     
  14.  These facilities rely on two database predicates, which have to    
  15.  be declared (in the database section of your program) as:         
  16.      database                            
  17.        Scale(scaleno,x,x,y,y)                    
  18.        ActiveScale(scaleNo)                        
  19.        axes(integer,integer,integer,xmarker,ymarker,col,row,col,row)
  20.                                     
  21.  This file requires that the files GDOMS.PRO and GPREDS.PRO are     
  22.  included.                                
  23. ************************************************************************/ 
  24.  
  25. predicates
  26.   definescale(ScaleNo,x,x,y,y)
  27.   shiftscale(ScaleNo)
  28.   scale_virtual(x,y,vrow,vcol)
  29.   scale_text(x,y,row,col)
  30.  
  31.   ScalePlot(x,y,color)
  32.   ScaleLine(x,y,x,y,color)
  33.   ScaleCursor(x,y)
  34.   ScalePolygon(color,drawing)
  35.   draw(drawings)
  36.  
  37.   findScale(ScaleNo,drawing,factor,factor)
  38.   FindExtremes(drawing,x,x,y,y)
  39.   extremes(drawing,x,x,y,y, x,x,y,y)
  40.   nondeterm anumber(ScaleNo)
  41.  
  42. clauses
  43.   scale_virtual(X,Y,VRow,VCol):-
  44.     bound(X),bound(Y),
  45.     ActiveScale(N),!,
  46.       scale(N,Xmin,Xmax,Ymin,Ymax),!,
  47.     windowarea(Rows,Cols),
  48.     getcols(TotalCols),
  49.     /*Xcoordinate*/
  50.     Vcol=((Cols-1)/(TotalCols))*31999*(X-Xmin)/(Xmax-Xmin),
  51.     Vrow= (Rows-1)/25*31999*(1-(Y-Ymin)/(Ymax-Ymin))+1279.
  52.  
  53.   
  54.   scale_text(X,Y,Row,Col):-
  55.     scale_virtual(X,Y,X1,Y1),
  56.     virtual_text(X1,Y1,Row,Col).
  57.  
  58.   definescale(N,Xmin,Xmax,Ymin,Ymax):-
  59.     free(N),
  60.     anumber(N),
  61.     not(scale(N,_,_,_,_)),
  62.     shiftscale(N),!,
  63.     asserta(scale(N,Xmin,Xmax,Ymin,Ymax)).
  64.  
  65.   definescale(N,_,_,_,_):-
  66.     bound(N),
  67.     retract(scale(N,_,_,_,_)),fail.
  68.   definescale(N,Xmin,Xmax,Ymin,Ymax):-
  69.     bound(N),
  70.     shiftscale(N),!,
  71.     asserta(scale(N,Xmin,Xmax,Ymin,Ymax)).
  72.  
  73.   shiftscale(_):-
  74.       retract(activeScale(_)),fail.
  75.   shiftscale(N):-
  76.       assertz(activeScale(N)).
  77.     
  78.   ScaleCursor(X,Y):-
  79.     scale_text(X,Y,Row,Col),
  80.     cursor(Row,Col).
  81.  
  82.   ScalePlot(X,Y,Color):-
  83.     scale_virtual(X,Y,VRow,VCol),
  84.     dot(Vrow,VCol,Color).
  85.   
  86.   ScaleLine(Xa,Ya,Xb,Yb,Color):-
  87.     scale_virtual(Xa,Ya,Row_a,Col_a),
  88.     scale_virtual(Xb,Yb,Row_b,Col_b),
  89.       line(Row_a,Col_a,Row_b,Col_b,Color).
  90.  
  91.   ScalePolygon(Color,[p(Xa,Ya),p(Xb,Yb)|Rest]):-!,
  92.     ScaleLine(Xa,Ya,Xb,Yb,Color),
  93.       ScalePolygon(Color,[p(Xb,Yb)|Rest]).
  94.   ScalePolygon(_,_).
  95.  
  96.   draw([]):-!.
  97.   draw([d(Color,Drawing)|Tail]):-
  98.        ScalePolygon(Color,Drawing),draw(Tail).
  99.  
  100.   findscale(N,Drawing,Xfactor,Yfactor):-
  101.     FindExtremes(Drawing,Xlow,Xhigh,Ylow,Yhigh),
  102.     Xh=Xfactor*(Xhigh-Xlow)+Xlow,
  103.     Yh=Yfactor*(Yhigh-Ylow)+Ylow,
  104.     definescale(N,Xlow,Xh,Ylow,Yh).
  105.  
  106.   FindExtremes([p(X,Y)|Rest],Xlow,Xhigh,Ylow,Yhigh):-
  107.       extremes([p(X,Y)|Rest],X,X,Y,Y,Xlow,Xhigh,Ylow,Yhigh).
  108.  
  109.   extremes([],Xl,Xh,Yl,Yh,Xl,Xh,Yl,Yh):-!.
  110.   extremes([p(X,Y)|Rest],Xl,Xh,Yl,Yh, Xlow,Xhigh,Ylow,Yhigh):-
  111.       X=X_,Xl=Xl_,Y=Y_,Yl=Yl_,
  112.       min(X_,Xl_,TempXlow_),min(Y_,Yl_,TempYlow_),
  113.     Xh=Xh_,Yh=Yh_,
  114.     max(X_,Xh_,TempXhigh_),max(Y_,Yh_,TempYhigh_),
  115.     TempXlow=TempXlow_,
  116.     TempXhigh=TempXhigh_,
  117.     TempYlow=TempYlow_,
  118.     TempYhigh=TempYhigh_,
  119.     extremes(Rest,TempXlow,TempXhigh,TempYlow,TempYhigh,Xlow,Xhigh,Ylow,Yhigh).
  120.  
  121.   
  122.   aNumber(0).
  123.   aNumber(X):-anumber(BeforeX),X=BeforeX+1.
  124.  
  125.  
  126. /****************************************************************
  127.             AXES
  128. ****************************************************************/
  129.  
  130. predicates
  131.   /*AxisNo,AxisWindow,GraphWindow,marker(Xunit,Form,Width),
  132.                     marker(Yunit,Form,Width),
  133.                     Yunit,Left,Bottom,Right,Top*/
  134.   makeAxes(integer,integer,integer,xmarker,ymarker,col,row,col,row)
  135.   /*AxisNo*/
  136.   refreshAxes(integer)
  137.   modifyAxes(integer,xmarker,ymarker)
  138.   axisLabels(integer,string,string)
  139.  
  140.  
  141. /**************************************************************
  142.     Miscellaneous helping predicates
  143. **************************************************************/
  144.  
  145.   DrawAxes(integer)    /* (axisno) */
  146.   x_ruler(vcol,vrow,x,vcol,x,x,col,symbol,integer)
  147.   y_ruler(vcol,vrow,y,vrow,y,y,symbol,integer)
  148.   wr_if_sp(row,col,col,col,integer,string)
  149.   removeaxesdef(integer)
  150.  
  151. clauses
  152.   removeaxesdef(Ref):- retract(axes(Ref,_,_,_,_,_,_,_,_)),!.
  153.   removeaxesdef(_).
  154.  
  155.   modifyAxes(Ref,Xmarker,Ymarker):-
  156.       retract(axes(Ref,Aw,Gw,_,_,L,B,R,T)),!,
  157.       asserta(axes(Ref,Aw,Gw,Xmarker,Ymarker,L,B,R,T)).
  158.  
  159.   makeAxes(Ref,AxesWindow,GraphWindow,
  160.          marker(Xunit,Xformat,Xwidth),
  161.          marker(Yunit,Yformat,YWidth),Left,Bottom,Right,Top):-
  162.  
  163.     removeaxesdef(Ref),
  164.       shiftwindow(AxesWindow),!,/*axes is drawn in the actual window*/
  165.     GraphWindow=AxesWindow+10,
  166.     assertz(axes(Ref,AxesWindow,GraphWindow,
  167.              marker(Xunit,Xformat,Xwidth),
  168.              marker(Yunit,Yformat,YWidth),
  169.              Left,Bottom,Right,Top)),
  170.       drawAxes(Ref),
  171.     _Left=Left+YWidth+1,/*Space for Y-axes label and numbers*/
  172.     max(2,Bottom,_Bottom), /*Minimum space for X-axes label and numbers*/
  173.     makewindow(_,ScrAtt,Frame,Text,Row0,Col0,Hight,Width),/*Size of AxesWindow*/
  174.     sign(Frame,S),
  175.     Row1=Row0+Top+S,
  176.     Col1=Col0+_Left+S,
  177.     Hight1=Hight-Top-_Bottom-S-S,
  178.     Width1=Width-_Left-Right-S-S,
  179.     makewindow(GraphWindow,ScrAtt,0,Text,Row1,Col1,Hight1,Width1).
  180.  
  181.   refreshAxes(Ref):-
  182.     axes(Ref,AxesWindow,_,_,_,_,_,_,_),!,
  183.       shiftwindow(Old),
  184.       shiftwindow(AxesWindow),
  185.       drawAxes(Ref),
  186.       shiftwindow(Old).
  187.  
  188. /****************************************************************
  189.             drawaxes
  190. ****************************************************************/
  191.  
  192.   DrawAxes(Ref):-
  193.     axes(Ref,AxesWindow,_,
  194.          marker(Xunit,Xform,Xw),marker(Yunit,Yform,Yw),
  195.          Left,Bottom,Right,Top),!,
  196.     shiftwindow(AxesWindow),
  197.     clearwindow,        /*clear area for axes and numbers*/
  198.     GraphLeftEdge=Left+Yw+1,    /*Space for Y-axes label and numbers*/
  199.     max(2,Bottom,_Bottom),    /*Space for  X-axes label and numbers*/
  200.     windowarea(Rows,Cols),    /*the drawing size of current window*/
  201.     GraphLowerEdge = Rows-_Bottom,
  202.  
  203.     /*virtual coordinates for lines defining left and bottom 
  204.     border of the drawing area:*/
  205.     virtual_text(Y0,X0,GraphLowerEdge,GraphLeftEdge),
  206.  
  207.     GraphRightEdge = Cols-Right+1,
  208.     virtual_text(Ytop,X1,Top,GraphRightEdge),
  209.     Y1=Ytop-100,
  210.     virtual_text(_,CharWidth,0,1), 
  211.     Y_l=Y0+640,X_l=X0-Charwidth/2,
  212.  
  213.     /* Draw the axes just outside the graph area */
  214.     line(Y_l,X_l,Y_l,X1,1),        /* X-axes */ 
  215.     line(Y_l,X_l,Y1,X_l,1),        /* Y-axes */
  216.  
  217.     /* Draw lines above and to the right */
  218.     line(Y1,X_l,Y1,X1,1),        /* X-axes */ 
  219.     line(Y_l,X1,Y1,X1,1),        /* Y-axes */
  220.  
  221.     /*Calculate intervals on axes*/
  222.     DrawingWidth=Cols-GraphLeftEdge-Right-2,
  223.     DrawingHight=GraphLowerEdge-Top-1,
  224.     virtual_text(VirHight,VirWidth,DrawingHight,DrawingWidth),
  225.  
  226.     activeScale(N),
  227.     scale(N,Xmin,Xmax,Ymin,Ymax),!,
  228.  
  229.     Add_to_vir_X=Xunit/(Xmax-Xmin)*VirWidth,
  230.     Add_to_vir_Y=Yunit/(Ymax-Ymin)*VirHight,
  231.  
  232.     /*Write rulers*/
  233.     x_ruler(X0,Y_l,Xmin,Add_to_vir_X,Xunit,Xmax,0,Xform,Xw),
  234.     y_ruler(X_l,Y0,Ymin,Add_to_vir_Y,Yunit,Ymax,Yform,Yw).
  235.  
  236.   AxisLabels(AxesNo,Xlabel,YLabel):-
  237.     axes(AxesNo,AxesWindow,_,_,marker(_,_,Yw),Left,Bottom,Right,Top),!,
  238.     shiftwindow(Old),
  239.     shiftwindow(AxesWindow),
  240.     GraphLeftEdge=Left+Yw+1,/*Space for Y-axes label and numbers*/
  241.     max(2,Bottom,_Bottom),    /*Space for  X-axes label and numbers*/
  242.     windowarea(Rows,Cols),    /*the drawing size of current window*/
  243.  
  244.     /*Label the X-axes:*/ 
  245.     XlabelLine = Rows-_Bottom+2,
  246.     Xlength=Cols-Left-Right-6,
  247.     field_str(XLabelLine,GraphLeftEdge,XLength,Xlabel),
  248.  
  249.     /*Label the Y-axes*/
  250.     Left1=Left-2,
  251.     max(Left1,0,_Left),
  252.     YHight=XlabelLine-Top,
  253.     concat(Ylabel,"                         ",Ylbl),
  254.     frontstr(YHight,Ylbl,YL,_),
  255.     attribute(A),
  256.     gwrite(Top,_Left,YL,A,1), /*horizontal*/
  257.     shiftwindow(Old).
  258.  
  259.  
  260.   x_ruler(X,Y0,Value,DeltaX,Xunit,Max,ColLastTime,Xformat,Width):-
  261.       Value <= Max,!,
  262.       Y00=Y0+1280,line(Y0,X,Y00,X,1),
  263.     virtual_text(Y0,X,Row,Col),R=Row+1,C=Col-1,
  264.     V=Value,format_string(V,Xformat,Width,String),
  265.     wr_if_sp(R,C,ColLastTime,ColThisTime,Width,String),
  266.     NextValue=Value+Xunit,
  267.     NextX=X+DeltaX,
  268.     x_ruler(NextX,Y0,NextValue,DeltaX,Xunit,Max,ColThisTime,Xformat,Width).
  269.   x_ruler(_,_,_,_,_,_,_,_,_).
  270.  
  271.   y_ruler(X0,Y,Value,DeltaY,Yunit,Max,Yformat,Width):-
  272.       Value <= Max,!,
  273.     virtual_text(_,Delta,0,1),
  274.       X00=X0-Delta,
  275.       line(Y,X00,Y,X0,1),
  276.     virtual_text(Y,X0,Row,Col),
  277.     C=Col-Width, max(0,C,CC), cursor(Row,CC),
  278.  
  279.     V=Value,format_string(V,Yformat,Width,String),
  280.     write(String),
  281.     NextValue=Value+Yunit,
  282.     NextY=Y-DeltaY,
  283.     y_ruler(X0,NextY,NextValue,DeltaY,Yunit,Max,Yformat,Width).
  284.   y_ruler(_,_,_,_,_,_,_,_).
  285.  
  286.  
  287.   wr_if_sp(Row,Col,PreviousCol,UpdatedCol,Width,String):-
  288.       Col>PreviousCol+Width,!,
  289.     field_str(Row,Col,Width,String),
  290.     UpdatedCol=Col.
  291.   wr_if_sp(_,_,PreviousCol,PreviousCol,_,_).
  292.