./../../src/lilypond.lsp

## sc/lilypond [ Modules ]

[ Top ] [ Modules ]

## lilypond/lp-get-mark [ Functions ]

[ Top ] [ lilypond ] [ Functions ]

FUNCTION

     lp-get-mark:
     Translation function for Lilypond marks (dynamics, accents, etc.).  Not
     generally called by the user but the list of symbols that can be used will
     be useful.  If <silent> then non-existing marks will not produce
     warnings/errors (but we'll return nil).

SYNOPSIS

               (a "-> ") ; accent
               (lhp "-+ ")
               ;; see p229 of lilypond.pdf: need to define this command in file
               (bartok "^\\snapPizzicato ")
               (pizz "^\"pizz.\" ")
               (ord "^\"ord.\" ")
               (pizzp "^\"(pizz.)\" ")
               (clb "^\"clb\"")
               (cl "^\"cl\" ")
               (col-legno "^\"col legno\" ")
               (clt "^\"clt\" ")
               (arco "^\"arco\" ")
               (batt "^\"batt.\" ")
               (spe "^\"spe\" ")
               (sp "^\"sul pont.\" ")
               (mv "^\"molto vib.\" ")
               (sv "^\"senza vib.\" ")
               (poco-crini "^\"poco crini\" ")
               (s "-. ")
               (nail (no-lp-mark 'nail))
               (stopped (no-lp-mark 'stopped))
               (as "->-. ")
               (at "->-- ")
               (ts "-_ ")
               (te "-- ")
               ;; so unmeasured is implicit
               (t3 (format nil ":~a " (* 32 (expt 2 num-flags))))
               (flag "\\flageolet ")
               (niente "^\markup { niente } ")
               (pppp "\\pppp ")
               (ppp "\\ppp ")
               (pp "\\pp ")
               (p "\\p ")
               (mp "\\mp ")
               (mf "\\mf ")
               (f "\\f ")
               (ff "\\ff ")
               (fff "\\fff ")
               (ffff "\\ffff ")
               (sfz "\\sfz ")
               (downbow "\\downbow ")
               (upbow "\\upbow ")
               (open "\\open ")
               (0 "\\open ")
               (1 "-1 ")
               (2 "-2 ")
               (3 "-3 ")
               (4 "-4 ")
               (I "^\\markup { \\teeny \"I\" } ")
               (II "^\\markup { \\teeny \"II\" } ")
               (III "^\\markup { \\teeny \"III\" } ")
               (IV "^\\markup { \\teeny \"IV\" } ")
               (beg-sl "( ")
               (end-sl  ") ")
               ;; MDE Fri Apr  6 21:57:59 2012 -- apparently LP can't have nested
               ;; slurs but it does have phrase marks:
               (beg-phrase "\\( ")
               (end-phrase "\\) ")
               ;; there's no start gliss / end gliss in lilypond
               (beg-gliss "\\glissando ")
               (end-gliss "")
               ;; 13.4.11
               (beg-8va "\\ottava #1 ")
               (end-8va "\\ottava #0 ")
               (beg-8vb "\\ottava #-1 ")
               (end-8vb "\\ottava #0 ")
               ;; NB note heads should be added via (add-mark-before ... so if
               ;; adding new, add the mark symbol to the move-elements call in
               ;; event::get-lp-data
               (circled-x "\\once \\override NoteHead #'style = #'xcircle ")
               (x-head "\\once \\override NoteHead #'style = #'cross ")
               (triangle "\\once \\override NoteHead #'style = #'triangle ")
               (triangle-up "\\once \\override NoteHead #'style = #'do ")
               ;; (mensural "\\once \\override NoteHead #'style = #'slash ")
               ;;(flag-head "\\once \\override NoteHead #'style = #'harmonic-mixed
               ;;")
               ;; MDE Mon Apr 30 20:46:06 2012 -- see event::get-lp-data for how
               ;; this is handled
               (flag-head "\\harmonic ")
               ;; MDE Mon Apr 30 20:46:31 2012 -- flag-heads by default don't
               ;; display dots so we need to add-mark-before to get these to
               ;; display or turn them off again
               (flag-dots-on "\\set harmonicDots = ##t ")
               (flag-dots-off "\\set harmonicDots = ##f ")
               (airy-head (no-lp-mark 'airy-head))
               (none (no-lp-mark 'none))
               (trill-f (no-lp-mark 'trill-f))
               (trill-n (no-lp-mark 'trill-n))
               (trill-s (no-lp-mark 'trill-s))
               (beg-trill-a "\\pitchedTrill ") ; must be before note
               ;; we'll also need e.g. (trill-note g5) to give the note in ()
               (end-trill-a "\\stopTrillSpan ") ; after note
               (square (no-lp-mark 'square))
               (slash (no-lp-mark 'slash))
               (arrow-up (no-lp-mark 'arrow-up))
               (arrow-down (no-lp-mark 'arrow-down))
               (cresc-beg "\\< ")
               (cresc-end "\\! ")
               (dim-beg "\\> ")
               (dim-end "\\! ")
               (<< "<< ")
               (>> ">> ")
               ;; NB this override has to come exactly before the note/dynamic it
               ;; applies to
               (hairpin0 "\\once \\override Hairpin #'circled-tip = ##t ")
               ;; (dim0-beg "\\once \\override Hairpin #'circled-tip = ##t \\> ")
               (pause "\\fermata ")
               (short-pause
                "^\\markup { \\musicglyph #\"scripts.ushortfermata\" } ")
               ;; MDE Thu Apr  5 16:17:11 2012 -- these need the graphics files in
               ;; lilypond-graphics.zip to be in the same directory as the
               ;; generated lilypond files
               (aeolian-light "^\\aeolianLight ")
               (aeolian-dark "^\\aeolianDark ")
               ;; this one uses the graphic for close bracket
               (bracket-end "^\\bracketEnd ")
               (mphonic "^\\mphonic ")
               (mphonic-arr "^\\mphonicArr ")
               (mphonic-cons "^\\mphonicCons ")
               (mphonic-diss "^\\mphonicDiss ")
               (mphonic-cluster "^\\mphonicCluster ")
               (sing "^\\sing ")
               (sing-arr "^\\singArr ")
               (arrow-up-down "^\\arrowUpDown ")
               ;;; end lilypond-graphics.zip files
               ;; these must have been set up with the event::add-arrow method
               (start-arrow "\\startTextSpan ")
               (end-arrow "\\stopTextSpan ")
               (harm "^\\flageolet ")
               ;; 2.3.11
               ;; write sost. pedal as text (usually held for long time so brackets
               ;; not a good idea)
               (ped "\\sustainOn ")
               (ped^ "\\sustainOff\\sustainOn ")
               (ped-up "\\sustainOff ")
               (uc "\\unaCorda ")
               (tc "\\treCorde ")