ref: 798c452b3e1a7cba4b9f1b844cf97064cd06caa8
parent: 05bd3ede00e54b93689d3beb76fb47d8003873a7
author: Sigrid Haflínudóttir <[email protected]>
date: Wed May 13 04:36:16 EDT 2020
remove old piper
--- a/ay/piper
+++ /dev/null
@@ -1,114 +1,0 @@
-#!/bin/rc
-rfork ne
-
-awk '
- BEGIN {- eb[1] = "Hold"
- eb[2] = "Alternate"
- eb[4] = "Attack"
- eb[8] = "Continue"
-
- es["d"] = 0 # \_________
- es["D"] = 8 # \|\|\|\|\|
- es["a"] = 4 # /|________
- es["A"] = 12 # /|/|/|/|/|
- es["r"] = 14 # /\/\/\/\/\
- es["R"] = 10 # \/\/\/\/\/
- es["h"] = 13 # /¯¯¯¯¯¯¯¯¯
- es["H"] = 11 # \|¯¯¯¯¯¯¯¯
-
- period["0"] = 2000
- period["1"] = 1000
- period["2"] = 500
- period["3"] = 333.3333
- period["4"] = 250
- period["5"] = 200
- period["6"] = 166.6666
- period["7"] = 142.8571
- period["8"] = 125
- period["9"] = 111.1111
- period["a"] = 100
- period["b"] = 50
-
- chan["0"] = "A"
- chan["1"] = "B"
- chan["2"] = "C"
-
- note["D","5"] = 587.3295
- note["C","5"] = 523.2511
- note["B","4"] = 493.8833
- note["A","4"] = 440
- note["G","4"] = 391.9954
- note["F","4"] = 349.2282
- note["E","4"] = 329.6276
- note["D","4"] = 293.6648
- note["C","4"] = 261.6256
- note["B","3"] = 246.9417
- note["A","3"] = 220
- note["G","3"] = 195.9977
- note["F","3"] = 174.6141
- note["E","3"] = 164.8138
- note["D","3"] = 146.8324
- note["C","3"] = 130.8128
- note["B","2"] = 123.4708
- note["A","2"] = 110
- note["G","2"] = 97.99886
- note["F","2"] = 87.30706
- note["E","2"] = 82.40689
- note["D","2"] = 73.41619
- note["C","2"] = 65.40639
- note["B","1"] = 61.73541
- note["A","1"] = 55
- note["G","1"] = 48.99943
- note["F","1"] = 43.65353
- note["E","1"] = 41.20344
- note["D","1"] = 36.70810
- note["C","1"] = 32.70320
- }
-
- {- split($1, a, ",")
- split(a[1], c, "")
- }
-
- # key
- # kXCONVL
- # 1234567
- # X = ay number
- # C = channel (0, 1, 2)
- # O = octave
- # N = note
- # V = velocity
- # L = length
- /^k[0-9]/ {- path = "/n/ay/" c[2] "/AY-3-8910/"
- ch = path chan[c[3]]
- freq = note[c[5],c[4]]
- if(freq != ""){- print freq >> (ch "/Tone/Frequency/ctl")
- if(c[6] != "")
- print c[6]/10 >> (ch "/Volume/ctl")
- print (c[7] != "") >> (ch "/Envelope/ctl")
- if(c[7] != "")
- print period[c[7]] >> (path "/Envelope/Period/ctl")
- print 1 >> (path "/Envelope/Hit/ctl")
- }else{- c[6] = "" # stop playing if invalid note/octave
- }
-
- print (c[6] != "") >> (ch "/Tone/Enable/ctl")
- fflush()
- next
- }
-
- # envelope
- # eXSP
- # 1234
- # X = ay number
- # S = shape (see "es_" var)
- # P = period (see "period" var)
- /^e[0-9]/ {- # FIXME lol
- next
- }
-'