Question on Motion Blur - GameCreators Forum

Author

Message

MASTER OF PUPPETS

20

Years of Service

User Offline

Joined: 9th Jun 2004

Location: Trapped Under Ice

Posted: 31st Dec 2004 15:40

Link

Motion blur is cool! Yet i cant seem to do it right. My Idea was to load a character attack animation three times and animate each model as follows: the first model I animate at the frame it should be at (real time) and the second model I also animated but I animated it at one frame behind the first model, and the third animation was set one frame behind the second model. I know that it sounds like it should work but it doesn't.
Can somebody please show me a code example using no media(You know, just use - Make object sphere - and do the blur behind its movement)
Thank You in advance.

metal is not music but a way of life...all hail to the reigning king METALLICA!!!

Back to top

Profile PM

BenDstraw

20

Years of Service

User Offline

Joined: 21st Dec 2004

Location: Arizona

Posted: 31st Dec 2004 15:53

Link

I'm sorry I cant help you but
your name
your signature
and Metallica ROCK
oh yeah sorry I cant help just thought I should shout out to a fellow Metallica fan!

¤§Ben§¤
Free is good price eh then visit
http://www.geocities.com/blacklab_studios

Back to top

Profile PM Email

MASTER OF PUPPETS

20

Years of Service

User Offline

Joined: 9th Jun 2004

Location: Trapped Under Ice

Posted: 31st Dec 2004 23:57

Link

METALLICA!!!!!!!!!!!!!!!! ... oh yeah um ... uh hem ...

MOTION BLUR!!!!!!!!!!!!!!

metal is not music but a way of life...all hail to the reigning king METALLICA!!!

Back to top

Profile PM

Jess T

Retired Moderator

21

Years of Service

User Offline

Joined: 20th Sep 2003

Location: Over There... Kablam!

Posted: 2nd Jan 2005 18:54

Link

Try this mate;

+ Code Snippet

Sync On : Sync Rate 0
BackDrop On
Color BackDrop 0
Color Ambient Light 0

`Make them
For i = 1 To 3
   Make Object Box i,20,5,5
   Color Object i,RGB(255,0,0)
Next i

`fade them
Ghost Object On 2
Ghost Object On 3

Fade Object 3,50

accel# = 0.0
friction# = -0.1

keyr = 0
keyl = 0

Do


   If LeftKey() = 1 : If keyl = 0 : keyl = 1
   `** On KeyDown **

      friction# = 0.05

   `** End On Down **
   Else
   `** While KeyHeld **
   `** End Held **
   EndIf : Else : If keyl = 1 : keyl = 0
   `** On KeyUp **

      friction# = -0.01

   `** End On Up **
   EndIf : EndIf


   Inc accel#,friction#

   If friction# < 0.0 And accel# < 0.0 Then accel# = 0.0

   `rotate them
   Rotate Object 1,0,0,WrapValue(Object Angle Z(1) + accel#)
   Rotate Object 2,0,0,WrapValue(Object Angle Z(1) - accel# * 5)
   Rotate Object 3,0,0,WrapValue(Object Angle Z(2) - accel# * 5)


Sync
Loop

Jess.

Team EOD :: Programmer/All-Round Nice Guy
Aust. Convention!

Back to top

Profile PM Email Website

Arkheii

21

Years of Service

User Offline

Joined: 15th Jun 2003

Location: QC, Philippines

Posted: 2nd Jan 2005 19:49

Link

Wasn't there a motion blur snippet that involved turning off the backdrop?

I spelled "disappointment" wrong. Pahintulutan ang di-inaasahang nakakahiyang pagkakamaling dulot ng kamangmangan. Have at you.

Back to top

Profile PM

Jess T

Retired Moderator

21

Years of Service

User Offline

Joined: 20th Sep 2003

Location: Over There... Kablam!

Posted: 2nd Jan 2005 21:21

Link

There may have been, because without the backdrop, the screen is not updated with old information ( such as a static landscape ), but only draws what is new on that rendering pass.

But, that would mean that you would have trails everywhere, and they wont be faded ( they'd look identical to the original ) unless you have some way of changing it?... I don't see how though

Jess.

Team EOD :: Programmer/All-Round Nice Guy
Aust. Convention!

Back to top

Profile PM Email Website

MASTER OF PUPPETS

20

Years of Service

User Offline

Joined: 9th Jun 2004

Location: Trapped Under Ice

Posted: 4th Jan 2005 12:58

Link

Thank you JessTicular
I appreciate the help but you know... THAT IS SO SIMPLE..I cant believe that I couldnt figure it out...I need some person to reach through the monitor and smack me in the face!!!
Thanks again and now I will wait here for someone to give me that smack.

metal is not music but a way of life...all hail to the reigning king METALLICA!!!

Back to top

Profile PM

Underworld 1020

21

Years of Service

User Offline

Joined: 2nd Mar 2004

Location: NY, USA

Posted: 4th Jan 2005 22:44 Edited at: 4th Jan 2005 22:45

Link

Sorry, but I got to do this.....METALLICA!!!

ok, I'm much better now...

Back to top

Profile PM

Nosnevel Xela

20

Years of Service

User Offline

Joined: 14th Dec 2004

Location: MA, USA

Posted: 5th Jan 2005 04:44 Edited at: 5th Jan 2005 04:45

Link

Ok, that looks pretty good, but why not try this:

Sync On : Sync Rate 0
BackDrop On
Color BackDrop 0
Color Ambient Light 0
`=====Make=Each=Box=Smaller======
Make Object Box 1,20,5,6
Color Object 1,RGB(255,0,0)
Make Object Box 2,19,4,4
Color Object 2,RGB(255,0,0)
Make Object Box 3,18,3,3
Color Object 3,RGB(255,0,0)

`fade them
Ghost Object On 2
Ghost Object On 3

Fade Object 3,50

accel# = 0.0
friction# = -0.1

keyr = 0
keyl = 0

Do

If LeftKey() = 1 : If keyl = 0 : keyl = 1
   `** On KeyDown **

friction# = 0.05

`** End On Down **
   Else
   `** While KeyHeld **
   `** End Held **
   EndIf : Else : If keyl = 1 : keyl = 0
   `** On KeyUp **

friction# = -0.01

`** End On Up **
   EndIf : EndIf

Inc accel#,friction#

If friction# < 0.0 And accel# < 0.0 Then accel# = 0.0
`======Hides=Boxes=When=Not=Rotating=======
	if accel# = 0 
		hide object 2
		hide object 3
	endif
	if accel# <> 0
		show object 2
		show object 3
	endif
`===========================================
   `rotate them
   Rotate Object 1,0,0,WrapValue(Object Angle Z(1) + accel#)
   Rotate Object 2,0,0,WrapValue(Object Angle Z(1) - accel# * 15)
   Rotate Object 3,0,0,WrapValue(Object Angle Z(2) - accel# * 15)

Sync
Loop

+ Code Snippet

Sync On : Sync Rate 0
BackDrop On
Color BackDrop 0
Color Ambient Light 0
`=====Make=Each=Box=Smaller======
Make Object Box 1,20,5,6
Color Object 1,RGB(255,0,0)
Make Object Box 2,19,4,4
Color Object 2,RGB(255,0,0)
Make Object Box 3,18,3,3
Color Object 3,RGB(255,0,0)



`fade them
Ghost Object On 2
Ghost Object On 3

Fade Object 3,50

accel# = 0.0
friction# = -0.1

keyr = 0
keyl = 0

Do


   If LeftKey() = 1 : If keyl = 0 : keyl = 1
   `** On KeyDown **

      friction# = 0.05

   `** End On Down **
   Else
   `** While KeyHeld **
   `** End Held **
   EndIf : Else : If keyl = 1 : keyl = 0
   `** On KeyUp **

      friction# = -0.01

   `** End On Up **
   EndIf : EndIf


   Inc accel#,friction#

   If friction# < 0.0 And accel# < 0.0 Then accel# = 0.0
`======Hides=Boxes=When=Not=Rotating=======
	if accel# = 0 
		hide object 2
		hide object 3
	endif
	if accel# <> 0
		show object 2
		show object 3
	endif
`===========================================
   `rotate them
   Rotate Object 1,0,0,WrapValue(Object Angle Z(1) + accel#)
   Rotate Object 2,0,0,WrapValue(Object Angle Z(1) - accel# * 15)
   Rotate Object 3,0,0,WrapValue(Object Angle Z(2) - accel# * 15)


Sync
Loop

I noticed that because all the boxes were the same size, they overlapped in kind of a weird way. So all I did was make the two ghosted boxes smaller, and I hid them when the box was not rotating.

Back to top

Profile PM Email

MASTER OF PUPPETS

20

Years of Service

User Offline

Joined: 9th Jun 2004

Location: Trapped Under Ice

Posted: 5th Jan 2005 07:57

Link

Nosnevel Xela!!!
That makes it look Better!!!
but there seems to be a problem...
when leftkey()=1 and the motion blur begins, the blur doesn't seem to work right.
the "blur" goes back where the original object never was in the first place.
The rectangle rolls to the left but it flashes a bit to the right of the unblurred object.
Take a good look at it and you will know what I mean
I appreciate the fact that you're willing to help but if you could fix that I think that would be a good post in the snippets forum!!!

My Pre-Signature Signature
ME!!!!!!!FREAKIN'!!!!!!TALLICA!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
Im pullin' your strings in my world sucker

metal is not music but a way of life...all hail to the reigning king METALLICA!!!

Back to top

Profile PM

Nosnevel Xela

20

Years of Service

User Offline

Joined: 14th Dec 2004

Location: MA, USA

Posted: 5th Jan 2005 08:56 Edited at: 5th Jan 2005 08:57

Link

Ok, I think the problem is basically that there is a line that deals with how blurry the box is. (the 15)

+ Code Snippet

  `rotate them
   Rotate Object 1,0,0,WrapValue(Object Angle Z(1) + accel#)
   Rotate Object 2,0,0,WrapValue(Object Angle Z(1) - accel# * 15)
   Rotate Object 3,0,0,WrapValue(Object Angle Z(2) - accel# * 15)

Originally this was set to 5, but I thought it looked better at 15. Try setting it to around 9 or 10, it looks pretty good that way. I also tweaked it a little bit to make the blurriness adjustable by using the up and down keys.

blur# = 8
Sync On : Sync Rate 0
BackDrop On
Color BackDrop 0
Color Ambient Light 0
`=====Make=Each=Box=Smaller======
Make Object Box 1,20,5,6
Color Object 1,RGB(255,0,0)
Make Object Box 2,19,4,4
Color Object 2,RGB(255,0,0)
Make Object Box 3,18,3,3
Color Object 3,RGB(255,0,0)

`fade them
Ghost Object On 2
Ghost Object On 3

Fade Object 3,50

accel# = 0.0
friction# = -0.1

keyr = 0
keyl = 0

Do

If LeftKey() = 1 : If keyl = 0 : keyl = 1
   `** On KeyDown **

friction# = 0.05

`** End On Down **
   Else
   `** While KeyHeld **
   `** End Held **
   EndIf : Else : If keyl = 1 : keyl = 0
   `** On KeyUp **

friction# = -0.01

`** End On Up **
   EndIf : EndIf

Inc accel#,friction#

If friction# < 0.0 And accel# < 0.0 Then accel# = 0.0
`======Hides=Boxes=When=Not=Rotating=======
	if accel# = 0 
		hide object 2
		hide object 3
	endif
	if accel# <> 0
		show object 2
		show object 3
	endif
`===========================================
`=====same as before except with variable bluriness 
if upkey()=1 then blur# = blur# + .01
if downkey()=1 then blur# = blur# -.01 
set cursor 0,0
print "Bluriness: " ; blur#

`rotate them
   Rotate Object 1,0,0,WrapValue(Object Angle Z(1) + accel#)
   Rotate Object 2,0,0,WrapValue(Object Angle Z(1) - accel# * blur#)
   Rotate Object 3,0,0,WrapValue(Object Angle Z(2) - accel# * blur#)

Sync
Loop

+ Code Snippet

blur# = 8
Sync On : Sync Rate 0
BackDrop On
Color BackDrop 0
Color Ambient Light 0
`=====Make=Each=Box=Smaller======
Make Object Box 1,20,5,6
Color Object 1,RGB(255,0,0)
Make Object Box 2,19,4,4
Color Object 2,RGB(255,0,0)
Make Object Box 3,18,3,3
Color Object 3,RGB(255,0,0)



`fade them
Ghost Object On 2
Ghost Object On 3

Fade Object 3,50

accel# = 0.0
friction# = -0.1

keyr = 0
keyl = 0

Do


   If LeftKey() = 1 : If keyl = 0 : keyl = 1
   `** On KeyDown **

      friction# = 0.05

   `** End On Down **
   Else
   `** While KeyHeld **
   `** End Held **
   EndIf : Else : If keyl = 1 : keyl = 0
   `** On KeyUp **

      friction# = -0.01

   `** End On Up **
   EndIf : EndIf


   Inc accel#,friction#

   If friction# < 0.0 And accel# < 0.0 Then accel# = 0.0
`======Hides=Boxes=When=Not=Rotating=======
	if accel# = 0 
		hide object 2
		hide object 3
	endif
	if accel# <> 0
		show object 2
		show object 3
	endif
`===========================================
`=====same as before except with variable bluriness 
if upkey()=1 then blur# = blur# + .01
if downkey()=1 then blur# = blur# -.01 
set cursor 0,0
print "Bluriness: " ; blur#

  `rotate them
   Rotate Object 1,0,0,WrapValue(Object Angle Z(1) + accel#)
   Rotate Object 2,0,0,WrapValue(Object Angle Z(1) - accel# * blur#)
   Rotate Object 3,0,0,WrapValue(Object Angle Z(2) - accel# * blur#)


Sync
Loop

Hope this helps
I will put this in the snippets section, but it was JessTicular who came up with the idea. (Just giving credit where credit is due)

I am who I am

Back to top

Profile PM Email

Jess T

Retired Moderator

21

Years of Service

User Offline

Joined: 20th Sep 2003

Location: Over There... Kablam!

Posted: 5th Jan 2005 14:49

Link

lol, thanks mate.

It's not much, but if you want to put it in the Snippets, or Codebase, go for it

Jess.

Team EOD :: Programmer/All-Round Nice Guy
Aust. Convention!

Back to top

Profile PM Email Website

MASTER OF PUPPETS

20

Years of Service

User Offline

Joined: 9th Jun 2004

Location: Trapped Under Ice

Posted: 6th Jan 2005 00:20

Link

JessTicular I have a favor to ask...
Here is your mission if you choose to accept it...
Make the red rectagle move around on a matrix with the arrow controls, and make the camera follow it like a 3rd person game where your guy runs extremely fast.
This post will self destruct in
5........4........3...........2.........1...........BOOOOOOOOOOOM!!!!

You would be dead right now but I haven't finished the computer monitor explosion game Ive had in the works for a while.

metal is not music but a way of life...all hail to the reigning king METALLICA!!!

Back to top

Profile PM

Jess T

Retired Moderator

21

Years of Service

User Offline

Joined: 20th Sep 2003

Location: Over There... Kablam!

Posted: 6th Jan 2005 09:05

Link

I assume that you want a motion blur example?

Well, I don't want to just write all the code for you. It's better if you take a description, and turn that into code.

How I would go about doing it is, I would first set up an arrar or somesuch to hold previous position/rotation values of the 'character'.

Next, I would set a timestamp variable, so that every xMilliseconds, you store the values so that you can do the tricky blur stuff.

Basically, by using the time variable, as the player goes faster, the gap between the player and the first blur etc gets further, but as the player is going slower, the gap is less.

You should be able to figure out how to go about doing it.

For animated models, you should also store the current animation frame along with the position/rotation values, so you can set the 'blur' objects to the previous frames ( if you want it to do that, that is

).

Hope that helps

Jess.

Team EOD :: Programmer/All-Round Nice Guy
Aust. Convention!

Back to top

Profile PM Email Website

Nosnevel Xela

20

Years of Service

User Offline

Joined: 14th Dec 2004

Location: MA, USA

Posted: 6th Jan 2005 10:01 Edited at: 6th Jan 2005 10:37

Link

Ok, I quickly patched together a few old programs of mine and made you the box on a matrix example. You can find it here. Also make sure you download the "floor1.bmp" from this post, and put it in the same folder as your project.

`==========From=Here=To.........==========
make matrix 1,10000,10000,10,10
randomize matrix 1,500
load bitmap "floor1.bmp" ,1
get image 1,0,0,128,128 : delete bitmap 1 
prepare matrix texture 1,1,1,1
make object cube 1,25
color object 1,rgb(255,0,0)
x# = 500
z# = 500
camheight = 100
sync on : sync rate 60 : autocam off : hide mouse
`===make blur objects
make object cube 10,24
color object 10,rgb(255,0,0)
ghost object on 10
make object cube 11,23
color object 11,rgb(255,0,0)
ghost object on 11

do
`gives the smooth curve effect
	ca#=wrapvalue(curveangle(angle#,ca#,20))
`camera xyz
	cx#=newxvalue(x#,wrapvalue(ca#+180),300)
	cz#=newzvalue(z#,wrapvalue(ca#+180),300)
	cy#=get ground height(1,cx#,cz#)+camheight
`place, rotate, and point camera
	position camera cx#,cy#,cz#
	yrotate camera wrapvalue(ca#)
	point camera x#,y#,z#
`set cam height
	if returnkey()=1 then camheight = camheight + 10
	if shiftkey()=1 then camheight = camheight -10

`walk forward and backward	
	if upkey()=1 
		if speed# < 15 then speed# = speed# + 1
	endif

if downkey()=1 
		if speed# > -15 then speed# = speed# - 1
	endif
`turn left and right 
	if leftkey()=1 then angle#=wrapvalue(angle#-3.0)
	if rightkey()=1 then angle#=wrapvalue(angle#+3.0)

y# = get ground height(1,x#,z#) + 12.5
	
	`==store blur xyz values
	oldblurangle# = blurangle#
	blurangle#=angle#
	oldbluranglex# = bluranglex#
	bluranglex#=object angle x(1)
	oldblurx# = blurx#
	oldblury# = blury#
	oldblurz# = blurz#
	blurx# = x#
	blury# = y#
	blurz# = z#

x#=newxvalue(x#,angle#,speed#) 
	z#=newzvalue(z#,angle#,speed#) 
	position object 1,x#,y#,z#
	yrotate object 1,angle#

`gravity
if speed# > 0 then speed# = speed# - .25
if speed# < 0 then speed# = speed# + .25

`spin cube
xrotate object 1,wrapvalue(object angle x(1) + 3)

`======Here=Deals=With=Walking=On=A=Matrix==========
`sorry it's messy, i patched together a few of my other programs :)
`======This=Part=Deals=With=The=Bluriness
position object 10,blurx#,blury#,blurz#
position object 11,oldblurx#,oldblury#,oldblurz#
yrotate object 10,blurangle#
yrotate object 11,oldblurangle#
xrotate object 10,bluranglex#
xrotate object 11,oldbluranglex#

sync
loop

+ Code Snippet

`==========From=Here=To.........==========
make matrix 1,10000,10000,10,10
randomize matrix 1,500
load bitmap "floor1.bmp" ,1
get image 1,0,0,128,128 : delete bitmap 1 
prepare matrix texture 1,1,1,1
make object cube 1,25
color object 1,rgb(255,0,0)
x# = 500
z# = 500
camheight = 100
sync on : sync rate 60 : autocam off : hide mouse
`===make blur objects
make object cube 10,24
color object 10,rgb(255,0,0)
ghost object on 10
make object cube 11,23
color object 11,rgb(255,0,0)
ghost object on 11


do
`gives the smooth curve effect
	ca#=wrapvalue(curveangle(angle#,ca#,20))
`camera xyz
	cx#=newxvalue(x#,wrapvalue(ca#+180),300)
	cz#=newzvalue(z#,wrapvalue(ca#+180),300)
	cy#=get ground height(1,cx#,cz#)+camheight
`place, rotate, and point camera
	position camera cx#,cy#,cz#
	yrotate camera wrapvalue(ca#)
	point camera x#,y#,z#
`set cam height
	if returnkey()=1 then camheight = camheight + 10
	if shiftkey()=1 then camheight = camheight -10

`walk forward and backward	
	if upkey()=1 
		if speed# < 15 then speed# = speed# + 1
	endif

	if downkey()=1 
		if speed# > -15 then speed# = speed# - 1
	endif
`turn left and right 
	if leftkey()=1 then angle#=wrapvalue(angle#-3.0)
	if rightkey()=1 then angle#=wrapvalue(angle#+3.0)

	y# = get ground height(1,x#,z#) + 12.5
	
	`==store blur xyz values
	oldblurangle# = blurangle#
	blurangle#=angle#
	oldbluranglex# = bluranglex#
	bluranglex#=object angle x(1)
	oldblurx# = blurx#
	oldblury# = blury#
	oldblurz# = blurz#
	blurx# = x#
	blury# = y#
	blurz# = z#	

	x#=newxvalue(x#,angle#,speed#) 
	z#=newzvalue(z#,angle#,speed#) 
	position object 1,x#,y#,z#
	yrotate object 1,angle#

`gravity
if speed# > 0 then speed# = speed# - .25
if speed# < 0 then speed# = speed# + .25

`spin cube
xrotate object 1,wrapvalue(object angle x(1) + 3)


`======Here=Deals=With=Walking=On=A=Matrix==========
`sorry it's messy, i patched together a few of my other programs :)
`======This=Part=Deals=With=The=Bluriness
position object 10,blurx#,blury#,blurz#
position object 11,oldblurx#,oldblury#,oldblurz#
yrotate object 10,blurangle#
yrotate object 11,oldblurangle#
xrotate object 10,bluranglex#
xrotate object 11,oldbluranglex#

sync
loop

Arrow keys move you
Return and Shift raise and lower the camera (so you can see better)

Here's the exe:
http://home.comcast.net/~27Levenson/Blur.zip

I hope this works!

Sorry your browser is not supported!

DarkBASIC Discussion / Question on Motion Blur

Attachments