Движение по окружности
- //движение по окружности
- program trigonometry;
- const
- posx=150; //x координата центра окружности
- posy=150; //y координата центра окружности
- rx=50; //радиус х
- ry=50; //радиус у
- speed=10; //интервал (скорость) перемещения
- var
- x,y,s:integer; //переменные: координаты и скорость
- begin
- repeat
- x:=trunc(sin(s*pi/180)*rx+posx); //|обновляем
- y:=trunc(cos(s*pi/180)*ry+posy); //|координаты
- s:=s+speed;
- setcolor(0,0,0);
- fillrect(0,0,getwidth,getheight);
- setcolor(25,75,150);
- drawtext('Kalter',x,y); //отображаем текст, согласно расчитанным координатам
- repaint
- until false
- end.
- //в результате получется анимация текста по окружности с центром в точке (150,150) и радиусом 50
Если использовать этот код для рисование окружности (что было бы глупо (быть может)), то интервал speed стоит поставить на 1 и убрать отрисовку чёрного квадрата.
