home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / l / l216 / 1.ddi / GPIE.PRO < prev    next >
Encoding:
Prolog Source  |  1987-03-23  |  3.8 KB  |  116 lines
  1. /****************************************************************
  2.  
  3.      Turbo Prolog Toolbox
  4.      (C) Copyright 1987 Borland International.
  5.  
  6.         PIECHART UTILITY
  7. ****************************************************************/
  8.  
  9. DOMAINS
  10.   percent=real
  11.   PieSegment=slice(percent,string,color,color);space
  12.   PieSegmentList=PieSegment*
  13.   Radius=integer
  14.   Angle=real /*in radians*/
  15.  
  16. PREDICATES
  17.   PieChart(vrow,vcol,vradius,pieSegmentList)
  18.   countslices(pieSegmentList,percent)
  19.   scaleslices(pieSegmentList,real,pieSegmentList)
  20.   drawSliceList(vrow,vcol,vradius,PieSegmentList,degrees)
  21.   drawSlice(vrow,vcol,vradius,degrees,degrees,string,integer,color,color)
  22.   wLabel(vrow,vcol,vradius,angle,string,integer,color)
  23.   changeLblCol(string,real,integer)
  24.   add_lbl_percent(string,percent,string)
  25.   determ_connectline(string,integer,string)
  26.  
  27. CLAUSES
  28.   countslices([],0):-!.
  29.   countslices([slice(P,_,_,_)|Rest],Total):-!,
  30.       countSlices(Rest,TotalR),
  31.       Total=abs(P)+TotalR.
  32.   countslices([_|Rest],Total):-!,
  33.       countSlices(Rest,TotalR),
  34.       Total=1+TotalR.    /*1 degree extrace spacing between slices*/
  35.  
  36.   scaleslices([],_,[]).
  37.   scaleslices([slice(P,L,C1,C2)|Rest],F,[slice(P1,L,C1,C2)|SRest]):-!,
  38.       P1=F*P,
  39.       scaleslices(Rest,F,SRest).
  40.   scaleslices([space|Rest],F,[space|SRest]):-!,
  41.       scaleslices(Rest,F,SRest).
  42.   
  43.   PieChart(Row,Col,Radius,SliceL):-
  44.     countSlices(SliceL,Total),
  45.     F=100/Total,
  46.     scaleslices(SliceL,F,SliceL100),
  47.     DrawSliceList(Row,Col,Radius,SliceL100,0).
  48.  
  49.   drawSliceList(Row,Col,Radius,[space|RestSlices],StartAngle):-!,
  50.     NextStart=StartAngle+5,
  51.     drawSliceList(Row,Col,Radius,RestSlices,NextStart).
  52.  
  53.   drawSliceList(Row,Col,Radius,[slice(Percent,Label,Color,FillColor)|RestSlices],StartAngle):-
  54.     Percent>=0,!,
  55.     /*Normal slice*/
  56.     EndAngle=Percent*3.6+StartAngle,
  57.     add_lbl_percent(Label,Percent,Label2),
  58.     determ_connectline(Label2,ConLine,Label3),
  59.     DrawSlice(Row,Col,Radius,StartAngle,EndAngle,Label3,Conline,Color,FillColor),
  60.     DrawSliceList(Row,Col,Radius,RestSlices,EndAngle).
  61.  
  62.   DrawSliceList(Row,Col,Radius,[slice(Percent,Label,Color,FillColor)|RestSlices],StartAngle):-
  63.     /*Outdented slice*/
  64.     EndAngle=-Percent*3.6+StartAngle,
  65.     Middle=(EndAngle+StartAngle)*0.00872664639,/*(A1+A2)/2 * Phi/180*/
  66.     NewRow=Row-sin(Middle)*Radius*0.2,
  67.     NewCol=Col+cos(Middle)*Radius*0.2,
  68.     add_lbl_percent(Label,Percent,Label2),
  69.     determ_connectline(Label2,ConLine,Label3),
  70.     DrawSlice(NewRow,NewCol,Radius,StartAngle,EndAngle,Label3,ConLine,Color,FillColor),
  71.     DrawSliceList(Row,Col,Radius,RestSlices,EndAngle).
  72.   DrawSLiceList(_,_,_,[],_).
  73.  
  74.   DrawSlice(Row,Col,Radius,StartAngle,EndAngle,Label,Conline,Color,FillColor):-
  75.     Middle_rad=(EndAngle+StartAngle)*0.00872664639,/*(A1+A2)/2 * Phi/180*/
  76.     Fill=FillColor,
  77.     sector(Row,Col,Radius,1,StartAngle,EndAngle,Color,FillColor,Fill),
  78.     R1=Row,C1=Col,
  79.     wLabel(R1,C1,Radius,Middle_rad,Label,ConLine,Color).
  80.  
  81.   wLabel(VRow,VCol,Radius,Ang,Label,ConLine,Color):-
  82.     virtual_text(OneR,OneC,1,1),
  83.     SinA=sin(Ang),
  84.     CosA=cos(Ang),
  85.     sign(SinA,SS),
  86.     LblRow=VRow-round(SinA*Radius)-SS*(0.5+abs(SinA))*OneR,
  87.     LblCol=VCol+round(CosA*Radius)-CosA*OneC*1.5,
  88.     virtual_text(LblRow,LblCol,Row,Col),
  89.     changeLblCol(Label,CosA,Delta),
  90.     Col1=Col-Delta,
  91.     max(0,Col1,Col2),
  92.     gwrite(Row,Col2,Label,Color,0),
  93.     Conline>0,!,
  94.     R2=VRow-Radius*SinA,
  95.     C2=VCol+Radius*CosA*0.6,
  96.     line(LblRow,LblCol,R2,C2,Color).
  97.   wLabel(_,_,_,_,_,_,_).
  98.  
  99.   changeLblCol(Label,CosA,D):-
  100.     CosA<0,!,
  101.     str_len(Label,L),
  102.     LL=L-1,
  103.     D=abs(round(CosA*LL)).
  104.   changeLblCol(_,_,0).
  105.  
  106.   add_lbl_percent(Label,Percent,Label2):-
  107.       str_len(Label,L),L1=L-1,
  108.       frontstr(L1,Label,_,S),S="=",!,
  109.     Real=abs(Percent),
  110.       format_string(Real,d,4,String),
  111.       concat(Label,String,Label2).
  112.   add_lbl_percent(Label,_,Label).
  113.  
  114.   determ_connectline(Label2,1,Label3):-frontchar(Label2,'-',Label3),!.
  115.   determ_connectline(Label,0,Label).
  116.