Hi,
may I apply attached patch in order to fix the size/shape of dots for
ancient notation? This patch adds a "style" property to the "Dots" grob
and a new glyph to the parmesan font.
Greetings,
Juergen
Index: ChangeLog
===================================================================
RCS file: /cvsroot/lilypond/lilypond/ChangeLog,v
retrieving revision 1.5395
diff -u -r1.5395 ChangeLog
--- ChangeLog 10 Oct 2006 13:38:32 -0000 1.5395
+++ ChangeLog 10 Oct 2006 17:29:40 -0000
@@ -1,3 +1,10 @@
+2006-10-10 Jürgen Reuter <[EMAIL PROTECTED]>
+
+ * mf/parmesan-dots.mf (new), mf/parmesan-generic.mf,
+ ly/engraver-init.ly: Added vaticana-style augmentum dot glyph.
+
+ * lily/dots.cc: Added style property for dots.
+
2006-10-10 Han-Wen Nienhuys <[EMAIL PROTECTED]>
* scm/output-lib.scm (fingering::calc-text): use origin
Index: lily/dots.cc
===================================================================
RCS file: /cvsroot/lilypond/lilypond/lily/dots.cc,v
retrieving revision 1.79
diff -u -r1.79 dots.cc
--- lily/dots.cc 11 Feb 2006 11:35:18 -0000 1.79
+++ lily/dots.cc 10 Oct 2006 17:29:40 -0000
@@ -26,7 +26,16 @@
if (scm_is_number (c))
{
- Stencil d = Font_interface::get_default_font (sc)->find_by_name (string
("dots.dot"));
+ SCM scm_style = sc->get_property ("style");
+ string style;
+ if (scm_is_symbol (scm_style))
+ style = ly_symbol2string (scm_style);
+ else
+ style = "default";
+
+ string idx =
+ (style == "default") ? "dot" : string ("dot") + style;
+ Stencil d = Font_interface::get_default_font (sc)->find_by_name ("dots."
+ idx);
Real dw = d.extent (X_AXIS).length ();
/*
@@ -55,5 +64,6 @@
/* properties */
"direction "
- "dot-count");
-
+ "dot-count "
+ "style "
+ );
Index: mf/parmesan-generic.mf
===================================================================
RCS file: /cvsroot/lilypond/lilypond/mf/parmesan-generic.mf,v
retrieving revision 1.10
diff -u -r1.10 parmesan-generic.mf
--- mf/parmesan-generic.mf 6 Jan 2006 09:13:23 -0000 1.10
+++ mf/parmesan-generic.mf 10 Oct 2006 17:29:40 -0000
@@ -33,6 +33,7 @@
input parmesan-flags;
input parmesan-timesig;
input parmesan-scripts;
+ input parmesan-dots;
else:
fi
Index: ly/engraver-init.ly
===================================================================
RCS file: /cvsroot/lilypond/lilypond/ly/engraver-init.ly,v
retrieving revision 1.309
diff -u -r1.309 engraver-init.ly
--- ly/engraver-init.ly 4 Oct 2006 10:32:26 -0000 1.309
+++ ly/engraver-init.ly 10 Oct 2006 17:29:40 -0000
@@ -765,6 +765,7 @@
\override Custos #'style = #'vaticana
\override Custos #'neutral-position = #3
\override Custos #'neutral-direction = #DOWN
+ \override Dots #'style = #'vaticana
}
\context {
fet_begingroup ("dots");
save dot_diam;
3 dot_diam# = staff_space# - stafflinethickness#;
define_whole_blacker_pixels (dot_diam);
fet_beginchar ("duration dot", "dotvaticana");
pickup pencircle scaled dot_diam;
lft x0 = 0;
top y0 = vround (.5 dot_diam);
drawdot z0;
set_char_box (0, dot_diam#, .5 dot_diam#, .5 dot_diam#);
fet_endchar;
fet_endgroup ("dots");
_______________________________________________
lilypond-devel mailing list
[email protected]
http://lists.gnu.org/mailman/listinfo/lilypond-devel
