input/test/sleur.ly

   1 \header{
   2 enteredby =      "jcn";
   3 copyright =      "public domain";
   4 TestedFeatures =         "This file tests Feta embedded slurs" +
   5          "(Feta definitively is not an abbreviation of Font-En-TjA)";
   6 }
   7
   8 \version "1.0.19";
   9
  10 shortlong = \notes{
  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 = \notes\transpose c' {
  19
  20         c'1() g' () c () g () c |
  21 }
  22
  23 complex = \notes{
  24 \transpose c'{
  25         c,16( e,( g,( b,( d( f( a( c'())))))))c4 c4 |}
  26 \transpose c'''{
  27         c,16( a( f( d( b,( g,( e,( c,())))))))c4 c4 |}
  28 }
  29
  30 over = \notes\transpose c'{
  31
  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 = \notes\transpose c'{
  55
  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 = \notes\transpose c'{
  80
  81         \stemup
  82         \times 4/7 { f( a' f f f f )f } |
  83         \times 4/7 { f( f f f f a' )f } |
  84         \stemdown
  85         \times 4/7 { e'( c e' e' e' e' )e' } |
  86         \times 4/7 { e'( e' e' e' e' c )e' } |
  87 }
  88
  89 tiltup = \notes\transpose c'{
  90         e( c'' c'' )e'
  91         \stemup
  92         e( c'' c'' )e'
  93         \stemboth
  94         e( g' e'' )e'
  95         \stemup
  96         e( c'' f )e'
  97         \stemdown
  98         f'( \stemboth a, a, \stemdown )f''
  99         \stemdown
 100         f'( a, a, )f''
 101 }
 102
 103 tiltdown = \notes\transpose c'{
 104         e'( c'' c'' )e
 105         \stemup
 106         e'( c'' c'' )e
 107         \stemboth
 108         e'( g' e'' )e
 109         \stemup
 110         e'( c'' f )e
 111         \stemdown
 112         f''( \stemboth a, a, \stemdown )f'
 113         \stemdown
 114         f''( a, a, )f'
 115 }
 116
 117 broken = \notes\transpose c''{
 118       c c c c()
 119       c c c c(
 120       c )c c c(
 121       c c )c c(
 122       )a' a' a' a'()
 123       a' a' a' a'()
 124       c( c c )c
 125       c( c c )f,
 126       f,( c c )c
 127       f,( c c )f,
 128 }
 129
 130 blend = \notes\transpose c'{
 131         e( c'' c'' )e
 132         \stemup
 133         f'( c'' c'' )f'
 134         e( c'' c'' )e
 135         \stemdown
 136         f'( \stemboth a, a, \stemdown )f'
 137         f'( a, a, )f'
 138
 139         \stemboth
 140         e( c'' c'' )e'
 141         e'( c'' c'' )e
 142         d( d d )d
 143
 144         \stemdown
 145         e( c'' c'' )e'
 146         e'( c'' c'' )e
 147         d( d d )d
 148 }
 149
 150
 151 bug = \notes\transpose c'{
 152
 153         a()g( f )e
 154         b'()a'( g' )f'
 155         g( f' e' )d'
 156         f f( g )a
 157         c' () b () c' c'
 158 }
 159
 160 clipping = \notes\transpose c'{
 161         \stemboth
 162         c( c''' c''')c
 163         c( c''' c )c''
 164         c''( c c''' )c
 165         \stemdown
 166         c( \stemup c,,, c,,, \stemdown )c
 167         c( \stemup c,,, c \stemdown )c,,
 168         c,,( \stemup c c,,, \stemdown )c
 169 }
 170
 171 \score{
 172         \notes{
 173 %               \property Voice.pletvisibility = 0;
 174                 % use blend for fast check
 175                 \blend
 176 % {
 177                 \shortlong
 178                 \dirs
 179                 \complex
 180                 \over
 181                 \under
 182                 \eccentric
 183                 \tiltup
 184                 \tiltdown
 185                 \bug
 186 % }
 187                 \clipping
 188                 % use broken with small linewidth
 189                 %\broken
 190         }
 191         \paper{
 192               indent = 0.0\pt;
 193                 %for broken!
 194                 % linewidth= 30.\mm;
 195                 castingalgorithm = \Wordwrap;
 196         }
 197 }
 198