From 9c6f920d96196c44460393c17a0b202f81e91b40 Mon Sep 17 00:00:00 2001
From: Sven Axelsson <sven@axelsson.name>
Date: Sun, 24 Jan 2010 19:00:34 +0100
Subject: [PATCH] Squeeze systems per default. Remove unnecessary page-count
 properties.

---
 bagpipe_new.ly | 13 ++++++++++++-
 1 file changed, 12 insertions(+), 1 deletion(-)

diff --git a/bagpipe_new.ly b/bagpipe_new.ly
index 563b6f4..59dac22 100644
--- a/bagpipe_new.ly
+++ b/bagpipe_new.ly
@@ -54,12 +54,20 @@ showTrueKeySignature = {
 }
 
 % Various tweaks to get good defaults for bagpipe music.
+\paper {
+    top-margin = 4\mm
+    bottom-margin = 4\mm
+}
+
 \layout {
   indent = 0.0
 
   \context {
     \Score
 
+    between-system-space = #0.1
+    between-system-padding = #0.0
+
     \remove "Bar_number_engraver"
 
     \override Stem #'direction = #down
@@ -74,6 +82,9 @@ showTrueKeySignature = {
   \context {
     \StaffGroup
 
+    between-system-space = #0.1
+    between-system-padding = #0.0
+
     extraNatural = ##f
 
     \override KeySignature #'stencil = ##f
@@ -301,7 +312,7 @@ dre      = { \grace { \small e32[ a f a] } }
 dare     = { \grace { \small f32[ e g e] } }
 bari     = { \grace { \small e32[ G f G] } }
 dari     = { \grace { \small f32[ e g e f e] } }
-pthrwd   = { \grace { \small G32[ d32 c] } }
+pthrwd   = { \grace { \small G16[ d32 c] } }
 darodo   = { \grace { \small G32[ d G c G] } }
 Gdarodo  = { \grace { \small d32[ G c G] } }
 pdarodo  = { \grace { \small G16[ d32 G c G16] } }