(let ((tag1 "CreateCustomizeChordSymbol")(tag2 "InsertCustomizeChordSymbol")(tag3 "ToggleTypeset")) (d-PushPosition) (while (d-PreviousMovement)) (d-HideMovement #t) (d-PopPosition) (CreateButton tag1 (string-append " <span font_desc=\"16\" foreground=\"blue\">" (_ "Create/Load a custom Chord Symbol")"</span>")) (d-SetDirectiveTagActionScript tag1 "(let () (if (eq? 1 (d-GetMovement)) (begin (d-WarningDialog (_ \"For simple chord symbols don't use this: just attach the text you want to use as the symbol to the type of chord you are designing the symbol for. This button will allow you to customize how a Chord Symbol is drawn using a vector graphics editor (e.g. Inkscape). For each type of chord you wish to modify, you create an \\\"ornament\\\" which is the symbol you want - e.g. 9sus4 or +7. Placing one of these \\\"ornaments\\\" on the type of chord in this movement will result in it being used in the Chord Chart itself, which you construct in the next movement. You must not delete this movement even though it is hidden, otherwise the Chord Chart will not see the definitions. In what follows, the chord symbols are referred to as \\\"ornaments\\\" because the custom ornament code is being re-used.\" )) (d-CustomOrnamentDefinition)) (begin (d-WarningDialog (_ \"Use this button only in the Chord Symbol Definitions movement - the first movement\")))) )") (CreateButton tag2 (string-append " <span font_desc=\"16\" foreground=\"green\">" (_ "Insert Chord Symbol Definition")"</span>")) (d-SetDirectiveTagActionScript tag2 "(let () (if (eq? 1 (d-GetMovement)) (begin (d-ToggleCustomOrnament)) (begin (d-WarningDialog (_ \"Use this button only in the Chord Symbol Definitions movement - the first movement\")))) )" ) (CreateButton tag3 (string-append " <span font_desc=\"12\" foreground=\"red\">" (_ "(Un-)Typeset Definitions")"</span>")) (d-SetDirectiveTagActionScript tag3 "(if (eq? 1 (d-GetMovement)) (d-HideMovement) (d-WarningDialog (_ \"Use only in the first movement\")))") (d-TypesetForScript "(d-PrintView)")) ScoreTitle title = \markup { \with-url #'"scheme:(d-ScoreTitle)" "Click Title"} Click Title Click Title 36 PrintAllHeaders print-all-headers = ##t LimitInterSystemSpace page-limit-inter-system-space = ##t page-limit-inter-system-space-factor = 1.2 1.2 RaggedLast ragged-last = ##t 4 1 3 1 3 0 2147483647 a4 18 1 1803 ScoreIndent \layout {indent = 0} indent=0 0 4 CustomBarline \defineBarLine ":|]-RepeatEnd" #'(":|]" "|" "") \defineBarLine "[|:-RepeatStart" #'("||" "[|:" "") \defineBarLine "||-Double" #'("||" "|" "") \defineBarLine "|-Single" #'("|" "|" "") Custom Barlines '(("RepeatEnd" "|" ":|]" ":|]" "") ("RepeatStart" "[|:" "[|:" "||" "") ("Double" "|" "||" "||" "") ("Single" "|" "|" "|" "")) 16 ChordChartStaff \defineBarLine "|" #'("|" "|" "|") 16 Allow BarRepeatEnd BarRepeatEnd = \bar ":|]-RepeatEnd" BarRepeatEnd 16 Allow BarRepeatStart BarRepeatStart = \bar "[|:-RepeatStart" BarRepeatStart 16 Allow BarDouble BarDouble = \bar "||-Double" BarDouble 16 Allow BarSingle BarSingle = \bar "|-Single" BarSingle 16 BarNumberingInterval \override Score.BarNumber.break-visibility = #end-of-line-invisible \set Score.barNumberVisibility = #(every-nth-bar-number-visible 10000) BarNumberingInterval 2 1 2 0 0 100 100 100 100 SuppressTitleRepeats title = ##f instrument = ##f HideMovement \void Non-printing Movement 1 4 120 Unnamed 1 4 4 5 1 0 NONE 127 0 0 0 0 0 0 InstrumentName \set Staff.instrumentName = \markup { \with-url #'"scheme:(d-GoToPosition 1 1 1 1)(let ((choice (d-PopupMenu (list (cons (_ \"Change Name\") d-InstrumentName) (cons (_ \"Change Indent\") d-ScoreIndent))))) (if choice (choice))) " \transparent {"Unnamed" }} Unnamed 4 0 2 4 0 2 4 0 6 0 5 0 2 6 0 2 5 0 2 4 6 0 3 6 8 0 6 0 8 0 6 12 0 3 4 0 1 4 1 1 1 0 100 100 100 100 SuppressTitleRepeats title = ##f instrument = ##f ChordChartStaff \set noChordSymbol = \markup \smaller \bold "/" 1 4 120 Unnamed 1 ChordChartStaff 1 ChordChartStaff 17 4 4 ChordChartStaff 4/4 5 5 1 0 NONE 127 0 0 0 0 0 0 ChordChartStaff ChordChartStaff 21 ChordChartStaff \new ChordNames \with { chordNameExceptions = #(append (sequential-music-to-chord-exceptions MvmntIVoiceI #t) ignatzekExceptions) \consists "Bar_engraver" \consists "Script_engraver" \consists "Text_engraver" \consists "Time_signature_engraver" \consists "Multi_measure_rest_engraver" \override ChordName.font-size=#8 \override ChordName.extra-offset = #'(0 . -2) \override BarLine.bar-extent = #'(-2 . 2) \override BarLine #'hair-thickness = #6 \numericTimeSignature } Chord Chart 5 ChordChartStaff 1 MultiLineTextAnnotation <>-\tweak #'extra-offset #'( -0.18 . -8.36 ) _\markup\scale #'(1 . 1)\column{\line\large{Delete this sample chord and these text markings and }\line\large{enter the chords for your song, customizing any chord}\line\large{symbols you wish to alter by editing the first movement.} } Delete this sample chord and these text markings and enter the chords for your song, customizing any chord symbols you wish to alter by editing the first movement. Delete this sample chord and these text markings and enter the chords for your song, customizing any chord symbols you wish to alter by editing the first movement. 30 79 MultiLineTextAnnotation <> ^\markup\scale #'(1.5 . 1.5)\column{\line\large{Sample Chord Only}\line\large{This, the second movement, is the actual chord chart.}\line\large{It will use as chord symbols the markup added to the}\line\large{corresponding chord types in the first movment.} } Sample Chord Only This, the second movement, is the actual chord chart. It will use as chord symbols the markup added to the corresponding chord types in the first movment. Delete this sample chord and these text markings and enter the chords for your song, customizing any chord symbols you wish to alter by editing the first movement. 30 66 -5 3 5 7 9