L'école [RESOLU] AUDIO Stéréo / VIDEO Screen 8 (Real Time Movie) Audio Stéréo avec 2 Music Module et Vidéo avec Effets spéciaux 256 couleurs
Reprise du message précédent
@Jipe: J'ai une erreur de type OVERFLOW il me semble...j'ai pas pu tester tranquillement
Par contre, coté Audio, y a du progrès.
Après avoir extrait ce qui me semblait essentiel, j'ai tapé le Listing récupéré dans le Manuel de Service du Music Module.
Un premier test fait à la va vite, mais qui est très prometteur.
On est bel et bien en multitache puisque j'ai beau faire des accès disque du genre LOAD, SAVE etc, tout est géré en externe par le MSX-AUDIO
Voici la Vidéo:
Nb: Un simple Music Module suffit. Il est pas nécessaire d'avoir d'expander FRS-MSXPro
Par la suite, j'essaierai de génerer une sorte de pseudo Streaming.
En réalité il s'agit d'enregistrer/lire en alternance, des fractions de secondes successives.
Ca reste juste une idée. SI vous avez mieux, je suis tout ouïe
Metalion :
igal, je ne comprends pas ce que tu veux démontrer ...
Que le VDP numérise à la volée la vidéo en arrière plan ?
Je suis très sceptique ...
La pixellisation que tu filmes ne serait pas plutôt la pixellisation de la compression MPEG2 du DVD ?
En tout cas, le MSX2 ne possède pas de palette de couleur suffisamment étendue que pour pouvoir restituer une vidéo.
Que le VDP numérise à la volée la vidéo en arrière plan ?
Je suis très sceptique ...
La pixellisation que tu filmes ne serait pas plutôt la pixellisation de la compression MPEG2 du DVD ?
En tout cas, le MSX2 ne possède pas de palette de couleur suffisamment étendue que pour pouvoir restituer une vidéo.
avec l'audio Stéréo s'il vous plait
Edité par igal Le 07/02/2013 à 15h40
Voici l'enregistrement de [Stash The Black Lotus].
Pour l'occasion j'ai remis R41 à l'origine à savoir 10 Kohms (au lieu de 27Kohms) et j'ai remplacé R17 à l'origine 22Kohms par une résistance de 1,5Kohms et un condensateur
Je suis partie de l'idée suivante:
1) L'entrée Micro sature très rapidement du fait d'une amplification trop forte par rapport à ma source qui est la sortie Casque de mon PC.
2) Quelque soit la puissance du Signal,
Voici le rendu Audio Vidéo numérisés en temps réel
Vos impressions
Pour l'occasion j'ai remis R41 à l'origine à savoir 10 Kohms (au lieu de 27Kohms) et j'ai remplacé R17 à l'origine 22Kohms par une résistance de 1,5Kohms et un condensateur
Je suis partie de l'idée suivante:
1) L'entrée Micro sature très rapidement du fait d'une amplification trop forte par rapport à ma source qui est la sortie Casque de mon PC.
2) Quelque soit la puissance du Signal,
Voici le rendu Audio Vidéo numérisés en temps réel
Vos impressions
@JIPE: Le programme ci dessous devrait parfaitement fonctionner chez toi
Voici une alternative extrêmement efficace
Sur BlueMSX ca rend super Bien
1) Pour rappel, le VDP émulé est bien un 9958 et non un 9938. (Config 8280 2+ par Mars2000)
2) Plus de soucis à se faire sur la fusion de l'image COLOR BUS et celle de la VRAM/VDP.
3) En Screen 10 et 11, il semblerait que 16 couleurs (sur 19268 YJK) sont affichées simultanément, mais qu'il soit aussi nécessaire de paramétrer une palette graphique. Le Screen 5 fait exactement la même chose, mais avec 16 couleurs sur 256
Le SCREEN 12, si il a des couleurs fixes soit 19628 simultanément, devrait avoir le même avantage que le SCREEN 8 puisque les "bonnes couleurs" seraient sélectionnées par défaut
Voici les différents mode graphique supportés:
La Source:
SCREEN 12:
SCREEN 11:
SCREEN10:
SCREEN 8:
SCREEN 7:
:
SCREEN 6:
SCREEN 5:
SCREEN 0:
(Il est possible d'afficher un rendu en SCREEN 0 avec la méthode SET VIDEO 2 )
Afin de dissiper les doutes éventuels, voici la source et la Digitalisation MSX cote à cote:
Voici une vidéo faite sur BlueMSX:
La partie audio vient du Hardware Music Module X 2 en Stéréo.
Le film peut vous sembler saccader mais en réalité, l'émulation est extrêmement fluide.
La saccade vient du logiciel (gratuit) de capture vidéo du bureau. (mieux adapté à des tutoriels que des cinématique)
Un grand merci à Mars2000 pour sa configuration sur mesure
Pour les curieux, on trouve des infos sur les SCREEN 10, 11 et 12 ici:
http://www.msx-plaza.eu/home.php?page=mccm/mccm72/scherm2_eng
http://www.msx-plaza.eu/home.php?page=mccm/mccm72/schermen_eng
Voici une alternative extrêmement efficace
Code TEXT :
10 'SAVE"DIGITOK.ASC",a 20 ON STOP GOSUB 50: STOP ON 30 SCREEN 8,,,,,3:COLOR ,,255 40 COPYSCREEN0:GOTO40 50 SCREEN 0: COLOR 1,15: WIDTH 80
Sur BlueMSX ca rend super Bien
1) Pour rappel, le VDP émulé est bien un 9958 et non un 9938. (Config 8280 2+ par Mars2000)
2) Plus de soucis à se faire sur la fusion de l'image COLOR BUS et celle de la VRAM/VDP.
3) En Screen 10 et 11, il semblerait que 16 couleurs (sur 19268 YJK) sont affichées simultanément, mais qu'il soit aussi nécessaire de paramétrer une palette graphique. Le Screen 5 fait exactement la même chose, mais avec 16 couleurs sur 256
Le SCREEN 12, si il a des couleurs fixes soit 19628 simultanément, devrait avoir le même avantage que le SCREEN 8 puisque les "bonnes couleurs" seraient sélectionnées par défaut
Voici les différents mode graphique supportés:
La Source:
SCREEN 12:
SCREEN 11:
SCREEN10:
SCREEN 8:
SCREEN 7:
:
SCREEN 6:
SCREEN 5:
SCREEN 0:
(Il est possible d'afficher un rendu en SCREEN 0 avec la méthode SET VIDEO 2
)Afin de dissiper les doutes éventuels, voici la source et la Digitalisation MSX cote à cote:
Voici une vidéo faite sur BlueMSX:
La partie audio vient du Hardware Music Module X 2 en Stéréo.
Le film peut vous sembler saccader mais en réalité, l'émulation est extrêmement fluide.
La saccade vient du logiciel (gratuit) de capture vidéo du bureau. (mieux adapté à des tutoriels que des cinématique)
Un grand merci à Mars2000 pour sa configuration sur mesure
Pour les curieux, on trouve des infos sur les SCREEN 10, 11 et 12 ici:
http://www.msx-plaza.eu/home.php?page=mccm/mccm72/scherm2_eng
http://www.msx-plaza.eu/home.php?page=mccm/mccm72/schermen_eng
Essais d'ajouter une Temporisation pour ralentir la vitesse...
Possible que la vitesse soit tellement rapide que le hardware MSX n'a pas le temps d'afficher la page
Si l'image est bien présente, réduit A au maximum tout en laissant le temps à l'écran d'être complètement balayé
Code TEXT :
10 'SAVE"DIGITOK.ASC",a 20 ON STOP GOSUB 50: STOP ON 30 SCREEN 8,,,,,3:COLOR ,,255 40 COPYSCREEN0:For A=1 TO 128:NEXT A:GOTO40 50 SCREEN 0: COLOR 1,15: WIDTH 80
Possible que la vitesse soit tellement rapide que le hardware MSX n'a pas le temps d'afficher la page
Si l'image est bien présente, réduit A au maximum tout en laissant le temps à l'écran d'être complètement balayé
J'ai testé aussi et effectivement, BlueMsx n'a pas le comportement identique au MSX.
En fait, la commande 8,,,,,x bascule l'affichage en mode entrelacé
Me reste à voir comment tourner la chose mais le point fort est que le VDP doit générer 2 fois moins d'images qu'en mode progressif.
Concrètement, une Frame, le VDP génère les lignes PAIRES et l'autre Frame, les lignes IMPAIRES.
Le vrai plus est que la quantité de données à transférer dans la VRAM est 2 fois plus petite et donc beaucoup plus rapide qu'en image PROGRESSIVE
@Jipe: J'ai essayé cet après midi et il suffit d'ajouter SET VIDEO 2,1,1 avant la Boucle
(tu l'avais dit)
Pour info, Chez moi, sans SET VIDEO, j'ai pas un écran NOIR, mais un écran zébré horizontalement Noir et blanc
Edité par
igal
Le 18/02/2013 à 22h12
En fait, la commande 8,,,,,x bascule l'affichage en mode entrelacé
Me reste à voir comment tourner la chose mais le point fort est que le VDP doit générer 2 fois moins d'images qu'en mode progressif.
Concrètement, une Frame, le VDP génère les lignes PAIRES et l'autre Frame, les lignes IMPAIRES.
Le vrai plus est que la quantité de données à transférer dans la VRAM est 2 fois plus petite et donc beaucoup plus rapide qu'en image PROGRESSIVE
@Jipe: J'ai essayé cet après midi et il suffit d'ajouter SET VIDEO 2,1,1 avant la Boucle
(tu l'avais dit
)Pour info, Chez moi, sans SET VIDEO, j'ai pas un écran NOIR, mais un écran zébré horizontalement Noir et blanc
Edité par
igal
Le 18/02/2013 à 22h12
en fait le traitement sur une seule ligne de basic permet d'avoir des digits propres sous basic avec mon 2+
c'est donc le fait d'avoir a interpréter le basic entre chaque ligne qui perturbe la synchro ( juste une question de vitesse donc )
c'est donc le fait d'avoir a interpréter le basic entre chaque ligne qui perturbe la synchro ( juste une question de vitesse donc )
Citation :
10 'SAVE"DIGITOK.ASC",a
20 ON STOP GOSUB 50: STOP ON
30 SCREEN 8,,,,,3:COLOR ,,255
40 SETVIDEO2,1,1:COPYSCREEN0:FORI=1TO50:NEXT:SETVIDEO0,0,0:FORI=0TO200:NEXT:GOTO40
50 SCREEN 0: COLOR 1,15: WIDTH 80:SETVIDEO0,0,0
10 'SAVE"DIGITOK.ASC",a
20 ON STOP GOSUB 50: STOP ON
30 SCREEN 8,,,,,3:COLOR ,,255
40 SETVIDEO2,1,1:COPYSCREEN0:FORI=1TO50:NEXT:SETVIDEO0,0,0:FORI=0TO200:NEXT:GOTO40
50 SCREEN 0: COLOR 1,15: WIDTH 80:SETVIDEO0,0,0
Jipe :
pour la sauvegarde automatique ( disque dur ou CF conseillé )
10 N=1'init compteur
500 'routine de digit ave c le SET VIDEO
1000 N$=RIGHT$(STR(N),LEN(STR$(N))-1)
1020 BSAVE"IMAGE"+N$+".SC8",0,&HD3FF,S
1030 N=N+1:GOTO500
10 N=1'init compteur
500 'routine de digit ave c le SET VIDEO
1000 N$=RIGHT$(STR(N),LEN(STR$(N))-1)
1020 BSAVE"IMAGE"+N$+".SC8",0,&HD3FF,S
1030 N=N+1:GOTO500
J'ai essayé comme ça:
Code TEXT :
10 'SAVE"DIGIT.ASC",a 20 'INITIALISE N ET LA BOUCLE CTRL + STOP 30 ON STOP GOSUB150: STOP ON:N=1 40 'INITIALISE LE MODE GRAPHIQUE, COULEUR D'ECRAN ET SUPERIMPOSE 50 SCREEN8,,,,,3:COLOR,,255 60 'COPY LA VIDEO DANS LA V-RAM ET AFFICHE SON CONTENU 70 SETVIDEO2,0,0,1:COPYSCREEN0:FORA=1TO24:NEXTA:SETVIDEO0,0,0:A$=INKEY$:IFA$=""THEN 70 110 COLOR0,0,0:A$=INKEY$:IFA$=""THEN110 120 N$=RIGHT$(STR(N),LEN(STR$(N))-1) 130 BSAVE"IMAGE"+N$+".SC8",0,&HD3FF,S 140 N=N+1:GOTO50 150 SET VIDEO 2,0,0:COLOR 1,15,15:WIDTH 80
J'obtiens un => TYPE MISMATCH IN 120
J'ai omis 120 en mettant REM au début de la ligne comme suit:
120 ' N$=RIGHT$(STR(N),LEN(STR$(N))-1)
Une sauvegarde IMAGE.SC8 est bien réalisée, mais il ne semble pas d'avoir d'incrémentation dans la nomination puisque chaque nouveau fichier généré porte le même nom et remplace l'ancien IMAGE.SC8
Si ous zavez un idée
Oh...
Vu le cours du dollar, c'est pas dramatique
J'ai donc ajouté un dollar et ça fonctionne parfaitement bien
Voici les saisies d'écran faites sur mon 8280 et convertis en BMP sur PC avec MSXVIEW:
Merci Jipe
Edité par
igal
Le 26/02/2013 à 21h05
Vu le cours du dollar, c'est pas dramatique
J'ai donc ajouté un dollar et ça fonctionne parfaitement bien
Voici les saisies d'écran faites sur mon 8280 et convertis en BMP sur PC avec MSXVIEW:
Merci Jipe
Edité par
igal
Le 26/02/2013 à 21h05
pour faire de l'animation il faudrait un disque rapide car sauvegarder 54k prend du temps
même avec du scsi il ne faut pas s'attendre a faire un film
sous basic la seule façon que j'ai trouvé a l'époque c'est le couple HBI-VI + GRAPH9000 avec des images réduites a 1/4 de l'écran
mais ça reste trés bref comme séquence
aprés il reste EVA !!
même avec du scsi il ne faut pas s'attendre a faire un film
sous basic la seule façon que j'ai trouvé a l'époque c'est le couple HBI-VI + GRAPH9000 avec des images réduites a 1/4 de l'écran
mais ça reste trés bref comme séquence
aprés il reste EVA !!
Visiteur
Vagabond
Message : 0
Rien que pour Igal 
, et aussi parce que la capture vidéo de blueMSX a ses limites, sans parler des codecs qui marchent ou pas, j'ai cherché des freewares et après tests, je recommande
- SMRecorder : http://www.video2down.com/
Prend peu de place, a une option 30 frames (utile pour YouTube) et son propre codec performant
- CAMStudio : http://camstudio.org/
Beaucoup plus d'options (choix entre tous les codecs installés + son propre codec optionnel), page FAQ fort intéressante :
http://camstudio.org/faq.htm
, et aussi parce que la capture vidéo de blueMSX a ses limites, sans parler des codecs qui marchent ou pas, j'ai cherché des freewares et après tests, je recommande- SMRecorder : http://www.video2down.com/
Prend peu de place, a une option 30 frames (utile pour YouTube) et son propre codec performant
- CAMStudio : http://camstudio.org/
Beaucoup plus d'options (choix entre tous les codecs installés + son propre codec optionnel), page FAQ fort intéressante :
http://camstudio.org/faq.htm
Merci Mars2000
@Jipe: Sachant que l'on peut créer les Sources AUDIO et VIDEO sur PC, on pourrait peut être utiliser le VB Script de NYYRIKKI pour compiler une vidéo en SCREEN8
La grande question étant:
Est il possible de lire un Flux continu en BASIC tout comme le fait le lecteur EV2 sous DOS?
(Sans tenir compte du critère de vitesse bien sur. C'est juste pour le concept )
Quelqu'un saurait modifier le Script pour compiler du SC8 au lieu du SC2?
LA commande pour lancer le Script sous DOS est => CSCRIPT //Nologo Convert.vbs Edité par igal Le 27/02/2013 à 18h31
@Jipe: Sachant que l'on peut créer les Sources AUDIO et VIDEO sur PC, on pourrait peut être utiliser le VB Script de NYYRIKKI pour compiler une vidéo en SCREEN8
La grande question étant:
Est il possible de lire un Flux continu en BASIC tout comme le fait le lecteur EV2 sous DOS?
(Sans tenir compte du critère de vitesse bien sur. C'est juste pour le concept
)Code TEXT :
10 'SAVE"DIGIT.ASC",a 20 'INITIALISE N ET LA BOUCLE CTRL + STOP 30 ON STOP GOSUB150: STOP ON:N=1 40 'INITIALISE LE MODE GRAPHIQUE, COULEUR D'ECRAN ET SUPERIMPOSE 50 SCREEN8,,,,,3:COLOR,,255 60 'COPY LA VIDEO DANS LA V-RAM ET AFFICHE SON CONTENU 70 SETVIDEO2,0,0,1:COPYSCREEN0:FORA=1TO24:NEXTA:SETVIDEO0,0,0:A$=INKEY$:IFA$=""THEN 70 110 COLOR0,0,0:A$=INKEY$:IFA$=""THEN110 120 N$=RIGHT$(STR(N),LEN(STR$(N))-1) 130 BSAVE"IMAGE"+N$+".SC8",0,&HD3FF,S 140 N=N+1:GOTO50 150 SET VIDEO 2,0,0:COLOR 1,15,15:WIDTH 80
Quelqu'un saurait modifier le Script pour compiler du SC8 au lieu du SC2?
Code TEXT :
dim palette(1000)
Set fso = CreateObject("Scripting.FileSystemObject")
Set WshShell = WScript.CreateObject("WScript.Shell")
Set sound = fso.OpenTextFile("12fps.snd", 1, False, tristatefalse)
set evafile=fso.OpenTextFile("Dragon12.ev2",2,True,TristateFalse)
jokubyte=0
filenumber=0
DO
filename = "F"+right("00000000"+hex(filenumber),7)+".SC2"
filenumber=filenumber+1
wscript.echo filename
if not fso.FileExists (filename) then exit DO
Set picture = fso.OpenTextFile(filename, 1, False, tristatefalse)
header=picture.read(7)
for i=1 to 48
for x=1 to 11
data=sound.read(1):sr=sr+1
evafile.write(data)
for y=1 to 11
data=picture.read(1)
evafile.write(data)
next
next
data=sound.read(1):sr=sr+1
evafile.write(data)
for y=1 to 7
data=picture.read(1)
evafile.write(data)
next
next
for i=&h1800 to &h1B7F
data=picture.read(1)
next
for i=0 to 31
palette(i)=asc(picture.read(1))
next
for i=&h1BA0 to &h1FFF
data=picture.read(1)
next
for i=1 to 48
for x=1 to 11
data=sound.read(1):sr=sr+1
evafile.write(data)
for y=1 to 11
data=picture.read(1)
evafile.write(data)
next
next
data=sound.read(1):sr=sr+1
evafile.write(data)
for y=1 to 7
data=picture.read(1)
evafile.write(data)
next
next
i=0
for x=1 to 11
evafile.write(sound.read(1)):sr=sr+1
for y=1 to 11
evafile.write(chr(palette(i)))
i=i+1
next
next
evafile.write(sound.read(1)):sr=sr+1
for y=1 to 7
evafile.write(chr(0))
next
picture.close
for i=97 to 105
for x=1 to 11
evafile.write(sound.read(1)):sr=sr+1
for y=1 to 11
evafile.write(chr(0))
next
next
evafile.write(sound.read(1)):sr=sr+1
for y=1 to 7
evafile.write(chr(0))
next
next
for y=1 to 40+jokubyte
evafile.write(sound.read(1)):sr=sr+1
next
' 13879 bytes
for i=&h3A20+jokubyte to &h3BFD
evafile.write(chr(0))
next
evafile.write(chr(jokubyte+&h20)+chr(&h05))
jokubyte=jokubyte xor 1
' end of frame
LOOP
evafile.close
sound.close
wscript.echo "Sound bytes :" & sr
LA commande pour lancer le Script sous DOS est => CSCRIPT //Nologo Convert.vbs Edité par igal Le 27/02/2013 à 18h31
Donc si je comprend bien ce programme pourrait me servir a bidouiller une source Pal pour l'injecter dans mon HBF900 Ntsc
Autrement dit peut importe que l'ordi soit Pal ou Ntsc avec une source Pal ou Ntsc, il suffit d'utilise le bon programme,...... c'est ca?
Autrement dit peut importe que l'ordi soit Pal ou Ntsc avec une source Pal ou Ntsc, il suffit d'utilise le bon programme,...... c'est ca?
MSX 1&2 + Moniteurs+divers (environ 0.70Tonnes)
Répondre
Vous n'êtes pas autorisé à écrire dans cette catégorie