Commit: 265 - kmbasic (svn)

BASIC compiler/interpreter for PIC32MX/MZ-80K (suspended)

Commit MetaInfo

• Révision: 265 (tree)
• l'heure: 2018-07-30 09:16:08
• Auteur: kmorimatsu

Message de Log

Revise help. Support 15700 Hz WAVE file.

Change Summary

• modified: mips/branches/zoea/help.txt
• modified: mips/branches/zoea/music.c

Modification

--- mips/branches/zoea/help.txt	(revision 264)
+++ mips/branches/zoea/help.txt	(revision 265)
@@ -105,6 +105,12 @@
 	代入する。「LET」は省略可。
 MUSIC x$
 	BGMを演奏する。詳細は、下記<MUSIC>の項を参照。
+PLAYWAVE x$[,y]
+	音楽用のWAVEファイル(ファイル名をx$で指定)を演奏する。WAVEのフォーマットは、
+	モノラル、ビット長は８、サンプリング周波数が15700 Hzの物を指定する。16000 Hz
+	でも再生出来るが、音程と再生速度が少しずれる。yを指定した場合、指定の箇所から
+	再生される（１秒目から再生したい場合は、15700を指定）。x$に長さ０の文字列を指
+	定すると、現在再生中の音楽が停止する。
 VAR xxx [, yyy [, zzz [, ... ]]]
 	サブルーチン内で使う、ローカル変数を指定する。xxx, yyy等は、A-Zの
 	アルファベットで指定する。
@@ -278,6 +284,10 @@
 	x=0の場合に１を、そうでない場合に０を返す。
 PEEK(x)
 	xで示される物理アドレスから１バイト読み取り、返す。
+PLAYWAVE([x])
+	xを指定しない場合、もしくは０を指定した場合、再生中のWAVEファイルの残りサン
+	プリング数を返す。１を指定した場合、現在再生中のサンプリング番号を、２を指
+	定した場合、WAVEファイルの総サンプリング数を返す。
 READ()
 	DATA文の後から、一つずつデーター（32ビット整数値）を読み出す。「CREAD()」
 	関数も参照。
@@ -604,6 +614,8 @@
 てみて下さい。
 
 ＜バージョン履歴＞
+・KM-1206 2018年8月公開。
+　１．WAVEファイルの再生に対応。
 ・KM-1205 2018年2月公開。
 　１．スタック容量拡大のため、使用可能RAM容量を53Kバイトに削減。
 　２．CLEARステートメントの不具合を修正。

--- mips/branches/zoea/music.c	(revision 264)
+++ mips/branches/zoea/music.c	(revision 265)
@@ -618,12 +618,10 @@
 	i+=checkChars((char*)&g_wavtable[0],"RIFF",4);                      // Check RIFF
 	i+=checkChars((char*)&g_wavtable[8],"WAVEfmt ",8);                  // Check WAVE and fmt
 	i+=checkChars((char*)&g_wavtable[16],"\x10\x00\x00\x00\x01\x00",6); // Check if liear PCM
-	if (!checkChars((char*)&g_wavtable[22],"\x02\x00\x80\x3e\x00\x00\x00\x7d\x00\x00\x02\x00",12)) {
-		// Stereo 16000 Hz
-		// Error
-		i=1;
-	} else if (!checkChars((char*)&g_wavtable[22],"\x01\x00\x80\x3e\x00\x00\x80\x3e\x00\x00\x01\x00",12)) {
-		// Monoral 16000 Hz
+	if (!checkChars((char*)&g_wavtable[22],"\x01\x00\x80\x3e\x00\x00\x80\x3e\x00\x00\x01\x00",12)) {
+		// Monaural 16000 Hz
+	} else if (!checkChars((char*)&g_wavtable[22],"\x01\x00\x54\x3d\x00\x00\x54\x3d\x00\x00\x01\x00",12)) {
+		// Monaural 15700 Hz
 	} else {
 		i=1;
 	}
@@ -639,17 +637,3 @@
 	g_sound_mode=SOUND_MODE_WAVE;
 
 }
-
-/*
-TODO:
-
-Around init_music and init_wave
-	Init_music also initialize tone and key. These must be done only when starting BASIC program.
-	Create stop_music. This stops all MUSIC/SOUND/PLAYWAVE-initialized sound effects, and
-	also reset system for MUSIC/SOUND mode.
-		--> done.
-
-DEBUG:
-	1) Abnormal play when USEGRAPHIC was used after PLAYWAVE statement
-	2) Key is lower when USEGRAPHIC was used before PLAYWAVE statement
-*/