[fomus-devel] Re: :textnote spacing

Thu Mar 22 17:42:43 UTC 2007

There are a few settings you can fiddle with to tweak lilypond output 
(ea. is a lilypond "markup" command--should each include an ~A where the 
actual text goes):

(defparameter *lilypond-text-markup* "\\markup{\\italic{~A}}")
(defparameter *lilypond-textdyn-markup* 
"\\markup{\\dynamic{\\italic{\\bold{~A}}}}")
(defparameter *lilypond-texttempo-markup* "\\markup{\\bold{\\huge{~A}}}")
(defparameter *lilypond-textnote-markup* "\\markup{\\italic{~A}}")

So you can try something like

init :lilypond-text-markup "\\markup{\\italic{\\tiny{~A}}}"
or
init :lilypond-textnote-markup "\\markup{\\italic{\\tiny{~A}}}"

There are also a few settings for inserting arbitrary lilypond commands, 
:lilypond-filehead and :lilypond-scorehead, and a part option called 
:lily-parthead--these can all be set to text strings to be inserted in 
the lilypond file at various spots--fiddling with these is probably more 
trouble than it's worth though

rob canning wrote:
> this isn't the ugliest example  i  can generate (its just whats in 
> front of me now) but it does show some of the  problems
>
> i might be just being a bit fussy,  the number of text entries are 
> slightly non conventional - its just the way i use fomus - to generate 
> an algorithmic score and then work on it by hand - so i need lots of 
> analysis information included in the notation
>
> main problem:
> bar two violin 1 - text note clash -  the text entries need vertical 
> displacement
>
> minor / unimportant:
> bar 7 viola arco clash with accidental
> page two second last bar - cello  - pizz and arco getting a little close
> page 2 system 1 bar 1 violin 2  - :prall colliding with beams
>
>
> sorry to be a pain ;)
>
> maybe you could pass me the code to reduce the default text size - 
> this might be a workaround for the moment
>
> is there somewhere in the documentation that discusses changing these 
> defaults - stave size - text size - notation font size etc etc?
>
>
> thanks
>
> rob
>
>
>
>
> init :filename "stringquartet-no.1";
> (init :output ((:musicxml-finale :filename 
> "stringquartet-no.1.xml")(:lilypond
> :view t)));
> (init :title "string quartet no.1" :subtitle "draft analysis" :composer
> "rob canning");
> TIMESIG :OFF 0 :TIME (3 4);
> init :verbose 2;
> init :max-tuplet 11;
> part 1 :name "violin 1" :abbrev "vln I." :instr :violin;
> init :auto-accidentals NIL;
> init :auto-cautionary-accs t;
> part 2 :name "violin 2" :abbrev "vln II." :instr :violin;
> part 3 :name "viola" :abbrev "vla." :instr :viola;
> part 4 :name "cello" :abbrev "vcl." :instr :cello;
> (note 1 :off 0 :dur 0.25 :notes (66) :marks (:staccato :mf (:textnote"(7
> 16)")));
> (note 1 :off 0.25 :dur 0.5 :notes (66) :marks (:staccato :mf :ignore))
> ;
> (note 4 :off 0.75 :dur 0.5 :notes (73) :marks (:staccato :mf :ignore))
> ;
> (note 4 :off 1.25 :dur 0.5 :notes (63) :marks (:staccato :mf :ignore))
> ;
> (note 4 :off 1.75 :dur 0.5 :notes (60) :marks (:staccato :mf 
> (:textnote"(1
> 7)")));
> (note 1 :off 2.25 :dur 0.25 :notes (60) :marks (:staccato :mf :ignore))
> ;
> (note 2 :off 2.5 :dur 0.5 :notes (61) :marks (:PIZZ :mf (:textnote"(2
> 1)")));
> (note 1 :off 3 :dur 0.25 :notes (62) :marks (:staccato :mf (:textnote"(3
> 2)")));
> (note 1 :off 3.25 :dur 0.25 :notes (73) :marks (:staccato :mf 
> (:textnote"(14
> 3)")));
> (note 1 :off 3.5 :dur 0.25 :notes (74) :marks (:staccato :mf 
> (:textnote"(15
> 14)")));
> (note 1 :off 3.75 :dur 0.5 :notes (74) :marks (:staccato :mf :ignore))
> ;
> (note 4 :off 4.25 :dur 0.5 :notes (75) :marks (:staccato :mf 
> (:textnote"(16
> 15)")));
> (note 1 :off 4.75 :dur 0.5 :notes (75) :marks (:staccato :mf :ignore))
> ;
> (note 4 :off 5.25 :dur 0.5 :notes (62) :marks (:staccato :mf :ignore))
> ;
> (note 3 :off 5.75 :dur 0.5 :notes (71) :marks (:staccato :mf :ignore))
> ;
> (note 4 :off 6.25 :dur 0.25 :notes (65) :marks (:staccato :mf 
> (:textnote"(6
> 16)")));
> (note 1 :off 6.5 :dur 0.5 :notes (65) :marks (:staccato :mf :ignore))
> ;
> (note 4 :off 7 :dur 0.5 :notes (63) :marks (:staccato :mf :ignore))
> ;
> (note 4 :off 7.5 :dur 0.5 :notes (70) :marks (:staccato :mf 
> (:textnote"(11
> 6)")));
> (note 1 :off 8 :dur 0.25 :notes (70) :marks (:staccato :mf :ignore))
> ;
> (note 2 :off 8.25 :dur 0.25 :notes (71) :marks (:staccato :mf :ignore))
> ;
> (note 2 :off 8.5 :dur 0.5 :notes (72) :marks (:staccato :mf :ignore))
> ;
> (note 3 :off 9 :dur 0.5 :notes (71) :marks (:staccato :mf :ignore))
> ;
> (note 3 :off 9.5 :dur 0.5 :notes (72) :marks (:marcato :mf :ignore))
> ;
> (note 3 :off 10 :dur 0.5 :notes (73) :marks (:staccato :mf :ignore))
> ;
> (note 4 :off 10.5 :dur 0.5 :notes (73) :marks (:staccato :mf :ignore))
> ;
> (note 4 :off 11 :dur 0.5 :notes (74) :marks (:staccato :mf :ignore))
> ;
> (note 4 :off 11.5 :dur 0.5 :notes (75) :marks (:staccato :mf :ignore))
> ;
> (note 4 :off 12 :dur 0.5 :notes (66) :marks (:staccato :mf :ignore))
> ;
> (note 4 :off 12.5 :dur 0.25 :notes (71) :marks (:staccato :mf :ignore))
> ;
> (note 2 :off 12.75 :dur 0.5 :notes (62) :marks (:staccato :mf :ignore))
> ;
> (note 4 :off 13.25 :dur 0.5 :notes (72) :marks (:staccato :mf :ignore))
> ;
> (note 3 :off 13.75 :dur 0.5 :notes (63) :marks (:staccato :mf :ignore))
> ;
> (note 4 :off 14.25 :dur 0.5 :notes (62) :marks (:staccato :mf :ignore))
> ;
> (note 4 :off 14.75 :dur 0.25 :notes (64) :marks (:staccato :mf 
> (:textnote"(5
> 11)")));
> (note 1 :off 15 :dur 0.5 :notes (64) :marks (:staccato :mf :ignore))
> ;
> (note 3 :off 15.5 :dur 0.5 :notes (71) :marks (:staccato :mf 
> (:textnote"(12
> 5)")));
> (note 1 :off 16 :dur 0.25 :notes (71) :marks (:staccato :mf :ignore))
> ;
> (note 2 :off 16.25 :dur 0.25 :notes (72) :marks (:staccato :mf 
> (:textnote"(13
> 12)")));
> (note 1 :off 16.5 :dur 0.5 :notes (72) :marks (:staccato :mf :ignore))
> ;
> (note 3 :off 17 :dur 0.5 :notes (68) :marks (:staccato :mf :ignore))
> ;
> (note 1 :off 18 :dur 0.25 :notes (65) :marks (:staccato :mf (:textnote"(6
> 16)")));
> (note 3 :off 18.25 :dur 0.5 :notes (65) :marks (:staccato :mf :ignore))
> ;
> (note 1 :off 18.75 :dur 0.5 :notes (68) :marks (:marcato :mf :ignore))
> ;
> (note 3 :off 19.25 :dur 0.25 :notes (69) :marks (:PIZZ :mf :ignore))
> ;
> (note 4 :off 19.5 :dur 0.5 :notes (70) :marks (:prall :mf (:textnote"(11
> 6)")));
> (note 1 :off 20 :dur 0.25 :notes (70) :marks (:prall :mf :ignore))
> ;
> (note 3 :off 20.25 :dur 0.5 :notes (69) :marks (:staccato :mf :ignore))
> ;
> (note 3 :off 20.75 :dur 0.25 :notes (75) :marks (:marcato :mf 
> (:textnote"(16
> 11)")));
> (note 2 :off 21 :dur 0.5 :notes (75) :marks (:marcato :mf :ignore))
> ;
> (note 1 :off 21.5 :dur 0.5 :notes (63) :marks (:staccato :mf :ignore))
> ;
> (note 4 :off 22 :dur 0.5 :notes (74) :marks (:staccato :mf :ignore))
> ;
> (note 3 :off 22.5 :dur 0.5 :notes (75) :marks (:staccato :mf :ignore))
> ;
> (note 3 :off 23 :dur 0.5 :notes (64) :marks (:PIZZ :mf :ignore));
> (note 4 :off 23.5 :dur 0.25 :notes (71) :marks (:staccato :mf :ignore))
> ;
> (note 4 :off 23.75 :dur 0.5 :notes (65) :marks (:staccato :mf 
> (:textnote"(6
> 16)")));
> (note 2 :off 24.25 :dur 0.5 :notes (65) :marks (:staccato :mf :ignore))
> ;
> (note 1 :off 24.75 :dur 0.5 :notes (71) :marks (:staccato :mf :ignore))
> ;
> (note 3 :off 25.25 :dur 0.5 :notes (65) :marks (:marcato :mf :ignore))
> ;
> (note 4 :off 25.75 :dur 0.25 :notes (70) :marks (:staccato :mf :ignore))
> ;
> (note 4 :off 26 :dur 0.5 :notes (72) :marks (:marcato :mf :ignore))
> ;
> (note 3 :off 26.5 :dur 0.5 :notes (64) :marks (:staccato :mf :ignore))
> ;
> (note 2 :off 27 :dur 0.5 :notes (73) :marks (:staccato :mf :ignore))
> ;
> (note 3 :off 27.5 :dur 0.5 :notes (74) :marks (:staccato :mf :ignore))
> ;
> (note 3 :off 28 :dur 0.5 :notes (75) :marks (:staccato :mf :ignore))
> ;
> (note 4 :off 28.5 :dur 0.5 :notes (65) :marks (:staccato :mf :ignore))
> ;
> (note 4 :off 29 :dur 0.5 :notes (75) :marks (:staccato :mf :ignore))
> ;
> (note 4 :off 29.5 :dur 0.25 :notes (65) :marks (:prall :mf :ignore))
> ;
> (note 3 :off 29.75 :dur 0.25 :notes (71) :marks (:prall :mf :ignore))
> ;
> (note 2 :off 30 :dur 0.25 :notes (60) :marks (:prall :mf :ignore))
> ;
> (note 4 :off 30.25 :dur 0.5 :notes (72) :marks (:marcato :mf :ignore))
> ;
> (note 2 :off 30.75 :dur 0.5 :notes (73) :marks (:staccato :mf :ignore))
> ;
> (note 2 :off 31.25 :dur 0.5 :notes (65) :marks (:staccato :mf :ignore))
> ;
> (note 4 :off 31.75 :dur 0.25 :notes (70) :marks (:prall :mf 
> (:textnote"(11
> 6)")));
> (note 3 :off 32 :dur 0.25 :notes (70) :marks (:prall :mf :ignore))
> ;
> (note 1 :off 32.25 :dur 0.25 :notes (61) :marks (:staccato :mf :ignore))
> ;
> (note 4 :off 32.5 :dur 0.5 :notes (64) :marks (:marcato :mf (:textnote"(5
> 11)")));
> (note 2 :off 33 :dur 0.5 :notes (64) :marks (:marcato :mf :ignore))
> ;
> (note 1 :off 33.5 :dur 0.25 :notes (62) :marks (:PIZZ :mf :ignore))
> ;
> (note 4 :off 33.75 :dur 0.25 :notes (64) :marks (:prall :mf (:textnote"(5
> 5)")));
> (note 3 :off 34 :dur 0.25 :notes (64) :marks (:prall :mf :ignore))
> ;
> (note 1 :off 34.25 :dur 0.5 :notes (63) :marks (:marcato :mf :ignore))
> ;
> (note 2 :off 34.75 :dur 0.5 :notes (68) :marks (:PIZZ :mf :ignore))
> ;
> (note 2 :off 35.25 :dur 0.25 :notes (65) :marks (:prall :mf (:textnote"(6
> 5)")));
> (note 3 :off 35.5 :dur 0.25 :notes (65) :marks (:prall :mf :ignore))
> ;
> (note 1 :off 35.75 :dur 0.5 :notes (62) :marks (:staccato :mf :ignore))
> ;
> (note 2 :off 36.25 :dur 0.25 :notes (70) :marks (:prall :mf 
> (:textnote"(11
> 6)")));
> (note 2 :off 36.5 :dur 0.25 :notes (70) :marks (:prall :mf :ignore))
> ;
> (note 1 :off 36.75 :dur 0.25 :notes (61) :marks (:staccato :mf :ignore))
> ;
> (note 3 :off 37 :dur 0.5 :notes (64) :marks (:marcato :mf (:textnote"(5
> 11)")));
> (note 2 :off 37.5 :dur 0.5 :notes (67) :marks (:prall :mf (:textnote"(8
> 5)")));
> (note 1 :off 38 :dur 0.25 :notes (67) :marks (:prall :mf :ignore))
> ;
> (note 1 :off 38.25 :dur 0.25 :notes (62) :marks (:staccato :mf :ignore))
> ;
> (note 3 :off 38.5 :dur 0.5 :notes (67) :marks (:staccato :mf 
> (:textnote"(8
> 8)")));
> (note 1 :off 39 :dur 0.25 :notes (67) :marks (:staccato :mf :ignore))
> ;
> (note 2 :off 39.25 :dur 0.5 :notes (63) :marks (:staccato :mf :ignore))
> ;
> (note 4 :off 39.75 :dur 0.25 :notes (67) :marks (:prall :mf (:textnote"(8
> 8)")));
> (note 2 :off 40 :dur 0.25 :notes (67) :marks (:prall :mf :ignore))
> ;
> (note 1 :off 40.25 :dur 0.5 :notes (63) :marks (:staccato :mf :ignore))
> ;
> (note 4 :off 40.75 :dur 0.5 :notes (64) :marks (:PIZZ :mf :ignore))
> ;
> (note 2 :off 41.25 :dur 0.5 :notes (72) :marks (:prall :mf (:textnote"(13
> 8)")));
> (note 1 :off 41.75 :dur 0.25 :notes (72) :marks (:prall :mf :ignore))
> ;
> (note 4 :off 42 :dur 0.25 :notes (62) :marks (:staccato :mf (:textnote"(3
> 13)")));
> (note 2 :off 42.25 :dur 0.5 :notes (62) :marks (:staccato :mf :ignore))
> ;
> (note 2 :off 42.75 :dur 0.25 :notes (71) :marks (:prall :mf :ignore))
> ;
> (note 1 :off 43 :dur 0.5 :notes (65) :marks (:marcato :mf :ignore))
> ;
> (note 4 :off 43.5 :dur 0.25 :notes (71) :marks (:prall :mf :ignore))
> ;
> (note 2 :off 43.75 :dur 0.25 :notes (70) :marks (:staccato :mf :ignore))
> ;
> (note 2 :off 44 :dur 0.25 :notes (63) :marks (:PIZZ :mf :ignore));
> (note 3 :off 44.25 :dur 0.5 :notes (73) :marks (:PIZZ :mf (:textnote"(14
> 3)")));
> (note 1 :off 44.75 :dur 0.25 :notes (69) :marks (:staccato :mf 
> (:textnote"(10
> 14)")));
> (note 2 :off 45 :dur 0.5 :notes (69) :marks (:staccato :mf :ignore))
> ;
> (note 1 :off 45.5 :dur 0.5 :notes (72) :marks (:PIZZ :mf :ignore))
> ;
> (note 3 :off 46 :dur 0.5 :notes (69) :marks (:staccato :mf (:textnote"(10
> 10)")));
> (note 4 :off 46.5 :dur 0.5 :notes (69) :marks (:staccato :mf :ignore))
> ;
> (note 1 :off 47 :dur 0.5 :notes (73) :marks (:staccato :mf :ignore))
> ;
> (note 3 :off 47.5 :dur 0.5 :notes (63) :marks (:staccato :mf :ignore))
> ;
> (note 3 :off 48 :dur 0.5 :notes (73) :marks (:staccato :mf :ignore))
> ;
> (note 4 :off 48.5 :dur 0.5 :notes (70) :marks (:staccato :mf :ignore))
> ;
> (note 4 :off 49 :dur 0.5 :notes (75) :marks (:marcato :mf :ignore))
> ;
> (note 4 :off 49.5 :dur 0.5 :notes (65) :marks (:staccato :mf :ignore))
> ;
> (note 4 :off 50 :dur 0.5 :notes (68) :marks (:PIZZ :mf :ignore));
> (note 4 :off 50.5 :dur 0.25 :notes (60) :marks (:prall :mf :ignore))
> ;
> (note 3 :off 50.75 :dur 0.25 :notes (71) :marks (:prall :mf :ignore))
> ;
> (note 2 :off 50.75 :dur 0.25 :notes (71) :marks (:prall :mf :ignore))
> ;
> (note 2 :off 51 :dur 0.5 :notes (72) :marks (:marcato :mf :ignore))
> ;
> (note 3 :off 51.5 :dur 0.5 :notes (73) :marks (:marcato :mf :ignore))
> ;
> (note 3 :off 52 :dur 0.5 :notes (74) :marks (:staccato :mf :ignore))
> ;
> (note 4 :off 52.5 :dur 0.25 :notes (75) :marks (:PIZZ :mf :ignore))
> ;
>
>
>
> David Psenicka wrote:
>> I might be able to have fomus make some simple layout tweaks that 
>> will at least make it more readable (in the XML output as well)...  
>> could you send me a few of the nasty examples?
>>
>> rob canning wrote:
>>> is there any way to give priority to textnote spacing - i am getting 
>>> a lot of nasty clashes/overlaps of text entries in the lilypond output
>>>
>>> thanks
>>>
>>> rob
>>>
>> _______________________________________________
>> fomus-devel mailing
>