Тема: спираль
Показать сообщение отдельно
  #2  
Старый 07.01.2011, 15:43
Аватар для Bargest
Bargest Bargest вне форума
Профессионал
 
Регистрация: 19.10.2010
Адрес: Москва
Сообщения: 2,390
Версия Delphi: XE3/VS12/FASM
Репутация: 14665
По умолчанию

Когда-то давно, в паскале я делал прогу рисования спирали на весь экран (640х480):
Код:
x1:=320;
y1:=240;
a:=0;
p:=0;
l:=0;
   repeat
   a:=a+pi/180;
   x:=x1;
   y:=y1;
   x1:=320+round(cos(a)*p);
   y1:=240+round(sin(a)*p);
   p:=p+0.01;
   line(x,y,x1,y1);
   l:=l+1;
  until l=40000;
По аналогии можно сделать и движение картинки.
__________________
jmp $ ; Happy End!
The Cake Is A Lie.
Ответить с цитированием