Файл:Снежинка .png
Содержимое страницы недоступно на других языках.
Материал из Викиучебника — открытых книг для открытого мира
Снежинка_.png (425 × 417 пкс, размер файла: 39 Кб, MIME-тип: image/png)
Cведения об этом файле находятся на Викискладе?, хранилище изображений и мультимедиа для использования во всех проектах Фонда Викимедиа. |
Краткое описание
ОписаниеСнежинка .png |
Русский: Снежинка English: Snowflake |
Дата | |
Источник | Собственная работа |
Автор | Владислав Молдован |
Pascal src code
- N - number of corners
- K1 - coefficient of change of the first radius
- K2 - coefficient of change of the second radius
- DeltaAngle - branch angle
uses GraphABC;
const
N = 11;
K1 = 4;
K2 = 0.6;
DeltaAngle = 50;
procedure RLine(x, y, x1, y1: real) := Line(Round(x), Round(y), Round(x1), Round(y1));
procedure Star(x, y, r, angle: real);
procedure Draw(x, y, r, angle: real);
begin
if r > 10 then
begin
var ang1 := DegToRad(angle);
var cx := x + r * Cos(ang1);
var cy := y + r * Sin(ang1);
var mx := (x + cx) / 2;
var my := (y + cy) / 2;
RLine(x, y, mx, my);
Draw(mx, my, r * K2, angle);
Draw(mx, my, r * K2, angle + DeltaAngle);
Draw(mx, my, r * K2, angle - DeltaAngle);
end;
end;
begin
var ang1 := 360 / N;
var ang2 := DegToRad(angle);
var cx := x + r * Cos(ang2);
var cy := y + r * Sin(ang2);
var r2 := r * K1;
Draw(cx, cy, r2, angle);
for var i := 1 to N do
begin
var ang3 := DegToRad(ang1 * i + angle);
var cx2 := x + r * Cos(ang3);
var cy2 := y + r * Sin(ang3);
RLine(x, y, cx2, cy2);
RLine(cx2, cy2, cx, cy);
cx := cx2;
cy := cy2;
Draw(cx2, cy2, r2, RadToDeg(ang3));
end;
end;
begin
SetWindowIsFixedSize(true);
LockDrawing();
SetPenColor(clCyan);
while true do
for var i := 0 to 359 do
begin
ClearWindow(clBlack);
Star(Window.Width / 2, Window.Height / 2, 30, i);
Redraw();
end;
end.
Лицензирование
Я, владелец авторских прав на это произведение, добровольно публикую его на условиях следующей лицензии:
Этот файл доступен по лицензии Creative Commons Attribution-Share Alike 4.0 International
- Вы можете свободно:
- делиться произведением – копировать, распространять и передавать данное произведение
- создавать производные – переделывать данное произведение
- При соблюдении следующих условий:
- атрибуция – Вы должны указать авторство, предоставить ссылку на лицензию и указать, внёс ли автор какие-либо изменения. Это можно сделать любым разумным способом, но не создавая впечатление, что лицензиат поддерживает вас или использование вами данного произведения.
- распространение на тех же условиях – Если вы изменяете, преобразуете или создаёте иное произведение на основе данного, то обязаны использовать лицензию исходного произведения или лицензию, совместимую с исходной.
Элементы, изображённые на этом файле
изображённый объект
У этого свойства есть некоторое значение без элемента в
2 сентября 2017
История файла
Нажмите на дату/время, чтобы увидеть версию файла от того времени.
Дата/время | Миниатюра | Размеры | Участник | Примечание | |
---|---|---|---|---|---|
текущий | 14:14, 1 сентября 2017 | 425 × 417 (39 Кб) | Владислав Молдован | User created page with UploadWizard |
Использование файла
Следующая страница использует этот файл:
Метаданные
Файл содержит дополнительные данные, обычно добавляемые цифровыми камерами или сканерами. Если файл после создания редактировался, то некоторые параметры могут не соответствовать текущему изображению.
Горизонтальное разрешение | 37,79 точек на сантиметр |
---|---|
Вертикальное разрешение | 37,79 точек на сантиметр |