% italian.fmt

% -- latin guitar chords
postscript /gcshow { % string gcshow
postscript	-5 0 RM
postscript	dup 0 get
postscript	dup dup 65 ge exch 71 le and {
postscript	65 sub [(La) (Si) (Do) (Re) (Mi) (Fa) (Sol)] exch get show
postscript	} { currentfont /Encoding get exch get glyphshow
postscript	} ifelse
postscript	dup length 1 sub 1 exch getinterval
postscript	%
postscript	dup mark exch (m) search {
postscript	  (di) search { cleartomark } {
postscript	    length exch pop exch (aj) anchorsearch { cleartomark } {
postscript	      pop /tempstr 4 2 roll cleartomark
postscript	      def tempstr exch (-) putinterval tempstr
postscript	    } ifelse
postscript	  } ifelse
postscript	} {
postscript	cleartomark } ifelse
postscript	% for abcm2ps 5.4.* change this next line to just "show }!"
postscript	/gchshow load cshow }!

% End of file italian.fmt