87 lines
11 KiB
Plaintext
87 lines
11 KiB
Plaintext
|
+
|
|||
|
|
L¹Òjø ã óŒ € R t ^ RIHtHtHtHt RtR]3R lt]3R lt ]3R lt
|
|||
|
|
^ ]3R lt ^P]^, ^ 3R lt / R R0bR
|
|||
|
|
R0bR R1bR R2bR
|
|||
|
|
R3bRR4bRR5bRR6bRR7bRR8bRR9bRR:bRR;bRR<bRR=bRR5bt
|
|||
|
|
R^^F^R^ ]R3R lt^^_^R^ ]3R lt^ R R ]^x^3R ltR>R! ltR" tR#]! ^4 U u. uF# q R$, R%^ZV ^, ^
|
|||
|
|
, , 3NK% up R&. R?OR(. R@OR). RAOR*. RBOR+]! ^4 U u. uF; q R', V ^, ' d R,M^ , R%^UV ^, ^, , 3NK= up /t^ ]R-3R. ltRCR/ ltR# u up i u up i )Du˜
|
|||
|
|
songkit — composition helpers built on midikit.
|
|||
|
|
|
|||
|
|
The patterns that make MIDI sound like a 1993 sound card rather than a
|
|||
|
|
MIDI file: OPL-style 16th arpeggios, square-lead pitch-bend vibrato,
|
|||
|
|
driving 8th-note bass, velocity humanising, and bar-based song structure.
|
|||
|
|
|
|||
|
|
All times are in bars.beats as floats: bar(t, beat=0) with 4/4 and your
|
|||
|
|
file's tpq. E.g. with tpq=480, bar(2.5) == start of beat 3 of bar 3.
|
|||
|
|
)ÚTrackÚGMÚDRUMSÚnoteià ç c óT € \ \ V ^, V, V, 4 4 # )z@Absolute tick for bar t (0-based float), beat within bar (0..4).)ÚintÚround)ÚtÚbeatÚtpqs &&&Ú+/root/midi-playlist/tunes/../lib/songkit.pyÚbarr s € ä Œu�a˜!•e˜d•l cÕ)Ó*Ó +Ð+ó c ó € V # ©N© ©r s &r
|
|||
|
|
Úqr s € Ø €Jr c ó< € . p^ p^ p^pV P 4 EF~ pVR8X d6 WA^, 8w d \ RWTV^, 3, 4 h^ pV^,
|
|||
|
|
pK@ VP R4 ' dQ RV^, RV^, RVRV^, RV^, /P Wa^, 4 pW7,
|
|||
|
|
pWG,
|
|||
|
|
pK§ VP R 4 p\ V^ , 4 p V^, p^dp
|
|||
|
|
\ V4 ^8” dF V^, ' d7 R
|
|||
|
|
V^, R V^, R VR
|
|||
|
|
V^, RV^, /V^, , p\ V4 ^8” d" V^, ' d \
|
|||
|
|
V^, 4 p
|
|||
|
|
VP W9Wz34 W7,
|
|||
|
|
pWG,
|
|||
|
|
pEK� V# )u Whitespace-separated note grid -> list of (tick, pitch, dur, vel).
|
|||
|
|
|
|||
|
|
Grammar per token: PITCH[-dur[-vel]]
|
|||
|
|
pitch: C0..C9 with #/b/suffixes (e.g. D4, A#5, Bb3)
|
|||
|
|
dur: 1=whole 2=half 4=quarter (default) 8=eighth 16=sixteenth
|
|||
|
|
vel: 1-127 (default 100)
|
|||
|
|
rests: r4 / r8 / r2 / r16 / r1
|
|||
|
|
|
|||
|
|
Bars may be separated with '|'. If any '|' is present, every bar
|
|||
|
|
segment must total exactly 4 quarter notes — a free bar-length
|
|||
|
|
linter that has saved me from more off-by-one-eighth bugs than
|
|||
|
|
I care to admit.
|
|||
|
|
|
|||
|
|
Example: 'D4 A4-8 D5-8 F5-8 E5-4 D5-2'
|
|||
|
|
Ú|z)bar %d totals %d ticks, expected %d (4/4)ÚrÚr1Úr2Úr4Úr8Úr16Ú-Ú1Ú2Ú4Ú8Ú16)ÚsplitÚ
|
|||
|
|
ValueErrorÚ
|
|||
|
|
startswithÚgetÚNÚlenr Úappend) Útextr ÚoutÚtickÚ bar_ticksÚbar_noÚtokÚdurÚpartsÚpitchÚvels && r
|
|||
|
|
Ú parse_scorer4 sˆ € ð
|
|||
|
|
€CØ €DØ€IØ
|
|||
|
|
€FØ�z‰z�|ˆØ �#Œ:Ø !�GÔ#Ü Ð!LØ$*°s¸QµwÐ#?õ"@ó Að AàˆIØ �a�KˆFÙ Ø �>‰>˜#× Ò Ø˜˜q� $¨¨a°°s¸DÀ#ÈÅ(ؘ# �(ð$ß$'¡C¨°AXÓ$6ð
|
|||
|
|
à �KˆDØ Õ ˆIÙ Ø— ‘ ˜#“ˆÜ�%˜•(“ ˆØ�Q�hˆØˆÜ ˆu‹:˜Œ>˜e AŸhœhؘ˜a� c¨A¥g¨s°C¸¸cÀQ½hؘ �ð#Ø#(¨¥8õ-ˆCä ˆu‹:˜Œ>˜e AŸhœhÜ�e˜A•h“-ˆCØ �
|
|||
|
|
‰
|
|||
|
|
�D Ð*Ô+Ø � ˆØÕ‹ ñ3 ð4 €Jr c óz € \ WR7 p\ W$4 F w rgr‰V P WV, WxW“4 K! V # )z8Lay a parse_score() grid onto a track starting at a bar.r )r r4 r )
|
|||
|
|
ÚtrackÚ start_barÚscoreÚchannelr Úbaser
|
|||
|
|
ÚpÚdÚvs
|
|||
|
|
&&&&& r
|
|||
|
|
Úmelodyr> K s6 € ä ˆyÔ "€DÜ! %Ö-‰
|
|||
|
|
ˆˆaØ
|
|||
|
|
�
|
|||
|
|
‰
|
|||
|
|
�4•8˜Q 1Ö.ñ .à €Lr c ó˜ € \ V\ V4 , 4 p\ V, F p V P WV , WeV4 K V # )z0Play a chord: chord(t, 'D', 'm', 3) -> D3 F3 A3.)r' ÚstrÚ QUALITIESr )
|
|||
|
|
r6 r, Ú root_nameÚqualityÚoctaveÚvelocityÚdurationr9 ÚrootÚivs
|
|||
|
|
&&&&&&&& r
|
|||
|
|
ÚchordrI S s@ € ä ˆYœ˜V›Õ
|
|||
|
|
$Ó %€DÜ˜× Ð ˆØ
|
|||
|
|
�
|
|||
|
|
‰
|
|||
|
|
�4 � H¸Ö@ñ !à €Lr Ú ÚmajÚmÚdimÚaugÚsus2Úsus4Ú7Úmaj7Úm7Úm7b5Ú6Úm6Ú9Úadd9ÚsusÚ0121NTc
|
|||
|
|
óÎ € ^V, p \ V\ 4 ' d- \ ;QJ d . R V 4 F NK 5M
|
|||
|
|
! R V 4 4 p\ V4 EF w p w rÞ\ V, Uu. uF% p\ V
|
|||
|
|
\ V4 , 4 V, NK' pp\
|
|||
|
|
V 4 F° pVV\ V4 , , \ V4 , pVV, pV^ 8X d7 V
|
|||
|
|
' d/ V^ , ^ ,
|
|||
|
|
^$8¼ d V^ , ^ ,
|
|||
|
|
MV^ , p\ W , VV, V 4 pT P TTT;' g W”, WX4 K² EK V # u upi )a OPL/Sound Blaster staple: 16th-note arpeggios following a chord chart.
|
|||
|
|
|
|||
|
|
chords: list of (root, quality) per bar, e.g. [('D','m'), ('Bb',''), ...]
|
|||
|
|
pattern: indices into the chord tones (bass octave bump on index 0).
|
|||
|
|
subdivision: notes per beat (4 = sixteenths).
|
|||
|
|
c 3 ó8 " € T F p\ V4 x € K R # 5ir )r )Ú.0Úcs & r
|
|||
|
|
Ú <genexpr>Úarp.<locals>.<genexpr>n s é € Ð0© 1œ˜AŸ˜«ùs ‚)
|
|||
|
|
Ú
|
|||
|
|
isinstancer@ ÚtupleÚ enumeraterA r' Úranger( r r )r6 r7 ÚchordsÚpatternÚ subdivisionrE rD rF r9 r Úraise_bass_octaveÚper_barÚirG ÚqualrH ÚtonesÚsÚidxr2 r
|
|||
|
|
s &&&&&&&&&&& r
|
|||
|
|
Úarpro d s € ð �+�o€GÜ�'œ3× Ò ß”%Ñ0©Ó0—%‘%Ñ0©Ó0Ó0ˆÜ$ V×,‰ˆ‰<ˆDÜ6?À¶oÓF±o°”�4œ#˜f›+Õ%Ó&¨×+Ð+±oˆÐFÜ�w– ˆAؘ!œc '›lÕ*Õ+¬c°%«jÕ8ˆCؘ#•JˆEØ�aŒx× -Ø).¨q°B ¸"Ô)<˜˜a� 2ž
|
|||
|
|
À%ÈÅ(�Ü�I•M 1 {¥?°CÓ8ˆAØ �J‰J�q˜% ×!?Ð!?¨SÕ-?ÀÖ Sô
|
|||
|
|
ñ -ð €Lùò Gs Á/+E"c
|
|||
|
|
óf € ^V, p \ V4 F˜ w p
|
|||
|
|
w r¼\ V \ V4 , 4 p
|
|||
|
|
\ V 4 Ff pT
|
|||
|
|
pV' d Wé^,
|