X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=scm%2Fsketch.scm;h=a76f79d5c36c2544181396c1a1cc3b891dcc68b8;hb=43e92a55dd6874d78abc5c32a74bd987753e26db;hp=30ec4a4ce0844002fc1808de573c5851659fbcdd;hpb=46c5beb169abbc5a03bd57562cda1669640e4c72;p=lilypond.git

diff --git a/scm/sketch.scm b/scm/sketch.scm
index 30ec4a4ce0..a76f79d5c3 100644
--- a/scm/sketch.scm
+++ b/scm/sketch.scm
@@ -234,9 +234,6 @@ layer('Layer 1',1,1,0,0,(0,0,0))
 (define (invoke-char s i)
   "")
 
-(define (invoke-dim1 s d) 
-  (string-append
-   (ly-number->string (* d  (/ 72.27 72))) " " s ))
 
 (define (bezier-sandwich x y l thick)
   (apply