sc/lilypond [ Modules ]
lilypond/lp-get-mark [ Functions ]
[ Top ] [ lilypond ] [ Functions ]
DESCRIPTION
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 ;; this is done for us in lilypond.ly, which will be included if we ;; call write-lp-data-for-all with :use-custom-markup T (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 ") ;; MDE Sat Aug 11 15:51:16 2012 -- dynamics in parentheses (ffff-p "\\parenFFFF ") (fff-p "\\parenFFF ") (ff-p "\\parenFF ") (f-p "\\parenF ") (mf-p "\\parenMF ") (mp-p "\\parenMP ") (p-p "\\parenP ") (pp-p "\\parenPP ") (ppp-p "\\parenPPP ") (pppp-p "\\parenPPPP ") (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 ")