mucom88

test_compile.hsp
#include "hspmucom.as" mucominit hwnd onexit *byebye fname="sampl2.muc" コンパイルするMMLファイル sname="sampl2.mub" 出力される音楽ファイル コンパイルする mucomreset MUCOM_RESET_COMPILE mucomcomp fname,sname res=stat mucomres buf mes buf if res=1 { mes "Error" stop }
sample\mucom88\test_compile.hsp - 2021/07/29

test_editor.hsp
#include "hspmucom.as" mucominit hwnd onexit *byebye sdim buf,$10000 sdim cmdbuf,$10000 notesel buf noteload "sampl2.muc" mucomreset 0 mucomres cmdbuf font msgothic,14 objmode objmode_usecolor+objmode_usefont objcolor 240,240,240 color 20,20,20
sample\mucom88\test_editor.hsp - 2021/07/29

test_gettag.hsp
#include "hspmucom.as" sysfont 17 mucominit hwnd onexit *byebye fname="sampl1.mub" mucomreset MUCOM_RESET_PLAYER mucomload fname mucomtag t_title,"title" if t_title="" : t_title="NO TITLE" mucomtag t_author,"author" mucomtag t_composer,"composer"
sample\mucom88\test_gettag.hsp - 2021/07/29

test_mml.hsp
#include "hspmucom.as" mucominit hwnd onexit *byebye MMLを登録する mml="A C96 t190 @93o4l8v15 cdefgab>c1 " mucomreset MUCOM_RESET_COMPILE mucommml mml if stat { エラーが出たら表示 mucomres buf mesbox buf,640,200,0 stop } エラーがなければ再生 mucomreset MUCOM_RESET_PLAYER
sample\mucom88\test_mml.hsp - 2021/07/29

test_play.hsp
#include "hspmucom.as" mucominit hwnd onexit *byebye mucomreset 0 mucomload "sampl1.mub",0 mucomload "sampl3.mub",1 mucomres buf mesbox buf,640,200,0:id_buf=stat button "PLAY1",*m_play button "PLAY2",*m_play2 button "STOP",*m_stop stop *m_play
sample\mucom88\test_play.hsp - 2021/07/29

test_status.hsp
#include "hspmucom.as" mucominit hwnd onexit *byebye wx=ginfo_sx:wy=ginfo_sy fname="sampl2.muc" コンパイルするMMLファイル sname="mmlbin" 出力される音楽ファイル コンパイルする mucomreset MUCOM_RESET_COMPILE mucomcomp fname,sname res=stat mucomres buf if res=1 { mes buf stop }
sample\mucom88\test_status.hsp - 2021/07/29