% itachords.fmt
%
% Displays guitar chords using Italian note names.
% See itachords-caps.fmt for all-capitals note names.
% Written by Jean Fran\ccois Moine
% License: GNU GPL 2.

beginps
  /gcshow{
    dup 0 get
    dup dup 65 ge exch 71 le and{
    65 sub[(La)(Si)(Do)(Re)(Mi)(Fa)(Sol)]exch get show
    dup length 1 sub 1 exch getinterval
  } if show}!
  /agcshow{
    dup 0 get 0 get
    dup dup 65 ge exch 71 le and{
    65 sub[(La)(Si)(Do)(Re)(Mi)(Fa)(Sol)]exch get show
    dup length 1 sub 1 exch getinterval
  } if arrayshow}!

endps

% end of file itachords.fmt