[gsharp-cvs] CVS gsharp

[rstrandh]

Update of /project/gsharp/cvsroot/gsharp
In directory clnet:/tmp/cvs-serv13091

Modified Files:
	drawing.lisp 
Log Message:
Modify distances between systems and staves to fit a printed A4 better.
Constants are still hardcoded, though.



--- /project/gsharp/cvsroot/gsharp/drawing.lisp	2006/06/13 01:18:10	1.69
+++ /project/gsharp/cvsroot/gsharp/drawing.lisp	2006/06/14 05:03:14	1.70
@@ -480,7 +480,7 @@
 	   (right-edge (right-edge buffer))
 	   (systems-per-page (max 1 (floor 12 (length staves)))))
       (loop for staff in staves
-	    for offset from 0 by 90 do
+	    for offset from 0 by 70 do
 	    (setf (staff-yoffset staff) offset))
       (let ((yy y))
 	(gsharp-measure::new-map-over-obseq-subsequences
@@ -493,7 +493,7 @@
 	       (loop for measures in measure-seqs do 
 		     (compute-and-draw-system pane buffer staves measures
 					      method x yy timesig-offset right-edge)
-		     (incf yy (* 90 (length staves)))))))
+		     (incf yy (+ 20 (* 70 (length staves))))))))
 	 buffer)))))
 
 (define-added-mixin velement () melody-element