xipd

commit

d52b25c12086e64f3ecc0ad2550a4fc35844f0a4

parent

cd42ca541d4fae52efb360e0f9a81037e8087b0c

Author

Tobias Bengfort <tobias.bengfort@posteo.de>

Date

2022-08-28 17:32

extend stdlib

Diffstat

1 files changed, 19 insertions, 0 deletions

diff --git a/xipd/std.xipd b/xipd/std.xipd

@@ -20,3 +20,22 @@ pow(a, b) {
   20    20 max(a, b) {
   21    21 	return op(`max`, a, b)
   22    22 }
   -1    23 
   -1    24 bng(foo) {
   -1    25 	bng = `bng`
   -1    26 	foo -> bng
   -1    27 	return bng
   -1    28 }
   -1    29 
   -1    30 delay(bng, msec) {
   -1    31 	delay = `delay`
   -1    32 	bng -> delay:0
   -1    33 	msec -> delay:1
   -1    34 	return delay
   -1    35 }
   -1    36 
   -1    37 note_to_freq(note) {
   -1    38 	freq = `expr pow(2\, ($f1 - 69) / 12) * 440`
   -1    39 	note -> freq
   -1    40 	return freq
   -1    41 }