On Monday, 21 August 2000, Han-Wen Nienhuys writes:
> * Made various fixes for (line-)broken slurs.
Hmm, it seems that some of my .jcn2 changes didn't get in, please
apply the patch below.
diff -urN ../lilypond-1.3.80/scm/slur.scm ./scm/slur.scm
--- ../lilypond-1.3.80/scm/slur.scm Sun Aug 20 23:48:46 2000
+++ ./scm/slur.scm Sun Aug 20 14:00:01 2000
@@ -26,15 +26,16 @@
(define slur-extremity-rules
(list
- ;; (cons (lambda (slur dir) (begin (display "before head") (newline))#f) #f)
+ ;; (cons (lambda (slur dir) (begin (display "before sanity check") (newline))#f)
+#f)
;; urg: don't crash on a slur without note-columns
(cons (lambda (slur dir)
(< (length (ly-get-elt-property slur 'note-columns)) 1)) 'head)
- ;; urg: don't crash on a slur without note-columns
- (cons (lambda (slur dir)
- (< (length (ly-get-elt-property slur 'note-columns)) 1)) 'head)
+ ;; (cons (lambda (slur dir) (begin (display "before loose-end") (newline))#f) #f)
+ (cons (lambda (slur dir) (not (attached-to-stem slur dir))) 'loose-end)
+
+ ;; (cons (lambda (slur dir) (begin (display "before head") (newline))#f) #f)
(cons (lambda (slur dir)
;; urg, code dup
Jan.
--
Jan Nieuwenhuizen <[EMAIL PROTECTED]> | GNU LilyPond - The music typesetter
http://www.xs4all.nl/~jantien | http://www.lilypond.org