}
else if (gh_number_p (v))
{
- output_Real_def (prefix + s, gh_scm2double (v));
+ output_Real_def (prefix + s, gh_scm2double (v));
}
}
}
{
SCM scm = scm_list_n (ly_symbol2scm ("lily-def"),
- ly_str02scm (k.ch_l ()),
- ly_str02scm (to_str (v).ch_l ()),
- SCM_UNDEFINED);
+ ly_str02scm (k.ch_l ()),
+ ly_str02scm (to_str (v).ch_l ()),
+ SCM_UNDEFINED);
output_scheme (scm);
}
# making pfas takes a lot of CPU time. Let's skip it for now.
#MAKE_PFA_FILES=1
-ifdef MAKE_PFA_FILES
PFA_FILES = $(addprefix $(outdir)/, $(FONT_FILES:.mf=.pfa))
+ifdef MAKE_PFA_FILES
ALL_GEN_FILES += $(PFA_FILES) $(outdir)/lilypond.map
INSTALLATION_OUT_DIR4=$(datadir)/fonts/type1
INSTALLATION_OUT_FILES4=$(PFA_FILES)
INSTALLATION_OUT_DIR5=$(datadir)/dvips/
INSTALLATION_OUT_FILES5=$(outdir)/lilypond.map
-pfa: $(PFA_FILES)
endif
export MFINPUTS:=.:$(MFINPUTS)
default: $(ALL_GEN_FILES)
$(outdir)/lilypond.map:
- echo $(FONT_FILES:.mf=) | awk -v RS=' ' '{print $$1 " TeX-" $$1 " <" $$1 ".pfa"}' > $@
+ echo $(FONT_FILES:.mf=) | tr ' ' '\n' | \
+ sed 's/\(.*\)/\1 \1 <\1.pfa/' > $@
##
## todo: this also depends on .tfm, FIXME.
rm -f mfplain.mem mfplain.log
rm -f *.tfm *.log
+pfa: $(PFA_FILES)
maxlw = max (extra['linewidth'] + [-1])
if maxlw < 0:
# who the hell is 597 ?
- linewidth = '597'
+ linewidth = '597pt'
else:
linewidth = maxlw
- s = s + '\geometry{width=%spt%s,headheight=2mm,footskip=2mm,%s}\n' % (linewidth, textheight, orientation)
+ s = s + '\geometry{width=%smm%s,headheight=2mm,footskip=2mm,%s}\n' % (linewidth, textheight, orientation)
if extra['latexoptions']:
s = s + '\geometry{twosideshift=4mm}\n'