Clean up further input/new

[lilypond.git] / input / new / drawing-boxes-around-grobs.ly

diff --git a/input/new/drawing-boxes-around-grobs.ly b/input/new/drawing-boxes-around-grobs.ly
new file mode 100644 (file)
index 0000000..23e11fe
--- /dev/null
+++ b/input/new/drawing-boxes-around-grobs.ly
@@ -0,0 +1,27 @@
+\version "2.11.23"
+\layout { ragged-right= ##t }
+\header {
+  doctitle = "Drawing boxes around grobs"
+  lsrtags = "tweaks-and-overrides"
+  texidoc = "
+The @code{print-function} can be overridden to draw a box around an
+arbitrary grob.  
+"
+}
+
+\relative c'' {
+  \override TextScript  #'stencil =
+  #(make-stencil-boxer 0.1 0.3 ly:text-interface::print)
+
+  c'4^"foo"
+
+  \override Stem  #'stencil =
+  #(make-stencil-boxer 0.05 0.25 ly:stem::print)
+
+  \override Score.RehearsalMark  #'stencil =
+  #(make-stencil-boxer 0.15 0.3 ly:text-interface::print)
+  b8
+  \revert Stem #'stencil
+
+  c4. c4 \mark "F" c1
+}