Updated the README a bit to include a preview image

README.md

@@ -1,12 +1,20 @@
 # Lilydrum (pipeband-drumming notation)
 
-Somehow, the drums part in lilypond does not cover a notation with only right left. That is right is above the line and left is below it. In the same manner as the bagpipe.ly file, flams and drags are defined as a shortcut.
+Somehow, the drums part in lilypond does not cover a notation with only right and left hands 
+(also known as Swiss style drum notation).
+That is, right is above the line and left is below it.
+In the same manner as the bagpipe.ly file included with lilypond, flams and drags are defined as a shortcut.
 
-There has been a lilypond include file earlier, made by Simon Froger (which includes all of the above). So first version is a shameless copy. 
+There has been such a lilypond include file earlier, made by Simon Froger 
+(which includes all of the above).
+This repository builds on work.
 The original file can still be found at [http://lsr.di.unimi.it/LSR/Snippet?id=970](http://lsr.di.unimi.it/LSR/Snippet?id=970).
 
 [His website (French) can be found here](https://simonfroger.wordpress.com/lilypond/caisse-claire-ecossaise/)
 
+This repository has also been converted into a [lyp](https://github.com/noteflakes/lyp) package: [lyp/lilydrum](https://github.com/lyp-packages/lilydrum).
+
+
 ## How to use
 ---------------------
 To make a pipeband drum staff simply use
@@ -15,33 +23,47 @@ This creates a DrumStaff with a few specific changes.
 
 !! Note that you do not need to use PipeBandDrumStaff to use the rest.
 
-Music needs to be defined in \drummode.
+Music needs to be defined in `\drummode`.
 You can use every regular drum character (such as `sn` or `bd`), as `d` and `g` are appended to the list.
 
+## Example piece
+![preview of the score](./example.preview.png)
+
+This was generated by the following code.
 
 ```lilypond
+\include "lilydrum.ly"
+
+\header { title = "Standards 6/8" }
 \score {
-        \header { title = "Standards 6/8" }
         \new PipeBandDrumStaff {
             \drummode {
                 \time 6/8
-                \partial 8 d8:32(_"7" |
                 \repeat volta 2 {
-                    g8.[) g16 \dragd d8] d8.[ d16 \dragg g8] |
+					\partial 8 d8:32( |
-                    g8.[ \dragd d16 d8] d8.[ d16 \dragg g8] |
+					g8.)[ g16 \drag d8]	d8.[ d16 \drag g8] |
-                    \flamddr d8. d16 g8 d4.:32(_"13" |
+					g8.[ \drag d16 d8]	d8.[ d16 \drag g8] |
-                    d8.) g16 d8 \flamg g4 d8:32(_"7" \fr |
+					
-                    \break
+					\tutti {
-                    g8.[) g16 \dragd d8] d8.[ d16 \dragg g8] |
+						\flam d8. d16 g8	d4.:32( |
-                    g8.[ \dragd d16 d8] d8.[ d16 \dragg g8] |
+						d8.) g16 d8	\flam g4
-                    \flamddr d8. d16:64(_"5" d8) \flamd d8. d16 \flamg g8 |
+					}
-                    d8.:32(_"5" d16) \flamg g8 \flamd d4. \fr |
+					
+					d8:32( |
+					g8.)[ g16 \drag d8]	d8.[ d16 \drag g8] |
+					g8.[ \drag d16 d8]	d8.[ d16 \drag g8] |
+
+					
+					\tutti{
+						\flam d8. d16:64( d8)	\flam d8. d16 \flam g8 |
+						d8.:32( d16) \flam g8	\flam d4
+					}
 				}
             }
         }
     }
 ```
-(see ./example.ly)
+see [./example.ly](./example.ly) for fully annotated code and its [score](./example.pdf).
 
 
 ### Embellishments (Side)

lib/embellishments.ily

@@ -55,7 +55,7 @@ sruffddr = \drummode { \drumgrace { d16[\dr g g] } }	% Swiss Ruff left  with sta
 
 get-first-note = #(define-music-function (music) (ly:music?)
 	"Get the first note-event in @var{music}"
-	(let ((note(car (extract-typed-music music 'note-event))))
+	(let ((note (car (extract-typed-music music 'note-event))))
 	  note
 	  )
 )