+2006-02-08 Han-Wen Nienhuys <hanwen@xs4all.nl>
+
+ * input/sakura-sakura.ly: document how to override font.
+
+ * input/regression/font-family-override.ly: doc -dshow-available-fonts
+
+2006-02-07 Han-Wen Nienhuys <hanwen@xs4all.nl>
+
+ * lily/midi-item.cc (to_string): truncate time sig at 255 beats.
+
2006-02-08 Jan Nieuwenhuizen <janneke@gnu.org>
* scripts/convert-ly.py (lilypond_version_re_str): Move from
2006-02-06 Han-Wen Nienhuys <hanwen@xs4all.nl>
+ * VERSION (PACKAGE_NAME): release 2.7.32
+
* Documentation/topdocs/NEWS.tely (Top): document new variable
naming.
\paper {
% change for other default global staff size.
myStaffSize = #20
+
+
+ %{
+
+ run
+
+ lilypond -dshow-available-fonts blabla
+
+ to show all fonts available in the process log.
+
+ %}
+
#(define fonts
(make-pango-font-tree "Times New Roman"
\version "2.7.32"
+
\header {
title = "さくら さくら"
subtitle = "(Sakura, sakura)"
| d,4 e b'8[ a] f4 | e1 \bar "|."
}
\addlyrics {
+
+
+ %{
+
+ Try the following if the default font doesn't work for you,
+ run
+
+ lilypond -dshow-available-fonts blabla
+
+ this will show all fonts available to LilyPond, substitute
+ FAMILY-NAME below and uncomment
+
+ %}
+ %% \override Lyrics . LyricText #'font-name = #"FAMILY-NAME"
+
さ く ら さ く ら
の や ま も さ と も
み わ た す か ぎ り
std::string
Midi_time_signature::to_string () const
{
- int num = audio_->beats_;
+ int num = abs (audio_->beats_);
+ if (num > 255)
+ {
+ warning ("Time signature with more than 255 beats. Truncating");
+ num = 255;
+ }
+
int den = audio_->one_beat_;
+
+
std::string str = "ff5804";
str += String_convert::int2hex (num, 2, '0');
str += String_convert::int2hex (intlog2 (den), 2, '0');
span_ = 0;
}
}
+
ADD_ACKNOWLEDGER (Trill_spanner_engraver, note_column);
ADD_TRANSLATOR (Trill_spanner_engraver,
/* doc */ "Create trill spanner from a Music.",
\consists "Stanza_number_align_engraver"
\consists "Bar_number_engraver"
\consists "Tweak_engraver"
+ \consists "Parenthesis_engraver"
\defaultchild "Staff"
))
(LyricText
. (
-
(stencil . ,ly:text-interface::print)
-
(X-offset . ,ly:self-alignment-interface::aligned-on-x-parent)
(self-alignment-X . 0)
(word-space . 0.6)
(ttf-verbosity 0
"how much verbosity for TTF font embedding?")
(debug-gc #f
- "dump GC protection info"))
+ "dump GC protection info")
+ (show-available-fonts #f
+ "List font names available.")
+ )
))
;; FIXME: stray statement
(if (ly:get-option 'verbose)
(ly:progress "]"))))
-(define-public TEX_STRING_HASHLIMIT 10000000)
-
;; Cygwin
;; #(CYGWIN_NT-5.1 Hostname 1.5.12(0.116/4/2) 2004-11-10 08:34 i686)
;;
(string<? (car x) (car y)))))))))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
+
(define-public (lilypond-main files)
"Entry point for LilyPond."
(define-public (lilypond-all files)
+ (if (ly:get-option 'show-available-fonts)
+ (begin
+ (ly:font-config-display-fonts)
+ (exit 0)
+ ))
+
(let* ((failed '())
(handler (lambda (key failed-file)
(set! failed (append (list failed-file) failed)))))
(if (string? what)
what
""))
+
+(define TEX_STRING_HASHLIMIT 10000000)
(define-public (text font str)
(call-with-output-string
(lambda (port)