| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как нарисовать наклонный овал [D5, Win2k]
weris © (2002-03-19 08:08:00)ответ плиз на мыло
weris@tpu.ru
MBo (2002-03-20 13:23:00) [1]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;
Сергей Чурсин (2002-03-20 12:33:00) [2]скоро доделаю компонент, который это сможет (но сейчас еще не доделал) - тогда смотри http://www.geocities.com/schursin
| |
