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.3.5";
   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         \stemdown
  56         f'( \stemboth d d \stemdown )f'
  57         f'( \stemboth c c \stemdown )f'
  58         f'( \stemboth b, b, \stemdown )f'
  59         f'( \stemboth a, a, \stemdown )f'
  60         \stemdown
  61         f'( a a )f'
  62         f'( g g )f'
  63         f'( f f )f'
  64         f'( a, a, )f'
  65
  66         \stemdown
  67         f'( \stemboth d b, \stemdown )f'
  68         f'( \stemboth b, d \stemdown )f'
  69         f'( \stemboth d, b, \stemdown )f'
  70         f'( \stemboth b, d, \stemdown )f'
  71         \stemdown
  72         f'( f a )f'
  73         f'( a f )f'
  74         f'( f e, )f'
  75         f'( e, f )f'
  76 }
  77
  78 eccentric = \notes\transpose c'{
  79         \stemup
  80         \times 4/7 { f( a' f f f f )f } |
  81         \times 4/7 { f( f f f f a' )f } |
  82         \stemdown
  83         \times 4/7 { e'( c e' e' e' e' )e' } |
  84         \times 4/7 { e'( e' e' e' e' c )e' } |
  85 }
  86
  87 tiltup = \notes\transpose c'{
  88         e( c'' c'' )e'
  89         \stemup
  90         e( c'' c'' )e'
  91         \stemboth
  92         e( g' e'' )e'
  93         \stemup
  94         e( c'' f )e'
  95         \stemdown
  96         f'( \stemboth a, a, \stemdown )f''
  97         \stemdown
  98         f'( a, a, )f''
  99 }
 100
 101 tiltdown = \notes\transpose c'{
 102         e'( c'' c'' )e
 103         \stemup
 104         e'( c'' c'' )e
 105         \stemboth
 106         e'( g' e'' )e
 107         \stemup
 108         e'( c'' f )e
 109         \stemdown
 110         f''( \stemboth a, a, \stemdown )f'
 111         \stemdown
 112         f''( a, a, )f'
 113 }
 114
 115 broken = \notes\transpose c''{
 116       c c c c()
 117       c c c c(
 118       c )c c c(
 119       c c )c c(
 120       )a' a' a' a'()
 121       a' a' a' a'()
 122       c( c c )c
 123       c( c c )f,
 124       f,( c c )c
 125       f,( c c )f,
 126 }
 127
 128 blend = \notes\transpose c'{
 129         e( c'' c'' )e
 130         \stemup
 131         f'( c'' c'' )f'
 132         e( c'' c'' )e
 133         \stemdown
 134         f'( \stemboth a, a, \stemdown )f'
 135         f'( a, a, )f'
 136
 137         \stemboth
 138         e( c'' c'' )e'
 139         e'( c'' c'' )e
 140         d( d d )d
 141
 142         \stemdown
 143         e( c'' c'' )e'
 144         e'( c'' c'' )e
 145         d( d d )d
 146 }
 147
 148
 149 bug = \notes\transpose c'{
 150
 151         a()g( f )e
 152         b'()a'( g' )f'
 153         g( f' e' )d'
 154         f f( g )a
 155         c' () b () c' c'
 156 }
 157
 158 clipping = \notes\transpose c'{
 159         \stemboth
 160         c( c''' c''')c
 161         c( c''' c )c''
 162         c''( c c''' )c
 163         \stemdown
 164         c( \stemup c,,, c,,, \stemdown )c
 165         c( \stemup c,,, c \stemdown )c,,
 166         c,,( \stemup c c,,, \stemdown )c
 167 }
 168
 169 \score{
 170         \notes{
 171 %               \property Voice.pletvisibility = 0;
 172                 % use blend for fast check
 173                 \blend
 174 % {
 175                 \shortlong
 176                 \dirs
 177                 \complex
 178                 \over
 179                 \under
 180                 \eccentric
 181                 \tiltup
 182                 \tiltdown
 183                 \bug
 184 % }
 185                 \clipping
 186                 % use broken with small linewidth
 187                 %\broken
 188         }
 189         \paper{
 190               indent = 0.0\pt;
 191                 %for broken!
 192                 % linewidth= 30.\mm;
 193                 castingalgorithm = \Wordwrap;
 194         }
 195 }
 196