* input/test/vertical-extent.ly:

[lilypond.git] / input / test / embedded-postscript.ly

diff --git a/input/test/embedded-postscript.ly b/input/test/embedded-postscript.ly
index 557c9ba403cafa62adacd5a493f3e9469ad01e84..0babb6991ee2b3c6e4a0c42fb622c69cb77d5ab1 100644 (file)
--- a/input/test/embedded-postscript.ly
+++ b/input/test/embedded-postscript.ly
@@ -1,18 +1,28 @@
+
+\version "2.7.39"
+
+
 \header {
-  texidoc = "By inserting the @TeX{} command \embeddedps, you can
-insert postscript directly into the output.
 
-TODO: make molecule-callback to do this. 
-  ";
+  texidoc = "
+
+@cindex Embedded Postscript
+
+The markup command @code{\postscript} inserts postscript directly into
+the output."
+
+}
+
+\layout {
+  line-width = 70 * 5 \pt
 }
 
-\score {
-  \notes \relative c'' {
-    a-#"\\embeddedps{3 4 moveto 5 3 rlineto stroke}"
-    -#"\\embeddedps{ [ 0 1 ] 0 setdash 3 5 moveto 5 -3 rlineto stroke}"
-    b-#"\\embeddedps{3 4 moveto 0 0 1 2 8 4 20 3.5 rcurveto stroke}"
-    s2
-    a'1
-  }
-  \paper { linewidth = 70 * \staffspace; }
+\relative c'' {
+  a-\markup { \postscript #"3 4 moveto 5 3 rlineto stroke" }
+  -\markup { \postscript #"[ 0 1 ] 0 setdash 3 5 moveto 5 -3 rlineto stroke " }
+  
+  b-\markup { \postscript #"3 4 moveto 0 0 1 2 8 4 20 3.5 rcurveto stroke" }
+  s2
+  a'1
 }
+