From eb736251ddd70a4562264eed6cc021b281f0377a Mon Sep 17 00:00:00 2001
From: Jan Nieuwenhuizen <janneke@gnu.org>
Date: Wed, 12 Apr 2000 17:11:38 +0200
Subject: 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.
---
 scm/paper.scm | 16 ++++++++++++++++
 1 file changed, 16 insertions(+)

(limited to 'scm/paper.scm')

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))))
+
-- 
cgit v1.2.3