input/test/move-mark.ly

   1 \version "1.7.18"
   2 % possible rename to scheme- or something like that.  -gp
   3 \header { texidoc = "@cindex Scheme Move Mark
   4 You can move objects around with scheme.  This example shows how to
   5 move marks around. " }
   6
   7 \score{
   8 \context Staff \notes\relative c''{
   9         c1
  10         \context Score {
  11                 \outputproperty #(make-type-checker 'Mark)
  12                 #'extra-offset = #'(-1 . 4)
  13         }
  14         \mark A
  15         d
  16         \mark \default
  17         e
  18 }
  19 \paper{
  20         raggedright = ##t
  21         \translator {
  22                 \ScoreContext
  23                 \consists "Mark_engraver"
  24         }
  25 }
  26 }
  27 %% new-chords-done %%