Мастерская: Основные аспекты программирования игр

[Манжосов Денис :)]

Canvas.Ellipse(0, 0, 100, 100);

[Kostia]

Я участвовал на олимпиаде и мне попалась задача. Написать программу которая рисует окружность обвитую синусоидой, я не справился с этой задачей, но зато потом нашел решение.
Насчет окружности.
sin a=y
cos a=x
a-это угол от 0 до pi*2
Но если вы построите окружность таким образом, то она будет в 1 пиксел радиусом.
Для того чтобы увеличить радиус нужно sin a и cos a умножить на радиус.
Тут появляется еще одна проблема, сколько нужно прибавлять к углу, чтобы все было тип топ, а нужно прибавлять 1/r.

Немного про pi. Pi измеряется в радианах, и число pi=~3,14 это пол окружности, значит pi=180 градусов, а 2pi=360 градусов.

[Манжосов Денис :)]

Блиин, совершенно не понимаю как решить эту задачу. Только с Canvas. Ну вот в принципе решение которое я только смог сделать:
const
X = 100;
Y = 100;
R = 50;
Canvas.Ellipse(R,R,R+X,R+Y);

[Kostia]

procedure circle(xc,yc,r : real);
var
  a: real;
  x,y: real;
begin
  a:=0;
  while a<=pi*2 do
  begin
    x:=cos(a)*r+xc;
    y:=sin(a)*r+yc;
    form1.Canvas.Pixels[round(x),round(y)]:=0;
    a:=a+1/r;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  circle(200,200,100);
end;

Эх, Попробую объяснить как это работает

[Kostia]

a-это угол, нам нужно перебрать углы всех точек на окружности и посчитать их координаты.
sin a - высчитывает координату по оси y, и значение он возвращает от -1 до 1
cos a - высчитывает координату по оси x, и значение он возвращает от -1 до 1
Мы умножаем значение sin и cos на радиус и прибавляем смещение по y и x соответственно, т.е. двигаем центр окружности в нужную точку.
А чтобы при больших радиусах не обидеть не одной точки или на оборот не расчитать одну и туже точку несколько раз, угол нужно увеличивать на 1/r
Хоть немного понятней стало?

[Манжосов Денис :)]

О спасибо, сейчас разбирусь.

[Kostia]

Есть еще такой график функции sin(x). Это синусоида, т.к. sin возвращает значение от -1 до 1, то если вместо угла указать координату x, то поручится волнистая линия:

procedure _sin();
var
  x: real;
begin
  x:=0;
  while x<=form1.Width do
  begin
    form1.Canvas.Pixels[round(x*10),round(sin(x)*10)+50]:=0; //синусоида
    form1.Canvas.Pixels[round(x*10),50]:=0; //просто линия
    x:=x+1/10;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  _sin();
end;

График получается периодический и повторяется через каждые 2pi

[Kostia]

Можешь попробовать построить волнистую окружность. Попробуй в первом примере радиус расчитывать по синусоиде.

[Манжосов Денис :)]

Блиииин. Простите меня за тупость, но я совершенно не пойму, как это всё делать, в код я скопировал, но блин, совершенно не могу додуматься что же делается например вот в этих строчках кода:

     form1.Canvas.Pixels[round(x*10),round(sin(x)*10)+50]:=0; //синусоида  
    form1.Canvas.Pixels[round(x*10),50]:=0; //просто линия  
     x:=x+1/10;

Совершенно не понимаю sin и cos. Занятия будут проводиться потом основываясь на этих данных?

[Kostia]

Мы собираемся делать игры, а там это просто необходимо. Например поворот изображения, полет пули в направлении пушки, самонаводящиеся ракеты и т.д.
Нужно только понять. И это вовсе не тупость, я понимаю как это тружно, сам оказывался в похожих ситуациях, но учитель попался с хорошими нервами и все мне разживал и я не хочу быть хуже его. И постараюсь разжевать и тебе, главное чтобы у тебя терпения хватила и не убежал бы.