blob: 6bc1e2c62957f8cc1a0dad51a6a35c31fff7c3ab (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
|
;;; bezelea-muzak.el --- Musical shiznit -*- lexical-binding: t -*-
;;; Commentary:
;;; Code:
(require 's)
(require 'dash)
(defvar muzak-music-alist '() "List of songs.")
(setq muzak-music-alist '(
("At Hell's Gate" . "EEeEEdEEcEEA#EEBc EEeEEdEEcEEA#A#A#A#/")
("Beethoven's 5th" . "AAAF////GGGE////")
("Coffin Dance" . "D/DAG/F/E/EFG/FED/DcBcBcDDDcBcBc")
("Crazy Train" . "F#F#c#F#dF#c#F#BAG#ABAG#EF#F#c#F#dF#c#F#BAG#ABAG#E")
("Do Re Mi 5" . "C//DE/C/E/C/E//D//EFFEDF//E//FG/E/G/E/G/G/F/GAAGFA////G/CDEFGA/A/DEFGABB")
("Do Your Ears Hang Low" . "AGF/F/F/AAcdcAc/FGAAAAAAFGAGG/G/AGFFFFFFAAcdcAc/FGA///G///F")
("Duvet" . "F/E/D/E/F/G//A//DDD/////C//////F/E/D/E/F/G//G//G///F///E")
("Eye Of The Tiger" . "A/B/c///c/cc/B//A/G/G/A/B/A///A//B//c///c/cc/B//AG/B/A")
("Fly Me To The Moon (Short)" . "c//BAG/E///EGc/B//AGF/EDE")
("Fly Me To The Moon" . "c//BAG/E///EGc/B//AGF/EDE//////AGFE/D/E/F/A/G//FED/C//////DDAA///////c/B/G////////CCFF//////A/G/F//E/")
("Frere Jacques (Slow)" . "C/D/E/C/C/D/E/C/E/F/G///E/F/G///GAGFE/C/GAGFE/C/G/C///C/G/C///")
("Frere Jacques" . "CDECCDECEFG/EFG/")
("Harry Potter" . "AcBA/ed//B//AcBG/AE///")
("King of the Hill" . "C/CCCCCE/CCCCCF/FFFA/G///CCCCECCCF/E/D/DEDCCCCCECCCFFFAG//c/A/G/F/EEEFEDCcc")
("Leaving on a Jet Plane" . "G///E///A/GF/G///G/E/G/F/GF/EC")
("Major Scale" . "C/D/E/F/G/A/B/c/d/e/f/g/a/b/")
("Mario (Fast)" . "AA/A/FA/c///C/")
("Mario" . "A/A///A//F/A///c/////C/")
("Megalovania" . "DDd/A//G#/G/F/DFG CCd/A//G#/G/F/DFG BBd/A//G#/G/F/DFG A#A#d/A//G#/G/F/DFG/")
("Megalovania2" . "EEe/B//A#/A/G/EGA DDe/B//A#/A/G/EGA C#C#e/B//A#/A/G/EGA CCe/B//A#/A/G/EGA ")
("Never Gonna Give You Up" . "CDFDA/A/G///CDFDG/G/G/F/ED///CDFD/F/G/E/DC/CC/G//F")
("Pizza Tower 2" . "//A/E/G///A/E/G///ABABAGEDEE")
("Pizza Tower" . "A/E/G///A/E/G///ABABAGEDE")
("Santa Claus Is Coming To Town" . "EFG/G///ABc/c///EFG/G/G/AGF/F///E/G/C/E/D/F///B/c")
("Saria's Song" . "FAB/FAB/FABed/BcBGE//DEGE/")
("Silent Night" . "G//AG/E/////G//AG/E/////d///d/B/////c///c/G")
("Smells Like Teen Spirit" . "E/EE//AAAAAG/GG//c/cccc")
("Song of Healing" . "B//A//F//B//A//F//B//A//EDE/")
("Song of Time" . "A/D///F/A/D///F/AcB/G/FGA/D/CED")
("Star Spangled Banner" . "EDC/E/G/c//edc/E/F/G")
("State Anthem of the Russian Federation" . "//G/c///G//AB///E/E/A///G//FG///C/C/D///D/E/F///F/G/A///B/c/dd")
("Super Idol" . "ddd#dcA#G/cA#G/A#/c/c/dcA#cd/GGG/A#/G/ddd#dcA#dc/dG/A#A#A/AAd/d/A#/")
("Take Me Out To The Ball Game" . "C/cAGEG//D//C/cAGEG")
("Take Me Out" . "c/A///G/GA/////c/A///G/GA/////c/A/////G//G/A")
("Take On Me" . "BBGE/E/A/A/ABBcdccGE/E/A/A/AGGAG")
("Wish You Were Here" . "C/DEG/A///c/////A/c/A/G///////C/DEG/A///c//////A/c/A/G//////C/DEG/A//////A/G/E/D//////C/DEG/A//////A/G/E/D")
("Zelda Secret" . "f#fdG#Gd#gb")
))
(defun muzak--note-to-half-step (note)
"Determine the step of NOTE in the C chromatic scale."
(when-let* ((step (-elem-index (upcase note) '("C" "C#" "D" "D#" "E" "F" "F#" "G" "G#" "A" "A#" "B"))))
(if (s-uppercase? note)
(- step 9)
(+ step 3)))) ; C is the 3rd semitone above A
(defun muzak--note-to-freq (note)
"Calculate the frequency of NOTE."
(if-let ((step (muzak--note-to-half-step note)))
(round (* 440 (expt 2 (/ step 12.0))))
0))
(defun muzak--parse-notes (note-string)
"Parse notes from NOTE-STRING."
(append (mapcar #'car (s-match-strings-all "/\\|[A-Za-z]#?" note-string))
'("/")))
(defun muzak--get-notes (song-name)
"Look up notes of SONG-NAME from `muzak-music-alist'."
(muzak--parse-notes
(alist-get song-name muzak-music-alist nil nil #'cl-equalp)))
(defun muzak-add-song (name notes &optional author)
"Add a song to `muzak-music-alist'.
NAME specifies the name of the song.
NOTES is a string of notes and rests.
AUTHOR is the name of whoever the transcription can be attributed to."
(when author (message "%s added %s to the muzak list." author name))
(add-to-list 'muzak-music-alist '(name . notes)))
(defun muzak-stop ()
"Fuck it, we ball."
(interactive)
(call-process-shell-command "killall ffplay"))
(defun muzak-play-notes (notes &optional duration)
"Play notes.
NOTES should be a string or sequence of notes and rests. Each note is notated as
letters A-G in the chromatic scale, optionally followed by a # to denote a
sharp. Forward slashes are interpreted as rests. Uppercase letters are used for
the lower octave and lowercase letters are the higher octave.
DURATION is the length of each note in seconds."
(if (stringp notes)
(muzak-play-notes (muzak--parse-notes notes) duration)
(call-process-shell-command
(format "
for FREQ in %s; do
ffmpeg -strict experimental -loglevel quiet -f lavfi -i \"sine=frequency=${FREQ}:duration=%f\" -f oga -filter tremolo -filter aphaser=in_gain=0.4:out_gain=0.74:delay=0.1:decay=0.2:speed=0.2 -filter volume=1.5 - 2>/dev/null
done | ffplay -loglevel quiet -autoexit -nodisp - &"
(mapconcat (lambda (note)(format "%d" (muzak--note-to-freq note))) notes " ")
(or duration 0.2)))))
(defun muzak-play-song (song-name)
"Play SONG-NAME from `muzak-music-alist'."
(interactive "sSong Name: ")
(message "Playing %s" song-name)
(when-let (song-data (muzak--get-notes song-name))
(muzak-play-notes song-data)))
;(muzak-play-notes (-flatten (cl-map 'list (lambda (x) (append (muzak--get-notes x) (-repeat 3 "/"))) '("Zelda Secret" "Song of Healing" "Saria's Song" "Song of Time"))) 0.15)
(provide 'bezelea-muzak)
;;; bezelea-muzak.el ends here
|
