bin/lyrics.scm

   1 ;------------------------------------------------------------------;
   2 ; opus_libre -- lyrics.scm                                         ;
   3 ;                                                                  ;
   4 ; (c) 2008-2011 Valentin Villenave <valentin@villenave.net>        ;
   5 ;                                                                  ;
   6 ;     opus_libre is a free framework for GNU LilyPond: you may     ;
   7 ; redistribute it and/or modify it under the terms of the GNU      ;
   8 ; General Public License as published by the Free Software         ;
   9 ; Foundation, either version 3 of the License, or (at your option) ;
  10 ; any later version.                                               ;
  11 ;     This program is distributed WITHOUT ANY WARRANTY; without    ;
  12 ; even the implied warranty of MERCHANTABILITY or FITNESS FOR A    ;
  13 ; PARTICULAR PURPOSE.  You should have received a copy of the GNU  ;
  14 ; General Public License along with this program (typically in the ;
  15 ; share/doc/ directory).  If not, see http://www.gnu.org/licenses/ ;
  16 ;                                                                  ;
  17 ;------------------------------------------------------------------;
  18
  19
  20 ; macros used in lyric mode.
  21
  22 (define dash
  23 #{
  24   \once \override LyricHyphen #'minimum-distance = #4
  25   \once \override LyricHyphen #'length = #2
  26   \once \override LyricHyphen #'thickness = #1.2
  27 #})
  28
  29 (define leftSyl
  30 #{
  31   \once \override LyricText #'self-alignment-X = #0.9
  32 #})
  33
  34 (define rightSyl
  35 #{
  36   \once \override LyricText #'self-alignment-X = #-0.9
  37 #})