Файл:Наклоненное дерево Пифагора.png
Наклоненное_дерево_Пифагора.png (690 × 488 пкс, размер файла: 115 Кб, MIME-тип: image/png)
Cведения об этом файле находятся на Викискладе?, хранилище изображений и мультимедиа для использования во всех проектах Фонда Викимедиа. |
Краткое описание
ОписаниеНаклоненное дерево Пифагора.png |
Русский: Наклоненное дерево Пифагора English: Thick tilted tree of Pythagoras |
Дата | |
Источник | Собственная работа |
Автор | Владислав Молдован |
pascal src code
- Size - original side length of the square
- RotationAngle - branch angle
uses GraphABC;
const
Size = 100;
RotationAngle = 50;
procedure RLine(x, y, x1, y1: real) := Line(Round(x), Round(y), Round(x1), Round(y1));
procedure Draw(x, y, r, angle: real);
begin
var ang1 := DegToRad(angle + 90);
var x1 := x + r * Cos(ang1);
var y1 := y + r * Sin(ang1);
var ang2 := DegToRad(angle);
var x2 := x1 + r * Cos(ang2);
var y2 := y1 + r * Sin(ang2);
var ang3 := DegToRad(angle - 90);
var x3 := x2 + r * Cos(ang3);
var y3 := y2 + r * Sin(ang3);
var r2 := r * Cos(DegToRad(RotationAngle));
var r3 := r * Cos(DegToRad(90 - RotationAngle));
var ang4 := DegToRad(angle - RotationAngle);
var x4 := x + r2 * Cos(ang4);
var y4 := y + r2 * Sin(ang4);
RLine(x, y, x1, y1);
RLine(x1, y1, x2, y2);
RLine(x2, y2, x3, y3);
RLine(x3, y3, x, y);
RLine(x, y, x4, y4);
RLine(x4, y4, x3, y3);
if r > 1 then
begin
var ang5 := DegToRad(angle - 90 - RotationAngle);
Draw(x + r2 * Cos(ang5), y + r2 * Sin(ang5), r2, angle - RotationAngle);
var ang6 := DegToRad(angle - RotationAngle);
Draw(x4 + r3 * Cos(ang6), y4 + r3 * Sin(ang6), r3, angle + 90 - RotationAngle);
end;
end;
begin
LockDrawing();
MaximizeWindow();
Draw(Window.Width / 2 - Size / 2, Window.Height / 2 + 200, Size, 0);
Redraw();
end.
Лицензирование
Я, владелец авторских прав на это произведение, добровольно публикую его на условиях следующей лицензии:
Этот файл доступен по лицензии Creative Commons Attribution-Share Alike 4.0 International
- Вы можете свободно:
- делиться произведением – копировать, распространять и передавать данное произведение
- создавать производные – переделывать данное произведение
- При соблюдении следующих условий:
- атрибуция – Вы должны указать авторство, предоставить ссылку на лицензию и указать, внёс ли автор какие-либо изменения. Это можно сделать любым разумным способом, но не создавая впечатление, что лицензиат поддерживает вас или использование вами данного произведения.
- распространение на тех же условиях – Если вы изменяете, преобразуете или создаёте иное произведение на основе данного, то обязаны использовать лицензию исходного произведения или лицензию, совместимую с исходной.
Элементы, изображённые на этом файле
изображённый объект
У этого свойства есть некоторое значение без элемента в
2 сентября 2017
image/png
История файла
Нажмите на дату/время, чтобы увидеть версию файла от того времени.
Дата/время | Миниатюра | Размеры | Участник | Примечание | |
---|---|---|---|---|---|
текущий | 14:14, 1 сентября 2017 | 690 × 488 (115 Кб) | Владислав Молдован | User created page with UploadWizard |
Использование файла
Следующая страница использует этот файл:
Метаданные
Файл содержит дополнительные данные, обычно добавляемые цифровыми камерами или сканерами. Если файл после создания редактировался, то некоторые параметры могут не соответствовать текущему изображению.
Горизонтальное разрешение | 37,79 точек на сантиметр |
---|---|
Вертикальное разрешение | 37,79 точек на сантиметр |