Файл:Папоротники.png
Содержимое страницы недоступно на других языках.
Материал из Викиучебника — открытых книг для открытого мира
Папоротники.png (636 × 351 пкс, размер файла: 33 Кб, MIME-тип: image/png)
Cведения об этом файле находятся на Викискладе?, хранилище изображений и мультимедиа для использования во всех проектах Фонда Викимедиа. |
Краткое описание
ОписаниеПапоротники.png |
Русский: Папоротники English: Barnsley ferns |
Дата | |
Источник | Собственная работа |
Автор | Владислав Молдован |
Pascal src code
uses GraphABC;
const
Rotate = 40;
var
Ang: integer;
procedure Draw(x, y, l, angle: real; s: integer; toRight: boolean);
begin
var ang1 := DegToRad(angle);
var cx := x + l * Cos(ang1);
var cy := y + l * Sin(ang1);
SetPenWidth(s);
Line(Round(x), Round(y), Round(cx), Round(cy));
if l > 1 then
begin
var l2 := l * 0.7;
l := l * 0.5;
if s > 1 then Dec(s);
var ang2 := angle + Ang;
var ang3 := angle - Ang;
if toRight then
begin
Draw(cx, cy, l2, ang2, s, toRight);
Draw(cx, cy, l, ang2 + Rotate, s, toRight);
Draw(cx, cy, l, ang3 - Rotate, s, toRight);
end
else
begin
Draw(cx, cy, l2, ang3, s, toRight);
Draw(cx, cy, l, ang2 + Rotate, s, toRight);
Draw(cx, cy, l, ang3 - Rotate, s, toRight);
end;
end;
end;
var
ToRight: boolean;
begin
var W := Window.Width;
var H := Window.Height;
SetWindowIsFixedSize(true);
ClearWindow(clBlack);
LockDrawing();
SetSmoothingOff();
var X := 0;
var N := 5;
for var i := 0 to 10 do
begin
var j := Random(60);
if j mod 2 = 0 then ToRight := true else ToRight := false;
j := Random(2);
case j of
0: SetPenColor(clPink);
1: SetPenColor(clRed);
end;
Ang := Random(20);
Draw(X + Random(10), H + Random(10), Random(100), -90, 3, ToRight);
Inc(X, W div (N + 1));
end;
Redraw();
end.
Лицензирование
Я, владелец авторских прав на это произведение, добровольно публикую его на условиях следующей лицензии:
Этот файл доступен по лицензии Creative Commons Attribution-Share Alike 4.0 International
- Вы можете свободно:
- делиться произведением – копировать, распространять и передавать данное произведение
- создавать производные – переделывать данное произведение
- При соблюдении следующих условий:
- атрибуция – Вы должны указать авторство, предоставить ссылку на лицензию и указать, внёс ли автор какие-либо изменения. Это можно сделать любым разумным способом, но не создавая впечатление, что лицензиат поддерживает вас или использование вами данного произведения.
- распространение на тех же условиях – Если вы изменяете, преобразуете или создаёте иное произведение на основе данного, то обязаны использовать лицензию исходного произведения или лицензию, совместимую с исходной.
Элементы, изображённые на этом файле
изображённый объект
У этого свойства есть некоторое значение без элемента в
2 сентября 2017
История файла
Нажмите на дату/время, чтобы увидеть версию файла от того времени.
Дата/время | Миниатюра | Размеры | Участник | Примечание | |
---|---|---|---|---|---|
текущий | 14:14, 1 сентября 2017 | 636 × 351 (33 Кб) | Владислав Молдован | User created page with UploadWizard |
Использование файла
Следующая страница использует этот файл:
Метаданные
Файл содержит дополнительные данные, обычно добавляемые цифровыми камерами или сканерами. Если файл после создания редактировался, то некоторые параметры могут не соответствовать текущему изображению.
Горизонтальное разрешение | 37,79 точек на сантиметр |
---|---|
Вертикальное разрешение | 37,79 точек на сантиметр |