花火

[サンプルプログラムをダウンロード]

// Hanabi for IchigoCake
var pc=new PanCake();
var r=1,centerX=40,centerY=22;
pc.reset();
pc.wbuf(1);
function main(){
 if(inkey()>0){
  centerX=rnd(70)-20;
  centerY=rnd(30)-10;
  r=0;
 }
 r=r+2;
 if(r<120){
  pc.clear(0);
  var d=0;
  while(d<360){
   var x=centerX+(sin8(d+90)*r)/256;
   var y=centerY-(sin8(d)*r)/256;
   d=d+25;
   pc.stamps(x,y,0x58);
  }
  pc.wbuf(1);
 }
 setTout(main,0);
}
main();