;StaffColor
(let ((tag "ChordVariant")(thecolor ""))
	(if (d-Directive-staff? tag) (set! thecolor (d-DirectiveGet-staff-data tag thecolor)))
	(set! thecolor (d-GetUserInput "Staff Color" "Give Lilypond color name" thecolor))
	(d-DirectivePut-staff-data tag thecolor)
	(d-DirectivePut-staff-display tag thecolor)
	(d-DirectivePut-staff-override tag  DENEMO_OVERRIDE_GRAPHIC)
	(d-DirectivePut-staff-postfix tag  (string-append "\\override Staff.StaffSymbol.color = #(x11-color '" thecolor ")"))
	(d-RefreshDisplay)
	(d-SetSaved #f))