sample\hgimg3\volsamp.hsp » Plain Format
//●dmmvolで正しい音量を設定するサンプル
;このサンプルはArue（ http://hp.vector.co.jp/authors/VA029904/ ）によって
;書かれました。このサンプルはdmmvol命令でデシベル値を直感的に設定するものです。
;hgimg3に直感的なボリュームコントロール命令が実装されるまでの繋ぎとして
;自由にお使いください。
//vol2db p1 ----------------------------------------------------------------
//ボリューム値をデシベル値に変換する関数（0.0〜100.0%を-10000〜0dbに変換する）
//p1:ボリュームを％で設定 0.0〜100.0(実数値)
// ※わかりやすく最大音量を100.0にしてますが、
// maxvolを1.0でボリュームを取れば（p1=0.0〜1.0）、
// ( p1 / maxvol )の式は ( p1 )のみで良くなるため、
// 若干高速化するかもしれません＾＾；
// vol2db Written by Arue.
#module
#define maxvol 100.0 //ボリュームの最大値を100.0とする。
#defcfunc vol2db double p1
if( p1 < 0.005 ):return -10000.0 //最低値を設定しておかないと0除算してしまう
if p1>maxvol:return 0.0
return ( ( 20.0 * (logf( p1 / maxvol )/logf(10)) ) * 100.0 )
#global
//サンプル ----------------------------------------------------------------
screen 0,400,200
#include "hspogg.as"
dmmini
dmmload dir_exe+"\\sample\\demo\\oot06.ogg",1:dmmplay 1
volume=50,0:gmode 0,4,8
repeat
stick ky,256
redraw 0
color 255,255,255:boxf:color:boxf 100,100,300,102:color ,,255
grect 100+volume*2,100:if ky&256:volume=limit((mousex-100)/2,0,100)
if volume!volume(1):{
dmmvol 1,vol2db(volume):volume(1)=volume
title "ボリューム"+volume+"/db値("+vol2db(volume)+")"
}
redraw 1
await 15
loop
//-------------------------------------------------------------------------