Videos einfügen
Übersicht
BlitzBasic Allgemein
ParanoideBetreff: Videos einfügen |
 Do, Jul 29, 2004 13:32Antworten mit Zitat 
|
|
|---|---|---|
|
hey leutz!
Ich brauch mal Hilfe: Und zwar, wie kann man bei Blitz Basic 3D Videos einfügen? Ich meine, wie kann ein Video (im *.AVI-Format oder *.MPG-Format oder dergleichen) abgespielt werden? Danke schon mal! Cy'all Michel |
||
|
Jan_Ehemaliger Admin |
Do, Jul 29, 2004 13:35 Antworten mit Zitat
|
|---|---|---|
|
das kommt nicht hierhin!
look @ www.Blitzbase.de Part: 2D Section: Movies |
||
| between angels and insects | ||
|
Suco-XBetreff: ...... |
Do, Jul 29, 2004 13:35 Antworten mit Zitat
|
|---|---|---|
|
LoadMovie und DrawMovie. Sieh blitzbase.de die Movie Befehle.
Außerdem hat das hier nichts zu suchen. Verschoben. bye |
||
| Intel Core 2 Quad Q8300, 4× 2500 MHz, 4096 MB DDR2-Ram, GeForce 9600GT 512 MB | ||
|
Markus2 |
Do, Jul 29, 2004 19:26 Antworten mit Zitat
|
|---|---|---|
|
Beispiel mit Video auf nem Würfel in 3D 8)
Code: [AUSKLAPPEN] ; Debug wenn es laufen sollte aus machen ! AppTitle "Movie Player" ;-------------------------------------------------------- Graphics3D 800,600,16,1 SetBuffer BackBuffer() ;-------------------------------------------------------- Global Camera=CreateCamera() PositionEntity Camera,0,0,-10 CameraClsColor Camera,50,100,50 ;-------------------------------------------------------- Global Licht =CreateLight(2) LightRange Licht ,50 PositionEntity Licht ,0,5,-10 AmbientLight 0,0,0 ;-------------------------------------------------------- Global txtBox=CreateTexture(512,512,1) SetBuffer TextureBuffer(txtBox) ClsColor 100,200,100 Cls SetBuffer BackBuffer() Global Box=CreateCube() ScaleEntity Box,3,3,3 EntityTexture Box,txtBox ;-------------------------------------------------------- moviename$="aqua.mpg" ;<--- movie=OpenMovie(moviename) ;-------------------------------------------------------- While Not KeyDown(1) Local ti# ti=MilliSecs() SetBuffer TextureBuffer(txtBox) DrawMovie movie,512/2-320/2,512/2-240/2,320,240 SetBuffer BackBuffer() If MoviePlaying(movie)=False Then Delay 3000 : Exit TurnEntity Box,0,-1,0 UpdateWorld RenderWorld While Abs(MilliSecs()-ti)<10 Wend Delay 4 Flip 0 Wend ;-------------------------------------------------------- CloseMovie movie End |
||
Übersicht
BlitzBasic Allgemein
Powered by phpBB © 2001 - 2006, phpBB Group