input/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.9";
   9
  10 shortlong = \melodic{
  11         c4()c( c c  |
  12         c c c c |
  13         c c c c |
  14         c c c )c |
  15 }
  16
  17 dirs = \melodic {
  18         \octave c';
  19         c'1() g' () c () g () c |
  20 }
  21
  22 complex = \melodic{
  23         \octave c';
  24         'c16( 'e( 'g( 'b( d( f( a( c'())))))))c4 c4 |
  25         \octave c''';
  26         'c16( a( f( d( 'b( 'g( 'e( 'c())))))))c4 c4 |
  27 }
  28
  29 over = \melodic{
  30         \octave c';
  31
  32         e( g' g' )e
  33         e( a' a' )e
  34         e( b' b' )e
  35         e( c'' c'' )e
  36         \stemup
  37         e( c' c' )e
  38         e( d' d' )e
  39         e( e' e' )e
  40         e( c'' c'' )e
  41         \stemboth
  42         e( f' b' )e
  43         e( b' f' )e
  44         e( e'' g' )e
  45         e( g' e'' )e
  46         \stemup
  47         e( d' b )e
  48         e( b d' )e
  49         e( f' c'' )e
  50         e( c'' f )e
  51 }
  52
  53 under = \melodic{
  54         \octave 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 = \melodic{
  79         \octave c';
  80         \stemup
  81         \[4/7 f( a' f f f f )f \] |
  82         \[4/7 f( f f f f a' )f \] |
  83         \stemdown
  84         \[4/7 e'( c e' e' e' e' )e' \] |
  85         \[4/7 e'( e' e' e' e' c )e' \] |
  86 }
  87
  88 tiltup = \melodic{
  89         \octave 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 = \melodic{
 104         \octave c';
 105         e'( c'' c'' )e
 106         \stemup
 107         e'( c'' c'' )e
 108         \stemboth
 109         e'( g' e'' )e
 110         \stemup
 111         e'( c'' f )e
 112         \stemdown
 113         f''( \stemboth 'a 'a \stemdown )f'
 114         \stemdown
 115         f''( 'a 'a )f'
 116 }
 117
 118 broken = \melodic{
 119       \octave c'';
 120       c c c c()
 121       c c c c(
 122       c )c c c(
 123       c c )c c(
 124       )a' a' a' a'()
 125       a' a' a' a'()
 126       c( c c )c
 127       c( c c )'f
 128       'f( c c )c
 129       'f( c c )'f
 130 }
 131
 132 blend = \melodic{
 133         \octave c';
 134         e( c'' c'' )e
 135         \stemup
 136         e( c'' c'' )e
 137         \stemdown
 138         f'( \stemboth 'a 'a \stemdown )f'
 139         f'( 'a 'a )f'
 140
 141         \stemboth
 142         e( c'' c'' )e'
 143         e'( c'' c'' )e
 144         d( d d )d
 145
 146         \stemdown
 147         e( c'' c'' )e'
 148         e'( c'' c'' )e
 149         d( d d )d
 150 }
 151
 152
 153 bug = \melodic{
 154         \octave c';
 155         a()g( f )e
 156         b'()a'( g' )f'
 157         g( f' e' )d'
 158         f f( g )a
 159         c' () b () c' c'
 160 }
 161
 162 \score{
 163         \melodic{
 164                 % use blend for fast check
 165                 %\blend
 166 % {
 167                 \shortlong
 168                 \dirs
 169                 \complex
 170                 \over
 171                 \under
 172                 \eccentric
 173                 \tiltup
 174                 \tiltdown
 175                 \bug
 176 % }
 177                 % use broken with small linewidth
 178                 %\broken
 179         }
 180         \paper{
 181               indent = 0.0\pt;
 182                 %for broken!
 183                 %linewidth= 40.\mm;
 184                 %castingalgorithm = \Wordwrap;
 185         }
 186 }
 187