прогуливал геометрию, пасаны чеделать

[supernewbie]

GameLine:=TLine.Create(Engine.Objects.Lines);
GameLine.color:=RGB(63,70,87);
GameLine.x:=180;
GameLine.y:=450;
GameLine.len:=700;
GameLine.angle:=90;

[destructor]

ух епть...


а так чо нарисует: GameLine.angle:=0; ?

[supernewbie]

----

[destructor]

короч угол у тебя задается относительно оси Y

[supernewbie]

и че делать?

[destructor]

Сообщение от destructor

противолежащийкатет:=y2-y1;
прилежащийкатет:=x2-x1;
тангенс: = противолежащийкатет / прилежащийкатет;
угол:= ArcTan( тангенс );

чтобы его получить тут, используй котангенс

[supernewbie]

dx:=value-x;
dy:=ey-y;
path:=Sqrt(sqr(dx)+sqr(dy));
if dy>0 then
tan:=dx/dy else tan:=0;
angle:=Round((ArcTan(tan)*180)/pi);
len:=round(path);

угол 0

Добавлено через 1 минуту
погите

[Nickers]

Ученые выяснили, что тангенс 90 градусов = 0... Гарантирую.

[destructor]

Сообщение от Nickers

Ученые выяснили, что тангенс 90 градусов = 0... Гарантирую.

ага, вот пруфлик http://www.wolframalpha.com/input/?i...%3D+tan%28x%29

Добавлено через 2 минуты

dx:=value-x;
dy:=ey-y;
path:=Sqrt(sqr(dx)+sqr(dy));

if dy>0 then
    angle:=Round((ArcTan(dx/dy)*180)/pi);
else 
    angle:=90 градусов нах;

len:=round(path);

[supernewbie]

госпади