Извините, ничего не найдено.

Igor · 13.04.2012, 21:35

Рисует фигуры Лиссажу. kx/ky - отношение частот. Например, (1;2).
fi - смещение (не сдвиг фаз!) Если его плавно менять то фигура "крутится"



procedure drawFigure(kx,ky:integer; fi:real);
var i:integer;
     x1,y1,x2,y2:integer;  //используются как координаты точек
     Ax,Ay:integer; //амплитуда по осям
begin
Ax:=150;
Ay:=250;
x2:=getWidth div 2+trunc(Ax*sin(fi));
y2:=getHeight div 2+trunc(Ay*cos(fi));
setcolor(100,255,0);
for i:=1 to 314 do
  begin
  x1:=x2;
  y1:=y2;
  x2:=getWidth div 2+trunc(Ax*sin(fi+0.02*kx*i));
  y2:=getHeight div 2+trunc(Ay*cos(fi+0.02*ky*i));
  drawLine(x1,y1,x2,y2);
  end;
end;

ABTOMAT · 13.04.2012, 23:15

Поцоны дух Лиссажу живёт только в осциллографах!