Post by bluatigro on Jun 6, 2018 23:38:25 GMT -5
this halts by bounce101.bmp
but i checked they are al 999 there
what now
if i deREM the info code
sceen stays white
i have no idea what i do wrong
but i checked they are al 999 there
what now
if i deREM the info code
sceen stays white
i have no idea what i do wrong
'' bluatigro 6 jun 2018
'' pov ray f show
dim info$( 10 , 10 )
WindowWidth = DisplayWidth
global frame , speed
WindowHeight = DisplayHeight
nomainwin
open "movie" for graphics as #m
#m "trapclose [quit]"
speed = 1
call movie "POV_RAY_36\PHYSICS\BOUNCE\bounce" _
, 999 , 3 , 40 , 0
''call movie "POV_RAY_36\PHISICS\BOUNCE\bounce_b" _
'', 5 , 1 , 250 , 10
end
call movie "POV_RAY_36\cartoon\pilko\pilko" _
, 400 , 3 , 100 , 0
call movie "film\0010\titel\titel" , 360 , 3 , 20 , 0
call movie "film\0010\mass\mass" , 360 , 3 , 20 , 0
call movie "film\0010\fast\fast" , 360 , 3 , 20 , 0
call movie "film\0010\glass\glass" , 360 , 3 , 20 , 0
call movie "film\0010\mirror\mirror" , 360 , 3 , 20 , 0
call movie "film\0010\prism\prism" , 360 , 3 , 20 , 0
call movie "film\0010\the_end\the_end" , 360 , 3 , 20 , 0
speed = 1
call movie "film\0004\testman" , 31 , 2 , 40 , 4
call movie "film\0006\pirts2" , 31 , 2 , 40 , 4
call movie "film\0008\kraan" , 31 , 2 , 40 , 4
call movie "film\0012\@planet" , 31 , 2 , 100 , 2
wait
function nr$( no , m )
no$ = str$( no )
if left$( no$ , 1 )= " " then
no$ = right$( no$ , len( no$ ) - 1 )
end if
nr$ = right$( "00000000" + no$ , m )
end function
sub dia file$ , ms
scan
files file$ + ".bmp" , info$()
'' if val( info$( 0 , 0 ) ) <> 0 then
loadbmp "bmp" , file$ + ".bmp"
#m , "background bmp"
#m , "drawsprites"
'' end if
CallDLL #kernel32, "Sleep" _
, ms As long _
, ret As void
end sub
sub movie file$ , n , m , ms , keer
for t = 0 to keer
for i = 0 to n step speed
call dia file$ + nr$( i , m ) , ms
next i
next t
end sub
sub movie2 file$ , n , m , ms , keer
for t = 0 to keer
for i = 0 to n
call dia file$ + nr$( i , m ) , ms
next i
for i = n to 0 step -1
call dia file$ + nr$( i , m ) , ms
next i
next t
end sub
[quit]
unloadbmp "bmp"
close #m
end