input/regression/markup-eps.ly

   1 \header {
   2
   3   texidoc = "The epsfile markup command reads an EPS file"
   4
   5 }
   6 \version "2.16.0"
   7
   8 #(let* ((port (open-output-file "box.eps")))
   9
  10   (display "%!PS-Adobe-3.0 EPSF-3.0
  11 %%BoundingBox: 5 5 105 105
  12 10 setlinewidth 10 10 moveto 0 90 rlineto 90 0 rlineto 0 -90 rlineto
  13 closepath stroke" port)
  14
  15   (close port))
  16
  17 { c''4-\markup { \box \epsfile #X #10 #"box.eps" } }