/
n-dimens
/
pascalabcnet
Обзор
Документация
Войти
/
n-dimens
/
pascalabcnet
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
TestSuite/CompilationSamples/Main.pas
22 строки
677 B
Бондарев Иван
initial commit
14 май 2015, 22:35
14 май 2015, 22:35
e6e67c1
Код
Авторство
О чём код?
//(c) DarkStar 2008 uses GraphABC, Paporotnik, PaporotnikData; const Iterations = 300000; Height = 600; Fast = false; Width = Height div 2; WindowWidth= Width * 3; Brightness = 170; var Paprotnik := new PaporotnikFractal(PaprotnikData); SimplePaprotnik := new PaporotnikFractal(SimplePaprotnikData); Elka := new PaporotnikFractal(ElkaData); begin InitWindow(200, 50, WindowWidth , Height, clBlack); Paprotnik.Draw(0, 0, Iterations, Height, Brightness, fast); SimplePaprotnik.Draw(Width, 0, Iterations, Height, Brightness, fast); Elka.Draw(Width*2, 0, Iterations, Height, Brightness, fast); end.