From 53e2f0457cebe26a53710b50fa0f178aefb90a30 Mon Sep 17 00:00:00 2001 From: Jan Nieuwenhuizen Date: Sun, 12 Dec 2004 11:06:00 +0000 Subject: [PATCH] * mf/merge.pe.in: Set font names, version, license GPL. * make/substitute.make: Add FONTFORGE. * config.make.in (FONTFORGE): Add. * configure.in (gui_b): Use PATH_PROG for fontforge. --- ChangeLog | 10 ++++++++++ config.make.in | 1 + configure.in | 2 +- make/substitute.make | 18 +++++++++--------- mf/GNUmakefile | 10 +++------- mf/{merge.pe => bigcheese.pe.in} | 8 ++++---- scm/output-gnome.scm | 4 ++++ 7 files changed, 32 insertions(+), 21 deletions(-) rename mf/{merge.pe => bigcheese.pe.in} (63%) diff --git a/ChangeLog b/ChangeLog index 211a4f414d..072557acf6 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,13 @@ +2004-12-12 Jan Nieuwenhuizen + + * mf/merge.pe.in: Set font names, version, license GPL. + + * make/substitute.make: Add FONTFORGE. + + * config.make.in (FONTFORGE): Add. + + * configure.in (gui_b): Use PATH_PROG for fontforge. + 2004-12-11 Graham Percival * scm/define-markup-commands.scm: add baseline-skip to info diff --git a/config.make.in b/config.make.in index ade4f410e2..b51dd82a39 100644 --- a/config.make.in +++ b/config.make.in @@ -84,6 +84,7 @@ BASH = @BASH@ BISON = @BISON@ FIND = @FIND@ FLEX = @FLEX@ +FONTFORGE = @FONTFORGE@ GROFF = @GROFF@ GUILE = @GUILE@ GUILE_CONFIG = @GUILE_CONFIG@ diff --git a/configure.in b/configure.in index 80fc829506..68b3aca31d 100644 --- a/configure.in +++ b/configure.in @@ -55,7 +55,7 @@ STEPMAKE_PYTHON_DEVEL(REQUIRED) STEPMAKE_PROGS(MFTRACE, mftrace, REQUIRED, 1.0.27) # mftrace for generating pfa's, pfb's -STEPMAKE_PROGS(FONTFORGE, fontforge, REQUIRED, 20041208) +STEPMAKE_PATH_PROG(FONTFORGE, fontforge, REQUIRED, 20041208) AC_CHECK_HEADERS([assert.h sys/stat.h]) diff --git a/make/substitute.make b/make/substitute.make index 21f626ea3a..e45f57c72e 100644 --- a/make/substitute.make +++ b/make/substitute.make @@ -7,25 +7,25 @@ include $(stepdir)/substitute-rules.make ATVARIABLES = \ BASH\ DATE\ - sharedstatedir\ + FONTFORGE\ GUILE\ + PACKAGE\ + PATHSEP\ + PERL\ + PYTHON\ + SHELL\ + TOPLEVEL_VERSION\ bindir\ - date\ datadir\ + date\ lilypond_datadir\ lilypond_libdir\ local_lilypond_datadir\ local_lilypond_libdir\ localedir\ - PACKAGE\ package\ - PATHSEP\ - PERL\ prefix\ program_prefix\ program_suffix\ - PYTHON\ - SHELL\ - TOPLEVEL_VERSION\ + sharedstatedir\ step-bindir\ - diff --git a/mf/GNUmakefile b/mf/GNUmakefile index fdd7f503fb..12962a42c9 100644 --- a/mf/GNUmakefile +++ b/mf/GNUmakefile @@ -6,8 +6,7 @@ include $(depth)/make/stepmake.make AF_FILES = $(wildcard *.af) -EXTRA_DIST_FILES += README feta.tex merge.pe - +EXTRA_DIST_FILES += README feta.tex # We don't use $(MF_FILES), because there's more .mf cruft here FETA_MF_FILES = $(wildcard feta[0-9]*.mf)\ @@ -44,14 +43,11 @@ foe: echo $(TEXMF) kpsewhich exbase.mf - $(outdir)/feta20.otf-table: cat $(outdir)/feta20.lisp $(outdir)/parmesan20.lisp > $@ -$(outdir)/feta20.otf: merge.pe $(outdir)/feta20.otf-table -# FIXME: srcdir build. - (cd $(outdir) ; fontforge -script ../merge.pe ) - +$(outdir)/bigcheese20.otf: $(outdir)/merge.pe $(outdir)/feta20.otf-table + (cd $(outdir) && fontforge -script merge.pe) ## use separate package sauter-fonts-mftraced. SAUTER_FONTS = diff --git a/mf/merge.pe b/mf/bigcheese.pe.in similarity index 63% rename from mf/merge.pe rename to mf/bigcheese.pe.in index 46020ff504..b66e6a8cf8 100644 --- a/mf/merge.pe +++ b/mf/bigcheese.pe.in @@ -1,9 +1,9 @@ -#!/usr/bin/env fontforge +#!@FONTFORGE@ + New(); -// TODO: set version -// TODO: GPL? -SetFontNames("bigcheese20", "", "", "", "This font is in the public domain.", ""); +# Separate Feta versioning? +SetFontNames("bigcheese20", "LilyPond", "LilyPondBigCheese", "Regular", "GNU GPL", "@TOPLEVEL_VERSION@"); MergeFonts("feta20.pfa"); MergeFonts("parmesan20.pfa"); diff --git a/scm/output-gnome.scm b/scm/output-gnome.scm index d427b2c9b7..331ad20caa 100644 --- a/scm/output-gnome.scm +++ b/scm/output-gnome.scm @@ -287,6 +287,10 @@ lilypond -fgnome input/simple-song.ly (define (placebox x y expr) (debugf "item: ~S\n" expr) (debugf "x,y: ~S,~S\n" x y) + ;; symbols enter visual + (set! x 10) + ;;(set! y -10) + ;;(set! y (/ y 10)) (let ((item expr)) ;;(if item ;; FIXME ugly hack to skip #unspecified ... -- 2.39.2