Файл:Комок шерсти.png
Нет версии с бо́льшим разрешением.
Комок_шерсти.png (637 × 477 пкс, размер файла: 363 Кб, MIME-тип: image/png)
|
Cведения об этом файле находятся на Викискладе?, хранилище изображений и мультимедиа для использования во всех проектах Фонда Викимедиа. |
|
Краткое описание
| Описание |
Русский: Комок шерсти English: ball of wool |
| Дата | |
| Источник | Собственная работа |
| Автор | Владислав Молдован |
Лицензирование
Я, владелец авторских прав на это произведение, добровольно публикую его на условиях следующей лицензии:
Этот файл доступен по лицензии Creative Commons Attribution-Share Alike 4.0 International
- Вы можете свободно:
- делиться произведением – копировать, распространять и передавать данное произведение
- создавать производные – переделывать данное произведение
- При соблюдении следующих условий:
- атрибуция – Вы должны указать авторство, предоставить ссылку на лицензию и указать, внёс ли автор какие-либо изменения. Это можно сделать любым разумным способом, но не создавая впечатление, что лицензиат поддерживает вас или использование вами данного произведения.
- распространение на тех же условиях – Если вы изменяете, преобразуете или создаёте иное произведение на основе данного, то обязаны использовать лицензию исходного произведения или лицензию, совместимую с исходной.
Pascal src code
- Rotation - angle of rotation
- MinAngle - минимальный угол для поворота отрезка
- MaxAngle - minimum angle for segment rotation
- RandomAngle - the maximum value that a random angle can take modulo
- AngleCount - number of corners
uses GraphABC;
const
Rotation = 15;
MinAngle = -400;
MaxAngle = 400;
RandomAngle = 10;
MaxT = 5;
AngleCount = 10;
procedure Draw(x, y, r, angle: real; n: integer);
begin
var ang := DegToRad(angle);
var x1 := x + r * Cos(ang);
var y1 := y + r * Sin(ang);
SetPenWidth(n);
Line(Round(x), Round(y), Round(x1), Round(y1));
if r > 8 then
begin
r := r * 0.8;
if n > 0 then n := n - 1;
if angle + Rotation < MaxAngle then
Draw(x1, y1, r, angle + Rotation + Random(-RandomAngle, RandomAngle), n);
if angle - Rotation > MinAngle then
Draw(x1, y1, r, angle - Rotation - Random(-RandomAngle, RandomAngle), n);
end;
end;
begin
ClearWindow(clBlack);
SetWindowIsFixedSize(true);
var R := 50;
var PosX := Window.Width div 2;
var PosY := Window.Height div 2;
LockDrawing();
while R > 0 do
begin
var c := clRandom();
SetPenColor(ARGB(50, c.R, c.G, c.B));
for var i := 0 to AngleCount - 1 do
Draw(PosX, PosY, R, (360 / AngleCount) * i, 1);
Dec(R, 2);
end;
Redraw();
end.
История файла
Нажмите на дату/время, чтобы увидеть версию файла от того времени.
| Дата/время | Миниатюра | Размеры | Участник | Примечание | |
|---|---|---|---|---|---|
| текущий | 09:32, 1 сентября 2017 | | 637 × 477 (363 Кб) | Владислав Молдован | User created page with UploadWizard |
Использование файла
Следующая страница использует этот файл:
