blackhole effect? - GameCreators Forum

Author

Message

Mugen Wizardry

User Banned

Posted: 6th Aug 2010 00:29

Link

What is up with the vertex code?

I want it to look like its warping time and space.

Rem Project: tachyonequation
Rem Created: Thursday, August 05, 2010

Rem ***** Main Source File *****

`let lightspeed# represent lightspeed

rem Init for best performance
sync on : sync rate 60 : backdrop off : hide mouse

global spheremap=2
`let v be velocity

global v# = 1000.0
global tachyon=1
global elecfield=2

rem Loading screen
load bitmap "backdrop.jpg",1
copy bitmap 1,0,0,screen width(),screen height(),0,0,0,screen width(),screen height()
sync  : delete bitmap 1
set current bitmap 0     ` added this

load image "space.jpg",spheremap

global lightspeed#=300000.0

make object cube tachyon,1

position object tachyon,0,0,-10

make object sphere elecfield,10,100,100

make object sphere elecfield+1,10,100,100

hide object elecfield+1

set sphere mapping on elecfield,spheremap

set object smoothing elecfield,100

draw to back   ` added this

lock vertexdata for limb elecfield,0
maxvertex = get vertexdata vertex count()
unlock vertexdata

do
   for i = 0 to maxvertex-1
      lock vertexdata for limb elecfield+1,0

rem get the vertex position and add random values
      x# = get vertexdata position x(i) + rnd(1000)>100
      y# = get vertexdata position y(i) + rnd(1000)>100
      z# = get vertexdata position z(i) + rnd(1000)>100
      unlock vertexdata

rem lock the vertexdata for visible object
      lock vertexdata for limb elecfield,0
      rem and set the new vertex positions
      set vertexdata position i, x#, y#, z#
      unlock vertexdata
   next i
`inc xrotation#,8
`inc yrotation#,8
`inc zrotation#,8
`rotate object elecfield,xrotation#,yrotation#,zrotation#
paste image 2, 0, 0                     ` added this - use the image number you want as a backdrop
move object 1, (keystate(17)-keystate(31))*.1
turn object left 1, (keystate(30)-keystate(32))*1
set camera to follow object position x(tachyon),object position y(tachyon),object position z(tachyon),0,4,3,20,1
sync
loop

+ Code Snippet

Rem Project: tachyonequation
Rem Created: Thursday, August 05, 2010

Rem ***** Main Source File *****

`let lightspeed# represent lightspeed

rem Init for best performance
sync on : sync rate 60 : backdrop off : hide mouse

global spheremap=2
`let v be velocity

global v# = 1000.0
global tachyon=1
global elecfield=2

rem Loading screen
load bitmap "backdrop.jpg",1
copy bitmap 1,0,0,screen width(),screen height(),0,0,0,screen width(),screen height()
sync  : delete bitmap 1
set current bitmap 0     ` added this

load image "space.jpg",spheremap

global lightspeed#=300000.0

make object cube tachyon,1

position object tachyon,0,0,-10

make object sphere elecfield,10,100,100

make object sphere elecfield+1,10,100,100

hide object elecfield+1

set sphere mapping on elecfield,spheremap

set object smoothing elecfield,100

draw to back   ` added this

lock vertexdata for limb elecfield,0
maxvertex = get vertexdata vertex count()
unlock vertexdata

do
   for i = 0 to maxvertex-1
      lock vertexdata for limb elecfield+1,0

      rem get the vertex position and add random values
      x# = get vertexdata position x(i) + rnd(1000)>100
      y# = get vertexdata position y(i) + rnd(1000)>100
      z# = get vertexdata position z(i) + rnd(1000)>100
      unlock vertexdata

      rem lock the vertexdata for visible object
      lock vertexdata for limb elecfield,0
      rem and set the new vertex positions
      set vertexdata position i, x#, y#, z#
      unlock vertexdata
   next i
`inc xrotation#,8
`inc yrotation#,8
`inc zrotation#,8
`rotate object elecfield,xrotation#,yrotation#,zrotation#
paste image 2, 0, 0                     ` added this - use the image number you want as a backdrop
move object 1, (keystate(17)-keystate(31))*.1
turn object left 1, (keystate(30)-keystate(32))*1
set camera to follow object position x(tachyon),object position y(tachyon),object position z(tachyon),0,4,3,20,1
sync
loop

CHECK OUT SOME MUSIC FROM MY NEW TECHNO CD! TECHNOKINESIS
http://www.youtube.com/watch?v=4a8KedfgVv0
ALSO, CHECK OUT MY NEW TECHNO CD! http://www.imageposeidon.com/

Back to top

Profile

baxslash

Valued Member

Bronze Codemaster

19

Years of Service

User Offline

Joined: 26th Dec 2006

Location: Duffield

Posted: 6th Aug 2010 01:02

Link

What's up with your post?

I want to know where the media is at line 23?

Also (as usual) it might help if you could explain your problem slightly better... getting sick of saying that, sorry!!

Back to top

Profile PM Email

Mugen Wizardry

User Banned

Posted: 6th Aug 2010 01:12

Link

dude, the media is in the sphere mapping tut in ur projects folder.

CHECK OUT SOME MUSIC FROM MY NEW TECHNO CD! TECHNOKINESIS
http://www.youtube.com/watch?v=4a8KedfgVv0
ALSO, CHECK OUT MY NEW TECHNO CD! http://www.imageposeidon.com/

Back to top

Profile

baxslash

Valued Member

Bronze Codemaster

19

Years of Service

User Offline

Joined: 26th Dec 2006

Location: Duffield

Posted: 6th Aug 2010 01:18

Link

No... it isn't

Please pull your neck in a little and allow people to help you without insulting them?!

Back to top

Profile PM Email

Mugen Wizardry

User Banned

Posted: 6th Aug 2010 01:23

Link

i wasn't insulting you...

Anyway.

Here, I uploaded a zip.

CHECK OUT SOME MUSIC FROM MY NEW TECHNO CD! TECHNOKINESIS
http://www.youtube.com/watch?v=4a8KedfgVv0
ALSO, CHECK OUT MY NEW TECHNO CD! http://www.imageposeidon.com/

Back to top

Profile

baxslash

Valued Member

Bronze Codemaster

19

Years of Service

User Offline

Joined: 26th Dec 2006

Location: Duffield

Posted: 6th Aug 2010 01:29

Link

Quote: "i wasn't insulting you..."

Correct, sorry. I'm having a bad day and the assumption I knew where the none existant file was (on my machine at least) came across as an insult which was not what you intended.

Looking at the problem...

Back to top

Profile PM Email

Mugen Wizardry

User Banned

Posted: 6th Aug 2010 01:30

Link

np

CHECK OUT SOME MUSIC FROM MY NEW TECHNO CD! TECHNOKINESIS
http://www.youtube.com/watch?v=4a8KedfgVv0
ALSO, CHECK OUT MY NEW TECHNO CD! http://www.imageposeidon.com/

Back to top

Profile

Mugen Wizardry

User Banned

Posted: 6th Aug 2010 12:08

Link

anyone?

CHECK OUT SOME MUSIC FROM MY NEW TECHNO CD! TECHNOKINESIS
http://www.youtube.com/watch?v=4a8KedfgVv0
ALSO, CHECK OUT MY NEW TECHNO CD! http://www.imageposeidon.com/

Back to top

Profile

Mugen Wizardry

User Banned

Posted: 6th Aug 2010 13:31

Link

baxslash?

CHECK OUT SOME MUSIC FROM MY NEW TECHNO CD! TECHNOKINESIS
http://www.youtube.com/watch?v=4a8KedfgVv0
ALSO, CHECK OUT MY NEW TECHNO CD! http://www.imageposeidon.com/

Back to top

Profile

Van B

Moderator

23

Years of Service

User Offline

Joined: 8th Oct 2002

Location: Sunnyvale

Posted: 6th Aug 2010 13:44

Link

This is weird:

x# = get vertexdata position x(i) + rnd(1000)>100
y# = get vertexdata position y(i) + rnd(1000)>100
z# = get vertexdata position z(i) + rnd(1000)>100

Why are you randomly adding 1? - that code would be like...

Vertex position X(i) + (if RND(1000)>100)

So it's either X, or X+1, X+1 is a 1 in 10 chance. Do you maybe want to divide by 100, like...

x# = get vertexdata position x(i) + (rnd(1000)/100.0)
y# = get vertexdata position y(i) + (rnd(1000)/100.0)
z# = get vertexdata position z(i) + (rnd(1000)/100.0)

So it's adding a random float from 0.0 to 10.0.

Health, Ammo, and bacon and eggs!

Back to top

Profile PM Email

Mugen Wizardry

User Banned

Posted: 6th Aug 2010 13:49

Link

ok now its a bunch of weird triangles.

i need it to act like a time warp.

a bubble effect

CHECK OUT SOME MUSIC FROM MY NEW TECHNO CD! TECHNOKINESIS
http://www.youtube.com/watch?v=4a8KedfgVv0
ALSO, CHECK OUT MY NEW TECHNO CD! http://www.imageposeidon.com/

Back to top

Profile

Van B

Moderator

23

Years of Service

User Offline

Joined: 8th Oct 2002

Location: Sunnyvale

Posted: 6th Aug 2010 14:04

Link

I'm not sure what you mean by bubble.

If you are after a black hole, then I would use a 3D location for it, and use that in relation to the vertex positions - then move the vertex towards the black hole, the closer the vertex, the faster it moves. This would give a kinda black hole vacuum effect, where the objects are sucked in but they would warp, which might be what you want.

A bubble effect would take a bit more work - like storing the original positions, or distance from centre of all the vertexes - so the vertexes could then bulge where they need to. For instance, find the vertex that is furthest away from the centre and use that as a guide - and for every other vertex store the distance in realtion to that - so a vertex that is half the distance from centre, would be 0.5. Then you have the distance of the 'control' vertex, and each other vertex can bulge uniformally. It's not easy to do that, much easier to do the vacuum thing with models getting sucked into a black hole.

Health, Ammo, and bacon and eggs!

Back to top

Profile PM Email

Mugen Wizardry

User Banned

Posted: 6th Aug 2010 14:09

Link

i have no idea how to do this.

alls i wanna do is warp a point in 3d space..

CHECK OUT SOME MUSIC FROM MY NEW TECHNO CD! TECHNOKINESIS
http://www.youtube.com/watch?v=4a8KedfgVv0
ALSO, CHECK OUT MY NEW TECHNO CD! http://www.imageposeidon.com/

Back to top

Profile

Mugen Wizardry

User Banned

Posted: 6th Aug 2010 14:12

Link

u know, like if u put something under a magnifying glass.

CHECK OUT SOME MUSIC FROM MY NEW TECHNO CD! TECHNOKINESIS
http://www.youtube.com/watch?v=4a8KedfgVv0
ALSO, CHECK OUT MY NEW TECHNO CD! http://www.imageposeidon.com/

Back to top

Profile

Mugen Wizardry

User Banned

Posted: 6th Aug 2010 14:16

Link

and dont say sphere mapping. i tried that

CHECK OUT SOME MUSIC FROM MY NEW TECHNO CD! TECHNOKINESIS
http://www.youtube.com/watch?v=4a8KedfgVv0
ALSO, CHECK OUT MY NEW TECHNO CD! http://www.imageposeidon.com/

Back to top

Profile

Diggsey

20

Years of Service

User Offline

Joined: 24th Apr 2006

Location: On this web page.

Posted: 6th Aug 2010 15:12

Link

Can you at least post a link to an image showing the desired effect?

[b]

Back to top

Profile PM Email Website

Van B

Moderator

23

Years of Service

User Offline

Joined: 8th Oct 2002

Location: Sunnyvale

Posted: 6th Aug 2010 15:20

Link

I think the only way to do that effectively, would be to render an extra camera onto that shape - like maybe just a sphere, with the camera render scaled so that there are 3 renders on Y, and 6 renders around (scaling the texture by 1/6th , 1/3rd) - then you'd have a warped screen that you could orientate in front of the real camera.

It would be far too complex and fiddly to alter the vertexes of all your objects, even using a shader is probably not a great idea.

Some did do a fisheye lens effect a few weeks back, maybe that's worth looking into - they use a sphere as well.

Health, Ammo, and bacon and eggs!

Back to top

Profile PM Email

Mugen Wizardry

User Banned

Posted: 6th Aug 2010 15:40

Link

where would i find it?

CHECK OUT SOME MUSIC FROM MY NEW TECHNO CD! TECHNOKINESIS
http://www.youtube.com/watch?v=4a8KedfgVv0
ALSO, CHECK OUT MY NEW TECHNO CD! http://www.imageposeidon.com/

Back to top

Profile