Skocz do zawartości

Wzory na linie i koło


Blind

Polecane posty

Linia-pascal-(musisz ja tylko troszke poprawic gdyz ciezko sie pisze z glowy a z przpisywaniem z ksiazki tez czasem nie najlepiej....):
[code=Delphi]

function pobierz_znak(liczba: real): Integer;
begin
Y
XI
H[YZLNBY
XI
HV&W'ŚćłŁÓbĆ7Ś&ÓFV&W'ŚćłŁÓ4(4)}ąĄ1%ą Byte);
var licznik, s, d1x, d1y, d2x: Integer;
d2y,KK[YBY[B^^NBN^L^LCŁ&W'Ść%CŁ&W'Ść%}ŹĄ}4(4(Ą}4(s(r_y);

if (m<=n) then
begin
d2x:=0;
d2NYZĘJNBNXXĘJNBXXĘ
NBVćC3Ł6\"%4tRf\"Ć7ŚćŃźź4(4(AŃAąmtą4(s+n;

if (s>=m) then
begin
s:=s-m;
N^J^BLN^LJ^NB[[CBYŁśC'ŁśC'\0VćC\0VćC)4 [/code]
Link do komentarza
Udostępnij na innych stronach

Cześć
dziej sie tak bo stosunek długosci do szerokosci nie wynosi 1:1, tu 1024/768 ( tyle zadeklarowałeś =>1024x768). Inaczej mowic ten sam promien rzutowany na os X jest dłuzszy niz na os Y Stad widzisz elipsy. Musisz uwzglednic ten stosunek przy rysowaniu . Podobnie zaobserwujesz jak bedziesz chcial narysowac kwadrat
No to tyle

pozdrawiam oksal

Link do komentarza
Udostępnij na innych stronach

Zarchiwizowany

Ten temat jest archiwizowany i nie można dodawać nowych odpowiedzi.

×
×
  • Utwórz nowe...