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