input/test/sleur.ly

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