diff options
Diffstat (limited to 'Build/source/texk/gregorio/gregorio-src/src/gabc/gabc-write.c')
-rw-r--r-- | Build/source/texk/gregorio/gregorio-src/src/gabc/gabc-write.c | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/Build/source/texk/gregorio/gregorio-src/src/gabc/gabc-write.c b/Build/source/texk/gregorio/gregorio-src/src/gabc/gabc-write.c index e29a5be4602..31e75ccce3c 100644 --- a/Build/source/texk/gregorio/gregorio-src/src/gabc/gabc-write.c +++ b/Build/source/texk/gregorio/gregorio-src/src/gabc/gabc-write.c @@ -2,7 +2,7 @@ * Gregorio is a program that translates gabc files to GregorioTeX * This file provides functions for writing gabc from Gregorio structures. * - * Copyright (C) 2006-2015 The Gregorio Project (see CONTRIBUTORS.md) + * Copyright (C) 2006-2016 The Gregorio Project (see CONTRIBUTORS.md) * * This file is part of Gregorio. * @@ -480,8 +480,11 @@ static void gabc_write_gregorio_note(FILE *f, gregorio_note *note, fprintf(f, "%c", pitch_letter(note->u.note.pitch)); } break; - case S_PUNCTUM_INCLINATUM: - fprintf(f, "%c", toupper((unsigned char)pitch_letter(note->u.note.pitch))); + case S_PUNCTUM_INCLINATUM_ASCENDENS: + fprintf(f, "%c1", toupper((unsigned char)pitch_letter(note->u.note.pitch))); + break; + case S_PUNCTUM_INCLINATUM_DESCENDENS: + fprintf(f, "%c0", toupper((unsigned char)pitch_letter(note->u.note.pitch))); break; case S_PUNCTUM_INCLINATUM_DEMINUTUS: if (note->next) { |