XProfan

- Page 1 -

Christian
Eichler

Ist ja furchtbar. Hast du die File mal mit Winamp angehört. Klingt doch ein bisschen besser. Und vor allem schneller! Hast du keine schönere Mod gefunden ?

PS: Ich glaub, dass du eigentlich sagen wolltest : Haltet euch die Ohren zu und rennt weg !

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

Da solltet ihr erstmal das MOD im Anhang ausprobieren. Heißt eigentlich joyride.mod, habs aber umbenannt, damit die EXE die File findet (hab weder XProfan 10 noch XPSE, kanns also nicht anders machen). An sich eigentlich ganz schön, aber im xprofanmodplayer klingts fast, als hätte dieser Blähungen! Nach ca. 7 Sekunden sollte der Divertimento anfangen...

Hmm, hab früher selber mal einen Profan²-MOD-Player gemacht. Ich dachte damals, der wäre schlecht...

Saluto, Sebastian

joyride.zip	81 kB

Kurzbeschreibung:	Ein anderes MOD zum Testen...

Hochgeladen:	17.06.2007

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 geladen wirds korrekt! Wie hast Du die RAWs abgespielt?

Sebastian
Sprenger

Hey geladen wirds korrekt! Wie hast Du die RAWs abgespielt?

Meinst du mich? Wenn ja, versteh ich gerade nicht, was du meinst.
Saluto, 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 der Mod sind Samples gespeichert - IMHO RAWs - wie hast Du diese abgespielt?

Sebastian
Sprenger

Ach so, du sprichst von meinen eigenen Player? Dachte, du meinst das andere MOD, tschuldigung...

Ich hatte den mit der FMOD.DLL ([...]

) gemacht. Samples werden mit den API GetSample und GetDefaults geladen, mit SetDefaults und PlaySound abgespielt, und die MOD-Effekte (Portamento etc.) mehr oder weniger (in)stabil mit SetFrequency und SetVolume erzeugt.
Saluto, 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!

nein selber spielen darum gehts!

Sebastian
Sprenger

OK, sorry, hab ich jetzt auch kapiert. ;)
Aber versuch mal bei allen Samples XOR $80 (m.E. sind die Rohdaten in MODs signiert, was ja in WAVs nicht der Fall ist) und setze in deinem Code noch die Dimensione des eigentlichen Samples (in den WAV-File an Offset 28h; das ist sonst nämlich immer 2484 Bytes lang).
Saluto, 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 das hats auch nicht gebracht. Bekommst Du aus Mods lauffähige wavs heraus? Wenn ich die Wavs ordentlich herausbekäme und der Playroutine beibringe auch auf das FineTune zu achten (welches schon korrekt herausermittelt wird) dann würde sich die Sache gaaanz anders anhören - um nicht zu sagen brauchbar.

Kompilieren Markieren Separieren

Sebastian
Sprenger

Echt nicht? Ich kriege aus diesem Code hier alles so raus, wie ich es will. Andererseits hab ich es nur mit 8-Bit-Samples getestet (in MODs gehen meines Wissens auch 16-Bit-Samples rein. Nachtrag: Anscheinend doch nicht, habs gerade im MODPlug Tracker getestet).

P.S. Bitte nicht erschrecken, ist mit Ton! ;)

declare a#,a%,a&,a$,b&
cls
Das komplette Modul laden
filemode 0
a$=loadfile$(Samples aus MOD-File extrahieren,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 des ersten Samples
a&=0

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

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

endwhile

a&=$83C+a&*$400
Wave-Testata aufsetzen (jaja, mitten in die Sequenz)
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
Alle Samples als Wave-File abspeichern
filemode 1

whileloop 1,31

    print .;
    Länge des aktuellen Samples
    b&=12+&loop*30
    b&=(byte(a#,b&)*256+byte(a#,b&+1))*2
    long a#,$404=b&+$24
    long a#,$428=b&
    Format anpassen

    whileloop a&,a&+b&-1

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

    endwhile

    Speichern
    a$=format$(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

Fertig
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 lecker ich schau mal das umzusetzen!