※現在、「wonderfl build flash online」求人コンテンツ制作に関してのアンケートを実施中です！みなさまのお力添えを頂いて、続々とアンケート結果が集まっていますが、まだまだ募集しております。ご協力のほど、どうぞよろしくお願いいたします！

wonderfl運営事務局
→アンケートページ（※ログインしてからお答えいただけるようになっています。）

 notice: Flash editor updated! Join the development! Thanks to MiniBuilder


forked from : ABA's forked from: Ground [diff(194)]

embed

noswf download fullscreen
flash swf thumbnail play
reload download fullscreen

FORKED
>sort

音楽を付けざるを得ない from:from:Ground forked from: 音楽を付けざるを得ない from:from:Ground [diff(1)]

  1. // forked from keim_at_Si's 音楽を付けざるを得ない from:from:Ground
  2. // forked from ABA's forked from: Ground
  3. // forked from ABA's Ground
  4. // Ground.as
  5. //  Display a 3d ground surface and pillars.
  6. package
  7. {
  8.   import flash.display.Sprite;
  9.   import flash.display.BitmapData;
  10.   import flash.display.Bitmap;
  11.   import flash.geom.Rectangle;
  12.   import flash.events.Event;
  14.   import flash.media.Sound;
  15.   import flash.events.SampleDataEvent;
  17.   [SWF(width="465", height="465", backgroundColor="0x000000", frameRate="30")]
  18.   public class Ground extends Sprite
  19.   {
  20.     private const SCREEN_WIDTH:int = 465;
  21.     private const SCREEN_HEIGHT:int = 465;
  22.     private const COUNT:int = 512;
  23.     private const NEAR_PLANE_DIST:Number = 0.6;
  24.     private const PROJECTION_RATIO:Number = 250;
  25.     private const LOD_RATIO:Number = 1.05;
  26.     private const LOD_START_COUNT:Number = 16;
  27.     private const PILLARS_COUNT:int = 32;
  28.     private var buffer:BitmapData;
  29.     private var rect:Rectangle;
  30.     private var degs:Array;
  31.     private var index:int;
  32.     private var offset:Number;
  33.     private var gys:Array;
  34.     private var gzs:Array;
  35.     private var gcs:Array;
  36.     private var gas:Array;
  37.     private var gIndices:Array;
  38.     private var gCount:int;
  39.     private var sightY:Number;
  40.     private var pillars:Array;
  41.     private var pillarRect:Rectangle;
  43.     private var _sound:Sound;
  44.     private var _sequencer:Sequencer;
  45.     private var _module:TinySiOPM;
  47.     public function Ground()
  48.     {
  49.       buffer = new BitmapData(SCREEN_WIDTH, SCREEN_HEIGHT, false, 0);
  50.       var screen:Bitmap = new Bitmap(buffer);
  51.       addChild(screen);
  52.       rect = new Rectangle;
  53.       pillarRect = new Rectangle;
  54.       gys = new Array;
  55.       gzs = new Array;
  56.       gcs = new Array;
  57.       gas = new Array;
  58.       gIndices = new Array;
  59.       var di:Number = 0;
  60.       var did:Number = 1.0;
  61.       gCount = 0;
  62.       while (di < COUNT)
  63.       {
  64.         gys.push(0.0);
  65.         gzs.push(0.0);
  66.         gcs.push(int(0));
  67.         gas.push(int(0));
  68.         gIndices.push(int(0));
  69.         if (di > LOD_START_COUNT)
  70.           did *= LOD_RATIO;
  71.         di += did;
  72.         gCount++;
  73.       }
  74.       var i:int;
  75.       degs = new Array;
  76.       for (i = 0; i < COUNT; i++)
  77.       {
  78.         var d:Number;
  79.         if (i < COUNT / 4)
  80.           d = -0.001;
  81.         else if (i < COUNT / 2)
  82.           d = 0.002;
  83.         else if (i < COUNT / 4 * 3)
  84.           d = -0.003;
  85.         else
  86.           d = 0.004;
  87.         degs.push(d);
  88.       }
  89.       pillars = new Array;
  90.       for (i = 0; i < PILLARS_COUNT; i++)
  91.       {
  92.         var p:Pillar = new Pillar;
  93.         p.x = (Math.random() * 0.9 + 0.1) * 200;
  94.         if (Math.random() < 0.5)
  95.           p.x *= -1;
  96.         p.z = Math.random() * COUNT;
  97.         p.width = 2;
  98.         p.height = 10 + Math.random() * 15;
  99.         pillars.push(p);
  100.       }
  101.       index = 0;
  102.       offset = 0;
  103.       sightY = 0;
  104.       addEventListener(Event.ENTER_FRAME, onEnterFrame);
  105.       
  106.       var A:String,B:String,C:String,D:String,E:String,F:String,G:String,H:String;
  107.       var M1:String="[f6ee16>g4a4<f6ee16>a+<crrf6ee16d4e4f16g+6g6f4]";
  108.       var M2:String="[e20>l4eg<d|c+12>a+a10gf2ef2d6el3fef2gfg2a12g+4<f8d8]";
  109.       var M3:String="c+16l2rec+>a+agfed12e4l3fef2gfg2a12g2<g10l1gab<cdefgl2o7";
  110.       A ="@11s8o6l2[[c12cc18|c10crc18]|c10<crc18]dddrrdrcr16> [s6"+M1+M2+M3+"]";
  111.       B ="@7l2[4e12ef18|f10fre18]fffrrfrer16 [l2s6v6[[c6>brr<d6crr>|b<crrc6>a+rr<d6crr>a+<crr]b4<c4c10dedd6c6d4]";
  112.       B+="s2l4[e28dc+16>a+8ag<d16c8d8|c16d8f8]c14g18]";
  113.       C ="@7l2[4c12cc18|c10crc18]dddrrdrcr16 >[l2s6v6[[g6grrg6grrggrr]8a6arra6al4raaf10l6ag+g+f4l2]";
  114.       C+="s2[l32gef|l16fg+]f14g18]";
  115.       D ="@7l2[4g12ga18|g+10g+rg18]g+g+g+rrg+rgr16 [v6o6k2"+M1+M2+M3+"]";
  116.       E ="@1s14l2o3[56c<c>]<cccrrcrc>r16 [[[8c<c>]>[8a+<a+>][7a<a>]g<g>[8f<f>]|<]";
  117.       E+="[[8e<e>][8a<a>][8d<d>]|[8f<f>]][4f<f>]g<g>a<a>a+<a+>b<b]";
  118.       F ="v10@3s32o0k4r116cr[4c1][12r4c4]l2cccl1ccc2l2crcrr[12c1] [[32r4c4] [30r4c4]c4c4c2c2l1cccc]";
  119.       G ="v4@3s64o0l1[224d]r32 [1024d]";
  120.       H ="v16w32s48o4[56c]l2cccl1<gec2>l2crcrrl1<[4g][4e][4c]> l8[128c]";
  121.       _sound = new Sound();
  122.       _sound.addEventListener("sampleData", _onSoundStream);
  123.       _module = new TinySiOPM(8192, _onSoundFrame);
  124.       _sequencer = new Sequencer(4, [A,B,C,D,E,F,G,H]);
  125.       _sound.play();
  126.     }
  127.     
  128.     private function _onSoundFrame():void
  129.     {
  130.       _sequencer.onSequence();
  131.     }
  132.     
  133.     private function _onSoundStream(e:SampleDataEvent):void
  134.     {
  135.       var out:Vector.<Number> = _module.render();
  136.       for (var i:int=0; i<8192; i++) {
  137.         e.data.writeFloat(out[i]);
  138.         e.data.writeFloat(out[i]);
  139.       }
  140.     }
  142.     private function onEnterFrame(evt:Event):void
  143.     {
  144.       buffer.fillRect(buffer.rect, 0);
  145.       goForward(2.1);
  146.       var idx:int = index;
  147.       var d:Number = degs[idx];
  148.       var dv:Number = -offset * d;
  149.       var y:Number = 5 - offset * d;
  150.       var z:Number = 1.0 - offset;
  151.       var di:Number = 0;
  152.       var did:Number = 1.0;
  153.       var i:int;
  154.       var gi:int = 0;
  155.       var r:Number;
  156.       for (i = 0; i < COUNT; i++)
  157.       {
  158.         var py:Number = y;
  159.         var pz:Number = z;
  160.         dv += degs[idx] - sightY * 0.00002;
  161.         y += dv;
  162.         z += 1.0;
  163.         if (i > di)
  164.         {
  165.           r = Number(i) - di;
  166.           gys[gi] = py * r + y * (1 - r);
  167.           gzs[gi] = pz * r + z * (1 - r);
  168.           var a:int = 255 - int(i * 255 / COUNT);
  169.           gas[gi] = a;
  170.           if (idx % 16 < 8)
  171.             gcs[gi] = createColor(0x66, 0x88, 0x66, a);
  172.           else
  173.             gcs[gi] = createColor(0x77, 0x77, 0x77, a);
  174.           gIndices[gi] = idx;
  175.           gi++;
  176.           if (di > LOD_START_COUNT)
  177.             did *= LOD_RATIO;
  178.           di += did;
  179.         }
  180.         idx++;
  181.         if (idx >= COUNT)
  182.           idx = 0;
  183.       }
  184.       rect.x = 0;
  185.       rect.width = SCREEN_WIDTH;
  186.       var sx:Number;
  187.       var sy:Number;
  188.       var psy:Number = 99999;
  189.       for (i = gCount - 1; i >= 0; i--)
  190.       {
  191.         y = gys[i];
  192.         z = gzs[i];
  193.         sy = y * NEAR_PLANE_DIST / z * PROJECTION_RATIO + SCREEN_HEIGHT / 2;
  194.         if (sy > psy)
  195.         {
  196.           rect.y = psy;
  197.           rect.height = sy - psy;
  198.           buffer.fillRect(rect, gcs[i]);
  199.         }
  200.         if (i < gCount - 1)
  201.         {
  202.           for (var j:int = 0; j < PILLARS_COUNT; j++)
  203.           {
  204.             var p:Pillar = pillars[j];
  205.             if (gIndices[i] > gIndices[i + 1])
  206.             {
  207.               drawPillar(p, gIndices[i], gIndices[i + 1] + COUNT, i);
  208.               drawPillar(p, gIndices[i] - COUNT, gIndices[i + 1], i);
  209.             }
  210.             else
  211.             {
  212.               drawPillar(p, gIndices[i], gIndices[i + 1], i);
  213.             }
  214.           }
  215.         }
  216.         psy = sy;
  217.       }
  218.     }
  220.     private function drawPillar(p:Pillar, si:int, ei:int, i:int):void
  221.     {
  222.       if (p.z >= si && p.z < ei)
  223.       {
  224.         var r:Number = Number(ei - p.z) / (ei - si);
  225.         var y:Number = gys[i] * r + gys[i + 1] * (1 - r);
  226.         var z:Number = gzs[i] * r + gzs[i + 1] * (1 - r);
  227.         var sx:Number = p.x * NEAR_PLANE_DIST / z * PROJECTION_RATIO + SCREEN_WIDTH / 2;
  228.         var sy:Number = y * NEAR_PLANE_DIST / z * PROJECTION_RATIO + SCREEN_HEIGHT / 2;
  229.         var sh:Number = NEAR_PLANE_DIST / z * PROJECTION_RATIO;
  230.         for (var j:int = 0; j < 5; j++)
  231.         {
  232.           pillarRect.x = sx - sh * p.width * 2 / 5 * j;
  233.           pillarRect.y = sy - sh * p.height;
  234.           pillarRect.width = sh * p.width * 2 / 5;
  235.           pillarRect.height = sh * p.height * 2;
  236.           buffer.fillRect(pillarRect, createColor(0x55 + 0x11 * j, 0x55 + 0x11 * j, 0xbb, gas[i]));
  237.         }
  238.       }
  239.     }
  241.     private function createColor(r:int, g:int, b:int, a:int):int
  242.     {
  243.       return int(r * a / 256) * 0x10000 + int(g * a / 256) * 0x100 + int(b * a / 256);
  244.     }
  246.     private function goForward(v:Number):void
  247.     {
  248.       offset += v;
  249.       while (offset >= 1.0)
  250.       {
  251.         offset -= 1.0;
  252.         index++;
  253.         if (index >= COUNT)
  254.           index -= COUNT;
  255.       }
  256.     }
  257.   }
  258. }
  260. class Pillar
  261. {
  262.   public var x:Number;
  263.   public var z:Number;
  264.   public var width:Number;
  265.   public var height:Number;
  266. }
  273. class Sequencer {
  274.   private var tracks:Array, count:int=Track.speed+1;
  275.   function Sequencer(speed:int, mmls:Array) { Track.speed=speed; mml=mmls; }
  276.   public function onSequence() : void {
  277.     if (++count == Track.speed) {
  278.       for each (var tr:Track in tracks) tr.execute();
  279.       count = 0;
  280.     }
  281.   }
  282.   public function set mml(list:Array) : void {
  283.     tracks = [];
  284.     for each (var seq:String in list) tracks.push(new Track(seq));
  285.     count = 0;
  286.   }
  287. }
  288. class Track {
  289.   static public var codeA:int="a".charCodeAt(), nt:Array=[9,11,0,2,4,5,7], speed:int=3;
  290.   public var oct:int, len:int, tl:int, dt:int, cnt:int, seq:String, sgn:int, stac:Array, note:Note;
  291.   private var _rex:RegExp=/([a-gklorsvw<>[|\]$@])([#+])?(\d+)?/g;
  292.   function Track(seq:String) {
  293.     note = new Note(false);
  294.     reset(seq);
  295.   }
  296.   public function reset(seq_:String) : void {
  297.     seq=seq_; oct=5; len=4; tl=256; dt=0; cnt=0; sgn=0; _rex.lastIndex=0; stac=[];
  298.   }
  299.   public function execute() : void {
  300.     if (--cnt <= 0) {
  301.       while (true) {
  302.         var res:* = _rex.exec(seq);
  303.         if (!res) {
  304.           if (sgn) { _rex.lastIndex = sgn; continue; }
  305.           else     { cnt = int.MAX_VALUE; break; }
  306.         }
  307.         var cmd:int = res[1].charCodeAt();
  308.         if (cmd>=codeA && cmd<=codeA+6) {
  309.           cnt = (res[3])?int(res[3]):len;
  310.           if (note.isPlaying()) note.stop();
  311.           note.len = cnt*speed;
  312.           note.tl = tl;
  313.           note.play(((nt[cmd-codeA]+oct*12+((res[2])?1:0))<<4)+dt);
  314.           break;
  315.         } else if (res[1] == 'r') {
  316.           cnt = (res[3])?int(res[3]):len;
  317.           if (note.isPlaying()) note.stop();
  318.           break;
  319.         } else {
  320.           switch(res[1]){
  321.           case 'k': dt  = int(res[3]); break;
  322.           case 'l': len = int(res[3]); break;
  323.           case 'o': oct = int(res[3]); break;
  324.           case 'v': tl  = TinySiOPM.log(int(res[3])*0.0625); break;
  325.           case '<': oct++; break;
  326.           case '>': oct--; break;
  327.           case '@': note.ws = int(res[3]);    break;
  328.           case 's': note.dr = int(res[3])<<2; break;
  329.           case 'w': note.sw = -int(res[3]);   break;
  330.           case '$': sgn = _rex.lastIndex; break;
  331.           case '[': stac.unshift({p:_rex.lastIndex,c:((res[3])?int(res[3]):2),j:0}); break;
  332.           case ']': stac[0].j = _rex.lastIndex; if (--stac[0].c == 0) stac.shift(); else _rex.lastIndex = stac[0].p; break;
  333.           case '|':  if (stac[0].c == 1) { _rex.lastIndex = stac[0].j; stac.shift(); } break;
  334.           }
  335.         }
  336.       }
  337.     }
  338.   }
  339. }
  342. class TinySiOPM {
  343.   private var _output:Vector.<Number>, _bufferSize:int, _frameCallBack:Function;
  344.   private var _pitchTable:Vector.<int> = new Vector.<int>(2048, true);
  345.   private var _logTable:Vector.<Number> = new Vector.<Number>(6144, true);
  346.   
  347.   // Pass the buffer size and the function calls in each frame.
  348.   function TinySiOPM(bufferSize:int=2048, frameCallBack:Function=null) {
  349.     var i:int, j:int, p:Number, v:Number, t:Vector.<int>, ft:Array=[0,1,2,3,4,5,6,7,7,6,5,4,3,2,1,0];
  350.     for (i=0, p=0; i<192; i++, p+=0.00520833333)                            // create pitchTable[128*16]
  351.       for(v=Math.pow(2, p)*12441.464342886, j=i; j<2048; v*=2, j+=192) _pitchTable[j] = int(v);
  352.     for (i=0; i<32; i++) _pitchTable[i] = (i+1)<<6;                         // [0:31] for white noize
  353.     for (i=0, p=0.0078125; i<256; i+=2, p+=0.0078125)                       // create logTable[12*256*2]
  354.       for(v=Math.pow(2, 13-p)*0.0001220703125, j=i; j<3328; v*=0.5, j+=256) _logTable[j+1] = -(_logTable[j] = v);
  355.     for (i=3328; i<6144; i++) _logTable[i] = 0;                             // [3328:6144] is 0-fill area
  356.     for (t=Note.table(10), i=0, p=0; i<1024; i++, p+=0.00613592315) t[i] = log(Math.sin(p));  // sin=0
  357.     for (t=Note.table(10), i=0, p=0.75; i<1024; i++, p-=0.00146484375) t[i] = log(p);         // saw=1
  358.     for (t=Note.table(5),  i=0; i<16; i++) t[i+16] = (t[i] = log(ft[i]*0.0625)) + 1;          // famtri=2
  359.     for (t=Note.table(15), i=0; i<32768; i++) t[i] = log(Math.random()-0.5);                  // wnoize=3
  360.     for (i=0; i<8; i++) for (t=Note.table(4), j=0; j<16; j++) t[j] = (j<=i) ? 192 : 193;      // pulse=4-11
  361.     _output = new Vector.<Number>(bufferSize, true);                        // allocate monoral buffer
  362.     _bufferSize = bufferSize; _frameCallBack = frameCallBack;               // set parameters
  363.   }
  364.   
  365.   // calculate index of logTable
  366.   static public function log(n:Number) : int {
  367.     return (n<0) ? ((n<-0.00390625) ? (((int(Math.log(-n) * -184.66496523 + 0.5) + 1) << 1) + 1) : 2047)
  368.                  : ((n> 0.00390625) ? (( int(Math.log( n) * -184.66496523 + 0.5) + 1) << 1)      : 2046);
  369.   }
  370.   
  371.   // Returns monoral output as Vector.<Number>(bufferSize).
  372.   public function render() : Vector.<Number> {
  373.     var note:Note, rep:int, i:int, imax:int, ph:int, dph:int, lout:int, v:int;
  374.     for (i=0; i<_bufferSize; i++) _output[i] = 0;
  375.     for (imax=1024; imax<=_bufferSize; imax+=1024) {
  376.       if (_frameCallBack!=null) _frameCallBack();
  377.       var terminal:Note = Note._tm;
  378.       for (note=terminal.n; note!=terminal; note=note.step()) {
  379.         dph = _pitchTable[note.pt];
  380.         for (i = imax-1024; i < imax; i++) {
  381.           ph = note.ph>>note.sh;
  382.           lout = note.wv[ph] + note.tl;
  383.           _output[i] += _logTable[lout];
  384.           note.ph = (note.ph+dph)&0x3ffffff;
  385.         }
  386.       }
  387.     }
  388.     return _output;
  389.   }
  390.   
  391.   // note on
  392.   public function noteOn(pitch:int, length:int, vol:Number=0.5, wave:int=0, decay:int=6, sweep:int=0) : Note {
  393.     var note:Note = Note.alloc();
  394.     note.len = length;
  395.     note.tl = log(vol);
  396.     note.ws = wave;
  397.     note.dr = decay<<2;
  398.     note.sw = sweep; 
  399.     return note.play(pitch);
  400.   }
  401. }
  404. class Note {
  405.   static public var _w:Array=[], _s:Array=[], _fl:Note=new Note(), _tm:Note=new Note();
  406.   static public function alloc():Note {if(_fl.p==_fl)return new Note();var r:Note=_fl.p;_fl.p=r.p;r.p.n=_fl;return r.reset();}
  407.   static public function table(b:int):Vector.<int>{_w.push(new Vector.<int>(1<<b,true));_s.push(26-b);return _w[_w.length-1];}
  408.   public function into(x:Note):Note{ p=x.p;n=x;p.n=this;n.p=this;return this; }
  409.   public function step():Note { tl+=dr; pt+=sw; pt&=2047; return (--len==0||tl>3328) ? (stop().n) : n; }
  410.   public var p:Note, n:Note, pt:int, tl:int, sw:int, dr:int, wv:Vector.<int>, sh:int, len:int, ph:int, fl:Note;
  411.   function Note(useFreeList:Boolean=true) { p=n=this; fl=(useFreeList)?_fl:null; reset(); }
  412.   public function set ws(t:int) : void { wv=_w[t]; sh=_s[t]; }
  413.   public function play(pitch:int) : Note { into(_tm); pt=pitch; return this; }
  414.   public function stop() : Note { var r:Note=p; p.n=n; n.p=p; if(fl)into(fl); pt=-1; return r; }
  415.   public function reset() : Note { ph=0; pt=-1; len=0; tl=256; sw=0; dr=24; ws=0; return this; }
  416.   public function isPlaying() : Boolean { return (pt>=0); }
  417. }
noswf

音楽を付けざるを得ない from:from:Ground forked from: 音楽を付けざるを得ない from:from:Ground [diff(234)]

  1. // forked from keim_at_Si's 音楽を付けざるを得ない from:from:Ground
  2. // Ground.as
  3. //  Display a 3d ground surface and pillars.
  4. //  Control: Arrow keys or [WASD] keys.
  5. package
  6. {
  7.   import flash.display.Sprite;
  8.   import flash.display.BitmapData;
  9.   import flash.display.Bitmap;
  10.   import flash.geom.Rectangle;
  11.   import flash.events.Event;
  12.   import flash.events.KeyboardEvent;
  13.   import flash.events.SampleDataEvent;
  14.   import flash.media.Sound;
  16.   [SWF(width="465", height="465", backgroundColor="0x000000", frameRate="30")]
  17.   public class Ground extends Sprite
  18.   {
  19.     private const SCREEN_WIDTH:int = 465;
  20.     private const SCREEN_HEIGHT:int = 465;
  21.     private const COUNT:int = 512;
  22.     private const NEAR_PLANE_DIST:Number = 0.6;
  23.     private const PROJECTION_RATIO:Number = 250;
  24.     private const LOD_RATIO:Number = 1.05;
  25.     private const LOD_START_COUNT:Number = 16;
  26.     private const PILLARS_COUNT:int = 32;
  27.     private const WIRE_WIDTH:int = 2;
  28.     private const HAR_SPEED:Number = 11;
  29.     private const BACK_R:int = 210, BACK_G:int = 190, BACK_B:int = 240;
  30.     private var buffer:BitmapData;
  31.     private var left:Boolean, up:Boolean, right:Boolean, down:Boolean;
  32.     private var rect:Rectangle;
  33.     private var degs:Array;
  34.     private var index:int;
  35.     private var offset:Number;
  36.     private var gys:Array, gzs:Array, gcs:Array, gas:Array, gIndices:Array;
  37.     private var gCount:int;
  38.     private var sightX:Number, sightY:Number;
  39.     private var pillars:Array;
  40.     private var pillarRect:Rectangle;
  41.     private var harX:Number, harY:Number;
  42.     private var wireRect:Rectangle;
  43.     private var _sound:Sound;
  44.     private var _sequencer:Sequencer;
  45.     private var _module:TinySiOPM;
  47.     public function Ground()
  48.     {
  49.       buffer = new BitmapData(SCREEN_WIDTH, SCREEN_HEIGHT, false, 0);
  50.       var screen:Bitmap = new Bitmap(buffer);
  51.       addChild(screen);
  52.       rect = new Rectangle;
  53.       pillarRect = new Rectangle;
  54.       gys = new Array;
  55.       gzs = new Array;
  56.       gcs = new Array;
  57.       gas = new Array;
  58.       gIndices = new Array;
  59.       var di:Number = 0;
  60.       var did:Number = 1.0;
  61.       gCount = 0;
  62.       while (di < COUNT)
  63.       {
  64.         gys.push(0.0);
  65.         gzs.push(0.0);
  66.         gcs.push(int(0));
  67.         gas.push(int(0));
  68.         gIndices.push(int(0));
  69.         if (di > LOD_START_COUNT)
  70.           did *= LOD_RATIO;
  71.         di += did;
  72.         gCount++;
  73.       }
  74.       var i:int;
  75.       degs = new Array;
  76.       for (i = 0; i < COUNT; i++)
  77.       {
  78.         var d:Number;
  79.         if (i < COUNT / 4)
  80.           d = -0.001;
  81.         else if (i < COUNT / 2)
  82.           d = 0.002;
  83.         else if (i < COUNT / 4 * 3)
  84.           d = -0.003;
  85.         else
  86.           d = 0.004;
  87.         degs.push(d);
  88.       }
  89.       pillars = new Array;
  90.       for (i = 0; i < PILLARS_COUNT; i++)
  91.       {
  92.         var p:Pillar = new Pillar;
  93.         p.x = (Math.random() * 2.0 - 1.0) * 200;
  94.         p.z = Math.random() * COUNT;
  95.         p.width = 2;
  96.         p.height = 10 + Math.random() * 15;
  97.         pillars.push(p);
  98.       }
  99.       index = 0;
  100.       offset = 0;
  101.       sightX = sightY = 0;
  102.       harX = harY = 0;
  103.       wireRect = new Rectangle;
  104.       initializeSound();
  105.       _sound.play();
  106.       stage.addEventListener(KeyboardEvent.KEY_DOWN, onKeyDown);
  107.       stage.addEventListener(KeyboardEvent.KEY_UP, onKeyUp);
  108.       addEventListener(Event.ENTER_FRAME, onEnterFrame);
  109.     }
  111.     private function onEnterFrame(evt:Event):void
  112.     {
  113.       buffer.fillRect(buffer.rect, BACK_R * 0x10000 + BACK_G * 0x100 + BACK_B);
  114.       goForward(3.3);
  115.       drawGroundAndPillars();
  116.       updateHar();
  117.     }
  119.     private function drawGroundAndPillars():void
  120.     {
  121.       var idx:int = index;
  122.       var d:Number = degs[idx];
  123.       var dv:Number = -offset * d;
  124.       var y:Number = 5 - offset * d;
  125.       var z:Number = 1.0 - offset;
  126.       var di:Number = 0;
  127.       var did:Number = 1.0;
  128.       var i:int;
  129.       var gi:int = 0;
  130.       var r:Number;
  131.       for (i = 0; i < COUNT; i++)
  132.       {
  133.         var py:Number = y;
  134.         var pz:Number = z;
  135.         dv += degs[idx] + sightY * 0.00002;
  136.         y += dv;
  137.         z += 1.0;
  138.         if (i > di)
  139.         {
  140.           r = Number(i) - di;
  141.           gys[gi] = py * r + y * (1 - r);
  142.           gzs[gi] = pz * r + z * (1 - r);
  143.           var a:int = 255 - int(i * 255 / COUNT);
  144.           gas[gi] = a;
  145.           if (idx % 16 < 8)
  146.             gcs[gi] = createColor(0x77, 0xbb, 0x77, a);
  147.           else
  148.             gcs[gi] = createColor(0x99, 0x99, 0x99, a);
  149.           gIndices[gi] = idx;
  150.           gi++;
  151.           if (di > LOD_START_COUNT)
  152.             did *= LOD_RATIO;
  153.           di += did;
  154.         }
  155.         idx++;
  156.         if (idx >= COUNT)
  157.           idx = 0;
  158.       }
  159.       rect.x = 0;
  160.       rect.width = SCREEN_WIDTH;
  161.       var sx:Number;
  162.       var sy:Number;
  163.       var psy:Number = 99999;
  164.       for (i = gCount - 1; i >= 0; i--)
  165.       {
  166.         y = gys[i];
  167.         z = gzs[i];
  168.         sy = y * NEAR_PLANE_DIST / z * PROJECTION_RATIO + SCREEN_HEIGHT / 2;
  169.         if (sy > psy)
  170.         {
  171.           rect.y = psy;
  172.           rect.height = sy - psy;
  173.           buffer.fillRect(rect, gcs[i]);
  174.         }
  175.         if (i < gCount - 1)
  176.         {
  177.           for (var j:int = 0; j < PILLARS_COUNT; j++)
  178.           {
  179.             var p:Pillar = pillars[j];
  180.             if (gIndices[i] > gIndices[i + 1])
  181.             {
  182.               drawPillar(p, gIndices[i], gIndices[i + 1] + COUNT, i);
  183.               drawPillar(p, gIndices[i] - COUNT, gIndices[i + 1], i);
  184.             }
  185.             else
  186.             {
  187.               drawPillar(p, gIndices[i], gIndices[i + 1], i);
  188.             }
  189.           }
  190.         }
  191.         psy = sy;
  192.       }
  193.     }
  195.     private function drawPillar(p:Pillar, si:int, ei:int, i:int):void
  196.     {
  197.       if (p.z >= si && p.z < ei)
  198.       {
  199.         var r:Number = Number(ei - p.z) / (ei - si);
  200.         var y:Number = gys[i] * r + gys[i + 1] * (1 - r);
  201.         var z:Number = gzs[i] * r + gzs[i + 1] * (1 - r);
  202.         var sx:Number = (p.x - sightX) * NEAR_PLANE_DIST / z * PROJECTION_RATIO + SCREEN_WIDTH / 2;
  203.         var sy:Number = y * NEAR_PLANE_DIST / z * PROJECTION_RATIO + SCREEN_HEIGHT / 2;
  204.         var sh:Number = NEAR_PLANE_DIST / z * PROJECTION_RATIO;
  205.         for (var j:int = 0; j < 5; j++)
  206.         {
  207.           pillarRect.x = sx - sh * p.width * 2 / 5 * j;
  208.           pillarRect.y = sy - sh * p.height;
  209.           pillarRect.width = sh * p.width * 2 / 5;
  210.           pillarRect.height = sh * p.height * 2;
  211.           buffer.fillRect(pillarRect, createColor(0x77 + 0x11 * j, 0x77 + 0x11 * j, 0xcc, gas[i]));
  212.         }
  213.       }
  214.     }
  216.     private function createColor(r:int, g:int, b:int, a:int):int
  217.     {
  218.       return int((r * a + BACK_R * (256 - a)) / 256) * 0x10000 +
  219.              int((g * a + 230 * (256 - a)) / 256) * 0x100 +
  220.              int((b * a + BACK_B * (256 - a)) / 256);
  221.     }
  223.     private function goForward(v:Number):void
  224.     {
  225.       offset += v;
  226.       while (offset >= 1.0)
  227.       {
  228.         offset -= 1.0;
  229.         index++;
  230.         if (index >= COUNT)
  231.           index -= COUNT;
  232.       }
  233.     }
  235.     private function updateHar():void
  236.     {
  237.       if (right && harX < SCREEN_WIDTH / 2 - 20)
  238.         harX += HAR_SPEED;
  239.       if (left && harX > -SCREEN_WIDTH / 2 + 20)
  240.         harX -= HAR_SPEED;
  241.       if (up && harY < SCREEN_HEIGHT / 2 - 40)
  242.         harY += HAR_SPEED;
  243.       if (down && harY > -SCREEN_HEIGHT / 2 + 40)
  244.         harY -= HAR_SPEED;
  245.       sightX = harX * 0.4;
  246.       sightY = harY * 0.6;
  247.       var hx:int = harX + SCREEN_WIDTH / 2;
  248.       var hy:int = harY + SCREEN_HEIGHT / 2;
  249.       rect.x = hx - 12;
  250.       rect.y = hy - 30;
  251.       rect.width = 20;
  252.       rect.height = 40;
  253.       drawWireBox(rect, 0xdd7777);
  254.       rect.x++;
  255.       drawWireBox(rect, 0xaa4444);
  256.       rect.x = hx - 14;
  257.       rect.y = hy - 45;
  258.       rect.width = 16;
  259.       rect.height = 20;
  260.       drawWireBox(rect, 0xdddd77);
  261.       rect.x++;
  262.       drawWireBox(rect, 0xaaaa44);
  263.       rect.x = hx - 20;
  264.       rect.y = hy + 5;
  265.       rect.width = 12;
  266.       rect.height = 40;
  267.       drawWireBox(rect, 0x77dddd);
  268.       rect.x++;
  269.       drawWireBox(rect, 0x44aaaa);
  270.       rect.x = hx - 1;
  271.       rect.y = hy + 10;
  272.       rect.width = 15;
  273.       rect.height = 25;
  274.       drawWireBox(rect, 0x77dddd);
  275.       rect.x++;
  276.       drawWireBox(rect, 0x44aaaa);
  277.       rect.x = hx - 1;
  278.       rect.y = hy - 12;
  279.       rect.width = 16;
  280.       rect.height = 16;
  281.       drawWireBox(rect, 0xee4444);
  282.       rect.x++;
  283.       drawWireBox(rect, 0xbb2222);
  284.     }
  286.     private function drawWireBox(rect:Rectangle, color:int):void
  287.     {
  288.       wireRect.x = rect.x;
  289.       wireRect.y = rect.y;
  290.       wireRect.width = rect.width;
  291.       wireRect.height = WIRE_WIDTH;
  292.       buffer.fillRect(wireRect, color);
  293.       wireRect.y = rect.y + rect.height - WIRE_WIDTH;
  294.       buffer.fillRect(wireRect, color);
  295.       wireRect.y = rect.y;
  296.       wireRect.width = WIRE_WIDTH;
  297.       wireRect.height = rect.height;
  298.       buffer.fillRect(wireRect, color);
  299.       wireRect.x = rect.x + rect.width - WIRE_WIDTH;
  300.       buffer.fillRect(wireRect, color);
  301.     }
  303.     private function onKeyUp(evt:KeyboardEvent):void
  304.     {
  305.       switch (evt.keyCode)
  306.       {
  307.       case 0x25:
  308.       case 0x41:
  309.         left = false;
  310.         break;
  311.       case 0x26:
  312.       case 0x57:
  313.         up = false;
  314.         break;
  315.       case 0x27:
  316.       case 0x44:
  317.         right = false;
  318.         break;
  319.       case 0x28:
  320.       case 0x53:
  321.         down = false;
  322.         break;
  323.       }
  324.     }
  326.     private function onKeyDown(evt:KeyboardEvent):void
  327.     {
  328.       switch (evt.keyCode)
  329.       {
  330.       case 0x25:
  331.       case 0x41:
  332.         left = true;
  333.         break;
  334.       case 0x26:
  335.       case 0x57:
  336.         up = true;
  337.         break;
  338.       case 0x27:
  339.       case 0x44:
  340.         right = true;
  341.         break;
  342.       case 0x28:
  343.       case 0x53:
  344.         down = true;
  345.         break;
  346.       }
  347.     }
  349.     private function initializeSound():void
  350.     {
  351.       var A:String,B:String,C:String,D:String,E:String,F:String,G:String,H:String;
  352.       var M1:String="[f6ee16>g4a4<f6ee16>a+<crrf6ee16d4e4f16g+6g6f4]";
  353.       var M2:String="[e20>l4eg<d|c+12>a+a10gf2ef2d6el3fef2gfg2a12g+4<f8d8]";
  354.       var M3:String="c+16l2rec+>a+agfed12e4l3fef2gfg2a12g2<g10l1gab<cdefgl2o7";
  355.       A ="@11s8o6l2[[c12cc18|c10crc18]|c10<crc18]dddrrdrcr16> [s6"+M1+M2+M3+"]";
  356.       B ="@7l2[4e12ef18|f10fre18]fffrrfrer16 [l2s6v6[[c6>brr<d6crr>|b<crrc6>a+rr<d6crr>a+<crr]b4<c4c10dedd6c6d4]";
  357.       B+="s2l4[e28dc+16>a+8ag<d16c8d8|c16d8f8]c14g18]";
  358.       C ="@7l2[4c12cc18|c10crc18]dddrrdrcr16 >[l2s6v6[[g6grrg6grrggrr]8a6arra6al4raaf10l6ag+g+f4l2]";
  359.       C+="s2[l32gef|l16fg+]f14g18]";
  360.       D ="@7l2[4g12ga18|g+10g+rg18]g+g+g+rrg+rgr16 [v6o6k2"+M1+M2+M3+"]";
  361.       E ="@1s14l2o3[56c<c>]<cccrrcrc>r16 [[[8c<c>]>[8a+<a+>][7a<a>]g<g>[8f<f>]|<]";
  362.       E+="[[8e<e>][8a<a>][8d<d>]|[8f<f>]][4f<f>]g<g>a<a>a+<a+>b<b]";
  363.       F ="v10@3s32o0k4r116cr[4c1][12r4c4]l2cccl1ccc2l2crcrr[12c1] [[32r4c4] [30r4c4]c4c4c2c2l1cccc]";
  364.       G ="v4@3s64o0l1[224d]r32 [1024d]";
  365.       H ="v16w32s48o4[56c]l2cccl1<gec2>l2crcrrl1<[4g][4e][4c]> l8[128c]";
  366.       _sound = new Sound();
  367.       _sound.addEventListener("sampleData", _onSoundStream);
  368.       _module = new TinySiOPM(8192, _onSoundFrame);
  369.       _sequencer = new Sequencer(4, [A,B,C,D,E,F,G,H]);
  370.     }
  372.     private function _onSoundFrame():void
  373.     {
  374.       _sequencer.onSequence();
  375.     }
  377.     private function _onSoundStream(e:SampleDataEvent):void
  378.     {
  379.       var out:Vector.<Number> = _module.render();
  380.       for (var i:int=0; i<8192; i++) {
  381.         e.data.writeFloat(out[i]);
  382.         e.data.writeFloat(out[i]);
  383.       }
  384.     }
  385.   }
  386. }
  388. class Pillar
  389. {
  390.   public var x:Number;
  391.   public var z:Number;
  392.   public var width:Number;
  393.   public var height:Number;
  394. }
  396. class Sequencer {
  397.   private var tracks:Array, count:int=Track.speed+1;
  398.   function Sequencer(speed:int, mmls:Array) { Track.speed=speed; mml=mmls; }
  399.   public function onSequence() : void {
  400.     if (++count == Track.speed) {
  401.       for each (var tr:Track in tracks) tr.execute();
  402.       count = 0;
  403.     }
  404.   }
  405.   public function set mml(list:Array) : void {
  406.     tracks = [];
  407.     for each (var seq:String in list) tracks.push(new Track(seq));
  408.     count = 0;
  409.   }
  410. }
  412. class Track {
  413.   static public var codeA:int="a".charCodeAt(), nt:Array=[9,11,0,2,4,5,7], speed:int=3;
  414.   public var oct:int, len:int, tl:int, dt:int, cnt:int, seq:String, sgn:int, stac:Array, note:Note;
  415.   private var _rex:RegExp=/([a-gklorsvw<>[|\]$@])([#+])?(\d+)?/g;
  416.   function Track(seq:String) {
  417.     note = new Note(false);
  418.     reset(seq);
  419.   }
  420.   public function reset(seq_:String) : void {
  421.     seq=seq_; oct=5; len=4; tl=256; dt=0; cnt=0; sgn=0; _rex.lastIndex=0; stac=[];
  422.   }
  423.   public function execute() : void {
  424.     if (--cnt <= 0) {
  425.       while (true) {
  426.         var res:* = _rex.exec(seq);
  427.         if (!res) {
  428.           if (sgn) { _rex.lastIndex = sgn; continue; }
  429.           else     { cnt = int.MAX_VALUE; break; }
  430.         }
  431.         var cmd:int = res[1].charCodeAt();
  432.         if (cmd>=codeA && cmd<=codeA+6) {
  433.           cnt = (res[3])?int(res[3]):len;
  434.           if (note.isPlaying()) note.stop();
  435.           note.len = cnt*speed;
  436.           note.tl = tl;
  437.           note.play(((nt[cmd-codeA]+oct*12+((res[2])?1:0))<<4)+dt);
  438.           break;
  439.         } else if (res[1] == 'r') {
  440.           cnt = (res[3])?int(res[3]):len;
  441.           if (note.isPlaying()) note.stop();
  442.           break;
  443.         } else {
  444.           switch(res[1]){
  445.           case 'k': dt  = int(res[3]); break;
  446.           case 'l': len = int(res[3]); break;
  447.           case 'o': oct = int(res[3]); break;
  448.           case 'v': tl  = TinySiOPM.log(int(res[3])*0.0625); break;
  449.           case '<': oct++; break;
  450.           case '>': oct--; break;
  451.           case '@': note.ws = int(res[3]);    break;
  452.           case 's': note.dr = int(res[3])<<2; break;
  453.           case 'w': note.sw = -int(res[3]);   break;
  454.           case '$': sgn = _rex.lastIndex; break;
  455.           case '[': stac.unshift({p:_rex.lastIndex,c:((res[3])?int(res[3]):2),j:0}); break;
  456.           case ']': stac[0].j = _rex.lastIndex; if (--stac[0].c == 0) stac.shift(); else _rex.lastIndex = stac[0].p; break;
  457.           case '|':  if (stac[0].c == 1) { _rex.lastIndex = stac[0].j; stac.shift(); } break;
  458.           }
  459.         }
  460.       }
  461.     }
  462.   }
  463. }
  465. class TinySiOPM {
  466.   private var _output:Vector.<Number>, _bufferSize:int, _frameCallBack:Function;
  467.   private var _pitchTable:Vector.<int> = new Vector.<int>(2048, true);
  468.   private var _logTable:Vector.<Number> = new Vector.<Number>(6144, true);
  469.   
  470.   // Pass the buffer size and the function calls in each frame.
  471.   function TinySiOPM(bufferSize:int=2048, frameCallBack:Function=null) {
  472.     var i:int, j:int, p:Number, v:Number, t:Vector.<int>, ft:Array=[0,1,2,3,4,5,6,7,7,6,5,4,3,2,1,0];
  473.     for (i=0, p=0; i<192; i++, p+=0.00520833333)                            // create pitchTable[128*16]
  474.       for(v=Math.pow(2, p)*12441.464342886, j=i; j<2048; v*=2, j+=192) _pitchTable[j] = int(v);
  475.     for (i=0; i<32; i++) _pitchTable[i] = (i+1)<<6;                         // [0:31] for white noize
  476.     for (i=0, p=0.0078125; i<256; i+=2, p+=0.0078125)                       // create logTable[12*256*2]
  477.       for(v=Math.pow(2, 13-p)*0.0001220703125, j=i; j<3328; v*=0.5, j+=256) _logTable[j+1] = -(_logTable[j] = v);
  478.     for (i=3328; i<6144; i++) _logTable[i] = 0;                             // [3328:6144] is 0-fill area
  479.     for (t=Note.table(10), i=0, p=0; i<1024; i++, p+=0.00613592315) t[i] = log(Math.sin(p));  // sin=0
  480.     for (t=Note.table(10), i=0, p=0.75; i<1024; i++, p-=0.00146484375) t[i] = log(p);         // saw=1
  481.     for (t=Note.table(5),  i=0; i<16; i++) t[i+16] = (t[i] = log(ft[i]*0.0625)) + 1;          // famtri=2
  482.     for (t=Note.table(15), i=0; i<32768; i++) t[i] = log(Math.random()-0.5);                  // wnoize=3
  483.     for (i=0; i<8; i++) for (t=Note.table(4), j=0; j<16; j++) t[j] = (j<=i) ? 192 : 193;      // pulse=4-11
  484.     _output = new Vector.<Number>(bufferSize, true);                        // allocate monoral buffer
  485.     _bufferSize = bufferSize; _frameCallBack = frameCallBack;               // set parameters
  486.   }
  487.   
  488.   // calculate index of logTable
  489.   static public function log(n:Number) : int {
  490.     return (n<0) ? ((n<-0.00390625) ? (((int(Math.log(-n) * -184.66496523 + 0.5) + 1) << 1) + 1) : 2047)
  491.                  : ((n> 0.00390625) ? (( int(Math.log( n) * -184.66496523 + 0.5) + 1) << 1)      : 2046);
  492.   }
  493.   
  494.   // Returns monoral output as Vector.<Number>(bufferSize).
  495.   public function render() : Vector.<Number> {
  496.     var note:Note, rep:int, i:int, imax:int, ph:int, dph:int, lout:int, v:int;
  497.     for (i=0; i<_bufferSize; i++) _output[i] = 0;
  498.     for (imax=1024; imax<=_bufferSize; imax+=1024) {
  499.       if (_frameCallBack!=null) _frameCallBack();
  500.       var terminal:Note = Note._tm;
  501.       for (note=terminal.n; note!=terminal; note=note.step()) {
  502.         dph = _pitchTable[note.pt];
  503.         for (i = imax-1024; i < imax; i++) {
  504.           ph = note.ph>>note.sh;
  505.           lout = note.wv[ph] + note.tl;
  506.           _output[i] += _logTable[lout];
  507.           note.ph = (note.ph+dph)&0x3ffffff;
  508.         }
  509.       }
  510.     }
  511.     return _output;
  512.   }
  513.   
  514.   // note on
  515.   public function noteOn(pitch:int, length:int, vol:Number=0.5, wave:int=0, decay:int=6, sweep:int=0) : Note {
  516.     var note:Note = Note.alloc();
  517.     note.len = length;
  518.     note.tl = log(vol);
  519.     note.ws = wave;
  520.     note.dr = decay<<2;
  521.     note.sw = sweep; 
  522.     return note.play(pitch);
  523.   }
  524. }
  526. class Note {
  527.   static public var _w:Array=[], _s:Array=[], _fl:Note=new Note(), _tm:Note=new Note();
  528.   static public function alloc():Note {if(_fl.p==_fl)return new Note();var r:Note=_fl.p;_fl.p=r.p;r.p.n=_fl;return r.reset();}
  529.   static public function table(b:int):Vector.<int>{_w.push(new Vector.<int>(1<<b,true));_s.push(26-b);return _w[_w.length-1];}
  530.   public function into(x:Note):Note{ p=x.p;n=x;p.n=this;n.p=this;return this; }
  531.   public function step():Note { tl+=dr; pt+=sw; pt&=2047; return (--len==0||tl>3328) ? (stop().n) : n; }
  532.   public var p:Note, n:Note, pt:int, tl:int, sw:int, dr:int, wv:Vector.<int>, sh:int, len:int, ph:int, fl:Note;
  533.   function Note(useFreeList:Boolean=true) { p=n=this; fl=(useFreeList)?_fl:null; reset(); }
  534.   public function set ws(t:int) : void { wv=_w[t]; sh=_s[t]; }
  535.   public function play(pitch:int) : Note { into(_tm); pt=pitch; return this; }
  536.   public function stop() : Note { var r:Note=p; p.n=n; n.p=p; if(fl)into(fl); pt=-1; return r; }
  537.   public function reset() : Note { ph=0; pt=-1; len=0; tl=256; sw=0; dr=24; ws=0; return this; }
  538.   public function isPlaying() : Boolean { return (pt>=0); }
  539. }
noswf
Get Adobe Flash Player