XProfan

- Page 1 -

Christian
Eichler

is Yes awful. have you got The File time with Winamp angehört. sound still a little bit rather. and particularly faster! have you got no schönere Mod found ?

PS: I mean, that You really say wanted : hold you The ears To and runs lane !

Christian

Debian Lenny, Intel Celeron 2,8 Ghz, 768 MB Ram && Win XP Pro, Intel C2D 1,66Ghz, 2 GB Ram ... PROFAN² 6.6

Sebastian
Sprenger

there solltet your first the MOD in the attachment try. means really joyride.mod, habs but umbenannt, so The EXE The File finds (Have weder XProfan 10 yet XPSE, kanns means not differently make). on itself really integrally beautiful, but in the xprofanmodplayer klingts almost, as had this Blähungen! After ca. 7 sec ought to the Fun begin...

Hmm, Have former yourself time a Profan²-MOD-Player made. I thought then, the would badly...

Greeting, Sebastian

joyride.zip	81 kB

Kurzbeschreibung:	One other MOD to that testing...

Hochgeladen:	06/17/07

Downloadcounter:
		Download

Profan² 7.0e, XProfan 9, 11.2a, FreeProfan32

Windows Vista Home Premium 32-Bit, 2.8 Ghz, 4 GB RAM

Windows Me, 1.8 Ghz, 256 MB RAM

Hey loaded Better get going correctly! How have You The RAWs abgespielt?

Sebastian
Sprenger

Hey loaded Better get going correctly! How have You The RAWs abgespielt?

Meinst You me? if so, versteh I straight not, what you mean.
Greeting, Sebastian

Profan² 7.0e, XProfan 9, 11.2a, FreeProfan32

Windows Vista Home Premium 32-Bit, 2.8 Ghz, 4 GB RAM

Windows Me, 1.8 Ghz, 256 MB RAM

in the Mod are Samples stored - IMHO RAWs - How have You these abgespielt?

Sebastian
Sprenger

I see, You promise of my own Player? thought, you mean the others MOD, tschuldigung...

I had whom with the FMOD.DLL ([...]

) made. Samples go with the API GetSample and GetDefaults loaded, with SetDefaults and PlaySound abgespielt, and the MOD-effects (Portamento etc.) more or less (in)steady with SetFrequency and SetVolume created.
Greeting, Sebastian

Profan² 7.0e, XProfan 9, 11.2a, FreeProfan32

Windows Vista Home Premium 32-Bit, 2.8 Ghz, 4 GB RAM

Windows Me, 1.8 Ghz, 256 MB RAM

Achso Fmod.Dll buuuh!

No yourself play therefore GEHTS!

Sebastian
Sprenger

OK, sorry, Have I now too understands. ;)
but attempt time with all Samples XOR $80 (m.E. are The Rohdaten in MODs signiert, what Yes in WAVs not the case is) and set in your code yet The Size the actual Samples (into WAV-Files on Offset 28h; this is otherwise namely always 2484 Bytes long).
Greeting, Sebastian

Profan² 7.0e, XProfan 9, 11.2a, FreeProfan32

Windows Vista Home Premium 32-Bit, 2.8 Ghz, 4 GB RAM

Windows Me, 1.8 Ghz, 256 MB RAM

Hm the hats neither brought. get You from Mods lauffähige wavs out? If I The Wavs tidy herausbekäme and the Playroutine beibringe on the FineTune To respect (which already correctly herausermittelt becomes) then would the thing gaaanz differently listen to - circa not To say useable.

Sebastian
Sprenger

Real not? I wars from this code here everything so out, How I it wants. on the other hand Have I it only with 8-bit-Samples tested (in MODs weg of my Wissens too 16-bit-Samples mere. Nachtrag: apparently still not, habs straight in the MODPlug Tracker tested).

P.s. Please not frighten, is with tone! ;)

Compile Mark Separation

declare a#,a%,a&,a$,b&
cls
the complete Module loading
filemode 0
a$=loadfile$(Samples from MOD-File extract,ProTracker-Module|*.MOD)
case %button=2:end
assign #1,a$
openrw #1
a&=getfilesize(#1)
dim a#,a&
blockread(#1,a#,0,a&)
closerw #1
position the first Samples
a&=0

whileloop 1,byte(a#,$3B6)

    a%=byte(a#,$3B7+&loop)
    case a%>a&:a&=a%

endwhile

a&=$83C+a&*$400
Wave-Header touch down (jaja, in the middle in The sequence)
char a#,$400=RIFF
char a#,$408=WAVE
char a#,$40C=fmt
long a#,$410=16
word a#,$414=1
word a#,$416=1
long a#,$418=8000
long a#,$41C=8000
word a#,$420=1
word a#,$422=8
char a#,$424=data
any Samples as Wave-File abspeichern
filemode 1

whileloop 1,31

    print .;
    length the actually Samples
    b&=12+&loop*30
    b&=(byte(a#,b&)*256+byte(a#,b&+1))*2
    long a#,$404=b&+$24
    long a#,$428=b&
    stature adjust

    whileloop a&,a&+b&-1

        byte a#,&loop=xor(byte(a#,&loop),$80)

    endwhile

    Save
    a$=stature$(sample00.wav,&loop)
    assign #2,a$
    erase #2
    openrw #2
    blockwrite #2,a#,$400,$2C
    blockwrite #2,a#,a&,b&
    closerw #2
    Nächstes Sample
    playsound a$,1
    a&=a&+b&

endwhile

ready
dispose a#

Profan² 7.0e, XProfan 9, 11.2a, FreeProfan32

Windows Vista Home Premium 32-Bit, 2.8 Ghz, 4 GB RAM

Windows Me, 1.8 Ghz, 256 MB RAM

Heh yummy I look time the umzusetzen!