input/test/sleur.ly

   1 \version "1.7.6"
   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 c {
  20
  21         c'1() g' () c () g () c |
  22 }
  23 over =  \notes\transpose c c{
  24
  25
  26         e( g' g' )e
  27         e( a' a' )e
  28         e( b' b' )e
  29         e( c'' c'' )e
  30         \stemUp
  31         e( c' c' )e
  32         e( d' d' )e
  33         e( e' e' )e
  34         e( c'' c'' )e
  35         \stemBoth
  36         e( f' b' )e
  37         e( b' f' )e
  38         e( e'' g' )e
  39         e( g' e'' )e
  40         \stemUp
  41         e( d' b )e
  42         e( b d' )e
  43         e( f' c'' )e
  44         e( c'' f )e
  45 }
  46
  47 under =  \notes\transpose c c{
  48         \stemDown
  49         f'( \stemBoth d d \stemDown )f'
  50         f'( \stemBoth c c \stemDown )f'
  51         f'( \stemBoth b, b, \stemDown )f'
  52         f'( \stemBoth a, a, \stemDown )f'
  53         \stemDown
  54         f'( a a )f'
  55         f'( g g )f'
  56         f'( f f )f'
  57         f'( a, a, )f'
  58
  59         \stemDown
  60         f'( \stemBoth d b, \stemDown )f'
  61         f'( \stemBoth b, d \stemDown )f'
  62         f'( \stemBoth d, b, \stemDown )f'
  63         f'( \stemBoth b, d, \stemDown )f'
  64         \stemDown
  65         f'( f a )f'
  66         f'( a f )f'
  67         f'( f e, )f'
  68         f'( e, f )f'
  69 }
  70
  71 eccentric =  \notes\transpose c c{
  72         \stemUp
  73         \times 4/7 { f( a' f f f f )f } |
  74         \times 4/7 { f( f f f f a' )f } |
  75         \stemDown
  76         \times 4/7 { e'( c e' e' e' e' )e' } |
  77         \times 4/7 { e'( e' e' e' e' c )e' } |
  78 }
  79
  80 tiltup =  \notes\transpose c c{
  81         e( c'' c'' )e'
  82         \stemUp
  83         e( c'' c'' )e'
  84         \stemBoth
  85         e( g' e'' )e'
  86         \stemUp
  87         e( c'' f )e'
  88         \stemDown
  89         f'( \stemBoth a, a, \stemDown )f''
  90         \stemDown
  91         f'( a, a, )f''
  92 }
  93
  94 tiltdown =  \notes\transpose c c{
  95         e'( c'' c'' )e
  96         \stemUp
  97         e'( c'' c'' )e
  98         \stemBoth
  99         e'( g' e'' )e
 100         \stemUp
 101         e'( c'' f )e
 102         \stemDown
 103         f''( \stemBoth a, a, \stemDown )f'
 104         \stemDown
 105         f''( a, a, )f'
 106 }
 107
 108 broken =  \notes\transpose c c'{
 109       c c c c()
 110       c c c c(
 111       c )c c c(
 112       c c )c c(
 113       )a' a' a' a'()
 114       a' a' a' a'()
 115       c( c c )c
 116       c( c c )f,
 117       f,( c c )c
 118       f,( c c )f,
 119 }
 120
 121 blend =         \notes\transpose c c{
 122         e( c'' c'' )e
 123         \stemUp
 124         f'( c'' c'' )f'
 125         e( c'' c'' )e
 126         \stemDown
 127         f'( \stemBoth a, a, \stemDown )f'
 128         f'( a, a, )f'
 129
 130         \stemBoth
 131         e( c'' c'' )e'
 132         e'( c'' c'' )e
 133         d( d d )d
 134
 135         \stemDown
 136         e( c'' c'' )e'
 137         e'( c'' c'' )e
 138         d( d d )d
 139 }
 140
 141
 142 bug =  \notes\transpose c c{
 143
 144         a()g( f )e
 145         b'()a'( g' )f'
 146         g( f' e' )d'
 147         f f( g )a
 148         c' () b () c' c'
 149 }
 150
 151 clipping =  \notes\transpose c c{
 152         \stemBoth
 153         c( c''' c''')c
 154         c( c''' c )c''
 155         c''( c c''' )c
 156         \stemDown
 157         c( \stemUp c,,, c,,, \stemDown )c
 158         c( \stemUp c,,, c \stemDown )c,,
 159         c,,( \stemUp c c,,, \stemDown )c
 160 }
 161
 162 \score{
 163         \context Staff \notes{
 164 %               \property Voice.pletvisibility = 0
 165                 % use blend for fast check
 166                 \blend
 167 % {
 168                 \shortlong
 169                 \dirs
 170                 \over
 171                 \under
 172                 \eccentric
 173                 \tiltup
 174                 \tiltdown
 175                 \bug
 176 % }
 177                 \clipping
 178                 % use broken with small linewidth
 179                 %\broken
 180         }
 181         \paper{
 182               indent = 0.0\pt
 183                 %for broken!
 184                 % linewidth= 30.\mm
 185         }
 186 }
 187
 188 %% new-chords-done %%