рисования. В обоих
рисования. В обоих случаях поместим букву в квадрат, а в качестве фона возьмем набор лучей, выходящих из одной точки и слегка подкрашенных. Квадрат и лучи изображаются такими процедурами (важны makebox и rays, все остальное - для простоты записи):
/m{moveto}def /rl{rlineto}def /rm{rmoveto}def
/hrl{0 rl}def /vrl{0 exch rl}def
/CL{closepath}def /CPT{currentpoint translate 0 0 m}def
/GS {gsave}def /GR{grestore}def /RGB{setrgbcolor}def
/COLORRAY{0.025 mul dup 1 sub neg exch 0 exch RGB}def
/S{stroke}def
/bs 72 def /rayorig{-30 30} def
/makebox{bs hrl bs vrl bs neg hrl CL}def
/rays{
GS clip % вырезаем по квадрату
x0 y0 m rayorig rm CPT % выбрали центр лучей
-70 rotate % повернули координаты
1 1 40 % проводим 40 горизонтальных
% лучей
{ GS bs 2 mul hrl % сам луч
COLORRAY S GR % сделали цвет и провели луч
3.5 rotate} % повернулись на 3.5 градуса
for
GR
}def
С помощью этих процедур легче писать существенную часть программ
Рис. 3.
x0 y0 m
GS makebox rays
Индекс
Элементарные функции
Линейные уравнения
Нелинейные уравнения
Случайные числа
