ruby--ruby/sample/trick2013/mame/entry.rb

                  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

          #
          |                       #
          |                         #
                      #      #    #   #
                      |      |    |      #
                      |      |   #     #
                   #           #  #    #
                   |           |  |        #
                   |           |    #    #
              #                   #   #  #
              |                   |   |       #
              |                   | #        #
                   #           #      #       #
                   |           |      |  #
                   |           |  #   #
                   #      #    #  #
                   |      |    |    #
                   |      |  #        #
            #           #      #       #
            |           |      |         #
            |           |        #         #
              #              #    #      #
              |              |    |    #
              |              |        #
               #           #   #    #
               |           |   |      #
               |          #|      #
                 #      #  |     #
                 |      |  |      #
                 |         | #      #
                     #  #    #      #
                     |  |        #  |
                     |  |         # #
                 #               #  #  #
                 |               |  | #
                 |               |  #
                      #      #    #   #
                      |      |    #   |
                      |          #  # |
                   #  #           #   #
                   |  |           |      #
                   |  |          #     #
               #               #  #    #
               |               |  |        #
               |               |    #    #
              #                   #   #  #
              |                   |   |       #
              |                   | #        #
                   #           #      #       #
                   |           |      |  #
                   |           |  #   #
                 #        #    #  #
                 |        |    |    #
                 |        |       #   #
               #           #   #    #
               |           |        |    #
               |           |     #     #
                #              #  #   #
                |              |  | #
                |              #  #
                 #      #    #
                 |      |    |    #
                 |         # |   #
          #               #  #    #
          |               |  |    |
          |               |  |    |
          |               |  |    |
          |               |  |    |
          |               |  |    |
          |               |  |    |
          |               |  |    |
          |               |  |    |
          |               |  |    |
          |               |  |    |
          |               |  |    :