| |
|
|
| Wirklich schlechter ModPlayer im AlphaAlphaStand
Ich will wahrlich nicht behaupten dass das Programm Mod-Dateien "abspielt" - sagen wir eher es macht diese "hörbar"
Das Hauptproblem ist garnicht mal die Performance - eher das es mir nicht auf die Schnelle gelang die RAW-Daten der Samples in adäquate Wavs umzuwandeln um diese mit der Multisound.Inc abzuspielen.
Auch der letzen Schleife welche das eigendliche Mod abspielt habe ich nur wenig Aufmerksamkeit gegönnt - aber das Format als solches wird korrekt eingeladen - deshalb stelle ichs hier einfach mal rein.
Der erste Pattern des Mods im Paket ist von mir präpariert einfach die Noten hochzuzählen.
Viel Spaß und haltet Euch die Ohren zu. |
|
|
| |
|
|
|
Christian Eichler | Ist ja furchtbar. Hast du die Datei 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 | 17.06.2007 ▲ |
|
|
|
|
Sebastian Sprenger | Da solltet ihr erstmal das MOD im Anhang ausprobieren. Heißt eigentlich joyride.mod, habs aber umbenannt, damit die EXE die Datei 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 Spaß anfangen... Hmm, hab früher selber mal einen Profan²-MOD-Player gemacht. Ich dachte damals, der wäre schlecht... Gruß, 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 | 17.06.2007 ▲ |
|
|
|
|
| Hey geladen wirds korrekt! Wie hast Du die RAWs abgespielt? |
|
|
| |
|
|
|
Sebastian Sprenger | iF
Hey geladen wirds korrekt! Wie hast Du die RAWs abgespielt? Meinst du mich? Wenn ja, versteh ich gerade nicht, was du meinst. Gruß, 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 | 17.06.2007 ▲ |
|
|
|
|
| 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. Gruß, 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 | 17.06.2007 ▲ |
|
|
|
|
| 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 Größe des eigentlichen Samples (in den WAV-Dateien an Offset 28h; das ist sonst nämlich immer 2484 Bytes lang). Gruß, 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 | 17.06.2007 ▲ |
|
|
|
|
| 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. |
|
|
| |
|
|
|
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-Datei 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-Header 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-Datei 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 | 17.06.2007 ▲ |
|
|
|
|
| Heh lecker ich schau mal das umzusetzen! |
|
|
| |
|
|