Lully/Ballet/LWV08AmourMalade/common.ily

   1 \header {
   2   copyrightYear = "2005"
   3   composer = "Jean Baptiste Lully"
   4   poet = "Francesco Buti"
   5   opus = "LWV 8"
   6   date = "1657"
   7 }
   8
   9 %% Staff size:
  10 %%  14 for lead sheets
  11 %%  16 for vocal parts
  12 %%  18 for instruments
  13 #(set-global-staff-size
  14   (cond ((eqv? #f (ly:get-option 'part)) 14)
  15         ((memq (ly:get-option 'part) '(voix)) 16)
  16         (else 18)))
  17
  18 %% Line/page breaking algorithm
  19 %%  optimal   for lead sheets
  20 %%  page-turn for instruments and vocal parts
  21 \paper {
  22   #(define page-breaking (if (eqv? (ly:get-option 'part) #f)
  23                              ly:optimal-breaking
  24                              ly:page-turn-breaking))
  25 }
  26
  27 %% Use rehearsal numbers in parts
  28 #(if (symbol? (ly:get-option 'part))
  29      (ly:set-option 'use-rehearsal-numbers #t))
  30
  31 %% No incipits for parts
  32 #(ly:set-option 'non-incipit (not (not (ly:get-option 'part))))
  33
  34 \include "italiano.ly"
  35 \include "common/common.ily"
  36 \setOpus "Lully/Ballet/LWV08AmourMalade"
  37 \opusTitle "Amour malade"
  38
  39 %%%%%%%%%%%%%% Parts %%%%%%%%%%%%%%
  40 \opusPartSpecs
  41 #`((dessus "Dessus" () (#:notes "dessus"))
  42    (haute-contre "Haute-contre" () (#:notes "haute-contre"))
  43    (taille "Taille" () (#:notes "taille" #:clef "alto"))
  44    (quinte "Quinte" () (#:notes "quinte" #:clef "alto"))
  45    (basse "Basses" () (#:notes "basse" #:clef "basse")))
  46
  47 trill = #(make-articulation "stopped")
  48
  49 %%%%%%%%%%%%%% Verse markup commands %%%%%%%%%%%%
  50
  51 #(define-markup-command (verTitre layout props arg) (markup?)
  52   (interpret-markup layout props
  53    (markup #:column (#:vspace 1
  54                      #:fill-line (#:null #:fontsize 4 arg #:null)
  55                      #:vspace 0.5))))
  56
  57 #(define-markup-command (ver layout props markp) (markup?)
  58   (interpret-markup layout props
  59    (markup #:fontsize 1 #:line (#:hspace 5 markp))))
  60
  61 #(define-markup-command (verCourt layout props markp) (markup?)
  62   (interpret-markup layout props
  63    (markup #:fontsize 1 #:line (#:hspace 10 markp))))
  64
  65 #(define-markup-command (verA layout props markp) (markup?)
  66   (interpret-markup layout props
  67    (markup #:fontsize 1 #:line (#:hspace 10 markp))))
  68 #(define-markup-command (verB layout props markp) (markup?)
  69   (interpret-markup layout props
  70    (markup #:fontsize 1 #:line (#:hspace 12 markp))))
  71
  72 #(define-markup-list-command (verTexte layout props markups) (markup-list?)
  73   (interpret-markup-list layout props
  74     (map-in-order (lambda (m)
  75                     (make-ver-markup m))
  76                   markups)))
  77
  78 #(define-markup-command (verInv layout props arg1 arg2) (markup? markup?)
  79   (interpret-markup layout props
  80    (markup #:ver #:line (#:invisible arg1 arg2))))
  81
  82 #(define-markup-command (personnage layout props markp) (markup?)
  83   (interpret-markup layout props
  84    (markup #:fill-line (#:null
  85                         #:fontsize 2 #:italic markp
  86                         #:null))))
  87
  88 #(define-markup-command (invisible layout props arg) (markup?)
  89   (interpret-markup layout props (make-with-color-markup white arg)))