Показать сообщение отдельно
  #2  
Старый 10.05.2012, 23:51
Аватар для Pilot_Red
Pilot_Red Pilot_Red вне форума
Продвинутый
 
Регистрация: 01.11.2006
Адрес: Карелия
Сообщения: 702
Версия Delphi: D7
Репутация: 11581
По умолчанию

линия рисуется вот так:
moveto(x1,y1)
lineto(x2,y2)


а определить проходит она через точку с координатами (0,0) проверяешь через это уравнение:

(x-x2)/(x1-x2)=(y-y2)/(y1-y2)

подставив вместо выделенного нули, проверяешь равенство. Если выполняется, то линия проходит через начало координат
Ответить с цитированием