paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-22 22:29:28 +02:00
Code Issues Packages Projects Releases Wiki Activity

* execute multiplications before divisions in lineclipped to avoid rounding errors

Browse Source
This commit is contained in:
Jonas Maebe 1999-09-27 12:35:27 +00:00
parent 0f8f8e8ff4
commit de09b385d3
1 changed files with 8 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
rtl/inc/graph/clip.inc
View File

@ -104,25 +104,25 @@ const
code:=code1;
if (code and LEFT) <> 0 then
begin
newy:=y1+(y2-y1)*(xmin-x1) div (x2-x1);
newy:=y1+((y2-y1)*(xmin-x1)) div (x2-x1);
newx:=xmin;
end
else
if (code and RIGHT) <> 0 then
begin
newy:=y1+(y2-y1)*(xmax-x1) div (x2-x1);
newy:=y1+((y2-y1)*(xmax-x1)) div (x2-x1);
newx:=xmax;
end
else
if (code and BOTTOM) <> 0 then
begin
newx:=x1+(x2-x1)* ((ymax-y1) div (y2-y1));
newx:=x1+((x2-x1)*(ymax-y1)) div (y2-y1);
newy:=ymax;
end
else
if (code and TOP) <> 0 then
begin
newx:=x1+(x2-x1)*(ymin-y1) div (y2-y1);
newx:=x1+((x2-x1)*(ymin-y1)) div (y2-y1);
newy:=ymin;
end;
if (code1 = code) then
@ -142,7 +142,10 @@ end;
{
$Log$
Revision 1.5 1999-09-18 22:21:09 jonas
Revision 1.6 1999-09-27 12:35:27 jonas
* execute multiplications before divisions in lineclipped to avoid rounding errors
Revision 1.5 1999/09/18 22:21:09 jonas
+ hlinevesa256 and vlinevesa256
+ support for not/xor/or/andput in vesamodes with 32k/64k colors
* lots of changes to avoid warnings under FPC