Music.LilyPond.Light.Notation

Music category predicates

is_music_c :: Music_C -> Music -> Bool

is_note :: Music -> Bool

is_chord :: Music -> Bool

is_rest :: Music -> Bool

is_skip :: Music -> Bool

is_mm_rest :: Music -> Bool

is_grace :: Music -> Bool

is_after_grace :: Music -> Bool

is_grace_skip :: Music -> Bool

These are required to avoid issues in lilypond (see manual)

is_clef :: Music -> Bool

is_time :: Music -> Bool

is_tempo :: Music -> Bool

is_command :: Music -> Bool

is_barlinecheck :: Music -> Bool

is_tied :: Music -> Bool

is_tuplet :: Music -> Bool

Pitch

clr_acc :: Music -> Music

Remove any reminder or cautionary accidentals at note or chord.

octpc_to_note :: (Octave, PitchClass) -> Music

Rests

rest :: Duration -> Music

Construct rests.

mm_rest :: Time_Signature -> Music

Multi-measure variant of r.

skip :: Duration -> Music

Non-printing variant of rest.

empty_measure :: Integer -> Integer -> Music

Create an empty measure for the specified time signature.

null_measure :: Integer -> Integer -> Music

Like empty_measure, but with an invisible rest.

measure_rest :: Integer -> Integer -> Music

Like empty_measure but write time signature.

measure_null :: Integer -> Integer -> Music

Like measure_rest but write time signature.

Tuplets

edit_dur :: (Duration -> Duration) -> Music -> Music

Apply a Duration function to a Music node, if it has a duration.

tuplet :: Tuplet_T -> [Music] -> Music

Temporal scaling of music (tuplets).

tuplet_above :: Tuplet_T -> [Music] -> Music

Tuplet variants that set location, and then restore to neutral.

tuplet_below :: Tuplet_T -> [Music] -> Music

Tuplet variants that set location, and then restore to neutral.

scale_durations :: Tuplet_T -> [Music] -> Music

Like tuplet but does not annotate music, see also ts_set_fraction.

Time signatures

time_signature :: Time_Signature -> Music

Construct time signature.

with_time_signature :: Time_Signature -> [Music] -> Music

Allow proper auto-indenting of multiple measures with the same time signature.

ts_use_fractions :: Music

Command to request that 4/4 and 2/2 etc. are typeset as fractions.

ts_set_fraction :: Integer -> Integer -> Music

Set the printed time-signature fraction.

numeric_time_signature :: Music

ts_parentheses :: Music

ts_stencil :: Bool -> Music

ts_transparent :: Bool -> Music

ts_all_invisible :: Music

Key signatures

key :: Music -> Mode_T -> Music

Construct key signature.

Repetition

std_repeat :: Integer -> [Music] -> Music

Construct standard (two times) repeat.

Octave

note_edit_octave :: (Integer -> Integer) -> Music -> Music

Shift the octave of a note element, else identity.

note_shift_octave :: Integer -> Music -> Music

Shift the octave of a note element, else identity.

Duration

tie_r_ann :: [D_Annotation] -> [Annotation]

da_rest :: Duration_A -> Music

Rest of Duration_A.

(##@) :: Pitch -> Duration_A -> Music

Add Duration_A to Pitch to make a Note Music element.

(##) :: Pitch -> Duration -> Music

Add Duration to Pitch to make a Note Music element.

(#@) :: Music -> Duration_A -> Music

Add Duration_A to either a Note or Chord Music element.

(#) :: Music -> Duration -> Music

Add Duration to either a Note or Chord Music element.

Chords

chd_p :: [Pitch] -> Duration -> Music

Construct chord.

chd :: [Music] -> Duration -> Music

Commands

bar_number_check :: Integer -> Music

Construct bar number check command.

bar_numbering :: Bool -> Music

Switch bar numbering visibility.

change :: String -> Music

Change staff.

partial :: Duration -> Music

Indicate initial partial measure.

hairpin_circled_tip :: Bool -> Music

Set or unset the circled-tip hairpin attribute.

hairpin_to_barline :: Bool -> Music

Set or unset the to-barline hairpin attribute.

hairpin_minimum_length :: Maybe Int -> Music

Set or unset the minimum-length hairpin attribute.

Staff and Parts

set_8va_notation :: Music

name_to_id :: Staff_Name -> Staff_ID

staff :: Staff_Name -> [Music] -> Staff

Construct staff.

rhythmic_staff :: Staff_Name -> [Music] -> Staff

Construct rhythmic staff.

text_staff :: Staff_Name -> String -> [Music] -> Staff

Construct staff with text underlay.

piano_staff :: Staff_Name -> [[Music]] -> Staff

Construct piano staff. For two staff piano music the staffs have identifiers rh and lh.

grand_staff :: Staff_Name -> [[Music]] -> Staff

staff_group :: Staff_Name -> [[Music]] -> Staff

rhythmic_grand_staff :: Staff_Name -> [[Music]] -> Staff

grand_staff' :: Staff_Name -> [Staff_Name] -> [[Music]] -> Staff

Variant with names for each staff.

staff_group' :: Staff_Name -> [Staff_Name] -> [[Music]] -> Staff

two_part_staff :: Staff_Name -> ([Music], [Music]) -> Staff

instr_name :: Staff_Name -> Staff -> Staff

resize_staff :: Int -> Staff -> Staff

score :: [Staff] -> Score

polyphony :: Music -> Music -> Music

Interior polyphony. For two part music on one staff see two_part_staff.

polyphony' :: [Music] -> [Music] -> Music

Rests

join_rests :: [Music] -> [Music]

Joins directly adjacent rest elements.

Duration_A functions

type DA_F x = (Duration_A, x) -> Music

Transform ascribed Duration_A value to Music.

da_to_music :: DA_F t -> [(Duration_A, t)] -> [Music]

Given DA_F transform, transform set of ascribed Duration_A values to Music.

 import Music.Theory.Duration.Sequence.Notate
 import Music.Theory.Duration.RQ.Tied
 import Music.Theory.Pitch.Name
 import Music.LilyPond.Light.Output.LilyPond

 let {Just d = m_notate True [[(2/3,_f),(1/3,_t)],[(1,_t)],[(1,_f)]]
     ;jn (i,j) = j ##@ i
     ;n = ascribe d [c4,d4]
     ;r = "\\times 2/3 { c' 4 d' 8 ~ } d' 4 ~ d' 4"}
 in ly_music_elem (Join (da_to_music jn n)) == r

da_to_measures :: DA_F x -> Maybe [Time_Signature] -> [[(Duration_A, x)]] -> [Measure]

Variant of da_to_music that operates on sets of measures.

Fragment

mk_fragment :: (Double, Double) -> [Music] -> Fragment

Make a fragment from a list of Music elements. Width and height are in millimeters.

mk_fragment_mm :: (Double, Double) -> [Measure] -> Fragment

Measure variant of mk_fragment.

Stem

stem_transparent :: Bool -> Music

Text

text_length_on :: Music

text_outside_staff_priority :: Maybe Double -> Music

text_extra_spacing_width :: (Double, Double) -> Music

Measure operations

mm_delete_redundant_ts :: [Measure] -> [Measure]

Delete redundant (repeated) time signatures.

 let mm = [Measure [Time (3,4)] [],Measure [Time (3,4)] []]
 in mm_delete_redundant_ts mm == [Measure [Time (3,4)] [],Measure [] []]