home *** CD-ROM | disk | FTP | other *** search
/ Gekikoh Dennoh Club 1 / Gekikoh Dennoh Club Vol. 1 (Japan).7z / Gekikoh Dennoh Club Vol. 1 (Japan) (Track 1).bin / tools / xb / sample / _rasmake.bas < prev    next >
Encoding:
BASIC Source File  |  1997-06-06  |  656 b   |  35 lines
  1.  
  2. /* ラスタスクロールデータの作成
  3.  
  4.  /* １次元配列でないと、書き出せないので。
  5. dim d((510+1)-1),e(359)
  6. int i,j,a,b,f
  7.  
  8.  /* 基本データ作成
  9. for j=0 to 255
  10. e(j)=(int(16*cos(pi(j)/128)+.5) and &h3ff) + ((int(60*sin(pi(j)/128)+.5) and &h3ff) shl 16)
  11. next
  12.  
  13. f=fopen("_scroll.dat","c")
  14.  
  15. for i=0 to 127
  16.      /* スクロールデータ作成
  17.     for j=0 to 510
  18.         d(j)=e((i*2+j/2)and 255)
  19.     next
  20.      /* 差分を取る
  21.     for j=0 to 510-1
  22.         a=d((510-j))
  23.         b=d((510-j)-1)
  24.         d(510-j)=((a-b)and &h3ff)+(( (a and &h3ff0000) - (b and &h3ff0000) ) and &h3ff0000)
  25.     next
  26.      /* 書き出し
  27.     fwrite(d,511,f)
  28. next
  29.  
  30. fcloseall()
  31.  
  32.  /* 圧縮
  33. _system("lha a _scrdat _scroll.dat")
  34.  
  35.