IPB
ЛогинПароль:

> Движение точки по линии
сообщение
Сообщение #1


Новичок
*

Группа: Пользователи
Сообщений: 44
Пол: Мужской

Репутация: -  0  +


Привет=) Есть линия, начало которой привязано к центру координат(х1, у1=320, 240), направленная под произвольным углом α. Нужно, чтобы черная точка прошла по всей белой линии, не выходя за её пределы толщины. Толщина точки равна толщине линии. Как это реализовать?
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
 
 Ответить  Открыть новую тему 
Ответов
сообщение
Сообщение #2


Perl. Just code it!
******

Группа: Пользователи
Сообщений: 4 100
Пол: Мужской
Реальное имя: Андрей

Репутация: -  44  +


Можно и так smile.gif

В общем вот набросок. Для наглядности отрисовывается маленькая окружность вместо точки. И через некоторый промежуток.

uses Crt, Graph;

function F(x: Integer) : Integer;
begin
F := round(3/4 * x);
end;

var

gd, gm: Integer;

x: Integer;

begin

gd := Detect;

InitGraph(gd, gm, '');


line(0, 0, 320, 240);

SetColor(Red);

x := 0;

while (x <= 320) do begin
circle(x, F(x), 2);
delay(300);
inc(x, 20);
end;

readkey;

end.




--------------------
perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

Сообщений в этой теме
pashist   Движение точки по линии   27.09.2006 1:11
klem4   Из заданных 2-х точек прямой (центр и (x1, y1)) по…   27.09.2006 1:37
pashist   :unsure: А можно код?   27.09.2006 1:51
volvo   А я бы перешел в полярную систему координат... И н…   27.09.2006 2:00
klem4   Можно и так :) В общем вот набросок. Для наглядно…   27.09.2006 2:14
pashist   Написал, но работает только в частном случае..( По…   27.09.2006 3:18
klem4   Уравнени у меня рассчитано для прямой проходящей ч…   27.09.2006 12:36
Бродяжник   Может я чего не понимаю, но Так? Если рассматрива…   27.09.2006 13:17
Гость   Если так, то можно допустить некоторое отклонение …   27.09.2006 16:26
pashist   uses graph,crt; const x1=320; y1=240; …   1.10.2006 17:55
volvo   Ну, наверное, потому, что функция написана неправи…   1.10.2006 18:09
pashist   Уряяяя!!!!! Спасибо! :good…   1.10.2006 18:14
pashist   Кадр 11 дубль 2.. Почему функция работает некоррек…   1.10.2006 21:06
volvo   Смотря, что ты еще изменял. У меня, например, выда…   1.10.2006 22:58
pashist   Еще вопрос, в тему. Есть прямая, которая крутится,…   2.10.2006 2:06
klem4   Ты имеешь в виду, второй конец прямой движется п…   2.10.2006 10:35
pashist   Да. Управление с клавиатуры.   2.10.2006 13:12
klem4   Ну тогда соклько раз можно повторять одно и тоже. …   2.10.2006 20:24
pashist   Нет, смысл не в этом. Дописываю курсовик, там в це…   2.10.2006 23:13
volvo   Я тебе предлагал перейти в полярную систему коорди…   2.10.2006 23:16
pashist   Как перейти к полярной системе координат? У меня в…   3.10.2006 19:00
Бродяжник   Если это та прога про охоту на мышек, с которой я …   3.10.2006 20:06
pashist   Бродяжник, СПАСИБО!! Всё сделал, всё работ…   4.10.2006 2:29


 Ответить  Открыть новую тему 
2 чел. читают эту тему (гостей: 2, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 29.03.2024 0:19
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name