Blob Blame History Raw
% italian.fmt
% written by Christopher Lane
% for abcm2ps 5.9.*
% (adapted for more abcm2ps versions by Hudson Lacerda)

% -- 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 
postscript 	currentdict /gchshow known {
postscript 	  /gchshow load cshow   %% abcm2ps older than abcm2ps-5.1.0
postscript 	} {
postscript 	  show                  %% abcm2ps-5.1.0 or newer
postscript 	} ifelse
postscript }!
% End of file italian.fmt