X-Git-Url: https://git.donarmstrong.com/?p=lilypond.git;a=blobdiff_plain;f=Documentation%2Fsnippets%2Fthree-sided-box.ly;h=dd7f46a30ac21376731c8c10f7e4dc4d99a3efeb;hp=3e1080dcb73bf4bd0318243f8e98fc7f6890f46d;hb=79c17e0eaedca79e5f7605f5b9f92db27c68e679;hpb=926115ff42def8bc1ce767029e4f03c8072994ba

diff --git a/Documentation/snippets/three-sided-box.ly b/Documentation/snippets/three-sided-box.ly
index 3e1080dcb7..dd7f46a30a 100644
--- a/Documentation/snippets/three-sided-box.ly
+++ b/Documentation/snippets/three-sided-box.ly
@@ -1,9 +1,10 @@
-%% DO NOT EDIT this file manually; it is automatically
-%% generated from LSR http://lsr.di.unimi.it
-%% Make any changes in LSR itself, or in Documentation/snippets/new/ ,
-%% and then run scripts/auxiliar/makelsr.py
-%%
-%% This file is in the public domain.
+% DO NOT EDIT this file manually; it is automatically
+% generated from Documentation/snippets/new
+% Make any changes in Documentation/snippets/new/
+% and then run scripts/auxiliar/makelsr.py
+%
+% This file is in the public domain.
+%% Note: this file works from version 2.18.0
 \version "2.18.0"
 
 \header {
@@ -36,15 +37,13 @@ around some text (or other markup).
 % The corresponding markup command, based on the \box command defined
 % in scm/define-markup-commands.scm
 #(define-markup-command (NWS-box layout props arg) (markup?)
+   #:properties ((thickness 0.1) (font-size 0) (box-padding 0.2))
    "Draw a box round @var{arg}.  Looks at @code{thickness},
 @code{box-padding} and @code{font-size} properties to determine line
 thickness and padding around the markup."
-   (let* ((th (chain-assoc-get 'thickness props 0.1))
-          (size (chain-assoc-get 'font-size props 0))
-          (pad (* (magstep size)
-                  (chain-assoc-get 'box-padding props 0.2)))
-          (m (interpret-markup layout props arg)))
-     (NWS-box-stencil m th pad)))
+   (let ((pad (* (magstep font-size) box-padding))
+         (m (interpret-markup layout props arg)))
+     (NWS-box-stencil m thickness pad)))
 
 % Test it: