Postscript. Шаблоны кода для написания программ

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

%!PS-Adobe-3.0 EPSF-3.0 %%Copyright: Victor Kohn (Kurchatov Institute, Moscow) %%BoundingBox: 0 0 400 300 %%EndComments %%BeginProlog /bd{bind def}bind def /ed{exch def}bd /gs{gsave}bd /gr{grestore}bd /tr{translate}bd /sca{scale}bd /np{newpath}bd /m{np moveto}bd /l{lineto}bd /sl{stroke}bd /ls{m l sl}bd /c{curveto}bd /rl{rlineto}bd /rm{rmoveto}bd /slw{setlinewidth}bd /r{rotate}bd /srgb{setrgbcolor}bd /is1{1.25 1.25 sca}bd /ds1{0.8 0.8 sca}bd /is2{1.5625 1.5625 sca}bd /ds2{0.64 0.64 sca}bd /is3{2 2 sca}bd /ds3{0.5 0.5 sca}bd /is4{3.125 3.125 sca}bd /ds4{0.32 0.32 sca}bd /is5{4 4 sca}bd /ds5{0.25 0.25 sca}bd /s{show}bd /sp{stringwidth pop}bd /sc{dup sp -0.5 mul 0 rm s}bd /se{dup sp -1 mul 0 rm s}bd /fir{closepath gs fill gr}bd /sg{setgray}bd /fr{sg fir}bd /f{findfont exch scalefont setfont}bd /PR{/Palatino-Roman f}bd /PB{/Palatino-Bold f}bd /PI{/Palatino-Italic f}bd /Sy{/Symbol f}bd /He{/Helvetica f}bd /L{14 PR s}bd /Lc{14 PR sc}bd /Le{14 PR se}bd /B{14 PB s}bd /I{14 PI s}bd /G{14 Sy s}bd /H{14 He s}bd /ind{/X ed /Y ed /tt ed 1 Y rm X X sca tt s /X 1 X div def X X sca 1 Y neg rm}bd /ib{-4 0.6 ind}bd /it{5 0.6 ind}bd /Sc{dup sca}bd /Sh{0 rm}bd %%EndProlog

Здесь также показан пример начала eps файла, то есть код можно использовать при создании нового рисунка с нуля. Указан только минимум обозначений, при желании список можно расширить.

.
2. Команды рисования 1D графика внутри осей координат.
Эти команды описаны в книге о посткрипте в разделах 6.4 -- 6.7. Здесь они удобны тем, кто уже знает как ими пользоваться и нуждается просто в образце для копирования. Эти команды нужно вставлять в eps файл сразу после предыдущих команд, если необходимо рисовать графики.

/par{/f2 ed /f1 ed /x2 ed /x1 ed /ts ed /to ed /bo ed /lef ed /lex ed /str 20 string def /cx lex x2 x1 sub div def /cf lef f2 f1 sub div def /tcx 0 ts sub to sub bo sub def /tcf 0 to 2 mul sub def }def /parx{/nx ed /drx ed /rx ed /dr1 drx nx 1 add div def /r1 rx rx x1 sub dr1 div cvi dr1 mul sub def /n1 x2 r1 sub dr1 div cvi 1 add def /n2 x2 rx sub drx div cvi 1 add def /r1 r1 x1 sub cx mul def /dr1 dr1 cx mul def /r2 rx x1 sub cx mul def /dr2 drx cx mul def }def /axx{0 0 lex 0 ls /x r1 def n1{x 0 x bo neg ls /x x dr1 add def}repeat /x r2 def n2{x 0 x to neg ls /x x dr2 add def}repeat /x r2 def /v rx def n2{x tcx m ts He v str cvs sc /x x dr2 add def /v v drx add def}repeat }def /parf{/nf ed /drf ed /rf ed /dr1 drf nf 1 add div def /r1 rf rf f1 sub dr1 div cvi dr1 mul sub def /n1 f2 r1 sub dr1 div cvi 1 add def /n2 f2 rf sub drf div cvi 1 add def /r1 r1 f1 sub cf mul def /dr1 dr1 cf mul def /r2 rf f1 sub cf mul def /dr2 drf cf mul def }def /axf{0 0 0 lef ls /x r1 def n1{0 x bo neg x ls /x x dr1 add def}repeat /x r2 def n2{0 x to neg x ls /x x dr2 add def}repeat /x r2 def /v rf def n2{tcf x ts 3 div sub m ts He v str cvs se /x x dr2 add def /v v drf add def}repeat }def /figl{/c ed /na ed /a2 ed /a1 ed /na na 1 sub def /da a1 a2 sub na div def /k 0 def /a a2 def /v ed a x1 sub cx mul v c mul f1 sub cf mul m na{/k k 1 add def /a a2 da k mul add def /v ed a x1 sub cx mul v c mul f1 sub cf mul l}repeat sl }def /mark{/y ed /x ed /R 3 def x R add y m x y R 0 360 arc sl}def /figm{/c ed /na ed /a2 ed /a1 ed /da a1 a2 sub na 1 sub div def /k 0 def /a a2 da sub def na{/k k 1 add def /a a2 da k mul add def /v ed a x1 sub cx mul v c mul f1 sub cf mul mark}repeat }def /axx0{0 0 lex 0 ls /x r1 def n1{x 0 x bo neg ls /x x dr1 add def}repeat /x r2 def n2{x 0 x to neg ls /x x dr2 add def}repeat }def /axx1{0 lef lex lef ls /x r1 def n1{x lef x bo lef add ls /x x dr1 add def}repeat /x r2 def n2{x lef x to lef add ls /x x dr2 add def}repeat }def /axx2{0 lef lex lef ls /x r1 def n1{x lef x bo lef add ls /x x dr1 add def}repeat /x r2 def n2{x lef x to lef add ls /x x dr2 add def}repeat /x r2 def /v rx def n2{x lef to 2 mul add m ts He v str cvs sc /x x dr2 add def /v v drx add def}repeat }def /axf0{0 0 0 lef ls /x r1 def n1{0 x bo neg x ls /x x dr1 add def}repeat /x r2 def n2{0 x to neg x ls /x x dr2 add def}repeat }def /axf1{lex 0 lex lef ls /x r1 def n1{lex x bo lex add x ls /x x dr1 add def}repeat /x r2 def n2{lex x to lex add x ls /x x dr2 add def}repeat }def /axf2{lex 0 lex lef ls /x r1 def n1{lex x bo lex add x ls /x x dr1 add def}repeat /x r2 def n2{lex x to lex add x ls /x x dr2 add def}repeat /x r2 def /v rf def n2{tcf neg lex add x ts 3 div sub m ts He v str cvs s /x x dr2 add def /v v drx add def}repeat }def

Ниже также даны шаблоны использования команд. Эти шаблоны следует изменять каждый раз для конкретных графиков.

600 300 6 12 26 (xb) (xe) (fb) (fe) par (mbx) (smx) (nx) parx axx axx1 (mbf) (smf) (nf) parf axf axf1 (f values) 2.5 slw 0 0 1 srgb (fvb) (fve) (nf) 0.0001 figl

Здесь буквы в круглых скобках надо заменять на числа. Аргументы команды par -- это ширина и высота графика, длины коротких и длиннных рисок, размер текстов, начало и конец Х оси, начало и конец F оси. Аргументы команды parx -- это начало длинной риски по оси Х, шаг до следующей длинной риски и число коротких рисок между ними. Аргументы команды parf -- те же самые, но для оси F. Аргументы команды figl -- это значения функции, а также начальное и конечное значения аргумента и число точек, последним идет масштабирующий множитель для значений функции. Между ними можно определить толщину и цвет линии. Если функций много, то команду figl можно повторять столько раз, сколько нужно или заменить ее на команду figm. Более подробную информацию можно получить в книге о постскрипте.

.
3. Логарифмические оси координат.
Иногда на графиках необходимо выставлять логарифмические оси координат. Это редко бывает нужно, но бывает. Ниже дан код команд, которые это делают по оси функций и оси аргумента соответственно.

/axlf{/pro{ x 0 x lef ls /ft f3 def N{/Cu ft f1 sub cf mul def lef Cu sub Cu mul 0 gt{x Cu m tt 0 rl sl}if /n 2 def 8{/cu n log cf mul Cu add def lef cu sub cu mul 0 gt{x cu m bt 0 rl sl}if /n n 1 add def}repeat /ft ft 1 add def} repeat }bd /f2 ed /f1 ed /ts ed /to ed /bo ed /lef ed /lex ed /str 20 string def /cf lef f2 f1 sub div def /f3 f1 cvi 1 sub def /N f2 f3 sub cvi 1 add def /x 0 def /tt to neg def /bt bo neg def pro lex 0 gt {/x lex def /tt to def /bt bo def pro}if /ft f3 1 add def /N N 1 sub def /tss ts 0.7 mul floor def /s1 ts 24 div def N{/x s1 36 mul neg def /y ft f1 sub cf mul s1 10 mul sub def x y m ts He (10)se /x x s1 add def /y y s1 12 mul add def x y m tss He ft str cvs s /ft ft 1 add def }repeat }bd /axlx{/pro{ 0 y lex y ls /ft f3 def N{/Cu ft f1 sub cf mul def lex Cu sub Cu mul 0 gt{Cu y m 0 tt rl sl}if /n 2 def 8{/cu n log cf mul Cu add def lex cu sub cu mul 0 gt{cu y m 0 bt rl sl}if /n n 1 add def}repeat /ft ft 1 add def} repeat }bd /f2 ed /f1 ed /ts ed /tt ed /bt ed /lex ed /str 20 string def /cf lex f2 f1 sub div def /f3 f1 cvi 1 sub def /N f2 f3 sub cvi 1 add def /y 0 def pro /ft f3 1 add def /N N 1 sub def /tss ts 0.7 mul floor def /s1 ts 24 div def N{/y tt bt add def /x ft f1 sub cf mul s1 10 mul add def x y m ts He (10)se /y y s1 18 mul add def /x x s1 add def x y m tss He ft str cvs s /ft ft 1 add def }repeat }bd

Ниже даны примеры использования команд.

160 160 2 4 10 -2.3 1.4 axlf 170 3 5 10 -4.5 0.5 axlx

Здесь первая команда рисует 2 оси или одну ось, зависит от знака параметра ширины и поэтому имеет на один аргумент больше. Аргументы -- ширина и высота графика, размеры рисок и текста, значения логарифма функции на концах оси. У второй команды то же самое, но нет высоты графика.

.
4. Рисунок параболической линзы..
Это пример конкретного объекта, которых часто используется в рисунках по рентгеновской оптике. Его можно многократно повторять, если необходимо.

/PRLC{Ox Oy Ov sub m 0 Ov rl On { Oy 2 mul Ody add Ody mul neg 2 div OR div Ody rl /Oy Oy Ody add def } repeat 0 Ov rl Ox1 2 mul 0 rl 0 Ov neg rl /Ody Ody neg def On { Oy 2 mul Ody add Ody mul 2 div OR div Ody rl /Oy Oy Ody add def } repeat 0 Ov neg rl Ox1 2 mul neg 0 rl /Ody Ody neg def }bd /PRL{/Oy ed /Ox ed gs Ox Oy tr /Ov OA 8 div def /Ody OA On div def /Oy OA 2 div neg def /Ox1 Oy Oy mul 2 div OR div Od 2 div add def /Ox Ox1 neg def PRLC 0.8 fr PRLC 2 slw 0 0 0 srgb sl gr }bd

Ниже дан пример использования программы. Здесь некоторые аргументы определяются в переменные в явном виде. При этом OA -- апертура, OR -- радиус кривизны, Od -- перемычка, On -- число точек, Ot -- толщина линии контура. У самой функции только два аргумента -- это координаты центра линзы на графике.

/OA 180 def /OR 120 def /Od 6 def /On 69 def /Ot 1 def gs 40 139 PRL gr

.
5. Стрелки.
Головки стрелок на линиях, а также линию с двумя стрелками на концах приходится рисовать на чертежах. Для этого есть две команды. Первая Arr рисует только головку, зато любого размера и ориентации. Вторая Arl рисует линию со стрелками на концах но размер стрелок фиксирован и минимальный. Ниже показаны сами процедуры и примеры их использования.

/Arr{/Xs ed /Xr ed /Y ed /X ed gs X Y m Xr r Xs Sc -2 -7 rl 4 0 rl -2 7 rl 0 fr gr}bd /Arl{/Xr ed /Xl ed /Y ed /X ed gs X Y tr Xr r 0 0 Xl 0 ls -2 0 90 1 Arr Xl 2 add 0 -90 1 Arr gr}bd x y A M Arr x y L A Arl

Здесь x и y -- это координаты вершины стрелки, А -- это угол вращения, М -- это масштабный множитель, L -- это длина линии.

.
6.Пластинка (прямоугольник произвольной ориентации).
Прямоугольник с произвольной ориентацией -- частый гость на схемах экспериментов. Ниже дана сама команда его рисования и пример ее применения.

/Plate{/G0 ed /H0 ed /W0 ed /R0 ed /Y ed /X ed gs X Y tr R0 r 0 0 m W0 0 rl 0 H0 rl W0 neg 0 rl 0 H0 neg rl G0 fr gr gs X Y tr R0 r 0 0 m W0 0 rl 0 H0 rl W0 neg 0 rl 0 H0 neg rl sl gr}bd X Y R W H G Plate

Здесь X и Y -- это координаты левого нижнего угла, R -- это угол вращения, W и H -- это ширина и высота, G -- это уровень серого (0 -- черный, 1 -- белый).

.
.
.