|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
как задать координаты
Подскажите как задать координаты точке, чтобы она двигалась по окружносте?
|
#2
|
||||
|
||||
x = Radius * cos(a)
y = Radius * sin(a) a - угол |
#3
|
|||
|
|||
Цитата:
|
#4
|
||||
|
||||
Код:
procedure TForm1.FormPaint(Sender: TObject); const Radius = 50; cx = 70; // Координата центра круга по x cy = 90; // Координата центра круга по y DotCount = 30; // Кол-во точек на окружности var x, y, i: integer; begin for i := 0 to DotCount-1 do begin x := cx + Round( Radius * cos( 360/DotCount*i*3.14/180 ) ); y := cy + Round( Radius * sin( 360/DotCount*i*3.14/180 ) ); Canvas.Pixels[x,y] := clBlack; end; end; Последний раз редактировалось Decoding, 08.11.2006 в 13:18. |