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

Duration

music_immediate_duration :: Music -> Maybe Duration

If Music is a Note, Chord or Rest give duration, else Nothing.

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 normal rest.

spacer_rest :: Duration -> Music

Construct spacer rest.

mm_rest :: Time_Signature -> Music

Multi-measure variant of rest.

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

Hide time signatures if False.

mm_stencil :: Bool -> Music

Hide metronome mark if False.

ts_transparent :: Bool -> Music

ts_all_invisible :: Music

Key signatures

key :: Key -> Music

Construct key signature.

Repetition

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

Construct standard (two times) repeat.

Octave

note_edit_octave :: (Octave -> Octave) -> Music -> Music

Shift the octave of a note element, else identity.

note_shift_octave :: Octave -> Music -> Music

Shift the octave of a note element, else identity.

Duration

tie_r_ann :: [D_Annotation] -> [Annotation]

clear_l_ann :: [D_Annotation] -> [Annotation] -> [Annotation]

If there is a Tie_Left, then clear the appropriate annotations. (Actually just all...)

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, Chord or Rest Music element.

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

Add Duration to either a Note or Chord or Rest Music element.

Chords

chd_p_ann :: [Pitch] -> [[Annotation]] -> Duration -> Music

Construct chord from Pitch elements.

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

Construct chord from Pitch elements.

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

Construct chord from Music elements.

Commands

bar_number_check :: Integer -> Music

Construct bar number check command.

bar_numbering :: Bool -> Music

Switch bar numbering visibility.

change :: String -> Music

Change staff (for cross staff notation).

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_line_count :: Int -> Music

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

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

staff_set :: (Staff_Set_T, Staff_T) -> Staff_Name -> [Staff_Name] -> [[Music]] -> Staff

Variant with names for each staff.

grand_staff' :: Staff_Name -> [Staff_Name] -> [[Music]] -> 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. Type is adopted from the right when joining.

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 as T
import Music.Theory.Duration.RQ.Tied as T
import Music.Theory.Pitch.Name as T
import Music.LilyPond.Light.Output.LilyPond as L

let {Right d = T.m_notate True [[(2/3,_f),(1/3,_t)],[(1,_t)],[(1,_f)]]
    ;jn (i,j) = j ##@ i
    ;n = T.ascribe d [c4,d4]
    ;r = "\\times 2/3 { c' 4 d' 8 ~ } d' 4 ~ d' 4"}
in L.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.

rq_to_measures :: Show x => Int -> DA_F x -> [Simplify_T] -> [Time_Signature] -> Maybe [[RQ]] -> [RQ] -> [x] -> [Measure]

da_to_measures of notate_mm_ascribe.

import Music.Theory.Pitch.Name as T
import Music.LilyPond.Light.Output.LilyPond as L

let {jn (i,j) = j ##@ i
    ;[Measure _ m] = rq_to_measures 4 jn [] [(3,4)] Nothing [2/3,1/3 + 2] [c4,d4]
    ;r = "\\times 2/3 { c' 4 d' 8 ~ } d' 2"}
in L.ly_music_elem (Join m) == r

Fragment

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

Make a fragment (possibly multiple staffs) from 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

Make text annotations respace music to avoid vertical displacement.

text_length_off :: Music

Make text annotations respace music to avoid vertical displacement.

text_outside_staff_priority :: Maybe Double -> Music

text_extra_spacing_width :: (Double, Double) -> Music

Measure operations

mm_delete_redundant_ts :: [Measure] -> [Measure]

Delete (remove) redundant (repeated, duplicated) time signatures.

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

mm_measures_per_system :: [Int] -> [Measure] -> [Measure]

Group measures per system.

mm_measures_per_system_eq :: Int -> [Measure] -> [Measure]

Prepend system_break at every nth measure.

Rehearsal marks

default_rehearsal_mark :: Music