paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-10 09:49:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

small fix in sector, pieslice replaced by call to sector

Browse Source
This commit is contained in:
michael 1998-08-12 14:01:08 +00:00
parent f087270d00
commit 7a71322035
1 changed files with 15 additions and 26 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

41
rtl/linux/graph.pp
View File

@ -1354,20 +1354,8 @@ end;
procedure PieSlice(X, Y: Integer; StAngle, EndAngle, Radius: Word);
Var i,tmpcolor: Word;
ac : arccoordstype;
Begin
tmpcolor:=thecolor;
setcolor(thefillcolor);
For i:= 0 To Radius Do
Arc (X, Y, StAngle, EndAngle, i);
setcolor(tmpcolor);
{ Border using current color}
arc (X,y,stangle,endangle,Radius);
getarccoords(ac);
Line (x,y,ac.xstart,ac.ystart);
Line (x,y,ac.xend,ac.yend);
sector (x,y,stangle,endangle,radius,radius);
end;
procedure Sector(X, Y: Integer;
@ -1375,25 +1363,23 @@ procedure Sector(X, Y: Integer;
Var I,tmpcolor : longint;
tmpang : real;
tmpx,tmpy : Integer;
ac : arccoordstype;
begin
tmpcolor:=Thecolor;
SetColor(TheFillColor);
For i:= stangle to endangle Do
Begin
Begin
tmpAng:= i*Pi/180;
curX:= Round (xRadius*Cos (tmpAng));
curY:= Round (YRadius*Sin (tmpAng));
tmpX:= X - curx;
tmpy:= Y + cury;
curx:=x+curx;
cury:=y-cury;
Line (curX, curY,tmpx,tmpy);
curX:= x+Round (xRadius*Cos (tmpAng));
curY:= y-Round (YRadius*Sin (tmpAng));
Line (x,y,curX, curY);
PutPixel (curx,cury,tmpcolor);
PutPixel (tmpx,tmpy,tmpcolor);
End;
SetColor(tmpcolor);
End;
SetColor(tmpcolor);
getarccoords(ac);
Line (x,y,ac.xstart,ac.ystart);
Line (x,y,ac.xend,ac.yend);
end;
{ Color routines
@ -1503,7 +1489,10 @@ end.
{
$Log$
Revision 1.4 1998-08-12 13:25:33 michael
Revision 1.5 1998-08-12 14:01:08 michael
small fix in sector, pieslice replaced by call to sector
Revision 1.4 1998/08/12 13:25:33 michael
+ added arc,ellipse,fillelipse,sector,pieslice
Revision 1.3 1998/08/10 09:01:58 michael