]> git.donarmstrong.com Git - lilypond.git/blobdiff - scm/define-grobs.scm
Remove unused code.
[lilypond.git] / scm / define-grobs.scm
index 82636f32882461c8039155aeaa12d50adb338b25..02160eec64eca2e710bb40db374224a9c617812e 100644 (file)
@@ -1,6 +1,6 @@
 ;;;; This file is part of LilyPond, the GNU music typesetter.
 ;;;;
-;;;; Copyright (C) 1998--2010 Han-Wen Nienhuys <hanwen@xs4all.nl>
+;;;; Copyright (C) 1998--2011 Han-Wen Nienhuys <hanwen@xs4all.nl>
 ;;;;                 Jan Nieuwenhuizen <janneke@gnu.org>
 ;;;;
 ;;;; LilyPond is free software: you can redistribute it and/or modify
        (break-visibility . ,begin-of-line-visible)
        (non-musical . #t)
        (space-alist . (
+                       (cue-end-clef . (extra-space . 0.5))
                        (clef . (extra-space . 0.5))
+                       (cue-clef . (extra-space . 0.5))
                        (key-signature . (extra-space . 0.0))
                        (staff-bar . (extra-space . 0.0))
                        (time-signature . (extra-space . 0.0))
        (break-align-orders . ;; end of line
                            #((
                               left-edge
+                              cue-end-clef
                               ambitus
                               breathing-sign
                               clef
+                              cue-clef
                               staff-bar
                               key-cancellation
                               key-signature
                              ;; unbroken
                              (
                               left-edge
+                              cue-end-clef
                               ambitus
                               breathing-sign
                               clef
+                              cue-clef
                               staff-bar
                               key-cancellation
                               key-signature
                               key-signature
                               staff-bar
                               time-signature
+                              cue-clef
                               custos)))
        (non-musical . #t)
        (positioning-done . ,ly:break-alignment-interface::calc-positioning-done)
                        (time-signature . (minimum-space . 1.5))
                        (staff-bar . (minimum-space . 1.5))
                        (clef . (minimum-space . 2.0))
+                       (cue-clef . (minimum-space . 2.0))
+                       (cue-end-clef . (minimum-space . 2.0))
                        (first-note . (fixed-space . 1.0)) ;huh?
                        (right-edge . (extra-space . 0.1))))
        (stencil . ,ly:text-interface::print)
        (break-visibility . ,begin-of-line-visible)
        (glyph-name . ,ly:clef::calc-glyph-name)
        (non-musical . #t)
-       (space-alist . ((ambitus . (extra-space . 2.0))
+       (space-alist . ((cue-clef . (extra-space . 2.0))
                        (staff-bar . (extra-space . 0.7))
                        (key-cancellation . (minimum-space . 3.5))
                        (key-signature . (minimum-space . 3.5))
                                text-interface
                                text-script-interface))))))
 
+    (CueClef
+     . (
+       (avoid-slur . inside)
+       (break-align-anchor . ,ly:break-aligned-interface::calc-extent-aligned-anchor)
+       (break-align-symbol . cue-clef)
+       (break-visibility . ,begin-of-line-visible)
+       (font-size . -4)
+       (glyph-name . ,ly:clef::calc-glyph-name)
+       (non-musical . #t)
+       (full-size-change . #t)
+       (space-alist . ((staff-bar . (minimum-space . 2.7))
+                       (key-cancellation . (minimum-space . 3.5))
+                       (key-signature . (minimum-space . 3.5))
+                       (time-signature . (minimum-space . 4.2))
+                       (custos . (minimum-space . 0.0))
+                       (first-note . (minimum-fixed-space . 3.0))
+                       (next-note . (extra-space . 0.5))
+                       (right-edge . (extra-space . 0.5))))
+       (stencil . ,ly:clef::print)
+       (extra-spacing-height . (-0.5 . 0.5))
+       (Y-offset . ,ly:staff-symbol-referencer::callback)
+       (meta . ((class . Item)
+                (interfaces . (break-aligned-interface
+                               clef-interface
+                               font-interface
+                               staff-symbol-referencer-interface))))))
+
+    (CueEndClef
+     . (
+       (avoid-slur . inside)
+       (break-align-anchor . ,ly:break-aligned-interface::calc-extent-aligned-anchor)
+       (break-align-symbol . cue-end-clef)
+       (break-visibility . ,begin-of-line-invisible)
+       (font-size . -4)
+       (glyph-name . ,ly:clef::calc-glyph-name)
+       (non-musical . #t)
+       (full-size-change . #t)
+       (space-alist . ((clef . (extra-space . 0.7))
+                       (cue-clef . (extra-space . 0.7))
+                       (staff-bar . (extra-space . 0.7))
+                       (key-cancellation . (minimum-space . 3.5))
+                       (key-signature . (minimum-space . 3.5))
+                       (time-signature . (minimum-space . 4.2))
+                       (first-note . (minimum-fixed-space . 5.0))
+                       (next-note . (extra-space . 0.5))
+                       (right-edge . (extra-space . 0.5))))
+       (stencil . ,ly:clef::print)
+       (extra-spacing-height . (-0.5 . 0.5))
+       (Y-offset . ,ly:staff-symbol-referencer::callback)
+       (meta . ((class . Item)
+                (interfaces . (break-aligned-interface
+                               clef-interface
+                               font-interface
+                               staff-symbol-referencer-interface))))))
+
     (Custos
      . (
        (break-align-symbol . custos)
                        (time-signature . (extra-space . 1.25))
                        (staff-bar . (extra-space . 0.6))
                        (key-signature . (extra-space . 0.5))
+                       (cue-clef . (extra-space . 0.5))
                        (right-edge . (extra-space . 0.5))
                        (first-note . (fixed-space . 2.5))))
        (stencil . ,ly:key-signature-interface::print)
        (space-alist . (
                        (time-signature . (extra-space . 1.15))
                        (staff-bar . (extra-space . 1.1))
+                       (cue-clef . (extra-space . 0.5))
                        (right-edge . (extra-space . 0.5))
                        (first-note . (fixed-space . 2.5))))
        (stencil . ,ly:key-signature-interface::print)
        (break-visibility . ,center-invisible)
        (non-musical . #t)
        (space-alist . (
-                       (custos . (extra-space . 0.0))
                        (ambitus . (extra-space . 2.0))
-                       (time-signature . (extra-space . 1.0))
-                       (staff-bar . (extra-space . 0.0))
                        (breathing-sign . (minimum-space . 0.0))
+                       (cue-end-clef . (extra-space . 0.8))
                        (clef . (extra-space . 0.8))
+                       (cue-clef . (extra-space . 0.8))
+                       (staff-bar . (extra-space . 0.0))
+                       (key-cancellation . (extra-space . 0.0))
+                       (key-signature . (extra-space . 0.8))
+                       (time-signature . (extra-space . 1.0))
+                       (custos . (extra-space . 0.0))
                        (first-note . (fixed-space . 2.0))
                        (right-edge . (extra-space . 0.0))
-                       (key-signature . (extra-space . 0.8))
-                       (key-cancellation . (extra-space . 0.0))
                        ))
        (X-extent . (0 . 0))
        (meta . ((class . Item)
 
     (OctavateEight
      . (
-       (break-visibility . ,begin-of-line-visible)
+       (break-visibility . ,inherit-x-parent-visibility)
        (font-shape . italic)
        (font-size . -4)
        (self-alignment-X . ,CENTER)
 
     (StaffGrouper
      . (
-       (staff-staff-spacing . ((space . 9)
-                                (stretchability . 5)
+       (staff-staff-spacing . ((basic-distance . 9)
                                (minimum-distance . 7)
-                               (padding . 1)))
-       (staffgroup-staff-spacing . ((space . 10.5)
-                                     (stretchability . 9)
+                               (padding . 1)
+                                (stretchability . 5)))
+       (staffgroup-staff-spacing . ((basic-distance . 10.5)
                                     (minimum-distance . 8)
-                                    (padding . 1)))
+                                    (padding . 1)
+                                     (stretchability . 9)))
        (meta . ((class . Spanner)
                 (interfaces . (staff-grouper-interface))))))
 
      . (
        (adjacent-pure-heights . ,ly:axis-group-interface::adjacent-pure-heights)
        (axes . (,X ,Y))
+       (skyline-horizontal-padding . 0.5)
        (vertical-skylines . ,ly:axis-group-interface::calc-skylines)
        (X-extent . ,ly:axis-group-interface::width)
        (Y-extent . ,ly:system::height)
 
     (TabNoteHead
      . (
-       (details . ((tied-properties . ((break-visibility . ,begin-of-line-visible)
-                                       (parenthesize . #t)))
-                   (repeat-tied-properties . ((note-head-visible . #t)
-                                              (parenthesize . #t)))
+       (details . ((cautionary-properties . ((angularity . 0.4)
+                                             (half-thickness . 0.075)
+                                             (padding . 0)
+                                             (procedure . ,parenthesize-stencil)
+                                             (width . 0.25)))
+                   (head-offset . 3/5)
                    (harmonic-properties . ((angularity . 2)
                                            (half-thickness . 0.075)
                                            (padding . 0)
                                            (procedure . ,parenthesize-stencil)
                                            (width . 0.25)))
-                   (cautionary-properties . ((angularity . 0.4)
-                                             (half-thickness . 0.075)
-                                             (padding . 0)
-                                             (procedure . ,parenthesize-stencil)
-                                             (width . 0.25)))))
+                   (repeat-tied-properties . ((note-head-visible . #t)
+                                              (parenthesize . #t)))
+                   (tied-properties . ((break-visibility . ,begin-of-line-visible)
+                                       (parenthesize . #t)))))
 
        (direction . ,CENTER)
        (duration-log . ,note-head::calc-duration-log)
        (extra-spacing-height . (-1.0 . 1.0))
        (non-musical . #t)
        (space-alist . (
+                       (cue-clef . (extra-space . 1.5))
                        (first-note . (fixed-space . 2.0))
                        (right-edge . (extra-space . 0.5))
                        (staff-bar . (minimum-space . 2.0))))
      . (
        (adjacent-pure-heights . ,ly:axis-group-interface::adjacent-pure-heights)
        (axes . (,Y))
-       (default-staff-staff-spacing . ((space . 9)
+       (default-staff-staff-spacing . ((basic-distance . 9)
                                        (minimum-distance . 8)
                                        (padding . 1)))
        (nonstaff-unrelatedstaff-spacing . ((padding . 0.5)))