Above-the-Staff Lilypond Dynamics

sc-web-bar

This is really a rather trivial matter, but since it took me a little while to work out exactly how to do it, I thought I’d share it with you.

Sometimes you need to place a dynamic mark to above the staff. Here’s how to do it with sl-c and Lilypond. I’ve also included the method for placing the mark below the staff.

(let* ((mini
	(make-slippery-chicken
	 '+mini+
	 :ensemble '(((vn (violin :midi-channel 1))))
	 :set-palette '((1 ((c4 e4 g4))))
	 :set-map '((1 (1)))
	 :rthm-seq-palette '((1 ((((2 4) q e e))
				 :pitch-seq-palette ((1 2 3)))))
	 :rthm-seq-map '((1 ((vn (1))))))))
  (add-mark-before-note mini 1 1 'vn '(text "\\dynamicUp"))
  (add-mark-to-note mini 1 1 'vn 'p)
  (add-mark (get-event mini 1 2 'vn) 'mf)
  (add-mark-before-note mini 1 3 'vn '(text "\\dynamicDown"))
  (add-mark-to-note mini 1 3 'vn 'f)
  (lp-display mini))
Advertisements

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s