Орна́мент (лат. ornamentum — украшение) — узор, основанный на повторе и чередовании составляющих его элементов
ВикипедиЯ
|
program Ornament; uses graph; var gd,gm:smallint; maxX,maxY,koy,kox,r:integer; begin gd:=detect; initgraph(gd,gm,''); r:=150; maxX:=getmaxX div r -1; maxY:=getmaxy div r -1; SetLineStyle(1,0,3); for koy:=1 to maxY do begin for kox:=1 to maxX do begin setcolor(15); circle(kox*r,koy*r,r); end; end; readln; closegraph; end. |
Предлагается задание 3-х уровней сложности:
- Низкий уровень: разработать свой орнамент из графических примитивов языка Паскаль. Пример создания подробных орнаментов можно посмотреть здесь: http://zhekinpascal.ucoz.ru/index/sozdanie_ornamenta/0-32
- Средний уровень: реализовать один их хантыйских орнаментов (файл с образцами орнаментов прилагается к сообщению)
-
Высокий уровень: создать орнамент из сложный деталей, описанных в отдельных процедурах пользователя. Примеры сложных деталей можно посмотреть здесь: http://sweetmenu.ru/articles/interesnoe/postroenie-ornamentov.-ispolzovanie-okruzhnostej.html и http://sweetmenu.ru/articles/interesnoe/priemyi-postroeniya-ornamentov.-perepleteniya-i-volnyi.html
Делаем задачу в Lazarus, где его взять - смотри в «Задаче на неделю 18-24 января». Решение задачи размещается в комментарии к сообщению с указанием автора с приложенным скриншотом (обязательно кадрировать - «отрезать» всё лишнее) и исходником программы (1 файл проекта с расширением PAS).
К сообщению приложены файлы:
Орнаменты хантов.pdf - описание традиционных орнаментов народов ханты
Графика FreePascal.pdf - PDF аналог презентации о графических возможностях Паскаля (рассматривали на лекции)
Графика+в+Паскале.pdf - описание всех графических процедур и функций модуля Graph
ТРАДИЦИОННЫЕ ПАТТЕРНЫ.pdf - информация о сложных орнаментах
Файлы:
Орнаменты хантов.pdf (177.53 КБ)
Графика FreePascal.pdf (233.01 КБ)
Графика+в+Паскале.pdf (1.02 МБ)
ТРАДИЦИОННЫЕ ПАТТЕРНЫ.pdf (1.15 МБ)