input/test/sleur.ly

   1 \header{
   2 enteredby =      "jcn";
   3 copyright =      "PD";
   4 TestedFeatures =         "This file tests Feta embedded slurs"
   5          "(Feta definitively is not an abbreviation of Font-En-TjA)";
   6 }
   7
   8 \version "0.1.10";
   9
  10 shortlong = \melodic{
  11         c4()c( c c  |
  12         c c c c |
  13         c c c c |
  14         \break;
  15         c c c )c |
  16 }
  17
  18 dirs = \melodic {
  19         \octave c';
  20         c'1() g' () c () g () c |
  21 }
  22
  23 complex = \melodic{
  24         \octave c';
  25         'c16( 'e( 'g( 'b( d( f( a( c'())))))))c4 c4 |
  26         \octave c''';
  27         'c16( a( f( d( 'b( 'g( 'e( 'c())))))))c4 c4 |
  28 }
  29
  30 over = \melodic{
  31         \octave c';
  32
  33         e( g' g' )e
  34         e( a' a' )e
  35         e( b' b' )e
  36         e( c'' c'' )e
  37         \stemup
  38         e( c' c' )e
  39         e( d' d' )e
  40         e( e' e' )e
  41         e( c'' c'' )e
  42         \stemboth
  43         e( f' b' )e
  44         e( b' f' )e
  45         e( e'' g' )e
  46         e( g' e'' )e
  47         \stemup
  48         e( d' b )e
  49         e( b d' )e
  50         e( f' c'' )e
  51         e( c'' f )e
  52 }
  53
  54 under = \melodic{
  55         \octave c';
  56         \stemdown
  57         f'( \stemboth d d \stemdown )f'
  58         f'( \stemboth c c \stemdown )f'
  59         f'( \stemboth 'b 'b \stemdown )f'
  60         f'( \stemboth 'a 'a \stemdown )f'
  61         \stemdown
  62         f'( a a )f'
  63         f'( g g )f'
  64         f'( f f )f'
  65         f'( 'a 'a )f'
  66
  67         \stemdown
  68         f'( \stemboth d 'b \stemdown )f'
  69         f'( \stemboth 'b d \stemdown )f'
  70         f'( \stemboth 'd 'b \stemdown )f'
  71         f'( \stemboth 'b 'd \stemdown )f'
  72         \stemdown
  73         f'( f a )f'
  74         f'( a f )f'
  75         f'( f 'e )f'
  76         f'( 'e f )f'
  77 }
  78
  79 eccentric = \melodic{
  80         \octave c';
  81         \stemup
  82         \[4/7 f( a' f f f f )f \] |
  83         \[4/7 f( f f f f a' )f \] |
  84         \stemdown
  85         \[4/7 e'( c e' e' e' e' )e' \] |
  86         \[4/7 e'( e' e' e' e' c )e' \] |
  87 }
  88
  89 tiltup = \melodic{
  90         \octave c';
  91         e( c'' c'' )e'
  92         \stemup
  93         e( c'' c'' )e'
  94         \stemboth
  95         e( g' e'' )e'
  96         \stemup
  97         e( c'' f )e'
  98         \stemdown
  99         f'( \stemboth 'a 'a \stemdown )f''
 100         \stemdown
 101         f'( 'a 'a )f''
 102 }
 103
 104 tiltdown = \melodic{
 105         \octave c';
 106         e'( c'' c'' )e
 107         \stemup
 108         e'( c'' c'' )e
 109         \stemboth
 110         e'( g' e'' )e
 111         \stemup
 112         e'( c'' f )e
 113         \stemdown
 114         f''( \stemboth 'a 'a \stemdown )f'
 115         \stemdown
 116         f''( 'a 'a )f'
 117 }
 118
 119 broken = \melodic{
 120       \octave c'';
 121       c c c c()
 122       c c c c(
 123       c )c c c(
 124       c c )c c(
 125       )a' a' a' a'()
 126       a' a' a' a'()
 127       c( c c )c
 128       c( c c )'f
 129       'f( c c )c
 130       'f( c c )'f
 131 }
 132
 133 blend = \melodic{
 134         \octave c';
 135         e( c'' c'' )e
 136         \stemup
 137         f'( c'' c'' )f'
 138         e( c'' c'' )e
 139         \stemdown
 140         f'( \stemboth 'a 'a \stemdown )f'
 141         f'( 'a 'a )f'
 142
 143         \stemboth
 144         e( c'' c'' )e'
 145         e'( c'' c'' )e
 146         d( d d )d
 147
 148         \stemdown
 149         e( c'' c'' )e'
 150         e'( c'' c'' )e
 151         d( d d )d
 152 }
 153
 154
 155 bug = \melodic{
 156         \octave c';
 157         a()g( f )e
 158         b'()a'( g' )f'
 159         g( f' e' )d'
 160         f f( g )a
 161         c' () b () c' c'
 162 }
 163
 164 clipping = \melodic{
 165         \octave c';
 166         \stemboth
 167         c( c''' c''')c
 168         c( c''' c )c''
 169         c''( c c''' )c
 170         \stemdown
 171         c( \stemup '''c '''c \stemdown )c
 172         c( \stemup '''c c \stemdown )''c
 173         ''c( \stemup c '''c \stemdown )c
 174 }
 175
 176 \score{
 177         \melodic{
 178                 % use blend for fast check
 179                 \blend
 180 % {
 181                 \shortlong
 182                 \dirs
 183                 \complex
 184                 \over
 185                 \under
 186                 \eccentric
 187                 \tiltup
 188                 \tiltdown
 189                 \bug
 190 % }
 191                 \clipping
 192                 % use broken with small linewidth
 193                 %\broken
 194         }
 195         \paper{
 196               indent = 0.0\pt;
 197                 %for broken!
 198                 % linewidth= 30.\mm;
 199                 castingalgorithm = \Wordwrap;
 200         }
 201 }
 202