*NEW* Current Version: 10.283Logfile: EN, DE
SYSTEMPOINTER TRUELOCAL Init = FM_Init()LOCAL Sample = FM_LoadSample("DHS - IK+ (Chemical Stadium Remix).mp3",FSOUND_NORMAL)LOCAL Play = FM_PlaySound(Sample)LOCAL FFT = FM_DSPGetFFTUnit()FM_DSPSetActive(FFT) LOCAL Spec[]DIM Spec[256]LOCAL Vol = 255 WHILE TRUELOCAL minutes, seconds,i INC Vol, MOUSEAXIS(2)*5 IF Vol > 255 THEN Vol = 255 IF Vol < 0 THEN Vol = 0 FM_GetTime(Sample, minutes, seconds) PRINT "FMod-Wrapper v1.0, only for GLBasic.com!",10,10 PRINT "by Schranz0r", 10,30 PRINT "Songname: "+FM_GetName$(Sample),10,50 PRINT "IsPlaying: "+FM_IsPlaying(Sample),10,70 PRINT "Volume(use mouseweel): "+Vol,10,90 PRINT "Samplelength: "+FM_GetLength(Sample),10,110 PRINT "CurrentPos: "+FM_GetCurrentPosition(Sample),10,130 PRINT "Song in Sec: "+FM_GetLengthInSeconds(Sample),10,150 PRINT "Current Position in Sec: "+FM_GetCurrentPositionInSeconds(Sample),10,170 IF seconds < 10 PRINT "Time: "+ minutes+":0"+seconds, 10,190 ELSE PRINT "Time: "+ minutes+":"+seconds, 10,190 ENDIF FM_DSPGetSpectrum(Spec[]) FOR i = 0 TO LEN(Spec[])-1 IF Spec[i] > 0.5 THEN Spec[i] = 0.5 IF Spec[i] < 0 THEN Spec[i] = 0 DRAWLINE 100+i, 400, 100+i, 400-Spec[i]*500, RGB(i, 255-i, 0) NEXT FM_SetVolume(Sample,Vol) IF FM_IsPlaying(Sample) AND MOUSEAXIS(3) THEN FM_StopSound(Sample) IF FM_IsPlaying(Sample) = 0 AND MOUSEAXIS(4) THEN FM_PlaySound(Sample)SHOWSCREENWENDFM_Close()END