From fcbf63e62c627deae76c1b8cb8c0876c536ed811 Mon Sep 17 00:00:00 2001
From: Jari Vetoniemi <jari.vetoniemi@indooratlas.com>
Date: Mon, 16 Mar 2020 18:49:26 +0900
Subject: Fresh start

---
 jni/ruby/sample/trick2013/mame/entry.rb | 97 +++++++++++++++++++++++++++++++++
 1 file changed, 97 insertions(+)
 create mode 100644 jni/ruby/sample/trick2013/mame/entry.rb

(limited to 'jni/ruby/sample/trick2013/mame/entry.rb')

diff --git a/jni/ruby/sample/trick2013/mame/entry.rb b/jni/ruby/sample/trick2013/mame/entry.rb
new file mode 100644
index 0000000..8abfc2b
--- /dev/null
+++ b/jni/ruby/sample/trick2013/mame/entry.rb
@@ -0,0 +1,97 @@
+                  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
+
+          #
+          |                       #
+          |                         #
+                      #      #    #   #
+                      |      |    |      #
+                      |      |   #     #
+                   #           #  #    #
+                   |           |  |        #
+                   |           |    #    #
+              #                   #   #  #
+              |                   |   |       #
+              |                   | #        #
+                   #           #      #       #
+                   |           |      |  #
+                   |           |  #   #
+                   #      #    #  #
+                   |      |    |    #
+                   |      |  #        #
+            #           #      #       #
+            |           |      |         #
+            |           |        #         #
+              #              #    #      #
+              |              |    |    #
+              |              |        #
+               #           #   #    #
+               |           |   |      #
+               |          #|      #
+                 #      #  |     #
+                 |      |  |      #
+                 |         | #      #
+                     #  #    #      #
+                     |  |        #  |
+                     |  |         # #
+                 #               #  #  #
+                 |               |  | #
+                 |               |  #
+                      #      #    #   #
+                      |      |    #   |
+                      |          #  # |
+                   #  #           #   #
+                   |  |           |      #
+                   |  |          #     #
+               #               #  #    #
+               |               |  |        #
+               |               |    #    #
+              #                   #   #  #
+              |                   |   |       #
+              |                   | #        #
+                   #           #      #       #
+                   |           |      |  #
+                   |           |  #   #
+                 #        #    #  #
+                 |        |    |    #
+                 |        |       #   #
+               #           #   #    #
+               |           |        |    #
+               |           |     #     #
+                #              #  #   #
+                |              |  | #
+                |              #  #
+                 #      #    #
+                 |      |    |    #
+                 |         # |   #
+          #               #  #    #
+          |               |  |    |
+          |               |  |    |
+          |               |  |    |
+          |               |  |    |
+          |               |  |    |
+          |               |  |    |
+          |               |  |    |
+          |               |  |    |
+          |               |  |    |
+          |               |  |    |
+          |               |  |    :
-- 
cgit v1.2.3