- Joined
- Mar 14, 2010
- Messages
- 5,363
- Reaction score
- 1,343
download link please? o.o
download link
Download the SVN.
Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature currently requires accessing the site using the built-in Safari browser.
download link please? o.o
download link
function TFootholdTree.FindBelow(const Pos: TPoint; var FH: TFoothold): TPoint;
var
F: TFoothold;
X, Y: Integer;
First: Boolean;
MaxY: Double;
CMax: Double;
NewPos: TPoint;
begin
First := True;
X := Pos.X;
Y := Pos.Y;
for F in FFootholds do
if((X >= F.X1) and (X <= F.X2)) or((X>=F.X2)and (X <= F.X1)) then
begin
if(First) then
begin
if(F.X1 = F.X2) then
Continue;
MaxY := (F.Y1 - F.Y2 ) / (F.X1 - F.X2 )*(X - F.X1) + F.Y1 ;
FH := F;
if(MaxY >= Y) then
First := False;
end
else
begin
if(F.X1 = F.X2)then
Continue;
CMax := (F.Y1 - F.Y2) / (F.X1 - F.X2) * (X - F.X1) + F.Y1 ;
if(CMax < MaxY) and (CMax >= Y) then
begin
FH := F;
MaxY := CMax;
end;
end;
end;
if(not First) then
begin
NewPos.X := X;
NewPos.Y := Trunc(MaxY);
Exit(NewPos);
end;
end;
I cause this project is dead?