% deco-guitar.fmt

% This file provides some guitar fingerings

% == PostScript routines ==

% -- guitar chords

postscript /slw05{0.5 setlinewidth}!

postscript /slw06{0.6 setlinewidth}!

postscript /slw09{0.9 setlinewidth}!

postscript /guitar{           % usage: x y guitar

postscript    gsave exch 10 sub exch 8 add T

postscript    slw06 0 24 M 20 0 RL stroke

postscript    0 0 M 20 0 RL 0 6 M 20 0 RL

postscript    0 12 M 20 0 RL 0 18 M 20 0 RL

postscript    0 0 M 0 24 RL 4 0 M 0 24 RL 8 0 M 0 24 RL

postscript    12 0 M 0 24 RL 16 0 M 0 24 RL 20 0 M 0 24 RL

postscript    stroke slw05}!

postscript /gdot{newpath 1.4 0 360 arc fill}!

postscript /gx{28 M -1.3 -1.3 RM 2.6 2.6 RL 0 -2.6 RM -2.6 2.6 RL stroke}!

postscript /go{28 newpath 1.5 0 360 arc stroke}!

postscript /fr2{1.8 setlinewidth -1 24 M 22 0 RL stroke slw05

postscript     -12 20 M /Helvetica-Italics 8 selectfont (fr2) show}!

% -- main C chords

postscript /C{                % usage: x y C

postscript    guitar

postscript    0 gx 20 go

postscript    16 21 gdot 8 15 gdot 4 9 gdot

postscript    grestore}!

postscript /Cm{

postscript    guitar fr2

postscript    0 gx

postscript    4 21 gdot 20 21 gdot slw09 4 21 M 16 0 RL stroke

postscript    16 15 gdot 8 9 gdot 12 9 gdot

postscript    grestore}!

postscript /C7{

postscript    guitar

postscript    0 gx

postscript    16 21 gdot 8 15 gdot 4 9 gdot 12 9 gdot

postscript    grestore}!

% -- main D chords

postscript /D{

postscript    guitar

postscript    0 gx 4 gx 8 go

postscript    12 15 gdot 20 15 gdot 16 9 gdot

postscript    grestore}!

postscript /Dm{

postscript    guitar

postscript    0 gx 4 gx 8 go

postscript    20 21 gdot 12 15 gdot 16 9 gdot

postscript    grestore}!

postscript /D7{

postscript    guitar

postscript    0 gx 4 gx 8 go

postscript    16 21 gdot 12 15 gdot 20 15 gdot

postscript    grestore}!

% -- main E chords

postscript /E{

postscript    guitar

postscript    0 go 16 go 20 go

postscript    12 21 gdot 4 15 gdot 8 15 gdot

postscript    grestore}!

postscript /Em{

postscript    guitar

postscript    0 go 12 go 16 go 20 go

postscript    4 15 gdot 8 15 gdot

postscript    grestore}!

postscript /E7{

postscript    guitar

postscript    0 go 20 go

postscript    12 21 gdot 4 15 gdot 8 15 gdot 16 9 gdot

postscript    grestore}!

% -- main F chords

postscript /F{

postscript    guitar

postscript    0 21 gdot 20 21 gdot slw09 0 21 M 20 0 RL stroke

postscript    12 15 gdot 4 9 gdot 8 9 gdot

postscript    grestore}!

postscript /Fm{

postscript    guitar

postscript    0 21 gdot 20 21 gdot slw09 0 21 M 20 0 RL stroke

postscript    4 9 gdot 8 9 gdot

postscript    grestore}!

postscript /F7{

postscript    guitar fr2

postscript    0 gx 4 gx

postscript    8 21 gdot 16 15 gdot 12 9 gdot 20 9 gdot

postscript    grestore}!

% -- main G chords

postscript /G{

postscript    guitar

postscript    4 15 gdot 0 9 gdot 20 9 gdot

postscript    grestore}!

postscript /Gm{

postscript    guitar fr2

postscript    0 21 gdot 20 21 gdot slw09 0 21 M 20 0 RL stroke

postscript    4 9 gdot 8 9 gdot

postscript    grestore}!

postscript /G7{

postscript    guitar

postscript    20 21 gdot 4 15 gdot 0 9 gdot

postscript    grestore}!

% -- main A chords

postscript /A{

postscript    guitar

postscript    0 go 4 go 20 go

postscript    8 15 gdot 12 15 gdot 16 15 gdot

postscript    grestore}!

postscript /Am{

postscript    guitar

postscript    0 go 4 go 20 go

postscript    16 21 gdot 8 15 gdot 12 15 gdot

postscript    grestore}!

postscript /A7{

postscript    guitar

postscript    0 go 4 go 12 go 20 go

postscript    8 15 gdot 16 15 gdot

postscript    grestore}!

% -- main B chords

postscript /B{

postscript    guitar

postscript    0 gx

postscript    4 15 gdot 20 15 gdot slw09 4 15 M 16 0 RL stroke

postscript    8 3 gdot 12 3 gdot 16 3 gdot

postscript    grestore}!

postscript /Bm{

postscript    guitar

postscript    0 gx

postscript    4 15 gdot 20 15 gdot slw09 4 15 M 16 0 RL stroke

postscript    16 9 gdot 8 3 gdot 12 3 gdot

postscript    grestore}!

postscript /B7{

postscript    guitar

postscript    0 gx 16 go

postscript    8 21 gdot 4 15 gdot 12 15 gdot 20 15 gdot

postscript    grestore}!

% == Decoration definitions ==

deco C  3 C  36 0 0

deco Cm 3 Cm 36 0 0

deco C7 3 C7 36 0 0

deco D  3 D  36 0 0

deco Dm 3 Dm 36 0 0

deco D7 3 D7 36 0 0

deco E  3 E  36 0 0

deco Em 3 Em 36 0 0

deco E7 3 E7 36 0 0

deco F  3 F  36 0 0

deco Fm 3 Fm 36 0 0

deco F7 3 F7 36 0 0

deco G  3 G  36 0 0

deco Gm 3 Gm 36 0 0

deco G7 3 G7 36 0 0

deco A  3 A  36 0 0

deco Am 3 Am 36 0 0

deco A7 3 A7 36 0 0

deco B  3 B  36 0 0

deco Bm 3 Bm 36 0 0

deco B7 3 B7 36 0 0

% -- End of file deco-guitar.fmt