Операторы цикла презентация

цикл реализуется с помощью оператора repeat, который берет из стека 2 операнда: счетчик цикла и повторяемая процедура, т.е. набор операторов. Счетчик цикла указывает, сколько раз должна выполниться повторяемая процедура.

Например, с помощью оператора

6 {0 40 rlineto 30 -40 rmoveto} repeat

построено изображение

4 операнда:
начальное значение счетчика цикла;
приращение значения счетчика цикла;
конечное значение счетчика цикла;
повторяемая процедура.

На каждый шаг работы цикла формируется текущее значение счетчика. Сначала оно равно начальному значению, затем изменяется после очередного шага цикла на величину приращения. Цикл завершается, если текущее значение счетчика становится больше конечного значения при положительном приращении. При отрицательном приращении цикл завершается, если текущее значение становится меньше конечного.
ВАЖНО: непосредственно перед выполнением повторяемой процедуры for помещает в стек текущее значение счетчика и, если оно не используется, то его следует оттуда явным образом удалять командой pop.

Начальное значение, приращение и конечное значение могут быть целыми или вещественными величинами.

30 -40 rmoveto} def

newpath
10 10 moveto

1 1 6 {palka} for

stroke

-40 rmoveto} def

newpath
10 10 moveto
30 30 180 {palka_c_param} for
stroke

Текущее значение счетчика цикла

Координатой Х для основания очередного столбика может служить текущее значение счетчика цикла.

на 15° меньше предыдущего столбика. Если текущее значение счетчика цикла будет равно углу наклона, то направление рисования линии можно рассчитать по формулам:

% α угол наклона столбика над осью X
{currentpoint % α x y координаты текущей точки - в стек
3 -1 roll % x y α
dup % x y α α
cos 40 mul % x y α xn=cos(α)*40
exch % x y xn α
sin 40 mul % x y xn yn=sin(α)*40
rlineto % x y отрезок из текущей точки в (x+xn, y+yn)
moveto % перемещение текущей точки в (x, y)
30 0 rmoveto} def % cмещение текущей точки в (x+30, y+0)

% падающий забор
newpath
10 10 moveto
90 -15 0 {palka_sincos} for % α =90,75,60,45,30,15,0
stroke

центра арки.

Пример 4. Рисуем «забор с аркой»

/palka {0 40 rlineto 30 -40 rmoveto} def

newpath
10 10 moveto
1 1 6 {palka} for % Где текущая точка?
-30 0 rmoveto % Нужно выполнить вычисления с % координатами первой и последней точек
currentpoint
exch
10 add 2 div
exch
stroke
newpath
40 0 180 arc % Особенности выполнения оператора arc
stroke

забора