Guest User

Untitled

a guest
Apr 19th, 2018
80
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.60 KB | None | 0 0
  1. cnv←{
  2. t←¯1+'C D EF G A B'⍳⍵
  3. 12|(⍵∊⎕A)/t+1 ¯1 0['#b'⍳1⌽⍵]
  4. }
  5.  
  6. chord←{
  7. ⍝ typical guitar tuning
  8. ⍺←'EBGDAE'
  9. strings←cnv ⍺
  10. c←cnv ⍵
  11. frets←12|strings∘.+¯1+⍳24
  12. frets∊c
  13. }
  14.  
  15. <\chord 'EG#B'
  16. 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
  17. 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
  18. 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
  19. 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
  20. 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
  21. 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
  22.  
  23. ⍪(<\chord'EG#B')+.ׯ1+⍳24
  24. 0
  25. 0
  26. 1
  27. 2
  28. 2
  29. 0
Add Comment
Please, Sign In to add comment