4 texidoc ="@cindex Feta scripts
5 This chart shows all articulations, or scripts, that the feta font contains.
11 (define script-list (map car default-script-alist))
22 "signumcongruentiae"))
49 (define instrument-specific
74 ;; remove all remaining groups from the script-list
76 (lambda (x) (set! script-list (delete x script-list)))
85 ;; require all scripts to appear here
86 (if (pair? script-list) ; script-list should be empty by now
88 (_ "Unlisted scripts in Documentation/included/script-chart.ly: ~A")
92 ;;;;;;; functions to generate the tables
96 (define (make-script-note script)
101 (ly:make-duration 2 0 1/1)
103 (ly:make-pitch 0 0 0))
107 ;; everything goes up except "ictus"
108 (if (string=? script "ictus") -1 1)
112 (define (make-script-notes scripts)
113 (make-sequential-music
114 (map make-script-note scripts)))
116 (define (make-scripts-voice-context scripts)
117 (let ((music (make-script-notes scripts)))
118 (context-spec-music music 'Voice "voiceA")))
120 (define (make-scripts-vaticana-context scripts)
121 (let ((music (make-script-notes scripts)))
122 (context-spec-music music 'VaticanaVoice "voiceA")))
127 (define (make-script-lyric script)
132 (ly:make-duration 2 0 1/1)
136 (define (make-script-lyrics scripts)
137 (make-sequential-music
138 (map make-script-lyric scripts)))
140 (define (make-scripts-lyrics-context scripts)
141 (let ((music (make-script-lyrics scripts)))
142 (context-spec-music music 'Lyrics "voiceA")))
145 ;;; combining notes and lyrics
147 (define (make-scripts-staff scripts)
148 (make-simultaneous-music
149 (list (make-scripts-voice-context scripts)
150 (make-scripts-lyrics-context scripts))))
152 (define (make-scripts-staff-ancient scripts)
153 (make-simultaneous-music
154 (list (make-scripts-vaticana-context scripts)
155 (make-scripts-lyrics-context scripts))))
157 ) % end of (begin ...)
166 \override NonMusicalPaperColumn.padding = #2.5
167 \override PaperColumn.keep-inside-line = ##t
171 \remove "Time_signature_engraver"
173 \override Stem.direction = #down
177 \override LyricText.font-family = #'typewriter
178 \override LyricText.font-shape = #'upright
182 \override Script.padding = #0
188 #(define-music-function (scripts) (list?)
189 (make-scripts-staff scripts))
192 #(define-music-function (scripts) (list?)
193 (make-scripts-staff-ancient scripts))