scm/define-stencil-commands.scm

   1 ;;
   2 ;; define-stencil-commands.scm -- define valid stencil expression heads
   3 ;;
   4 ;; source file of the GNU LilyPond music typesetter
   5 ;;
   6 ;; (c) 2005--2009 Han-Wen Nienhuys <hanwen@xs4all.nl>
   7 ;;
   8
   9 (map ly:register-stencil-expression
  10      '(beam
  11        bezier-sandwich
  12        blank
  13        bracket
  14        char
  15        circle
  16        dashed-line
  17        dashed-slur
  18        dot
  19        draw-line
  20        ellipse
  21        embedded-ps
  22        embedded-svg
  23        glyph-string
  24        named-glyph
  25        oval
  26        path
  27        polygon
  28        repeat-slash
  29        resetcolor
  30        round-filled-box
  31        setcolor
  32        text
  33        url-link
  34        utf-8-string
  35        white-dot
  36        white-text
  37        zigzag-line
  38
  39        grob-cause
  40        no-origin
  41        placebox
  42        unknown
  43
  44        delay-stencil-evaluation
  45        ))
  46
  47 ;; TODO:
  48 ;;  - generate this list by registering the output-backend-commands
  49 ;;    output-backend-commands should have docstrings.
  50 ;;  - remove hard copies in output-ps
  51
  52 (define-public (ly:all-output-backend-commands)
  53   "Return list of output backend commands."
  54   '(combine-stencil
  55     color
  56     translate-stencil))
  57
  58 (map ly:register-stencil-expression (ly:all-output-backend-commands))