98 lines
3.9 KiB
Ruby
98 lines
3.9 KiB
Ruby
eval$C=%q(at_exit{
|
|
open("/dev/dsp","wb"){|g|h=[0]*80
|
|
$><<"\s"*18+"eval$C=%q(#$C);S=%:"
|
|
(S<<m=58).lines{|l|s=[128]*n=20E2
|
|
t=0; h.map!{|v|d=?!==l[
|
|
t]?1 :(l[
|
|
t]== ?#)?
|
|
0*v= 6:03
|
|
(v<1 ?[]:
|
|
0..n -1).
|
|
each {|z|
|
|
s[z] +=2*
|
|
M.sin(($*[0] ||1)
|
|
.to_f*M.sin(y= 40*(z+m)*2**
|
|
(t/12E0)/463)+ y)*(v-z*d/n)};
|
|
t+=1;v-d};m+= n;g.flush<<(s.
|
|
pack"C*"); puts(l)}}};M=
|
|
Math);S=%:
|
|
|
|
Jesu, Joy of Man's Desiring
|
|
Johann Sebastian Bach
|
|
|
|
#
|
|
| #
|
|
| #
|
|
# # # #
|
|
| | | #
|
|
| | # #
|
|
# # # #
|
|
| | | #
|
|
| | # #
|
|
# # # #
|
|
| | | #
|
|
| | # #
|
|
# # # #
|
|
| | | #
|
|
| | # #
|
|
# # # #
|
|
| | | #
|
|
| | # #
|
|
# # # #
|
|
| | | #
|
|
| | # #
|
|
# # # #
|
|
| | | #
|
|
| | #
|
|
# # # #
|
|
| | | #
|
|
| #| #
|
|
# # | #
|
|
| | | #
|
|
| | # #
|
|
# # # #
|
|
| | # |
|
|
| | # #
|
|
# # # #
|
|
| | | #
|
|
| | #
|
|
# # # #
|
|
| | # |
|
|
| # # |
|
|
# # # #
|
|
| | | #
|
|
| | # #
|
|
# # # #
|
|
| | | #
|
|
| | # #
|
|
# # # #
|
|
| | | #
|
|
| | # #
|
|
# # # #
|
|
| | | #
|
|
| | # #
|
|
# # # #
|
|
| | | #
|
|
| | # #
|
|
# # # #
|
|
| | | #
|
|
| | # #
|
|
# # # #
|
|
| | | #
|
|
| # #
|
|
# # #
|
|
| | | #
|
|
| # | #
|
|
# # # #
|
|
| | | |
|
|
| | | |
|
|
| | | |
|
|
| | | |
|
|
| | | |
|
|
| | | |
|
|
| | | |
|
|
| | | |
|
|
| | | |
|
|
| | | |
|
|
| | | :
|