release: 1.5.43

[lilypond.git] / scm / pdf.scm

diff --git a/scm/pdf.scm b/scm/pdf.scm
index 50c674e88f6e5d516a17bc04a0821dbc86a01aa2..5f022652c79213d763753105bb091db1e327af27 100644 (file)
--- a/scm/pdf.scm
+++ b/scm/pdf.scm
@@ -151,10 +151,6 @@
     (string-append 
      "(\\" (inexact->string i 8) ") " s " " ))
   
-  (define (invoke-dim1 s d) 
-    (string-append
-     (ly-number->string (* d  (/ 72.27 72))) " " s ))
-
   (define (placebox x y s) "")
 
   (define (bezier-sandwich l thick)
@@ -249,7 +245,7 @@
            (define font-load-command ,font-load-command)
            (define header ,header) 
            (define invoke-char ,invoke-char) 
-           (define invoke-dim1 ,invoke-dim1)
+
            (define placebox ,placebox)
            (define repeat-slash ,repeat-slash) 
            (define select-font ,select-font)
@@ -285,4 +281,4 @@
 
 ; Local Variables:
 ; scheme-program-name: "guile"
-; End:
\ No newline at end of file
+; End: