1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
;;;HideClef
(let ((tag "HideClef"))
(if (Clef?)
(if (d-Directive-clef? tag)
(d-DirectiveDelete-clef tag)
(begin
(d-DirectivePut-clef-prefix tag (string-append "\\once \\override Staff.Clef.stencil = ##f " ))
(d-DirectivePut-clef-gy tag 60)
(d-DirectivePut-clef-graphic tag "\n⋃\nDenemo\n24")
(SetDirectiveConditional "clef" tag)))
(begin
(if (d-Directive-clef? tag)
(d-DirectiveDelete-clef tag)
(begin
(d-DirectivePut-clef-prefix tag (string-append "\\once \\override Staff.Clef.stencil = ##f " ))
(d-DirectivePut-clef-gy tag 60)
(d-DirectivePut-clef-graphic tag "\n⋃\nDenemo\n24")
(SetDirectiveConditional "clef" tag)))))
(d-SetSaved #f))
|
