small staff

[Rune Zedeler]

IIRC we once had a template for a staff in reduced size. But, well, I 
could not find it, and my attempts to do so are less than good looking:

    \translator {
        \StaffContext
        \name SmallStaff
        \alias Staff
        StaffSymbol \override #'staff-space = #(/ 13 20)
        NoteHead \override #'font-relative-size = #-2
        Stem \override #'font-relative-size = #-2
        Beam \override #'font-relative-size = #-2
        TextScript \override #'font-relative-size = #-2
        Slur \override #'font-relative-size = #-2
        Accidentals \override #'font-relative-size = #-2

        Beam \override #'thickness = #(* 0.48 (/ 13 20))

	Beam \override #'space-function = #(lambda (x y) (* (/ 13 20) 
(Beam::space_function x y)))
        Clef \override #'font-relative-size = #-2
        TimeSignature \override #'font-relative-size = #-2

        KeySignature \override #'font-relative-size = #-2
        Script \override #'font-relative-size = #-2
        Rest \override #'font-relative-size = #-2
        MultiMeasureRest \override #'font-relative-size = #-2
        Dots \override #'font-relative-size = #-2
    }

The beams look ugly - the spacing gets wrong. Why?

-Rune