Witam serdecznie. Potrzebuję program który narysuje hipnozę czyli coś takiego: http://goniecpolski.nl/wp-content/uploads/2013/02/4-hip1.jpg tzn na zmianę koła czarne-białe o coraz to większej średnicy. Na razie wyknułem coś takiego, ale nie działa.... nie mam pomysłu co dalej zrobić :(
program Obraz;
uses
Crt, Graph;
var
Karta, Tryb, I: Integer;
begin
DetectGraph(Karta, Tryb, 'C:\FPC\2.2.0\units\i386-win32\graph');
repeat
SetLineStyle(0, 2, 3);
begin
for I := 1 to 50 do
begin
SetColor(White);
Circle(620, 500, 150 * i + 100);
SetColor(Black);
Circle(620, 500, 100 * i + 10);
end;
end;
until Keypressed;
CloseGraph;
end.
zamiana znacznika <quote> na <code class="delphi"> oraz sformatowanie kodu - fp