film auf plane abspielen

Übersicht

BlitzBasic

Allgemein

	Affje Betreff: film auf plane abspielen	Mo, Mai 10, 2004 17:15 Antworten mit Zitat
hi kann man einen film auf einer plane abspielen, die mit Code: [AUSKLAPPEN] [EINKLAPPEN] createplane() erstellet wurde??
www.drachengarde.tk Guckst da Hier

Affje

Betreff: film auf plane abspielen

Mo, Mai 10, 2004 17:15
Antworten mit Zitat

hi

kann man einen film auf einer plane abspielen, die mit
Code: [AUSKLAPPEN]

createplane()

erstellet wurde??

www.drachengarde.tk
Guckst da Hier

	Tobchen	Mo, Mai 10, 2004 18:39 Antworten mit Zitat
So weit ich weiß, musst du das Video in den TextureBuffer() malen. Und dann texturierst du die Plane damit.
Tobchen - die Welt von Tobi!

Tobchen

Mo, Mai 10, 2004 18:39
Antworten mit Zitat

So weit ich weiß, musst du das Video in den TextureBuffer() malen. Und dann texturierst du die Plane damit.

Tobchen - die Welt von Tobi!

	Markus2	Mo, Mai 10, 2004 18:40 Antworten mit Zitat
Theoretisch in alles was ne Texture haben kann Das Beispiel zeigt ein Video auf nem Würfel 8) Code: [AUSKLAPPEN] [EINKLAPPEN] ; Movie 3D bei M.Rauch ; 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 Flip Wend ;-------------------------------------------------------- CloseMovie movie End

Markus2

Mo, Mai 10, 2004 18:40
Antworten mit Zitat

Theoretisch in alles was ne Texture haben kann Wink

Das Beispiel zeigt ein Video auf nem Würfel 8)

Code: [AUSKLAPPEN]

; Movie 3D bei M.Rauch

; 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

Flip

Wend

;--------------------------------------------------------

CloseMovie movie

End