Юный техник 1985-09, страница 58

Можем затем по-другому определить окружность и треугольник и вновь нарисовать их. Попробуем написать программу, по которой «Поиск» нарисует игрушечный паровоз. Начнем с окна паровоза. Это прямоугольник, и нам достаточно задать его левый нижний угол и стороны. Дадим «Поиску» команды по знакомому уже алгоритму:

ОКНО = прямоугольник (угол = (7,5), ширина = 2, высота - 2)

Теперь нарисуем контур паровоза. Это ломаная линия. Зададим ее вершины.

КОНТУР = ломаная ((1,2), (11,2), (11,8), (6,8), (6,5), (3,5), (3,7), (2,7), (2,5), (1,5), (1,2)) Что у нас получилось? Даем команду: нарисовать ОКНО, КОНТУР. Контур готов. Чтобы он стал похож на паровоз, добавим колеса:

КОЛЕС01 — окружность (центр = (3,1), радиус = 1) К0ЛЕС02 = окружность (центр = (6,1), радиус = 1) КОЛЕСОЗ = окружность (центр (9,1), радиус = 1) нарисовать КОЛЕС01, КОЛЕ-С02, КОЛЕСОЗ

Осталось пустить из трубы дым. Воспользуемся еще одним умением машины — рисовать плавные кривые, проходящие через данные точки.

СТРУЙКА — плавная кривая ((2,7), (1,8), (2,9), (1,10), (2,11), (1,12))

Нам осталось нарисовать еще одну струйку. Можно, конечно, аналогично задать координаты точек, через которые она пройдет, но можно поступить проще. Из курса геометрии мы знаем о преобразованиях плоскости. И в компьютерном рисовании

рисунки можно сдвигать, поворачивать, растягивать или сжимать.

СТРУЙКА2 = сдвинутая на 1 вправо СТРУЙКА

нарисовать СТРУЙКА, СТРУЙ-КА2

Получился паровоз. Если мы теперь составим полную программу нашего рисунка, она будет выглядеть так: ПАРОВОЗ - рисунок ОКНО = прямоугольник (угол = (7,5), ширина = 2, высота = 2)

КОНТУР = ломаная ((1,2), (11,2), (11,8), (6.8), (6,5), (3,5), (3,7), (2,7), (2,5), (1,5), (1,2))

К0ЛЕС01 = окружность (центр = (3,1), радиус = 1) К0ЛЕС02 = окружность (центр = (6,1), радиус = 1) КОЛЕСОЗ - окружность (центр = (9,1), радиус = 1) СТРУЙКА = плавная кривая ((2,7), (1,8|, [2,9], (1,10), (2,11), И,12))

СТРУЙКА 2 = сдвинутая на 1 вправо СТРУЙКА

нарисовать ОКНО, КОНТУР, К0ЛЕС01, К0ЛЕС02, КОЛЕСОЗ, СТРУЙКА, СТРУЙКА 2

конец описания рисунка ПАРОВОЗ

нарисовать ПАРОВОЗ Эту программу другой человек может ввести в машину, и она нарисует точно такой же паровоз.

Обратим ваше внимание на два момента.

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

Во-вторых, определив рису-

54