diff options
| author | Jan Nieuwenhuizen <janneke@gnu.org> | 2000-04-12 17:11:38 +0200 |
|---|---|---|
| committer | Jan Nieuwenhuizen <janneke@gnu.org> | 2000-04-12 17:11:38 +0200 |
| commit | eb736251ddd70a4562264eed6cc021b281f0377a (patch) | |
| tree | 2cb0c2b9cc1ab881c907aa4f0aa76b509e223b07 /scm/paper.scm | |
| parent | 630e8a2f3ab6cf78258fea9c131715e3e76dcbc7 (diff) | |
patch::: 1.3.43.jcn1
1.3.43.jcn1
===========
* Added a Piano_pedal_engraver.
* Removed some empty files.
* Created piano pedal symbols: * - . P e d.
* Fixed ps-to-pfa.py to handle multiple unfills.
* Moved accordion symbols out of feta-script to end of font.
* Bugfix: don't create tfm's, pfa's etc of feta-test fonts.
* Fixed blot_diameter for small resolutions.
Diffstat (limited to 'scm/paper.scm')
| -rw-r--r-- | scm/paper.scm | 16 |
1 files changed, 16 insertions, 0 deletions
diff --git a/scm/paper.scm b/scm/paper.scm index a615f9564f..c5bdbbeba4 100644 --- a/scm/paper.scm +++ b/scm/paper.scm @@ -137,3 +137,19 @@ (beta (/ (* pi r-0) (* 2.0 h-inf)))) (* alpha (atan (* beta b))))) +;; see mf/feta-pendaal.mf +(define pedal-kerning-alist '()) +(set! pedal-kerning-alist + (append + '( + (("P" . "e") . -0.07) + (("e" . "d") . -0.53) + (("*" . "P") . 0.2) + ) + pedal-kerning-alist)) + +(define (pedal-kerning l r) + (let ((entry (assoc (cons l r) pedal-kerning-alist))) + (if entry + (cdr entry)))) + |