Placing objects onto the surface of a sphere

Author

Message

WLGfx

18

Years of Service

User Offline

Joined: 1st Nov 2007

Location: NW United Kingdom

Posted: 22nd Sep 2011 01:51 Edited at: 22nd Sep 2011 01:53

Link

My next project is:

I want to create a planet, and on that planet have some landing zones, depicted by objects which can be selected simply by "Pick Object()".

The planet creation - Easy

Placing the objects on the surface - Erm...

I'd like to rotate them with the sphere too.

My mind has gone a complete blank if anyone has any ideas...?

EDIT: They will be pseudo randomly placed by the way... So that each time I come back to that planet the same positions will be there...

Warning! May contain Nuts!

Back to top

Profile PM Email Website

chafari

Valued Member

20

Years of Service

User Offline

Joined: 2nd May 2006

Location: Canary Islands

Posted: 22nd Sep 2011 02:14

Link

You could have a Dummy object that will be in 0,0,0 then all objects that you have on top of the sphere, you have to calculate the distance from the place they are to the dummy ....lastly offset limb cero of all objects the distance, and then use the same var to rotate them.

Cheers.

I'm not a grumpy grandpa

Back to top

Profile PM Email

WLGfx

18

Years of Service

User Offline

Joined: 1st Nov 2007

Location: NW United Kingdom

Posted: 22nd Sep 2011 02:19

Link

Ah ha... Or Eureka!!!

I think I've got it, just going to put it into practice.

Offset for object will be a rotational vector which is added the current orientation of the sphere and then placed at a distance of the radius...

I'll post some code as soon as I've got it...

Warning! May contain Nuts!

Back to top

Profile PM Email Website

chafari

Valued Member

20

Years of Service

User Offline

Joined: 2nd May 2006

Location: Canary Islands

Posted: 22nd Sep 2011 02:38 Edited at: 22nd Sep 2011 02:39

Link

Quote: "Ah ha... Or Eureka!!! "

I made some test offseting limb 0, and it works. Then if you want to make them to move of the surface, you will have to increase a var and apply it to your object.

+ Code Snippet

ink rgb(0,100,0),0
box 0,0,50,50
ink rgb(0,150,0),0
box 5,5,45,45
get image 1,0,0,50,50,1

autocam off
sync on
make object sphere 1,90,30,30
texture object 1,1
scale object texture 1,30,30
set object collision to polygons 1

for i= 2 to 10
   make object box i,8,8,8
   offset limb i,0,0,0,48
   yrotate object i,rnd(360)
   xrotate object i,rnd(360)
   zrotate object i,rnd(360)
   fix object pivot i
next i

position camera -100,100,-100
point camera 0,0,0
do
g#=g#+0.1
rotate object 1,g#,g#,g#

for i= 2 to 10
   rotate object i,g#,g#,g#
next i


sync
loop

Cheers.

I'm not a grumpy grandpa

Back to top

Profile PM Email

WLGfx

18

Years of Service

User Offline

Joined: 1st Nov 2007

Location: NW United Kingdom

Posted: 22nd Sep 2011 02:54 Edited at: 22nd Sep 2011 02:55

Link

Does "Pick Object" work with limbs? It would help if it did...

I've come up with this. Looks nice but not what I'm after. The objects should stay on the surface. At the moment they orbit the thing...

Rem Project: Dark Basic Pro Project
Rem Created: Thursday, September 22, 2011

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

autocam off
sync on
sync rate 60

set display mode 800,600,32
set window off

position camera 0,0,-150

global seed as integer
seed = 0

` Initialise first planet
planet_gen()

do
    planet_update()
    `planet_change()
    sync
loop

end

type surface_objects
    objID as integer
    xrot as float
    yrot as float
    zrot as float
endtype

function planet_gen()
    global planet_objID as integer
    planet_objID = find free object()
    make object sphere planet_objID,100.0
    global dim sobj(10) as surface_objects
    randomize seed
    for a=0 to 10
        sobj(a).objID = find free object()
        sobj(a).xrot = rnd(360)
        sobj(a).yrot = rnd(360)
        sobj(a).zrot = rnd(360)
        make object sphere sobj(a).objID,5
        color object sobj(a).objID,rnd(0xffffff)
    next
endfunction

function planet_update()
    yang as float
    yang = wrapvalue( object angle Y(planet_objID) + 1.0 )
    xrot as float : yrot as float : zrot as float
    yrotate object planet_objID, yang
    for a=0 to 10
        position object sobj(a).objID,0,0,0
        xrot = sobj(a).xrot
        yrot = wrapvalue( sobj(a).yrot + yang )
        zrot = sobj(a).zrot
        rotate object sobj(a).objID, xrot, yrot, zrot
        move object sobj(a).objID, 50
    next
endfunction

+ Code Snippet

Rem Project: Dark Basic Pro Project
Rem Created: Thursday, September 22, 2011

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

autocam off
sync on
sync rate 60

set display mode 800,600,32
set window off

position camera 0,0,-150

global seed as integer
seed = 0

` Initialise first planet
planet_gen()

do
    planet_update()
    `planet_change()
    sync
loop

end

type surface_objects
    objID as integer
    xrot as float
    yrot as float
    zrot as float
endtype

function planet_gen()
    global planet_objID as integer
    planet_objID = find free object()
    make object sphere planet_objID,100.0
    global dim sobj(10) as surface_objects
    randomize seed
    for a=0 to 10
        sobj(a).objID = find free object()
        sobj(a).xrot = rnd(360)
        sobj(a).yrot = rnd(360)
        sobj(a).zrot = rnd(360)
        make object sphere sobj(a).objID,5
        color object sobj(a).objID,rnd(0xffffff)
    next
endfunction

function planet_update()
    yang as float
    yang = wrapvalue( object angle Y(planet_objID) + 1.0 )
    xrot as float : yrot as float : zrot as float
    yrotate object planet_objID, yang
    for a=0 to 10
        position object sobj(a).objID,0,0,0
        xrot = sobj(a).xrot
        yrot = wrapvalue( sobj(a).yrot + yang )
        zrot = sobj(a).zrot
        rotate object sobj(a).objID, xrot, yrot, zrot
        move object sobj(a).objID, 50
    next
endfunction

EDIT: Actually chafari, your "Fix Pivot" is probably a better choice... Thanks...

Warning! May contain Nuts!

Back to top

Profile PM Email Website

chafari

Valued Member

20

Years of Service

User Offline

Joined: 2nd May 2006

Location: Canary Islands

Posted: 22nd Sep 2011 02:59

Link

If you are going to move the camera, I think you had better to place dummys in every limb to decide which limb you want to move

Cheers.

I'm not a grumpy grandpa

Back to top

Profile PM Email

WLGfx

18

Years of Service

User Offline

Joined: 1st Nov 2007

Location: NW United Kingdom

Posted: 22nd Sep 2011 03:03

Link

Rem Project: Dark Basic Pro Project
Rem Created: Thursday, September 22, 2011

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

autocam off
sync on
sync rate 60

set display mode 800,600,32
set window off

position camera 0,0,-150

global seed as integer
seed = 0

` Initialise first planet
planet_gen()

do
    planet_update()
    `planet_change()
    sync
loop

end

type surface_objects
    objID as integer
    xrot as float
    yrot as float
    zrot as float
endtype

function planet_gen()
    global planet_objID as integer
    planet_objID = find free object()
    make object sphere planet_objID,100.0
    global dim sobj(10) as surface_objects
    randomize seed
    for a=0 to 10
        sobj(a).objID = find free object()
        sobj(a).xrot = rnd(360)
        sobj(a).yrot = rnd(360)
        sobj(a).zrot = rnd(360)
        make object sphere sobj(a).objID,5
        color object sobj(a).objID,rnd(0xffffff)
        rotate object sobj(a).objID, sobj(a).xrot, sobj(a).yrot, sobj(a).zrot
        move object sobj(a).objID, 50
        fix object pivot sobj(a).objID
    next
endfunction

function planet_update()
    yang as float
    yang = wrapvalue( object angle Y(planet_objID) + 1.0 )
    xrot as float : yrot as float : zrot as float
    yrotate object planet_objID, yang
    for a=0 to 10
        yrotate object sobj(a).objID, yang
    next
endfunction

+ Code Snippet

Rem Project: Dark Basic Pro Project
Rem Created: Thursday, September 22, 2011

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

autocam off
sync on
sync rate 60

set display mode 800,600,32
set window off

position camera 0,0,-150

global seed as integer
seed = 0

` Initialise first planet
planet_gen()

do
    planet_update()
    `planet_change()
    sync
loop

end

type surface_objects
    objID as integer
    xrot as float
    yrot as float
    zrot as float
endtype

function planet_gen()
    global planet_objID as integer
    planet_objID = find free object()
    make object sphere planet_objID,100.0
    global dim sobj(10) as surface_objects
    randomize seed
    for a=0 to 10
        sobj(a).objID = find free object()
        sobj(a).xrot = rnd(360)
        sobj(a).yrot = rnd(360)
        sobj(a).zrot = rnd(360)
        make object sphere sobj(a).objID,5
        color object sobj(a).objID,rnd(0xffffff)
        rotate object sobj(a).objID, sobj(a).xrot, sobj(a).yrot, sobj(a).zrot
        move object sobj(a).objID, 50
        fix object pivot sobj(a).objID
    next
endfunction

function planet_update()
    yang as float
    yang = wrapvalue( object angle Y(planet_objID) + 1.0 )
    xrot as float : yrot as float : zrot as float
    yrotate object planet_objID, yang
    for a=0 to 10
        yrotate object sobj(a).objID, yang
    next
endfunction

Well, the planet now moves but the surface objects stay in place.

And here's me thinking this was going to be easy...

Warning! May contain Nuts!

Back to top

Profile PM Email Website

chafari

Valued Member

20

Years of Service

User Offline

Joined: 2nd May 2006

Location: Canary Islands

Posted: 22nd Sep 2011 03:11 Edited at: 22nd Sep 2011 03:16

Link

You just have move objects, but have not offset its center to rotate with the planet

Edited
Your code updated.

Rem Project: Dark Basic Pro Project
Rem Created: Thursday, September 22, 2011

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

autocam off
sync on
sync rate 60

set display mode 800,600,32
set window off

position camera 0,0,-150

global seed as integer
seed = 0

` Initialise first planet
planet_gen()

do
    planet_update()
    `planet_change()
    sync
loop

end

type surface_objects
    objID as integer
    xrot as float
    yrot as float
    zrot as float
endtype

function planet_gen()
    global planet_objID as integer
    planet_objID = find free object()
    make object sphere planet_objID,100.0
    global dim sobj(10) as surface_objects
    randomize seed
    for a=0 to 10
        sobj(a).objID = find free object()
        sobj(a).xrot = rnd(360)
        sobj(a).yrot = rnd(360)
        sobj(a).zrot = rnd(360)
        make object sphere sobj(a).objID,5
        color object sobj(a).objID,rnd(0xffffff)
        rotate object sobj(a).objID, sobj(a).xrot, sobj(a).yrot, sobj(a).zrot
        rem move object sobj(a).objID, 50
        offset limb sobj(a).objID,0,0,0,50
        fix object pivot sobj(a).objID
    next
endfunction

function planet_update()
    yang as float
    yang = wrapvalue( object angle Y(planet_objID) + 1.0 )
    xrot as float : yrot as float : zrot as float
    yrotate object planet_objID, yang
    for a=0 to 10
        yrotate object sobj(a).objID, yang
    next
endfunction

+ Code Snippet

Rem Project: Dark Basic Pro Project
Rem Created: Thursday, September 22, 2011

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

autocam off
sync on
sync rate 60

set display mode 800,600,32
set window off

position camera 0,0,-150

global seed as integer
seed = 0

` Initialise first planet
planet_gen()

do
    planet_update()
    `planet_change()
    sync
loop

end

type surface_objects
    objID as integer
    xrot as float
    yrot as float
    zrot as float
endtype

function planet_gen()
    global planet_objID as integer
    planet_objID = find free object()
    make object sphere planet_objID,100.0
    global dim sobj(10) as surface_objects
    randomize seed
    for a=0 to 10
        sobj(a).objID = find free object()
        sobj(a).xrot = rnd(360)
        sobj(a).yrot = rnd(360)
        sobj(a).zrot = rnd(360)
        make object sphere sobj(a).objID,5
        color object sobj(a).objID,rnd(0xffffff)
        rotate object sobj(a).objID, sobj(a).xrot, sobj(a).yrot, sobj(a).zrot
        rem move object sobj(a).objID, 50
        offset limb sobj(a).objID,0,0,0,50
        fix object pivot sobj(a).objID
    next
endfunction

function planet_update()
    yang as float
    yang = wrapvalue( object angle Y(planet_objID) + 1.0 )
    xrot as float : yrot as float : zrot as float
    yrotate object planet_objID, yang
    for a=0 to 10
        yrotate object sobj(a).objID, yang
    next
endfunction

Cheers.

I'm not a grumpy grandpa

Back to top

Profile PM Email

WLGfx

18

Years of Service

User Offline

Joined: 1st Nov 2007

Location: NW United Kingdom

Posted: 22nd Sep 2011 03:16

Link

I think what I need to figure out now is how to set the local object coordinates so that they are the same as the center of the main sphere. They're still rotating on they're own axis.

I'm gonna have another look at my first piece of code.

If I was to use limbs then the pick object wouldn't work.

Warning! May contain Nuts!

Back to top

Profile PM Email Website

chafari

Valued Member

20

Years of Service

User Offline

Joined: 2nd May 2006

Location: Canary Islands

Posted: 22nd Sep 2011 03:22 Edited at: 22nd Sep 2011 03:25

Link

Quote: "They're still rotating on they're own axis."

They rotate as if they were on top of a big planet as it must do.

Rem Project: Dark Basic Pro Project
Rem Created: Thursday, September 22, 2011

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

autocam off
sync on
sync rate 60

set display mode 800,600,32
rem set window off

position camera 0,0,-150

global seed as integer
seed = 0

` Initialise first planet
planet_gen()

do
    planet_update()
    `planet_change()
    sync
loop

end

type surface_objects
    objID as integer
    xrot as float
    yrot as float
    zrot as float
endtype

function planet_gen()
    global planet_objID as integer
    planet_objID = find free object()
    make object sphere planet_objID,100.0
    global dim sobj(10) as surface_objects
    randomize seed
    for a=0 to 10
        sobj(a).objID = find free object()
        sobj(a).xrot = rnd(360)
        sobj(a).yrot = rnd(360)
        sobj(a).zrot = rnd(360)
        make object box sobj(a).objID,50,5,5
        color object sobj(a).objID,rnd(0xffffff)
        rotate object sobj(a).objID, sobj(a).xrot, sobj(a).yrot, sobj(a).zrot
        rem move object sobj(a).objID, 50
        offset limb sobj(a).objID,0,0,0,50
        fix object pivot sobj(a).objID
    next
endfunction

function planet_update()
    yang as float
    yang = wrapvalue( object angle Y(planet_objID) + 1.0 )
    xrot as float : yrot as float : zrot as float
    yrotate object planet_objID, yang
    for a=0 to 10
        yrotate object sobj(a).objID, yang
    next
endfunction

+ Code Snippet

Rem Project: Dark Basic Pro Project
Rem Created: Thursday, September 22, 2011

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

autocam off
sync on
sync rate 60

set display mode 800,600,32
rem set window off

position camera 0,0,-150

global seed as integer
seed = 0

` Initialise first planet
planet_gen()

do
    planet_update()
    `planet_change()
    sync
loop

end

type surface_objects
    objID as integer
    xrot as float
    yrot as float
    zrot as float
endtype

function planet_gen()
    global planet_objID as integer
    planet_objID = find free object()
    make object sphere planet_objID,100.0
    global dim sobj(10) as surface_objects
    randomize seed
    for a=0 to 10
        sobj(a).objID = find free object()
        sobj(a).xrot = rnd(360)
        sobj(a).yrot = rnd(360)
        sobj(a).zrot = rnd(360)
        make object box sobj(a).objID,50,5,5
        color object sobj(a).objID,rnd(0xffffff)
        rotate object sobj(a).objID, sobj(a).xrot, sobj(a).yrot, sobj(a).zrot
        rem move object sobj(a).objID, 50
        offset limb sobj(a).objID,0,0,0,50
        fix object pivot sobj(a).objID
    next
endfunction

function planet_update()
    yang as float
    yang = wrapvalue( object angle Y(planet_objID) + 1.0 )
    xrot as float : yrot as float : zrot as float
    yrotate object planet_objID, yang
    for a=0 to 10
        yrotate object sobj(a).objID, yang
    next
endfunction

Edited You could make a big flat planet and then just rotate the sky.

Cheers.

I'm not a grumpy grandpa

Back to top

Profile PM Email

WLGfx

18

Years of Service

User Offline

Joined: 1st Nov 2007

Location: NW United Kingdom

Posted: 22nd Sep 2011 03:28 Edited at: 22nd Sep 2011 03:29

Link

@chafari - Brilliant! It finally works... Now I can start creating the first stage of my game...

EDIT: I assumed offset limb was absolute positioning and wasn't affected by orientation...

Warning! May contain Nuts!

Back to top

Profile PM Email Website

chafari

Valued Member

20

Years of Service

User Offline

Joined: 2nd May 2006

Location: Canary Islands

Posted: 22nd Sep 2011 03:32

Link

Ok don't give up !!

Cheers.

I'm not a grumpy grandpa

Back to top

Profile PM Email

WLGfx

18

Years of Service

User Offline

Joined: 1st Nov 2007

Location: NW United Kingdom

Posted: 22nd Sep 2011 03:34 Edited at: 22nd Sep 2011 03:35

Link

Quote: "Edited You could make a big flat planet and then just rotate the sky."

That idea is for when landing on the planet... Got to have a sequence before the second stage of the game kicks in...

Using a simple matrix and using the matrix rotate commands I should be able to simulate a decent effect...

Warning! May contain Nuts!

Back to top

Profile PM Email Website

Neuro Fuzzy

19

Years of Service

User Offline

Joined: 11th Jun 2007

Location:

Posted: 22nd Sep 2011 03:38

Link

Aha! Found the thread.

http://forum.thegamecreators.com/?m=forum_view&t=174630&b=1
Use Dr. Tank's solution, not my solution. What I had going was OK but what Dr Tank was doing was easier and pretty much the same thing.

Why does blue text appear every time you are near?

Back to top

Profile PM Email

WLGfx

18

Years of Service

User Offline

Joined: 1st Nov 2007

Location: NW United Kingdom

Posted: 22nd Sep 2011 03:54

Link

@Neuro Fuzzy - I remember watching that thread go by, it was very interesting. I'm determined to get some of the vector type of maths that you show quite often fully learnt, because after that I want to write them directly into assembler using the FPU instead of using the standard C/C++ libraries. However I've bookmarked that thread now as a reference. Thank you...

In the meantime, have you got any easy to learn vector maths links? I should have learnt it years ago really...

Warning! May contain Nuts!

Back to top

Profile PM Email Website

WLGfx

18

Years of Service

User Offline

Joined: 1st Nov 2007

Location: NW United Kingdom

Posted: 22nd Sep 2011 04:16

Link

Final proto type code in case anyone would like a nosey...

Rem Project: Dark Basic Pro Project
Rem Created: Thursday, September 22, 2011

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

autocam off
sync on
sync rate 60

set display mode 800,600,32
set window off

position camera 0,0,-150
color backdrop 0

global seed as integer
seed = 0

` Initialise first planet
planet_gen()

do
    planet_update()
    planet_select()
    planet_change()
    sync
loop

end

type surface_objects
    objID as integer
    xrot as float
    yrot as float
    zrot as float
endtype

function planet_gen()
    global planet_objID as integer
    planet_objID = find free object()
    make object sphere planet_objID,100.0
    global dim sobj(10) as surface_objects
    randomize seed
    for a=0 to 10
        sobj(a).objID = find free object()
        sobj(a).xrot = rnd(360)
        sobj(a).yrot = rnd(360)
        sobj(a).zrot = rnd(360)
        make object sphere sobj(a).objID,5
        color object sobj(a).objID,rnd(0xffffff)
        rotate object sobj(a).objID, sobj(a).xrot, sobj(a).yrot, sobj(a).zrot
        rem move object sobj(a).objID, 50
        offset limb sobj(a).objID,0,0,0,50
        fix object pivot sobj(a).objID
    next
endfunction

function planet_update()
    yang as float
    yang = wrapvalue( object angle Y(planet_objID) + 0.5 )
    xrot as float : yrot as float : zrot as float
    yrotate object planet_objID, yang
    for a=0 to 10
        yrotate object sobj(a).objID, yang
    next
endfunction

function planet_select()
    flag=0
    obj=pick object( mousex(), mousey(), 1, 1000 )
    a=0
    while a<=10 and flag=0
        if obj=sobj(a).objID
            flag=1
        else
            inc a
        endif
    endwhile
    if flag=1
        s$="Landing Zone = "+str$(a)
        text 0,0,s$
    endif
endfunction

function planet_change()
    text 0,12,"Left/Right mouse clicks to change planets seed."
    text 0,24,"Current seed value = "+str$(seed)
    mc=mouseclick()
    if mc=1
        wait_mouse_release()
        inc seed
        planet_regen()
    else
        if mc=2
            wait_mouse_release()
            dec seed
            planet_regen()
        endif
    endif
endfunction

function wait_mouse_release()
    while mouseclick()>0
        sync    
    endwhile
endfunction

function planet_regen()
    delete object planet_objID
    for a=0 to 10
        delete object sobj(a).objID
    next
    planet_gen()
endfunction

+ Code Snippet

Rem Project: Dark Basic Pro Project
Rem Created: Thursday, September 22, 2011

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

autocam off
sync on
sync rate 60

set display mode 800,600,32
set window off

position camera 0,0,-150
color backdrop 0

global seed as integer
seed = 0

` Initialise first planet
planet_gen()

do
    planet_update()
    planet_select()
    planet_change()
    sync
loop

end

type surface_objects
    objID as integer
    xrot as float
    yrot as float
    zrot as float
endtype

function planet_gen()
    global planet_objID as integer
    planet_objID = find free object()
    make object sphere planet_objID,100.0
    global dim sobj(10) as surface_objects
    randomize seed
    for a=0 to 10
        sobj(a).objID = find free object()
        sobj(a).xrot = rnd(360)
        sobj(a).yrot = rnd(360)
        sobj(a).zrot = rnd(360)
        make object sphere sobj(a).objID,5
        color object sobj(a).objID,rnd(0xffffff)
        rotate object sobj(a).objID, sobj(a).xrot, sobj(a).yrot, sobj(a).zrot
        rem move object sobj(a).objID, 50
        offset limb sobj(a).objID,0,0,0,50
        fix object pivot sobj(a).objID
    next
endfunction

function planet_update()
    yang as float
    yang = wrapvalue( object angle Y(planet_objID) + 0.5 )
    xrot as float : yrot as float : zrot as float
    yrotate object planet_objID, yang
    for a=0 to 10
        yrotate object sobj(a).objID, yang
    next
endfunction

function planet_select()
    flag=0
    obj=pick object( mousex(), mousey(), 1, 1000 )
    a=0
    while a<=10 and flag=0
        if obj=sobj(a).objID
            flag=1
        else
            inc a
        endif
    endwhile
    if flag=1
        s$="Landing Zone = "+str$(a)
        text 0,0,s$
    endif
endfunction

function planet_change()
    text 0,12,"Left/Right mouse clicks to change planets seed."
    text 0,24,"Current seed value = "+str$(seed)
    mc=mouseclick()
    if mc=1
        wait_mouse_release()
        inc seed
        planet_regen()
    else
        if mc=2
            wait_mouse_release()
            dec seed
            planet_regen()
        endif
    endif
endfunction

function wait_mouse_release()
    while mouseclick()>0
        sync    
    endwhile
endfunction

function planet_regen()
    delete object planet_objID
    for a=0 to 10
        delete object sobj(a).objID
    next
    planet_gen()
endfunction

Warning! May contain Nuts!

Back to top

Profile PM Email Website

Neuro Fuzzy

19

Years of Service

User Offline

Joined: 11th Jun 2007

Location:

Posted: 22nd Sep 2011 07:55

Link

Quote: "In the meantime, have you got any easy to learn vector maths links? I should have learnt it years ago really..."

Funny you should ask. I started learning linear algebra with this awesome tutorial made for DBPro. "vectors don't bite"
http://forum.thegamecreators.com/?m=forum_view&t=133126&b=7

That covers vector addition, subtraction, scalar multiplication, dot product, cross product, length, inversion, normalization, and most importantly - how to use vector math.

Of course, vector math can be expressed with matrices, and after I read that tutorial, it took me a while of googling and trying to solve problems before I had a grip on affine transformation matrices. Affine transformations represent scaling, rotation, translation, skew, and mirroring. Usually the latter two types of transforms aren't used. An affine matrix like that quite literally represents axes in coordinate space.

Here's an example of how awesome affine transformations are/standard linear algebra is: If you hold your hand out in front of you, so that your thumb, index, and middle finger are all perpendicular to each other, then move your arm around and rotate your wrist, that is a surprisingly precise representation of a translation/rotation matrix. If you took the position of the tip of your thumb relative to the knuckle of your index finger (because your knuckle is approximately the origin of our coordinate space), then the resulting direction (vector of length one) is one column of your affine transformation matrix. If you do the same with your index and middle fingers, you get an entire rotation matrix! Of course, another cool thing, is that if you take the dot product of two of these fingers, you get zero. eg

(IndexTipPos.x-KnucklePos.x)*(ThumbTipPos.x-KnucklePos.x)+(IndexTipPos.y-KnucklePos.y*(ThumbTipPos.y-KnucklePos.y)+(IndexTipPos.z-KnucklePos.x)*(ThumbTipPos.z-KnucklePos.z)=0

this is the mathematical way of saying the two vectors are perpendicular!

There's lots of stuff like this. Suffice it to say that after you go through the "why" of it all, matrices and vectors are really intuitive.

Why does blue text appear every time you are near?

Back to top

Profile PM Email

WLGfx

18

Years of Service

User Offline

Joined: 1st Nov 2007

Location: NW United Kingdom

Posted: 22nd Sep 2011 14:00

Link

Before I move on with my larger project I think I need to take a little stand back and study this subject a little further.

I remember doing some things like you describe Nuero in school. 2D vector maths I have an almost decent grasp on. I've had a once over through the link above and will re-read it. I've found this which seems to also be a good start:

http://chortle.ccsu.edu/vectorlessons/vectorIndex.html#00

I'm so used to using x's, y's, and z's and never considered vectors as such, apart from angles, distances, etc. Hopefully I can put together soon some proper code involving vector maths.

Thanks again...

Warning! May contain Nuts!

Back to top

Profile PM Email Website

chafari

Valued Member

20

Years of Service

User Offline

Joined: 2nd May 2006

Location: Canary Islands

Posted: 22nd Sep 2011 14:46

Link

Quote: "Final proto type code in case anyone would like a nosey..."

You got it working!! but Dr Tank examples are awesome. Thanks Neuro Fuzzy for showing us that thread and for the good vector tuto.

Cheers.

I'm not a grumpy grandpa

Back to top

Profile PM Email

WLGfx

18

Years of Service

User Offline

Joined: 1st Nov 2007

Location: NW United Kingdom

Posted: 22nd Sep 2011 19:54

Link

The testing code in this thread was basically all I wanted. I'm after generating a planet with a perlin noise texture (fixed on a sphere). Placing landing sites on it, the user rotates around the planet and selects a landing zone. Then it moves on the the next segment.

A lot of the other code involves heavy maths which I don't yet understand fully. In the meantime I'm buffing up on vectors and matrices, might take a while.

The help from the members of these forums is amazing, I wouldn't be at this point if it wasn't for that help.

Warning! May contain Nuts!

Back to top

Profile PM Email Website

Sorry your browser is not supported!

DarkBASIC Professional Discussion / Placing objects onto the surface of a sphere