commit ace5d2752f07a50a07e03d6f3c3ea7e220c0f3ad
Author: John Doe <anon@(none)>
Date:   Wed Feb 7 01:52:50 2018 +0530

    Voice 1 - Introduction, Allegro bar 1-122

diff --git a/.gitignore b/.gitignore
new file mode 100755
index 0000000..153c94e
--- /dev/null
+++ b/.gitignore
@@ -0,0 +1,4 @@
+*.pdf
+*.midi
+*~
+\#*
\ No newline at end of file
diff --git a/Makefile b/Makefile
new file mode 100755
index 0000000..e48f8f7
--- /dev/null
+++ b/Makefile
@@ -0,0 +1,5 @@
+build :
+	lilypond main.ly
+
+tags : build
+	rm TAGS ; etags -l none -r '/^[a-zA-Z]*\ *=/' *ly
diff --git a/build.scm b/build.scm
new file mode 100755
index 0000000..0c29bc0
--- /dev/null
+++ b/build.scm
@@ -0,0 +1,65 @@
+#!/usr/bin/guile -s
+!#
+(use-modules
+ (ice-9 match)
+ (srfi srfi-1)
+ (ice-9 format)
+ (ice-9 regex))
+
+;; (format #t "~2%")
+
+(define *options*
+  '("pac" "size"))
+
+(define *project-name*
+  (regexp-substitute #f (string-match ".*/" (getcwd)) 'post))
+
+(define get-valid-args
+  (lambda (cli-args)
+    ;; (format (current-error-port) "~s~s~%" "cli-args - " cli-args)
+    (map (lambda (opt)
+           (find (lambda (cli-word)
+                   (string-match
+                    (string-append opt "*")
+                    cli-word))
+                 cli-args))
+         *options*)))
+
+(define valid-args->alist
+  (lambda (valid-args)
+    ;; (format (current-error-port) "~s~s~%" "valid-args - " valid-args)
+    (map (lambda (arg)
+           (and arg
+                (string-contains arg "=")
+                (cons
+                 (regexp-substitute #f (string-match "=" arg) 'pre)
+                 (regexp-substitute #f (string-match "=" arg) 'post))))
+         valid-args)))
+
+(if (< (length (command-line)) 2)
+    (format #t "~a~%" "Usage: build.scm TARGET [ARG=VALUE]*")
+    (let* ((cli-args (command-line))
+           (target (cadr cli-args))
+           (valid-args (get-valid-args cli-args))
+           (alist (valid-args->alist valid-args))
+           (size (match (assoc-ref alist "size")
+                   ("a4" "-a4")
+                   (_ "")))
+           (ly-command (string-append
+                        "lilypond "
+
+                        (match (assoc-ref alist "pac")
+                          ("off" "-dno-point-and-click ")
+                          (_ ""))
+
+                        "-o output/"
+                        *project-name* (match target
+                                         ("main" "")
+                                         (_ (string-append "-" target)))
+                        size
+                        " "
+
+                        target size ".ly")))
+      ;; (format (current-error-port) "~s~s~%" "alist - " alist)
+      (format #t "~2%~a~2%" ly-command)
+      (system ly-command)))
diff --git a/common.ly b/common.ly
new file mode 100755
index 0000000..1372656
--- /dev/null
+++ b/common.ly
@@ -0,0 +1,28 @@
+\version "2.18.2"
+
+common = {
+  \key a \major
+  \time 2/4
+}
+
+copyright = \markup \center-column {
+  \smaller {
+    \concat {
+      "The author (contrapunctus/Kashish Sharma, "
+      \with-url #"xmpp:contrapunctus@jabber.fr" {xmpp:contrapunctus@jabber.fr}
+      ") of this edition of a"
+    }
+                                % \raise #1
+    "public domain work has released it into the public domain using the Creative Commons CC0 License - "
+    \with-url #"http://creativecommons.org/publicdomain/zero/1.0/"
+    {http://creativecommons.org/publicdomain/zero/1.0/}
+    % \with-url #"http://lilypond.org/" {
+    %   LilyPond ... \italic {
+    %     music notation for everyone
+    %   }
+    % }
+
+  }
+}
+
+title = \markup \fontsize #4 "Grande Solo"
\ No newline at end of file
diff --git a/main.ly b/main.ly
new file mode 100644
index 0000000..70eed62
--- /dev/null
+++ b/main.ly
@@ -0,0 +1,35 @@
+\version "2.18.2"
+
+\include "common.ly"
+
+%#(set-global-staff-size 16 )
+\header {
+  title        = \title
+  subsubtitle  = "Op. 14"
+  composer     = "Fernando Sor"
+  copyright    = \copyright
+}
+
+\include "music/1-introduction/guitar.ly"
+
+\score {
+  <<
+    \new Staff << \guitar >>
+  >>
+  \layout {}
+  \header {
+    piece = \markup \fontsize #3 "Introduction"
+  }
+}
+
+\include "music/2-allegro/guitar.ly"
+
+\score {
+  <<
+    \new Staff << \guitar >>
+  >>
+  \layout {}
+  \header {
+    piece = \markup \fontsize #3 "Allegro"
+  }
+}
diff --git a/music/1-introduction/guitar.ly b/music/1-introduction/guitar.ly
new file mode 100755
index 0000000..4a2edcd
--- /dev/null
+++ b/music/1-introduction/guitar.ly
@@ -0,0 +1,66 @@
+\version "2.18.2"
+
+guitarVoiceOne = \relative c' {
+
+  <f a,>4 q8 q8. <e g,>16 <d f,>8 |
+  cis4 <cis bes g>8 q4 r8 |
+  g'4 g8 g8. f16 e8 |
+  f4 <d c d,>8 q4 r8 |
+  c'4 c8 d16 c bes a g fis |
+  g4 <g d g,>8 q4 r8 |
+  <gis d>4. q |
+  <a cis, a e>4. r |
+  bes16( a) bes( a) bes8 r <a e cis a> <e cis a> |
+  a16( gis) a( gis) a8 r <d, a f> q |
+  <g cis,>4. r8 <e cis a> q |
+  <f d>4. r8 <f d a> q |
+  <f d gis,> q q q g16( f) e-. d-. |
+  f8 q q q g16( f) e-. d-. |
+  f8 q q q g16( f) e-. d-. |
+  <cis a>4. <a' e cis> |
+  <bes f d> <cis g e> |
+  <d a f>~ q4 <c g e>8 |
+  <bes f d>4. q8 <a f d> <gis f d> |
+  <a e cis>4. r |
+  <bes f d> <gis f d> |
+  <a e cis> r4 <a e cis>8 |
+  <gis f d>4. <b f d gis> |
+  <a e cis a> r |
+  a,2.\fermata | \bar "|."
+
+}
+
+guitarVoiceTwo = \relative c, {
+
+  \voiceTwo
+  d4 d'8 d,4. |
+  e'4 e,8 e4 r8 |
+  bes''4 bes8 bes8. a16 g8 |
+  f4 <fis, a>8 <fis a>4 r8 |
+
+}
+
+guitarVoiceThree = \relative c' {
+
+  \voiceThree
+  a4 a8 a8. g16 f8 |
+  e4 r8 r4. |
+  bes''4 bes8 bes8. a16 g8 |
+  bes''4 bes8 bes8. a16 g8 |
+  f4 <fis a>8 <fis a>4 r8 |
+
+}
+
+guitar = \relative c' {
+
+                       \clef "treble_8"
+                       \key d \minor
+                       \time 6/8
+
+                       <<
+                         { \guitarVoiceOne }
+                         \\
+                         { \guitarVoiceTwo }
+                         >>
+
+                       }
diff --git a/music/2-allegro/guitar.ly b/music/2-allegro/guitar.ly
new file mode 100755
index 0000000..33c7130
--- /dev/null
+++ b/music/2-allegro/guitar.ly
@@ -0,0 +1,224 @@
+\version "2.18.2"
+
+guitarVoiceOne = \relative c {
+
+  % 01
+  \repeat unfold 4 { d8 d16( cis) } |
+  d2 r4 <d' b> |
+  <cis a> <a fis> <g e> <b g> |
+  <a fis>2 fis4 r |
+
+  % 05
+  a'8 gis-3 g2-2 fis4 |
+  e8 fis g2 fis4 |
+  e16( dis) fis( e) g( fis) a( g) e8 cis'16( b) a( g) fis( e) |
+  <d fis,>4. <e g,>8 <cis e,>4 r |
+
+  % 09
+  \repeat unfold 4 { d,8 d16( cis) } |
+  d2 r4 <d' b> |
+  <cis a> <a fis> <g e> <b g> |
+  <a fis>2 fis4 r |
+
+  % 13
+  a'8 gis-3 g2-2 fis4 |
+  e8 fis g2 fis4 |
+  e8( e16 dis e8 g) cis,( cis16 b cis8 e) |
+  <d fis,>8 e fis g gis( a) fis d |
+
+  % 17
+  e8( e16 dis e8 g) cis,( cis16 b cis8 e) |
+  <d fis,>8 e fis g gis( a) fis d |
+  e8( e16 dis e8 g) cis,( cis16 b cis8 e) |
+  <d fis,>4 q q r |
+
+  % 21
+  \repeat unfold 4 { r16 d fis d' } |
+  \repeat unfold 4 { cis4 } |
+  \repeat unfold 4 { r16 d, fis d' } |
+  \repeat unfold 4 { cis4 } |
+
+  % 25
+  \tuplet 6/4 { d8 d d d d d } \tuplet 6/4 { d d d cis cis cis } |
+  \tuplet 6/4 { b b b b b b } \tuplet 6/4 { b b b a a a } |
+  \tuplet 6/4 { g g g g g g } \tuplet 6/4 { b b b b b b } |
+  \tuplet 3/2 { a a a } \tuplet 3/2 { a a a } \tuplet 3/2 { gis gis gis } \tuplet 3/2 { gis gis gis } |
+
+  % 29
+  r8 <a e cis> q8. q16 r8 <cis g e> q8. q16 |
+  r8 <d fis, d> q8. q16 r8 <b f d> q8. q16 |
+  r8 <a e cis> q8. q16 r8 <cis g e> q8. q16 |
+  r8 <d fis, d> q8. q16 r8 <b f d> q8. q16 |
+
+  % 33
+  <a e cis a>4 <cis e, cis a> <a e cis a> r |
+  cis4. b8 a4 a |
+  b b b r |
+  cis4. cis8 d cis b cis |
+
+  % 37
+  d4 d d r |
+  b4. cis16 b a8 gis fis e |
+  a8 cis16 b b( a) gis( a) a8 cis16 b b( a) gis( a) |
+  fis8 gis a ais b fis d' b |
+
+  % 41
+  a4. b8 gis4 r |
+  cis4. b8 a4 a |
+  b4 b b r |
+  cis4. cis8 d cis b cis |
+
+  % 45
+  d4 d d r |
+  b4. cis16( b) a8 gis fis e |
+  a8 a cis e d cis b ais |
+  b4 b b a |
+
+  % 49
+  gis16 e dis e fis( e) dis e b e cis e d e b e |
+  cis e e e e e e e d e cis e b e a, e' |
+  r16 e dis e fis e dis e b e cis e d e b e |
+  cis e e e e e e e d e cis e b e a, e' |
+
+  % 53
+  e4 gis e r |
+  r2. <cis' e,>4 |
+  <bis dis,>2 <cis e,>4 q |
+  <bis dis,>2 <cis e,>4 q |
+
+  % 57
+  <e g,>2 <d fis,>4 q |
+  <b gis>8 fis' e d <cis a>4 <cis, e,> |
+  <bis dis,>2 <cis e,>4 q |
+  <bis dis,>2 <cis e,>4 q |
+
+  % 61
+  <e g,>2 <d fis,>4 q |
+  <b gis>8 fis' e d <cis a> e e e |
+  r16 e dis e fis( e) dis e gis( e) b'( gis) e8 r |
+  r16 e dis e fis( e) dis e a( e) cis'( a) e8 r |
+
+  % 65
+  r16 e dis e fis( e) dis e gis( e) b'( gis) e8 r |
+  r16 e dis e fis( e) dis e a( e) cis'( a) e8 r |
+  r4 ais ais ais |
+  b8 cis d cis e dis d b |
+
+  % 69
+  cis8. b16 a2 gis4 |
+  a s2. |
+  r16 e dis e fis( e) dis e gis( e) b'( gis) e8 r |
+  r16 e dis e fis( e) dis e a( e) cis'( a) e8 r |
+
+  % 73
+  r16 e dis e fis( e) dis e gis( e) b'( gis) e8 r |
+  r16 e dis e fis( e) dis e a( e) cis'( a) e8 r |
+  r4 ais ais ais |
+  b8 cis d cis e dis d b |
+
+  % 77
+  cis8. b16 a2 gis4 |
+  <a cis,>4 r r <a fis> |
+  <gis e> <fis d> <e cis> <dis bis> |
+  <e cis>2 <cis a>4 r8 <g' cis,> |
+
+  % 81
+  fis8 fis16( e) fis8 a gis e b' gis |
+  <a cis,>4 r r <a fis> |
+  <gis e> <fis d> <e cis> <dis bis> |
+  <e cis>2 <cis a>4 r8 <g' cis,> |
+
+  % 85
+  fis8 fis16( e) fis8 a gis e b' gis |
+  <a e cis a>4 <cis e, cis a>4. b8 a gis |
+  fis e d cis <fis d a>4 <gis d b> |
+  <a e cis a>4 <cis e, cis a>4. b8 a gis |
+
+  % 89
+  fis e d cis <fis d a>4 <gis d b> |
+  r8 <a cis,> q4 r8 q q4 |
+  r8 <b d,> q4 r8 q q4 |
+  r8 <a cis,> q4 r8 q q4 |
+
+  % 93
+  r8 <b d,> q4 r8 q q4 |
+  r8 <a cis,> q4 r8 <b d,> q4 |
+  r4 <a e cis a> q <cis e, cis a> |
+  <a e cis a>2 r | \bar "|."
+
+  % 97
+  <a ees>4 q q q |
+  q2 r |
+  <bes f>4 q q q |
+  q2 r |
+
+  % 101
+  <c ges>4 q q q |
+  q2 r |
+  \key des \major <des des,>2 s |
+  <des des,> s |
+
+  % 105
+  \repeat unfold 4 { ees,16 ges c ges } |
+  \repeat unfold 4 { ees16 ges c ges } |
+  <des' des,>2 s |
+  <des des,> s |
+
+  % 109
+  \repeat unfold 4 { ees,16 ges c ges } |
+  \repeat unfold 4 { ees16 ges c ges } |
+  \repeat unfold 8 des'8 |
+  \repeat unfold 8 des8 |
+
+  % 113
+  \key d \major \repeat unfold 8 <b e, d>8 |
+  \repeat unfold 8 <b e, d>8 |
+  \repeat unfold 4 { a,16 cis e a } |
+  \repeat unfold 4 { a, cis e a } |
+
+  % 117
+  \repeat unfold 4 { g, cis e bes' } |
+  \repeat unfold 4 { g, cis e bes' } |
+  \repeat unfold 4 { f, a d a' } |
+  \repeat unfold 4 { f, a d a' } |
+
+  % 121
+  \repeat unfold 4 { e, bes' cis g' } |
+  \repeat unfold 4 { e, bes' cis g' } |
+
+}
+
+guitarVoiceTwo = \relative c, {
+
+  \voiceTwo
+  \repeat unfold 4 d4 |
+  \repeat unfold 8 d8 |
+  \repeat unfold 8 d8 |
+  \repeat unfold 4 d8 d e fis g |
+
+}
+
+guitarVoiceThree = \relative c' {
+
+  \voiceThree
+  a4 a8 a8. g16 f8 |
+  e4 r8 r4. |
+  bes''4 bes8 bes8. a16 g8 |
+  bes''4 bes8 bes8. a16 g8 |
+  f4 <fis a>8 <fis a>4 r8 |
+
+}
+
+guitar = \relative c' {
+
+  \clef "treble_8"
+  \key d \major
+  \time 4/4
+
+  <<
+    { \guitarVoiceOne }
+    \\
+    { \guitarVoiceTwo }
+  >>
+
+}