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
75 ;; remove all remaining groups from the script-list
77 (lambda (x) (set! script-list (delete x script-list)))
86 ;; require all scripts to appear here
87 (if (pair? script-list) ; script-list should be empty by now
89 (_ "Unlisted scripts in Documentation/included/script-chart.ly: ~A")
93 ;;;;;;; functions to generate the tables
97 (define (make-script-note script)
102 (ly:make-duration 2 0 1 1)
104 (ly:make-pitch 0 0 0))
108 ;; everything goes up except "ictus"
109 (if (string=? script "ictus") -1 1)
113 (define (make-script-notes scripts)
114 (make-sequential-music
115 (map make-script-note scripts)))
117 (define (make-scripts-voice-context scripts)
118 (let ((music (make-script-notes scripts)))
119 (context-spec-music music 'Voice "voiceA")))
121 (define (make-scripts-vaticana-context scripts)
122 (let ((music (make-script-notes scripts)))
123 (context-spec-music music 'VaticanaVoice "voiceA")))
128 (define (make-script-lyric script)
133 (ly:make-duration 2 0 1 1)
137 (define (make-script-lyrics scripts)
138 (make-sequential-music
139 (map make-script-lyric scripts)))
141 (define (make-scripts-lyrics-context scripts)
142 (let ((music (make-script-lyrics scripts)))
143 (context-spec-music music 'Lyrics "voiceA")))
146 ;;; combining notes and lyrics
148 (define (make-scripts-staff scripts)
149 (make-simultaneous-music
150 (list (make-scripts-voice-context scripts)
151 (make-scripts-lyrics-context scripts))))
153 (define (make-scripts-staff-ancient scripts)
154 (make-simultaneous-music
155 (list (make-scripts-vaticana-context scripts)
156 (make-scripts-lyrics-context scripts))))
158 ) % end of (begin ...)
167 \override NonMusicalPaperColumn #'padding = #2.5
168 \override PaperColumn #'keep-inside-line = ##t
172 \remove "Time_signature_engraver"
173 \override BarLine #'transparent = ##t
174 \override Stem #'direction = #down
178 \override LyricText #'font-family = #'typewriter
179 \override LyricText #'font-shape = #'upright
183 \override Script #'padding = #0
189 #(define-music-function (parser location scripts) (list?)
190 (make-scripts-staff scripts))
193 #(define-music-function (parser location scripts) (list?)
194 (make-scripts-staff-ancient scripts))