Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.07.25;
Скачать: CL | DM;

Вниз

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

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

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


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

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


 
MBo ©   (2002-03-20 13:23) [2]

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;



Страницы: 1 вся ветка

Текущий архив: 2002.07.25;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.014 c
1-81367
Secam
2002-07-12 20:06
2002.07.25
Как обработать такую структуру:Variant Array of Variant ?


1-81336
sasha M
2002-07-12 13:08
2002.07.25
Как сделать форму в виде


1-81226
Sour
2002-07-14 12:27
2002.07.25
Отенки цвета


1-81240
Андрей Ч.
2002-07-13 21:11
2002.07.25
Вопрос скорее по Object Pascal ...


14-81444
Ghostlady
2002-06-27 13:05
2002.07.25
Как отправить SMS сообщение через радиомодем?