Nakloněné elipsy – Pascal – Fórum – Programujte.com
 x   TIP: Přetáhni ikonu na hlavní panel pro připnutí webu
Reklama
Reklama

Nakloněné elipsy – Pascal – Fórum – Programujte.comNakloněné elipsy – Pascal – Fórum – Programujte.com

 

Hledá se programátor! Plat 1 800 € + bonusy (firma Boxmol.com)
Laaca0
Stálý člen
15. 12. 2007   #1
-
0
-

Standardní jednotka Graph postrádá proceduru pro kreslení nakloněných elips. Sice jsem to v praxi nikdy nepotřeboval, ale stejně mě to štvalo. No, a dneska jsem náhodně našel prográmek v Delphi, který to umí. Takže po očesání, přepsání do pascalu a mírné úpravě to vypadá takhle:



uses Graph;
procedure RotatedEllipse (x,y,a,b:integer;uhel:real);
var sn,cs,theta,xp,yp:real;
xr,yr,li,car:integer;
begin
if a>b then cas:=a div 4 else cas:=b div 4;
uhel:=uhel*pi/180;
sn:=sin(uhel);
cs:=cos(uhel);
for li := 0 to car
do begin
theta := (li/car) * 2*PI;
xp := a * cos(theta);
yp := b * sin(theta);

xr := Round (x - xp*cs + yp*sn);
yr := Round (y + xp*sn + yp*cs);
if li = 0 then MoveTo(xr, yr) else LineTo(xr, yr)
end;
end;

var gd,gm,i:integer;
begin
gd:=vga;
gm:=vgahi;
InitGraph(gd,gm,'');
for i:=0 to 5 do
begin
SetColor(i+1);
RotatedEllipse(220,200,150,55,i*10);
end;
readln;
CloseGraph;
end.

Elipsa se kreslí pomocí série tečen. Je to krásně vidět, když proměnnou car natvrdo nastavíte na nějaké malé číslo - třeba 8.

Nahlásit jako SPAM
IP: 81.0.253.–
DOS-u-akbar
Reklama
Reklama
Zjistit počet nových příspěvků

Přidej příspěvek

Toto téma je starší jak čtvrt roku – přidej svůj příspěvek jen tehdy, máš-li k tématu opravdu co říct!

Ano, opravdu chci reagovat → zobrazí formulář pro přidání příspěvku

×Vložení zdrojáku

×Vložení obrázku

Vložit URL obrázku Vybrat obrázek na disku
Vlož URL adresu obrázku:
Klikni a vyber obrázek z počítače:

×Vložení videa

Aktuálně jsou podporována videa ze serverů YouTube, Vimeo a Dailymotion.
×
 
Podporujeme Gravatara.
Zadej URL adresu Avatara (40 x 40 px) nebo emailovou adresu pro použití Gravatara.
Email nikam neukládáme, po získání Gravatara je zahozen.
-
Pravidla pro psaní příspěvků, používej diakritiku. ENTER pro nový odstavec, SHIFT + ENTER pro nový řádek.
Sledovat nové příspěvky (pouze pro přihlášené)
Sleduj vlákno a v případě přidání nového příspěvku o tom budeš vědět mezi prvními.
Reaguješ na příspěvek:

Uživatelé prohlížející si toto vlákno

Uživatelé on-line: 0 registrovaných, 9 hostů

Podobná vlákna

Výpočet doby pohybu po nakloněné rovině — založil Michaela Bednářová

Obsah elipsy — založil JakubN

Pascal - Výpočet elipsy — založil Embrace

Moderátoři diskuze

 

Hostujeme u Českého hostingu       ISSN 1801-1586       ⇡ Nahoru Webtea.cz logo © 20032016 Programujte.com
Zasadilo a pěstuje Webtea.cz, šéfredaktor Lukáš Churý