X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=lily%2Fchord-name-engraver.cc;h=bec242fdc7119d9d8d23bd53bedb78dfcfd0073e;hb=207f71b8b2ab9ca550e841615bedce393e652ca6;hp=0cb0a7d8e417c0de8d501578dbac3b1079927d91;hpb=4935f81a94ae1b98cd017a96571c153cee3e5686;p=lilypond.git diff --git a/lily/chord-name-engraver.cc b/lily/chord-name-engraver.cc index 0cb0a7d8e4..bec242fdc7 100644 --- a/lily/chord-name-engraver.cc +++ b/lily/chord-name-engraver.cc @@ -1,7 +1,7 @@ /* This file is part of LilyPond, the GNU music typesetter. - Copyright (C) 1998--2014 Jan Nieuwenhuizen + Copyright (C) 1998--2015 Jan Nieuwenhuizen LilyPond is free software: you can redistribute it and/or modify it under the terms of the GNU General Public License as published by @@ -32,6 +32,8 @@ #include "translator.icc" +using std::vector; + class Chord_name_engraver : public Engraver { TRANSLATOR_DECLARATIONS (Chord_name_engraver); @@ -96,22 +98,22 @@ Chord_name_engraver::process_music () { Stream_event *n = notes_[i]; SCM p = n->get_property ("pitch"); - if (!unsmob_pitch (p)) + if (!unsmob (p)) continue; - if (n->get_property ("bass") == SCM_BOOL_T) + if (to_boolean (n->get_property ("bass"))) bass = p; else { SCM oct = n->get_property ("octavation"); if (scm_is_number (oct)) { - Pitch orig = unsmob_pitch (p)->transposed (Pitch (-scm_to_int (oct), 0, 0)); + Pitch orig = unsmob (p)->transposed (Pitch (-scm_to_int (oct), 0)); pitches = scm_cons (orig.smobbed_copy (), pitches); } else pitches = scm_cons (p, pitches); - if (n->get_property ("inversion") == SCM_BOOL_T) + if (to_boolean (n->get_property ("inversion"))) { inversion = p; if (!scm_is_number (oct))