Как нарисовать наклонный овал

← →
weris (2002-03-19 08:08) [0]

ответ плиз на мыло
weris@tpu.ru

← →
Сергей Чурсин (2002-03-20 12:33) [1]

скоро доделаю компонент, который это сможет (но сейчас еще не доделал) - тогда смотри http://www.geocities.com/schursin

procedure TForm1.Button1Click(Sender: TObject);
var i,n:integer;
ang:integer;
sfi,cfi,alpha:double;
xa,ya:double;
x,y:integer;
a,b:integer;
x0,y0:integer;
begin
ang:=30;//градус поворота ;)
x0:=200;y0:=200;
a:=150;b:=100;//полуоси
n:=60;
sfi:=sin(degtorad(ang));
cfi:=cos(degtorad(ang));
for i:=0 to n do begin
alpha:=i*2*pi/n;
xa:=a*cos(alpha);
ya:=b*sin(alpha);
x:=round(x0+xa*cfi+ya*sfi);
y:=round(y0-xa*sfi+ya*cfi);
if i=0 then canvas.moveto(x,y) else canvas.lineto(x,y);
end;

Как нарисовать наклонный овал Найти похожие ветки