Title : avi to texture
Author : mongia2
Posted : 1+ years ago
Description : code for avi to texture
Code :
dim camera(0)
dim timer(0)
dim old_mousex(0)
dim old_mousey(0)
graphics3d 800,600,32,3
setbuffer backbuffer()
cleartexturefilters()
camera(0)=createcamera()
luce=createlight()
positionentity luce,0,50,0
timer(0)=createtimer(30)
positionentity camera(0),5,5,5
img=createtexture(512,512,256)
cube=createcube()
pointentity camera(0),cube
while not keydown(1)
te=millisecs()
if keydown(57) and movie=0
movie=1
mov=openmovie("avi/Seq_04.avi")
entitytexture cube,img
showentity cube
endif
if mov>0
drawmovie mov,0,0,512,512
if movieplaying(mov)=0
closemovie(mov)
mov=0
movie=0
hideentity cube
endif
endif
CopyRect 0,0,512,512,0,0,backBuffer(),textureBuffer(img)
temm=millisecs()-te
gestione_camera_editor()
renderworld
old_mousex(0)=mousex()
old_mousey(0)=mousey()
flip false
waittimer timer(0)
wend
end
function gestione_camera_editor()
dif_x#=old_mousex(0)-mousex()
dif_y#=old_mousey(0)-mousey()
CamSpd#=1
MoveEntity(camera(0), Float(KeyDown(205) - KeyDown(203)) * CamSpd#, 0, Float(KeyDown(200) - KeyDown(208)) * CamSpd#)
If MouseDown(2)
TurnSpeed# = 0.8
TurnEntity(camera(0), Float(dif_y#) * TurnSpeed#, 0, 0, False)
TurnEntity(camera(0), 0, Float(dif_x#) * TurnSpeed#, 0, True)
EndIf
end function
Comments :
John Blackledge(Posted 1+ years ago)
mongia, you should check out this link:<a href="http://www.blitzbasic.co.nz/Community/posts.php?topic=51214" target="_blank">http://www.blitzbasic.co.nz/Community/posts.php?topic=51214</a>
Naughty Alien(Posted 1+ years ago)
..its usseles...memory leak is still in there...