Timelapses - GameCreators Forum

Author

Message

chafari

Valued Member

20

Years of Service

User Offline

Joined: 2nd May 2006

Location: Canary Islands

Posted: 29th Aug 2011 19:18 Edited at: 29th Aug 2011 19:25

Link

I don't know if that has been done before in Darkbasic. Seeing a couple of Timelapses videos on youtube,I was amazed at how a simple animation could be seen differently depending on the speed of the video. I thought I could do that with DarkBasic, and it looks really curious and funny. I've been about three hours to make this little timelapse. The code looks more a 20 lines code than a tidy code

. Pehaps you will have to set sync rate. This is a visual effect, so that we can't move the camera to make the trick .I hope you like it

autocam off:hide mouse:color backdrop rgb(0,240,240)
sync rate 30
sl=1    `sleep time
set ambient light 40
make light 1:position light 1,-50,50,-50
position light 0,70,130,70

`main floor
make object box 500,100,1,100:color object 500,rgb(0,255,0)
hide object 500

position camera -70,30,-70
point camera 0,0,0
`*************************************************************

`building floor
for i= 1 to 20
make object box i,5,1,100:
position object i,-52.5+i*5,0,0:sleep sl
next i

for i= 1 to 20
color object i,rgb(0,255,0):sleep sl
next i
for i= 1 to 20
delete object i
next i
show object 500
`**************************************************************

`making fence
for i=1 to 20
make object box i,2,10,0.1
position object i,-20+i*2,5,40:sleep sl
set shadow shading on i,0,10,1
next i

`repositioning camera
rem position camera -60,30,-20
rem point camera 0,10,0

`coloring fence
for i= 1 to 20
color object i,rgb(255,255,0):sleep sl
next i

`changing mesh object and deleting fence parts
make object box 501,40,10,0.1
position object 501,1,5,40:color object 501,rgb(255,255,0):set shadow shading on 501,0,10,1
for i= 1 to 20
delete object i
next i
`*******************************************************************************************
`making right fence
for i= 1 to 20
make object box i,0.1,10,2
position object i,21,5,41-i*2:sleep sl
set shadow shading on i,0,10,1
next i

`coloring fence
for i= 1 to 20
color object i,rgb(255,255,0):sleep sl
next i

`changing fence mesh and deleting fence parts
make object box 502,0.1,10,40
position object 502,21,5,19.5:color object 502,rgb(255,255,0):set shadow shading on 502,0,10,1
for i= 1 to 20
delete object i
next i
`*********************************************************************************************

`making litle house
for i= 1 to 15
make object box i,20,1,20
position object i,0,i,20:sleep sl
set shadow shading on i,0,10,1
next i

`change house mesh and deliting house parts
make object box 503,20,15,20
position object 503,0,8,20
set shadow shading on 503,0,10,1

for i= 1 to 15
delete object i
next i

for i= 200 to 206
inc sz
make object box i,22-sz*3,1,20
position object i,0,15+sz,20:set shadow shading on i,0,2,1:sleep sl
next i

color object 503,rgb(255,190,175)
for i= 200 to 206
color object i,rgb(255,190,175):sleep sl
next i

`roof  ***************************************************************
for i= 1 to 12
make object box i,1,1,20
position object i,-20+i,2,-5:sleep sl
next i

for i= 1 to 12
color object i,rgb(255,0,0):sleep sl
next i

make object box 504,12,1,20
position object 504,-13.5,2,-5
color object 504,rgb(255,0,0)
set shadow shading on 504,0,150,1

for i= 1 to 12
delete object i
next i

`positioning roof in its place *****************************************
for i= 1 to 16
position object 504,-13.5,2+i*1.1,-5:sleep sl
zrotate object 504,i*1.8
set shadow shading on 504,0,10,1
next i

for i= 1 to 10
move object 504,2.2:sleep sl
next i

for i= 1 to 3
position object 504,object position x(504)+i,object position y(504),object position z(504)
sleep sl
next i

clone object 505,504
for i= 1 to 7
move object right 505,1.5:sleep sl
zrotate object 505,-i*5
move object up 505,i/6
next i

for i= 1 to 40
make object box i,2,1,2
position object i,20,i,-10:sleep sl
set shadow shading on i,0,40,1
yrotate object i,i*5
next i

`tree trunk *******************************************************
for i= 20 to 40
yrotate object i,rnd(180)
scale object i,900-i*20,125,900-i*20:sleep sl
set shadow shading on i,0,140,1
next i

`joining parts of the tree and deleting objects
make object box 1000,0,0,0
for i= 1 to 40
make mesh from object i,i
add limb 1000,i,i
offset limb 1000,i,object position x(i),object position y(i),object position z(i)
delete object i
next i
set shadow shading on 1000,0,140,1

for i= 1 to 19
color limb 1000,i,rgb(80+rnd(70),10,10):sleep sl
next

for i= 20 to 40
color limb 1000,i,rgb(0,150+rnd(100),0):sleep sl
next i

`repositioining all tree limb to correct pivot
for i= 1 to 40
offset limb 1000,i,0,limb position y(1000,i),0
next i
position object 1000,20,0,-10

`cloning tree
clone object 506,1000:scale object 506,1,1,1
position object 506,-20,0,30
set shadow shading on 506,0,140,1
for i= 1 to 100
scale object 506,i,i,i:sleep sl
next i

`*******************************************************************
make object box 300,50,15,30:hide object 300
position object 300,-12,-7,-25
perform csg difference 500,300:scale object 300,100,-100,100:show object 300:color object 300,rgb(40,80,40)
make object box 301,52,5,31:color object 301,rgb(0,30,100):position object 301,-12,-7,-25

`swimming pool borders ***************************************************************************
for i= 1 to 11
make object box i,5,1,5
position object i,-45+i*5,2,-15:sleep 100
next i

for i= 1 to 11
color object i,rgb(20,80,20)
sleep sl
next i
make object box 507,55,1,5
position object 507,-15,2,-15
color object 507,rgb(20,80,20)

for i= 1 to 11
delete object i
next i

clone object 508,507
position object 508,-15,2,-40

`making door ****************************************
for i= 1 to 10
make object box i,8,1,1
position object i,0,i,10:sleep sl
color object i,rgb(35,30,30)
next i

for i= 1 to 10
color object i,rgb(200,0,0):sleep sl
next i

`door
make object box 509,8,11,1
position object 509,0,6,10
color object 509,rgb(200,0,0)

for i= 1 to 10:delete object i:next i

`file of spheres *********************************************************
for i= 1 to 10
make object sphere i,3
position object i,-45,2,55-i*10:sleep sl
set shadow shading on i,0,140,1
next i

make object box 510,0,0,0
for i= 1 to 10
make mesh from object i,i
add limb 510,i,i
offset limb 510,i,object position x(i),object position y(i),object position z(i)
delete object i
next i
set shadow shading on 510,0,140,1

for i= 1 to 10
color limb 510,i,rgb(0,0,155):sleep sl
next i

`ground
make object box 511,1000,1,1000
color object 511,rgb(200,90,0)
position object 511,0,-5,0
set shadow shading off 510

do
sync
loop

+ Code Snippet

autocam off:hide mouse:color backdrop rgb(0,240,240)
sync rate 30
sl=1    `sleep time
set ambient light 40
make light 1:position light 1,-50,50,-50
position light 0,70,130,70

`main floor
make object box 500,100,1,100:color object 500,rgb(0,255,0)
hide object 500

position camera -70,30,-70
point camera 0,0,0
`*************************************************************

`building floor
for i= 1 to 20
make object box i,5,1,100:
position object i,-52.5+i*5,0,0:sleep sl
next i

for i= 1 to 20
color object i,rgb(0,255,0):sleep sl
next i
for i= 1 to 20
delete object i
next i
show object 500
`**************************************************************

`making fence
for i=1 to 20
make object box i,2,10,0.1
position object i,-20+i*2,5,40:sleep sl
set shadow shading on i,0,10,1
next i

`repositioning camera
rem position camera -60,30,-20
rem point camera 0,10,0

`coloring fence
for i= 1 to 20
color object i,rgb(255,255,0):sleep sl
next i

`changing mesh object and deleting fence parts
make object box 501,40,10,0.1
position object 501,1,5,40:color object 501,rgb(255,255,0):set shadow shading on 501,0,10,1
for i= 1 to 20
delete object i
next i
`*******************************************************************************************
`making right fence
for i= 1 to 20
make object box i,0.1,10,2
position object i,21,5,41-i*2:sleep sl
set shadow shading on i,0,10,1
next i

`coloring fence
for i= 1 to 20
color object i,rgb(255,255,0):sleep sl
next i

`changing fence mesh and deleting fence parts
make object box 502,0.1,10,40
position object 502,21,5,19.5:color object 502,rgb(255,255,0):set shadow shading on 502,0,10,1
for i= 1 to 20
delete object i
next i
`*********************************************************************************************

`making litle house
for i= 1 to 15
make object box i,20,1,20
position object i,0,i,20:sleep sl
set shadow shading on i,0,10,1
next i

`change house mesh and deliting house parts
make object box 503,20,15,20
position object 503,0,8,20
set shadow shading on 503,0,10,1

for i= 1 to 15
delete object i
next i

for i= 200 to 206
inc sz
make object box i,22-sz*3,1,20
position object i,0,15+sz,20:set shadow shading on i,0,2,1:sleep sl
next i

color object 503,rgb(255,190,175)
for i= 200 to 206
color object i,rgb(255,190,175):sleep sl
next i

`roof  ***************************************************************
for i= 1 to 12
make object box i,1,1,20
position object i,-20+i,2,-5:sleep sl
next i

for i= 1 to 12
color object i,rgb(255,0,0):sleep sl
next i

make object box 504,12,1,20
position object 504,-13.5,2,-5
color object 504,rgb(255,0,0)
set shadow shading on 504,0,150,1

for i= 1 to 12
delete object i
next i

`positioning roof in its place *****************************************
for i= 1 to 16
position object 504,-13.5,2+i*1.1,-5:sleep sl
zrotate object 504,i*1.8
set shadow shading on 504,0,10,1
next i

for i= 1 to 10
move object 504,2.2:sleep sl
next i

for i= 1 to 3
position object 504,object position x(504)+i,object position y(504),object position z(504)
sleep sl
next i

clone object 505,504
for i= 1 to 7
move object right 505,1.5:sleep sl
zrotate object 505,-i*5
move object up 505,i/6
next i

for i= 1 to 40
make object box i,2,1,2
position object i,20,i,-10:sleep sl
set shadow shading on i,0,40,1
yrotate object i,i*5
next i

`tree trunk *******************************************************
for i= 20 to 40
yrotate object i,rnd(180)
scale object i,900-i*20,125,900-i*20:sleep sl
set shadow shading on i,0,140,1
next i

`joining parts of the tree and deleting objects
make object box 1000,0,0,0
for i= 1 to 40
make mesh from object i,i
add limb 1000,i,i
offset limb 1000,i,object position x(i),object position y(i),object position z(i)
delete object i
next i
set shadow shading on 1000,0,140,1

for i= 1 to 19
color limb 1000,i,rgb(80+rnd(70),10,10):sleep sl
next

for i= 20 to 40
color limb 1000,i,rgb(0,150+rnd(100),0):sleep sl
next i

`repositioining all tree limb to correct pivot
for i= 1 to 40
offset limb 1000,i,0,limb position y(1000,i),0
next i
position object 1000,20,0,-10

`cloning tree
clone object 506,1000:scale object 506,1,1,1
position object 506,-20,0,30
set shadow shading on 506,0,140,1
for i= 1 to 100
scale object 506,i,i,i:sleep sl
next i

`*******************************************************************
make object box 300,50,15,30:hide object 300
position object 300,-12,-7,-25
perform csg difference 500,300:scale object 300,100,-100,100:show object 300:color object 300,rgb(40,80,40)
make object box 301,52,5,31:color object 301,rgb(0,30,100):position object 301,-12,-7,-25

`swimming pool borders ***************************************************************************
for i= 1 to 11
make object box i,5,1,5
position object i,-45+i*5,2,-15:sleep 100
next i

for i= 1 to 11
color object i,rgb(20,80,20)
sleep sl
next i
make object box 507,55,1,5
position object 507,-15,2,-15
color object 507,rgb(20,80,20)

for i= 1 to 11
delete object i
next i

clone object 508,507
position object 508,-15,2,-40

`making door ****************************************
for i= 1 to 10
make object box i,8,1,1
position object i,0,i,10:sleep sl
color object i,rgb(35,30,30)
next i

for i= 1 to 10
color object i,rgb(200,0,0):sleep sl
next i

`door
make object box 509,8,11,1
position object 509,0,6,10
color object 509,rgb(200,0,0)

for i= 1 to 10:delete object i:next i

`file of spheres *********************************************************
for i= 1 to 10
make object sphere i,3
position object i,-45,2,55-i*10:sleep sl
set shadow shading on i,0,140,1
next i

make object box 510,0,0,0
for i= 1 to 10
make mesh from object i,i
add limb 510,i,i
offset limb 510,i,object position x(i),object position y(i),object position z(i)
delete object i
next i
set shadow shading on 510,0,140,1

for i= 1 to 10
color limb 510,i,rgb(0,0,155):sleep sl
next i

`ground
make object box 511,1000,1,1000
color object 511,rgb(200,90,0)
position object 511,0,-5,0
set shadow shading off 510


do
sync
loop

Cheers.

I'm not a grumpy grandpa

Back to top

Profile PM Email

Bluespark

15

Years of Service

User Offline

Joined: 18th Mar 2011

Location:

Posted: 29th Aug 2011 20:15

Link

Well, it's like a sine curve. How do you make an animated object appear to be playing in reverse when it's playing forward?
Say an object has 10 frames. If it goes forward 1 frame per second, it will look like it's going forward. 2 frames per second will make it looker faster. But what if it's going 10 frames per second? Then the object, although it's moving 10 frames ahead per second, it will continually revert back to its original frame and thus will not look like it's moving at all.
So if you go at 1 frame per second, the animation plays:
1,2,3,4,5,6,7,8,9,10,1,2,3,4...
Now, if you go at 7 frames per second, the frame numbers will be as follows:
1,8,5,2,9,6,3,10,7,4,1,8,5,2...
In other words the animation is not going forward or backward, rather, it is skipping all around the place (in a cyclical fashion).

Back to top

Profile PM

Pincho Paxton

23

Years of Service

User Offline

Joined: 8th Dec 2002

Location:

Posted: 29th Aug 2011 20:41

Link

When I was watching you program Tony Hart music was playing the 'Gallery' music on TV. It perfectly matched the animation. You should put 'The Gallery music in it.

http://www.youtube.com/watch?v=cRlPmKvx82A&feature=related

Back to top

Profile PM Email Website

chafari

Valued Member

20

Years of Service

User Offline

Joined: 2nd May 2006

Location: Canary Islands

Posted: 29th Aug 2011 21:05 Edited at: 29th Aug 2011 22:28

Link

@Bluespark
I know that...what I meant, is that the video looks more like ” how you did it? ” thread.

, where people show how they work in a 3D program, or how they paint manually.

@Pincho Paxton
Yess. If we add musik it looks better

I'll think about puting something like that in youtube.

Edited
Here's another example with vertexdata.

rem TIMELAPSE
autocam off
color backdrop rgb(60,60,190)

hide mouse
sync rate 5
REM sync on
position camera -10,20,-20
point camera 0,0,0
ink rgb(100,100,0),0
box 0,0,100,100
sleep 50
ink rgb(155,0,0),0
box 22,22,78,78
sleep 50
ink rgb(100,0,0),0
box 40,85,60,100
box 5,35,18,50
sleep 50
ink rgb(0,0,0),0
box 0,0,25,23:sleep 50
box 75,0,100,25:sleep 50
box 0,75,25,100:sleep 50
box 75,75,100,100:sleep 50
get image 1,0,0,100,100,1

make object plain 50,20,20,4,4
texture object 50,1
set object cull 50,0

for i= 1 to 5
 make object box i,0.5,0.5,0.5
 position object i,-10+i*4,0,10:sleep 50

clone object i+5,i
 move object i+5,-4

clone object i+10,i
 move object i+10,-8

clone object i+15,i
 move object i+15,-12

clone object i+20,i
 move object i+20,-16
next i

set object wireframe 50,1
for i=7 to 9
  move object up i,4:sleep 50
  move object up i+5,4:sleep 50
  move object up i+10,4:sleep 50
next i

`moviendo los vertices de alante y atras hacia el centro
for i= 2 to 4
  move object i,-4:sleep 50
  move object i+20,4:sleep 50
next i

set object wireframe 50,0
`moviendo los vertices laterales hacia el centro
for i= 6 to 16 step 5
  move object right i,4:sleep 50
  move object left i+4,4:sleep 50
next i

`agustando las cuatro esquinas
move object 1,-4:move object right 1,4
move object 5,-4:move object left 5,4
move object 21,4:move object right 21,4:sleep 50
move object 25,4:move object left 25,4

`subiendo el techo de dos aguas
for i= 8 to 18 step 5
   move object up i,3:sleep 50
next i

lock vertexdata for limb 50,0
for i= 1 to 25
   x# = object position x(i)
   y# = object position y(i)
   z# = object position z(i)
   set vertexdata position i-1,x#,y#,z#:sleep 50
next
unlock vertexdata

position camera -20,10,-20
point camera 0,0,0

set object wireframe 50,1
sleep 1000
set object wireframe 50,0

for i= 1 to 25
  hide object i
next i

make object box 103,1,6,1
position object 103,0,4,0:texture object 103,1:scroll object texture 103,0.2,0.2
color object 103,rgb(255,0,0)
sync rate 60

do
g#=g#+1
if g#>100 then set object wireframe 50,1
if g#>200 then set object wireframe 50,0
yrotate object 50,g#
yrotate object 103,g#
sync
loop

+ Code Snippet

rem TIMELAPSE
autocam off
color backdrop rgb(60,60,190)

hide mouse
sync rate 5
REM sync on
position camera -10,20,-20
point camera 0,0,0
ink rgb(100,100,0),0
box 0,0,100,100
sleep 50
ink rgb(155,0,0),0
box 22,22,78,78
sleep 50
ink rgb(100,0,0),0
box 40,85,60,100
box 5,35,18,50
sleep 50
ink rgb(0,0,0),0
box 0,0,25,23:sleep 50
box 75,0,100,25:sleep 50
box 0,75,25,100:sleep 50
box 75,75,100,100:sleep 50
get image 1,0,0,100,100,1

make object plain 50,20,20,4,4
texture object 50,1
set object cull 50,0

for i= 1 to 5
 make object box i,0.5,0.5,0.5
 position object i,-10+i*4,0,10:sleep 50

 clone object i+5,i
 move object i+5,-4

 clone object i+10,i
 move object i+10,-8

 clone object i+15,i
 move object i+15,-12

 clone object i+20,i
 move object i+20,-16
next i

set object wireframe 50,1
for i=7 to 9
  move object up i,4:sleep 50
  move object up i+5,4:sleep 50
  move object up i+10,4:sleep 50
next i

`moviendo los vertices de alante y atras hacia el centro
for i= 2 to 4
  move object i,-4:sleep 50
  move object i+20,4:sleep 50
next i

set object wireframe 50,0
`moviendo los vertices laterales hacia el centro
for i= 6 to 16 step 5
  move object right i,4:sleep 50
  move object left i+4,4:sleep 50
next i

`agustando las cuatro esquinas
move object 1,-4:move object right 1,4
move object 5,-4:move object left 5,4
move object 21,4:move object right 21,4:sleep 50
move object 25,4:move object left 25,4

`subiendo el techo de dos aguas
for i= 8 to 18 step 5
   move object up i,3:sleep 50
next i

lock vertexdata for limb 50,0
for i= 1 to 25
   x# = object position x(i)
   y# = object position y(i)
   z# = object position z(i)
   set vertexdata position i-1,x#,y#,z#:sleep 50
next
unlock vertexdata

position camera -20,10,-20
point camera 0,0,0

set object wireframe 50,1
sleep 1000
set object wireframe 50,0

for i= 1 to 25
  hide object i
next i

make object box 103,1,6,1
position object 103,0,4,0:texture object 103,1:scroll object texture 103,0.2,0.2
color object 103,rgb(255,0,0)
sync rate 60

do
g#=g#+1
if g#>100 then set object wireframe 50,1
if g#>200 then set object wireframe 50,0
yrotate object 50,g#
yrotate object 103,g#
sync
loop

Cheers.

I'm not a grumpy grandpa

Back to top

Profile PM Email

Sorry your browser is not supported!

DarkBASIC Professional Discussion / Timelapses