ly/declarations-as.ly

   1
   2 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% UGH UGH UGH UGHUGH FIXME
   3 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -> duplication!
   4
   5 breve = \duration #(make-duration -1 0)
   6 longa = \duration #'(make-duration -2 0 )
   7 maxima = \duration #'(make-duration  -3 0 )
   8
   9
  10 #(begin
  11   (eval-string (ly-gulp-file "slur.scm"))
  12   (eval-string (ly-gulp-file "generic-property.scm"))
  13   (eval-string (ly-gulp-file "basic-properties.scm"))
  14  )
  15
  16 \include "nederlands.ly"                % dutch
  17 \include "chord-modifiers.ly"
  18 \include "script.ly"
  19
  20
  21 % declarations for standard directions
  22 left = -1
  23 right = 1
  24 up = 1
  25 down = -1
  26 start = -1
  27 stop = 1
  28 smaller = -1
  29 bigger = 1
  30
  31 center=0
  32
  33 break =  \penalty  -1000000;
  34 nobreak =  \penalty 1000000;
  35 \include "scale-definitions.ly"
  36
  37
  38 melisma = \property Staff.melismaBusy = ##t
  39 melismaEnd = \property Staff.melismaBusy = ##f
  40
  41 %papersize = "a4"
  42 %\include "generic-paper.ly"
  43
  44 #(eval-string (ly-gulp-file "paper.scm"))
  45
  46 \paper {
  47         texsetting = "";
  48         pssetting = "";
  49         scmsetting = "(lilyponddefs.ps) findlibfile {exch pop //systemdict /run get exec} { /undefinedfilename signalerror } ifelse;\n";% UGH.
  50 }
  51
  52 \include "paper-as9.ly"
  53
  54 % ugh
  55 \include "midi.ly"
  56
  57 \include "dynamic-scripts.ly"
  58 \include "spanners.ly"
  59
  60 \include "property.ly"
  61
  62
  63
  64 unusedEntry = \notes { c4 }             % reset default duration
  65
  66 % music = "\melodic\relative c"
  67