From fa8d07730179f51c5378c5bd5a567d184c116e65 Mon Sep 17 00:00:00 2001 From: David Kastrup Date: Thu, 2 May 2013 10:34:10 +0200 Subject: [PATCH] Issue 3346: Change prehistoric docstring in input/regression/stencil-hacking --- input/regression/stencil-hacking.ly | 20 ++++++++------------ 1 file changed, 8 insertions(+), 12 deletions(-) diff --git a/input/regression/stencil-hacking.ly b/input/regression/stencil-hacking.ly index 1e31345993..41192b986a 100644 --- a/input/regression/stencil-hacking.ly +++ b/input/regression/stencil-hacking.ly @@ -1,4 +1,3 @@ - \version "2.17.6" \header { texidoc=" You can write stencil callbacks in Scheme, thus @@ -16,16 +15,13 @@ parens are also not seen by accidentals. "Construct a function that will do CALLBACK and add parentheses. Example usage: - \\property NoteHead \\override #'print-function - = - #(parenthesize-callback ly:note-head::print) - -" - + \\override NoteHead.stencil + = + #(parenthesize-callback ly:note-head::print)" (define (parenthesize-stencil grob) "This function adds parentheses to the original callback for -GROB. The dimensions of the stencil is not affected. +GROB. It does not affect the dimensions of the stencil. " (let* ((fn (ly:grob-default-font grob)) @@ -34,14 +30,14 @@ GROB. The dimensions of the stencil is not affected. (subject (callback grob)) ; remember old size - (subject-dim-x (ly:stencil-extent subject 0)) - (subject-dim-y (ly:stencil-extent subject 1))) + (subject-dim-x (ly:stencil-extent subject X)) + (subject-dim-y (ly:stencil-extent subject Y))) ;; add parens (set! subject (ly:stencil-combine-at-edge - (ly:stencil-combine-at-edge subject 0 1 pclose 0.2) - 0 -1 popen 0.2)) + (ly:stencil-combine-at-edge subject X RIGHT pclose 0.2) + X LEFT popen 0.2)) ; revert old size. (ly:make-stencil -- 2.39.2