Wielokąt foremny o n-wierzchołkach

[qrakis]

Sprawa jest bardzo prosta.

Ogólne wzory na x i y wyglądają tak:

x = R * cos((PI/2 + 2*PI*k) / n)

y = R * sin((PI/2 + 2*PI*k) / n)

 

Gdzie:

n - liczba wierzchołków

R - promień okręgu, w który wpisany jest wielokąt

k - n kolejnych liczb naturalnych (najlepiej od 0 do n-1)

PI - liczba PI = 3,1415926535897932384626433832795

 

Oczywiście aby otrzymać wielokąt należy najpierw ustalić n, czyli liczbę wierzchołków. Następnie obliczyć x i y dla n kolejnych liczb k. Na koniec natomiast wyrysować wielokąt łączac ze sobą kolejne wierzchołki.

 

Demo: wielokaty (.pas/.exe)

[5corpio]

Fajne... a przy okazji bawiąc się trochę parametrami można uzyskać bardzo śmieszne i ciekawe efekty

[Iskar]

Dobrze by było, żebyś zamieścił małe, najprostsze demko, wtedy dodam.

[qrakis]

Dobrze by było, żebyś zamieścił małe, najprostsze demko, wtedy dodam.

Specjalnie musiałem TP ściągać ;-). Ale proszę bardzo: wielokaty.zip (plik .pas i .exe).

Mam tylko nadzieję, że plik zostanie przeniesiony na serwer Unit1, bo teraz jest na przestrzeni webparku.

[Iskar]

Ok, dodałem: http://www.unit1.pl/132,6,podglad.html

Oczywiście, przykładowy kod źródłowy + exek znajduje się w serwisie Unit1.

 

Zapraszam wszystkich do zamieszczania swoich artykułów itp. w serwisie Unit1 (dodawajcie je na forum, a potem ja je przerzucę).

[qrakis]

Napisałem jeszcze jedno demko. Tym razem w Delphi, więc jest bardziej przyjazne.

Demo: wielokat.zip.

Proszę o dodanie lub zamianę załącznika w artykule.

 

// dodane

[Lavi]

Rzeczywiście fajne efekty. Szczególnie jak sie pozmienia parametry.

Wychodzą fajne rzeczy i jak sie trzyma na przycisku dodawania kątów to wychodzi nawet animacja.

 

Czasami fajne rzeczy wychodzą i na dodatek sie ruszają