lilypond_exp/scales/dorian_vs_minor_pentatonic.ly at main · hsinhaoyu/lilypond_exp · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
\version "2.24.1"

% G Dorian

gDorian = #'(
        (place-fret 6 3 "1" red)
        (place-fret 6 5 "2")
        (place-fret 6 6 "m3")

        (place-fret 5 3 "4")
        (place-fret 5 5 "5")

        (place-fret 4 2 "6")
        (place-fret 4 3 "m7")
        (place-fret 4 5 "1" red)

        (place-fret 3 2 "2")
        (place-fret 3 3 "m3")
        (place-fret 3 5 "4")

        (place-fret 2 3 "5")
        (place-fret 2 5 "6")
        (place-fret 2 6 "m7")

        (place-fret 1 3 "1" red)
        (place-fret 1 5 "2")
        (place-fret 1 6 "m3"))

gMinPen = #'(
        (place-fret 6 3 "1" red)
        (place-fret 6 6 "m3")

        (place-fret 5 3 "4")
        (place-fret 5 5 "5")

        (place-fret 4 3 "m7")
        (place-fret 4 5 "1" red)

        (place-fret 3 2 "" white)
        (place-fret 3 3 "m3")
        (place-fret 3 5 "4")

        (place-fret 2 3 "5")
        (place-fret 2 6 "m7")

        (place-fret 1 3 "1" red)
        (place-fret 1 6 "m3"))

#(define-markup-command (my-scale layout props scaleName scaleLst) (markup? scheme?)
  "Draw a scale"
  (interpret-markup layout props
   (markup #:override '(fret-diagram-details . ((finger-code . in-dot)
						(number-type . arabic)
						(dot-radius . 0.3)
						(string-label-font-mag . 0.3)))
            #:override '(size . 2)
            #:center-column (
              scaleName
	      #:fret-diagram-verbose scaleLst
	    )
	    #:hspace 3)))

\markup {
  \my-scale "G Dorian" \gDorian
  \my-scale "G Minor Pentatonic" \gMinPen
}