% deco-marks.fmt

% This file provides position marks

% == PostScript routines ==

% -- write big letters (position marks) above the staff
% (from Guido Gonzato)
postscript /bigl{     % usage: str x y bigl
postscript	/Times-Roman 18 selectfont
postscript	4 add M cshow gsave
postscript	0.7 setlinewidth 1 -2 RM 
postscript	0 16 RL -16 0 RL
postscript	0 -16 RL 16 0 RL
postscript	stroke grestore}!
% (from Jonas Petersson)
postscript /biglc {   % usage: str x y biglc
postscript    2 copy 5 2 roll /Times-Bold 22 selectfont
postscript    6 add M cshow gsave
postscript    1 setlinewidth 13 add newpath
postscript    12 0 360 arc
postscript    stroke grestore}!

% == Decoration definitions ==

% -- big letters in a square
deco a 3 bigl 20 0 0 A
deco b 3 bigl 20 0 0 B
deco c 3 bigl 20 0 0 C
deco d 3 bigl 20 0 0 D
deco e 3 bigl 20 0 0 E
deco f 3 bigl 20 0 0 F
deco g 3 bigl 20 0 0 G
deco h 3 bigl 20 0 0 H
deco i 3 bigl 20 0 0 I
deco j 3 bigl 20 0 0 J
deco k 3 bigl 20 0 0 K
deco l 3 bigl 20 0 0 L
deco m 3 bigl 20 0 0 M
deco n 3 bigl 20 0 0 N
deco o 3 bigl 20 0 0 O
deco p 3 bigl 20 0 0 P
deco q 3 bigl 20 0 0 Q
deco r 3 bigl 20 0 0 R
deco s 3 bigl 20 0 0 S
deco t 3 bigl 20 0 0 T
deco u 3 bigl 20 0 0 U
deco v 3 bigl 20 0 0 V
deco w 3 bigl 20 0 0 W
deco x 3 bigl 20 0 0 X
deco y 3 bigl 20 0 0 Y
deco z 3 bigl 20 0 0 Z
% -- big letters in a circle
deco ac 3 biglc 20 0 0 A
deco bc 3 biglc 20 0 0 B
deco cc 3 biglc 20 0 0 C
deco dc 3 biglc 20 0 0 D
deco ec 3 biglc 20 0 0 E
deco fc 3 biglc 20 0 0 F
deco gc 3 biglc 20 0 0 G
deco hc 3 biglc 20 0 0 H
deco ic 3 biglc 20 0 0 I
deco jc 3 biglc 20 0 0 J
deco kc 3 biglc 20 0 0 K
deco lc 3 biglc 20 0 0 L
deco mc 3 biglc 20 0 0 M
deco nc 3 biglc 20 0 0 N
deco oc 3 biglc 20 0 0 O
deco pc 3 biglc 20 0 0 P
deco qc 3 biglc 20 0 0 Q
deco rc 3 biglc 20 0 0 R
deco sc 3 biglc 20 0 0 S
deco tc 3 biglc 20 0 0 T
deco uc 3 biglc 20 0 0 U
deco vc 3 biglc 20 0 0 V
deco wc 3 biglc 20 0 0 W
deco xc 3 biglc 20 0 0 X
deco yc 3 biglc 20 0 0 Y
deco zc 3 biglc 20 0 0 Z

% -- End of file deco-marks.fmt