Методические рекомендации к выполнению работы

6.1 Рассмотрим основные этапы создания предложенной в приложении Б композиции. До начала работы над программой необходимо выяснить место расположения файла GRAPH.TPU на Вашем компьютере, т.к. данный адрес должен быть в дальнейшем указан при инициализации графического режима в операторе InitGraph.

Программа должна начинаться со стандартного раздела описаний, включающего команды подключения библиотечного графического модуля GRAPH и описания всех переменных программы. Далее должно идти основное тело программы, содержащее процедуры инициализации графического экрана, установки цвета фона и текущего цвета рисования (см., например, текст программы в п.5.2.1).

Дальнейшая часть программы должна включать операторы рисования системы из пересекающихся друг с другом окружностей. Рассмотрим для примера случай, при котором все окружности на рисунке Б1 приложения Б имеют одинаковый радиус R=60, а центры их окружностей отстоят друг от друга по обеим осям на 50 пиксель. Для создания данной композиции будем использовать вложенные циклы, один из которых отражает изменение координаты Х центра окружностей, а другой – изменение координаты Y.

Фрагмент циклической части программы для данного варианта может иметь, например, следующий вид:

…

x:=0;

while x<=650 do

begin

y:=0;

while y<=500 do

begin

circle(x,y,60);

y:=y+50;

end;

x:=x+50;

end;

…

В завершающей части программы должны располагаться операторы, позволяющие задержать изображение на экране и выйти затем из графического режима.

6.2 Для выполнения данного пункта задания достаточно ввести в программу некоторую вспомогательную переменную (например, k), принимающую значения от 1 до 15. Тогда на каждом шаге цикла установку цвета рисования можно осуществлять по текущему значению данной переменной, соответствующему какому либо из цветов графики языка Паскаль.

Закрашивание составляющих композицию окружностей при этом может быть осуществлено целым рядом способов. Одним из них является способ вложения в каждую основную окружность дополнительных концентрических окружностей с изменяющимся в цикле радиусом. Это обеспечит зрительное восприятие окружностей как закрашенных, причем с дополнительным крапчатым эффектом. Текст основной части программы в данном случае может иметь, к примеру, следующий вид:

…

k:=1;

x:=0;

while x<=650 do

begin

y:=0;

while y<=500 do

begin

setcolor(k);

k:=k+1;

if k>15 then k:=1;

for r:=1 to 60 do

circle(x,y,r);

y:=y+50;

end;

x:=x+50;

end;

…

6.3 Эффект чередования двух цветов в композиции легко достичь присваиванием цвету рисования одного из двух возможных значений. Реализовать это можно с помощью оператора mod, служащего для нахождения остатка от деления. Введя переменную k для обозначения номера элемента в композиции и учитывая, что выражение k mod 2 всегда принимает только два значения – 0 либо 1, можно добиться требуемого чередования цветов элементов.

Внеся в предыдущую программу следующие изменения можно получить композицию в виде двухцветного орнамента с рисунка Б3 приложения Б:

…

y:=0;

k:=0;

while y<=500 do

begin

k:=k+1;

setcolor(k mod 2);

…

Контрольные вопросы

1) Что понимают под фрактальной графикой?

2) Что лежит в основе фрактальных композиций?

3) Какими графическими возможностями обладает язык программирования Паскаль?

4) В каком модуле языка Паскаль хранятся подпрограммы по работе с графикой? Как подключить его к основной программе?

5) Как перейти в графический режим в среде Паскаль и как из него выйти?

6) Как направлены оси координат в графическом режиме языка Паскаль? Где расположено начало координат?

7)Пусть Ваш экран имеет стандартную разрешающую способность 640х480 ед. Какие координаты будет иметь при этом левый верхний угол экрана, левый нижний угол, правый верхний угол, правый нижний угол?

8) Сколько основных цветов могут использоваться языком Паскаль? Приведите примеры обозначения цветов.

9) Какие типы штриховки Вам известны?

10)Как на языке Паскаль установить режим рисования фиолетовым цветом по розовому фону?

11)Какие операторы языка Паскаль используются для рисования простейших геометрических фигур (прямоугольника, закрашенного прямоугольника, окружности). Назовите их формат.

12)С помощью каких известных Вам операторов языка Паскаль можно нарисовать треугольник? Приведите какой-либо пример.

13)Как вывести надпись в заданное место экрана с помощью операторов языка Паскаль?

Приложение А

Варианты исходных данных для выполнения задания,

где dx– расстояние между центрами окружностей по оси X,

dy– расстояние между центрами окружностей по оси Y,

R – радиус окружностей

Приложение Б

Образцы фрактальных композиций для выполнения задания

Рисунок Б1 Образец композиции, выполненной в виде пересекающихся темных окружностей на светлом фоне

Рисунок Б2 Многоцветный вариант предыдущей композиции. При ее создании были использованы 15 цветов графики среды Паскаль 7.0 с номерами от 1(Blue) до 15(White)

Рисунок Б3 Двухцветный вариант композиции, основанный на чередовании светлого и темного цветов