Witam!
Od kilku dni staram się narysować na Canvasie gwiazdę pięcioramienną, która będzie pusta w środku.
Znalazłem podobne tematy:
ale w żadnym z nich nie ma takiego kodu, żeby narysował właśnie taką gwiazdę jaką chcę, a jeśli
już to musi mieć ona duże rozmiary, a potrzebuje małej. Sam doszedłem do narysowania pentagramu.
Efekt, który uzyskałem wygląda mniej więcej tak:
http://pl.wikipedia.org/w/index.php?title=Plik:Pentagram_green.svg&filetimestamp=20070309050356
Dążę do narysowania takiej gwiazdy:
http://pl.wikipedia.org/w/index.php?title=Plik:Five-pointed_star.svg&filetimestamp=20091210212909
procedure Star(Left, Top: Integer; N, R: Byte);
var
i, x, y: Integer;
begin
if N < 5 then
Exit;
with Image1.Canvas do
begin
MoveTo(Left, Top);
for i := 1 to (N * 2) do
begin
y := Round(Sin(DegToRad(180 * ((N - 1) / N)) * i) * R);
x := Round(Cos(DegToRad(180 * ((N - 1) / N)) * i) * R);
Left := Left + x;
Top := Top + y;
LineTo(Left, Top);
end;
end;
end;
Proszę o jakąkolwiek pomoc!
Pozdrawiam