summary |
shortlog |
log |
commit | commitdiff |
tree
raw |
patch |
inline | side by side (from parent 1:
765d8e8)
space dimension.
* ly/init.ly: warn about \version
* lily/lexer.ll: set version-seen?
+2004-12-17 Han-Wen Nienhuys <hanwen@xs4all.nl>
+
+ * scm/output-ps.scm (new-text): don't access t glyph for getting
+ space dimension.
+
+ * ly/init.ly: warn about \version
+
+ * lily/lexer.ll: set version-seen?
+
2004-12-17 Jan Nieuwenhuizen <janneke@gnu.org>
* scm/output-svg.scm (string->entities): Update.
2004-12-17 Jan Nieuwenhuizen <janneke@gnu.org>
* scm/output-svg.scm (string->entities): Update.
-@item @uref{http://www.xs4all.nl/~hanwen/mftrace/,mftrace} (1.0.17 or
+@item @uref{http://www.freetype.org/,Freetype} version 2.
+
+@item @uref{http://fontforge.sf.net/,FontForge} 20041211 or newer.
+
+@item @uref{http://www.xs4all.nl/~hanwen/mftrace/,mftrace} (1.0.33 or
newer),
You will need to install some additional packages to get mftrace to
newer),
You will need to install some additional packages to get mftrace to
@lilypond[quote,raggedright,verbatim]
{
@lilypond[quote,raggedright,verbatim]
{
- \set Staff.clefGlyph = #"clefs-F"
+ \set Staff.clefGlyph = #"clefs.F"
\set Staff.clefPosition = #2
c'4
\set Staff.clefPosition = #2
c'4
- \set Staff.clefGlyph = #"clefs-G"
+ \set Staff.clefGlyph = #"clefs.G"
- \set Staff.clefGlyph = #"clefs-C"
+ \set Staff.clefGlyph = #"clefs.C"
c'4
\set Staff.clefOctavation = #7
c'4
c'4
\set Staff.clefOctavation = #7
c'4
yy_pop_state ();
if (!is_valid_version (s))
return INVALID;
yy_pop_state ();
if (!is_valid_version (s))
return INVALID;
+
+ SCM top_scope = scm_car (scm_last_pair (scopes_));
+ scm_module_define (top_scope, ly_symbol2scm ("version-seen?"), SCM_BOOL_T);
+
}
<renameinput>\"[^"]*\" {
String s (YYText () + 1);
}
<renameinput>\"[^"]*\" {
String s (YYText () + 1);
#(ly:set-point-and-click #f)
#(define toplevel-scores '())
#(define $globalheader #f)
#(ly:set-point-and-click #f)
#(define toplevel-scores '())
#(define $globalheader #f)
+#(define version-seen? #f)
\maininput
%% there is a problem at the end of the input file
\maininput
%% there is a problem at the end of the input file
input-file-name ": old relative compatibility was not used."
)))%% there is a problem at the end of the input file
input-file-name ": old relative compatibility was not used."
)))%% there is a problem at the end of the input file
+#(if (not version-seen?)
+ (ly:warn "No \\version included in input file.\nAdd\n\n\t\\version \"~a\"\n\nfor future compatibility" (lilypond-version)))
+
+
+
#(if (pair? toplevel-scores)
(ly:parser-print-book parser
(apply ly:make-book $defaultpaper $globalheader (reverse toplevel-scores))))
#(if (pair? toplevel-scores)
(ly:parser-print-book parser
(apply ly:make-book $defaultpaper $globalheader (reverse toplevel-scores))))
(cd $(outdir) && fontforge -script $(notdir $<))
$(outdir)/%.otf-table: $(outdir)/%.lisp
(cd $(outdir) && fontforge -script $(notdir $<))
$(outdir)/%.otf-table: $(outdir)/%.lisp
- cat $< $(subst parmesan,feta,$<) $(subst feta-alphabet,feta,$<) > $@
+ cat $< $(wildcard $(subst feta,parmesan,$<)) $(wildcard $(subst feta,feta-alphabet,$<)) > $@
$(outdir)/aybabtu.otf: $(outdir)/aybabtu.subfonts $(outdir)/aybabtu.otf-table $(outdir)/aybabtu.otf-gtable
$(outdir)/aybabtu.otf: $(outdir)/aybabtu.subfonts $(outdir)/aybabtu.otf-table $(outdir)/aybabtu.otf-gtable
(right-edge . (extra-space . 0.1))
))
(print-function . ,Text_interface::print)
(right-edge . (extra-space . 0.1))
))
(print-function . ,Text_interface::print)
- (text . ,(make-musicglyph-markup "scripts-rcomma"))
+ (text . ,(make-musicglyph-markup "scripts.rcomma"))
(Y-offset-callbacks . (,Breathing_sign::offset_callback))
(break-visibility . ,begin-of-line-invisible)
(meta . ((interfaces . (break-aligned-interface breathing-sign-interface text-interface font-interface item-interface ))))
(Y-offset-callbacks . (,Breathing_sign::offset_callback))
(break-visibility . ,begin-of-line-invisible)
(meta . ((interfaces . (break-aligned-interface breathing-sign-interface text-interface font-interface item-interface ))))
(TrillSpanner
. (
(print-function . ,Dynamic_text_spanner::print)
(TrillSpanner
. (
(print-function . ,Dynamic_text_spanner::print)
- (edge-text . ,(cons (make-musicglyph-markup "scripts-trill")
+ (edge-text . ,(cons (make-musicglyph-markup "scripts.trill")
""))
(style . trill)
(staff-padding . 1.0)
""))
(style . trill)
(staff-padding . 1.0)
;; ugh, we should find a better way to
;; extract the hsbw for /space from the font.
;; ugh, we should find a better way to
;; extract the hsbw for /space from the font.
- ((space-length (cdar (ly:text-dimension font "t")))
+ ((space-length (cdar (ly:text-dimension font " ")))
(commands '())
(add-command (lambda (x) (set! commands (cons x commands)))) )
(commands '())
(add-command (lambda (x) (set! commands (cons x commands)))) )
(define (new-text font s)
(let*
(define (new-text font s)
(let*
- ((space-length (cdar (ly:text-dimension font "t")))
+ ((space-length (cdar (ly:text-dimension font " ")))
(space-move (string-append (number->string space-length) " 0.0 rmoveto "))
(input-enc (assoc-get 'input-name
(space-move (string-append (number->string space-length) " 0.0 rmoveto "))
(input-enc (assoc-get 'input-name
(ly:parser-print-score
p (ly:music-scorify m p))))
(ly:parser-print-score
p (ly:music-scorify m p))))
+#(define version-seen? #t)
%(preamble_string)s
\paper {
%(preamble_string)s
\paper {