Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.06.02;
Скачать: CL | DM;

Вниз

Изменение координат объекта?   Найти похожие ветки 

 
Shadowofman ©   (2003-05-20 18:16) [0]

Приветствую всех!

Существует объект PolyLine.
Координаты точек задаются целыми числами, т.е. INTEGER.
При необходимости повернуть этот объект на какой-нибудь угол fi относительно его оси, координаты точек меняются по формулам поворота: x1:=x*cos(fi)+y*sin(fi) и y1:=-x*sin(fi)+y*cos(fi).
Но x1 и y1 уже будут не целыми числами, т.е. REAL, и, соответственно, в PolyLine новые координаты не поставишь.
Подскажите, пожалуйста, как поступить в данной ситуации?
Заранее благодарен.


 
MBo ©   (2003-05-20 18:17) [1]

Round


 
Shadowofman ©   (2003-05-20 18:19) [2]

То есть получается, что это сможно исправить ТОЛЬКО округлением новых координат?


 
MBo ©   (2003-05-20 18:19) [3]

да.


 
Shadowofman ©   (2003-05-20 18:20) [4]

Спасибо большое!


 
Palladin ©   (2003-05-20 18:21) [5]

ну если не нравится округлением, может отбрасывынием дробной понравится?
Trunc


 
Юрий Зотов ©   (2003-05-20 18:24) [6]

> Shadowofman © (20.05.03 18:19)

На уроках арифметики меня учили, что существуют только два способа преобразования дробного числа в целое - округление и отбрасывание дробной части.

Если Вы знаете другие способы, то можно использовать и их.


 
LMD   (2003-05-20 18:33) [7]

Trunc


 
Palladin ©   (2003-05-20 18:37) [8]

Что trunc?


 
LMD   (2003-05-20 18:43) [9]

Ответ уже дан, но специально для

> Palladin
:
x1:=Trunc(x*cos(fi)+y*sin(fi)) и y1:=Trunc(-x*sin(fi)+y*cos(fi)).


 
Palladin ©   (2003-05-20 18:47) [10]

а зачем это мне?
меня просто удивляют люди которые ответы других дублируют...
вот ты зачем продублировал?


 
LMD   (2003-05-20 18:51) [11]

Стар я, глуховат стал
И печатаю долго..



Страницы: 1 вся ветка

Текущий архив: 2003.06.02;
Скачать: CL | DM;

Наверх




Память: 0.49 MB
Время: 0.014 c
11-2838
AlbertHakimov
2002-09-07 15:50
2003.06.02
Своиство Align на компоненте Panel-ь


3-2749
Dim!S
2003-05-13 09:03
2003.06.02
Выборка с уточнением даты


14-3065
Swift
2003-05-15 21:21
2003.06.02
новичок в Delphi. Первые вопросы.


14-3121
Vital
2003-05-14 15:59
2003.06.02
Web Snap


1-2966
Chery
2003-05-21 11:10
2003.06.02
Как Borland Socket Server (scktsrvr) сделать службой?