physics run different every time

Author

Message

shadey

14

Years of Service

User Offline

Joined: 25th Jan 2010

Location:

Posted: 1st Jul 2013 20:08

Link

Hi, I have been working on a level editor for a while now, taking a break from it now and then

Anyhow I was just wondering why a physics scenario, the same every time,runs differently,objects land and halt at different positions each run of the simulation.To show this I include a video HERE of the latest rewrite of the editor,running the same physics simulation a few times and observing the end scenario.

Hail to the king, baby!

http://davidjohnwheeler.blogspot.co.uk

Back to top

Profile PM Website

Markus

Valued Member

20

Years of Service

User Offline

Joined: 10th Apr 2004

Location: Germany

Posted: 1st Jul 2013 20:18 Edited at: 1st Jul 2013 20:23

Link

it used the frame time. you can use a constant time with
stepphysics command. different time steps results in variance
with this physics engine.

with the last agk beta my frametime jumps 5 fps or more around and i don't know why, its looks like an impact somewhere.
i closed all background task for compare before.

Back to top

Profile PM Email

shadey

14

Years of Service

User Offline

Joined: 25th Jan 2010

Location:

Posted: 1st Jul 2013 22:38

Link

ah,thanks.

Hail to the king, baby!

http://davidjohnwheeler.blogspot.co.uk

Back to top

Profile PM Website

shadey

14

Years of Service

User Offline

Joined: 25th Jan 2010

Location:

Posted: 1st Jul 2013 22:54

Link

hmmm! I have tried using StepPhysics(0.02) before the sync() in the main loop, but this still yields different results each run! is this the only command I must call?! changing the values simply makes the physics faster/slower respectively.

Hail to the king, baby!

http://davidjohnwheeler.blogspot.co.uk

Back to top

Profile PM Website

Markus

Valued Member

20

Years of Service

User Offline

Joined: 10th Apr 2004

Location: Germany

Posted: 1st Jul 2013 23:21

Link

hmmm,curios.
i don't know.

Back to top

Profile PM Email

lilpissywilly

AGK Developer

14

Years of Service

User Offline

Joined: 10th Sep 2010

Location: Office Chair

Posted: 1st Jul 2013 23:55

Link

Quote: "hmmm! I have tried using StepPhysics(0.02) before the sync() in the main loop, but this still yields different results each run! is this the only command I must call?! changing the values simply makes the physics faster/slower respectively."

This would still make it dependent on FPS.

Anyway, I don't understand the problem. Try setting up some cans and balls in the real world similar to your program and see if the balls and cans end up in the same position every time your let them topple (they won't, don't try it). The whole point of a physics system is that it's physics, not scripted.

The built in box2d actually runs very well at different FPS but if you want to control the stepPhysics yourself there are threads here that discuss this.

My hovercraft is full of eels

Back to top

Profile PM Email Website

Markus

Valued Member

20

Years of Service

User Offline

Joined: 10th Apr 2004

Location: Germany

Posted: 2nd Jul 2013 09:37

Link

i expect the same result with the same beginning conditions.

Back to top

Profile PM Email

easter bunny

12

Years of Service

User Offline

Joined: 20th Nov 2012

Playing: Dota 2

Posted: 2nd Jul 2013 10:09

Link

instead of calling Sync() at all, try this:
Update(0.02)
Render()
Swap()

Dodge those Balls, awesomest app on the Play Store

Back to top

Profile PM Email

baxslash

Valued Member

Bronze Codemaster

17

Years of Service

User Offline

Joined: 26th Dec 2006

Location: Duffield

Posted: 2nd Jul 2013 11:08

Link

You really shouldn't use stepPhysics unless you have to. I only use it to pause physics IE. stepPhysics(0)

If you could post an example of the problem in code I'm pretty sure I can help you solve the problem. If you are intent on using stepPhysics try using it like this (it should be "better"):

stepPhysics(getFrameTime())

Or if you are 100% certain that your framerate will be at a certain speed like 60fps then:

stepPhysics(0.0166666666666667) rem 1/60

this.mess = abs(sin(times#))

Back to top

Profile PM Email

Markus

Valued Member

20

Years of Service

User Offline

Joined: 10th Apr 2004

Location: Germany

Posted: 2nd Jul 2013 11:18

Link

@baxslash
the problem was he want see the same result each run
and i thought a constant time step results in the same state/positional.

Back to top

Profile PM Email

baxslash

Valued Member

Bronze Codemaster

17

Years of Service

User Offline

Joined: 26th Dec 2006

Location: Duffield

Posted: 2nd Jul 2013 11:20

Link

I have found that when I have changed the time step manually it has resulted in less predictable behaviour, not sure why.

It would help if there was an example to test though.

this.mess = abs(sin(times#))

Back to top

Profile PM Email

Digital Awakening

AGK Developer

22

Years of Service

User Offline

Joined: 27th Aug 2002

Location: Sweden

Posted: 2nd Jul 2013 12:01

Link

Try forcing a fixed fps with setsyncrate(60,1). This uses more cpu but iirc the only way to do it.

Back to top

Profile PM Website

Impetus73

13

Years of Service

User Offline

Joined: 28th Aug 2011

Location: Volda, Norway

Posted: 2nd Jul 2013 22:04

Link

Box2D is not supporting a strict deterministic behavior. It can vary depending on the device, and from time to time when you run it. It has to do with float number handling by the processor/system. You need a fixed point math physics system to get the same result every time with the same setup.

Does it get the same result every time you start the program, but not when you reset the simulation?

----------------
AGK programmer
Did Amiga / AMOS programming in the 90's.

Back to top

Profile PM Email

shadey

14

Years of Service

User Offline

Joined: 25th Jan 2010

Location:

Posted: 2nd Jul 2013 23:18

Link

ah sorry, been a bit busy. I will see the results on every start of the program for you.. I had a slight hunch it could be to do with float, the whole reason I was inquiring is that I was going to do some
cannon knocking down stuff type game, but really the outcome of the physics sim needs to be the same every time else obviously some levels could be impossible!

Hail to the king, baby!

http://davidjohnwheeler.blogspot.co.uk

Back to top

Profile PM Website

shadey

14

Years of Service

User Offline

Joined: 25th Jan 2010

Location:

Posted: 3rd Jul 2013 00:08

Link

Ok, it seems the same every run, just changes every reset of the sim!
I would show some code but it ain't easy to do with it being an editor an all! but here is all the code anyhow...

rem
rem AGK Application
rem
rem Landscape App
SetDisplayAspect( 1024.0 / 600.0 )
global physicsmode = 1
global physicsshape = 2
global cursorsprite = 6000
global cursorimage = 95
global swidth = 2
global sheight = 2
global gridx=1
global maxlayers = 8
global gridy=1
global layer=0
global state=0
global bricklimit=4999
global bricknum=0
global brickcount=0
global maxscroll=380
global minscroll=0
global scrollx#
global scrolly#
global level=1
global mode=0
global minimages=98
global maximages=126
global physicsrun=0
global angle#=0
global t$
global d$
global l$
global li$
global pss$
global ps$
global prrr$
global pshape$
rem ************** Setup tiles type ****************
type Ttiles
    xloc as integer
    yloc as integer
    spritenumber as integer
    physicstype as integer
    spriteshape as integer
    sizex as integer
    sizey as integer
    imagenumber as integer
    spritedepth as integer
    spriteangle as integer
    imagenum as integer
    sprdepth as integer
    spritetype as integer
    sprgroup as integer
    spritelayer as integer
endtype

rem ************** Setup Mouse type *****************
type Tmouse
    x1#
    y1#
    x2#
    y2#
    x3
    y3
endtype
global Mouse as Tmouse
dim tile[5000,maxlayers] as Ttiles
dim deleted[5000]
SetPhysicsDebugOn()
init()
prrr$="Physics Shape = "
d$="Current Physics Mode = "
li$="Editing Level Number "
info$="Press h for help"
t$=d$+str(layer)
createtext(1,t$)
createtext(2,l$)
createtext(3,pshape$)
createtext(4,info$)
settextposition(4,70,1)
fixtexttoscreen(4,1)
settextcolor(4,255,3,3,200)
settextsize(1,3)
settextsize(2,3)
settextsize(3,3)
fixtexttoscreen(1,1)
fixtexttoscreen(2,1)
fixtexttoscreen(3,1)
rem ***************** Main Loop *****************
rem ***************** Clear the Level and set default values *******
clear_level()

Do

t$=d$+pm$

SetTextString(1,t$)
    SetTextPosition(1,0,5)
    l$=li$+str(level)
    settextstring(2,l$)
    settextposition(2,0,2)
   select physicsmode
        case 0:
            pm$="Non"
        Endcase

case 1:
            pm$="Static"
        endcase
        case 2:
            pm$="Dynamic"
        endcase
        case 3:
            pm$="Kinematic"
        endcase
    endselect
    select physicsshape
    case 1
        prr$="Circle"
    endcase
    case 2
        prr$="Rectangle"
    endcase
    case 3
        prr$="polygon"
    endcase
    endselect

pshape$=prrr$+prr$
    SetTextString(3,pshape$)
    SetTextPosition(3,0,9)
    setspriteposition(cursorsprite,mouse.x3,mouse.y3)
    handle_keys()
    control()
    scroll_control()

sync()
        StepPhysics(0.02)
Loop
rem ***********************************************************
function handle_keys()
    if getrawkeypressed(76)
        inc layer
        if layer>=maxlayers
            layer=0
        endif
    endif
    rem ********************** F2 to save ********************
    if getrawkeypressed(113)
        save(level)
    endif
    rem ********************** F1 to Load ********************
    if getrawkeypressed(112)
        clear_level()
        load_level(level)
    endif
    rem ********************** Clear the Whole Level *************
    if getrawkeypressed(67)
        clear_level()
    endif
    rem ********************** Turn On All Physics ***************
    rem ************* key 'p' runs physics simulation ************
    if getrawkeypressed(80)
        physicsrun=1
    endif
    if physicsrun=1
        physicsrun=0
        for r=0 to maxlayers
            for n=1 to bricklimit
                if tile[n,r].physicstype >0
                    setspritephysicson(n,tile[n,r].physicstype)
                    setspriteshape(n,tile[n,r].spriteshape)
                endif
            next r
        next n
    endif
    rem **************** Adjust Physics type ***************
    rem Use key 'm' to cycle through modes
     if getrawkeypressed(77)
        inc physicsmode
        if physicsmode>3
            physicsmode=0
        endif
    endif
    if getrawkeypressed(78)
        inc physicsshape
        if physicsshape>3
            physicsshape=1
        endif

endif
    rem             ****************** Adjust sprites size.. ******************
    rem     ******************'a'= smaller width .. 'd'= bigger width .. *******************
    rem ****************** Keys 'w'= smaller heigth .. 's'= larger heigth *******************
    if getrawkeypressed(68)
        swidth=swidth+1
        setspritesize(cursorsprite,swidth,sheight)
    endif
    if getrawkeypressed(65) and swidth>1
        swidth=swidth-1
        setspritesize(cursorsprite,swidth,sheight)
    endif
    if getrawkeypressed(87) and sheight>1
        sheight=sheight-1
        setspritesize(cursorsprite,swidth,sheight)
    endif
    if getrawkeypressed(83)
        sheight=sheight+1
        setspritesize(cursorsprite,swidth,sheight)
    endif
    rem ****************** Scroll through textures with + and - keys
    if getrawkeypressed(219) and cursorimage>minimages

dec cursorimage
        setspriteimage(cursorsprite,cursorimage)
    endif
    if getrawkeypressed(221) and cursorimage<maximages
        inc cursorimage
        setspriteimage(cursorsprite,cursorimage)
    endif
    rem ****************** Rotate Sprite using key 'r'
    if getrawkeypressed(82)
        angle#=angle#+45.5
        setspriteangle(cursorsprite,angle#)
    endif
    if getrawkeypressed(86)
        angle#=0
        setspriteangle(cursorsprite,angle#)
    endif
    rem ***********************************************************************************
endfunction

function control()
    state=getpointerpressed()
    if state>0
        select mode
                `*** Placement Mode
                case 0
                    for n=1 to bricklimit
                        if tile[n,layer].xloc = Mouse.x3 and tile[n,layer].yloc = Mouse.y3 and tile[n,layer].spritenumber <>0
                            found=1
                            f=tile[n,layer].spritenumber
                            exit
                        endif
                    next n
                    if found=0 and brickcount<bricklimit
                        for n=1 to bricklimit
                            if deleted[n]>0
                                founddeleted=1
                                sprnum=n
                                exit
                            endif
                        next n

if founddeleted =0
                            inc brickcount
                            inc bricknum
                            id2=bricknum
                            else
                                id2=sprnum
                                inc brickcount
                                deleted[sprnum]=0
                        Endif
                        if getspriteexists(id2) = 0
                            tile[id2,layer].xloc = Mouse.x3
                            tile[id2,layer].yloc = Mouse.y3
                            tile[id2,layer].spritenumber = id2
                            tile[id2,layer].imagenum = cursorimage
                            tile[id2,layer].sizex=swidth
                            tile[id2,layer].sizey=sheight
                            tile[id2,layer].physicstype = physicsmode
                            tile[id2,layer].spriteshape=physicsshape
                            tile[id2,layer].sprdepth =2
                            tile[id2,layer].spritetype = myspritetype
                            tile[id2,layer].sprgroup=myspritegroup
                            tile[id2,layer].spritelayer=layer
                            createsprite(id2,cursorimage)
                            setspritesize(id2,tile[id2,layer].sizex,tile[id2,layer].sizey)
                            print("sprite number "+str(tile[id2,layer].spritenumber))
                            setspriteangle(id2,getspriteangle(cursorsprite))
                            tile[id2,layer].spriteangle= getspriteangle(id2)
                            setspriteposition(id2,tile[id2,layer].xloc,tile[id2,layer].yloc)
                            setspritedepth(id2,tile[id2,layer].sprdepth)
                        endif
                    endif
            endcase

`*** Edit Mode
            case 1
                r=getspritehit(getspritex(cursorsprite),getspritey(cursorsprite))
                if r>0
                    if tile[r,layer].spritelayer = layer
                        deletesprite(r)
                        tile[r,layer].xloc = 0
                        tile[r,layer].yloc = 0
                        tile[r,layer].spritenumber = 0
                        tile[r,layer].imagenum = 0
                        tile[r,layer].physicstype = 0
                        tile[r,layer].sprdepth = 0
                        tile[r,layer].spritelayer=0
                        dec brickcount
                        deleted[r]=1
                    endif
                endif
            endcase
        endselect
    endif
    FillMouse(gridx,gridy)
endfunction

function scroll_control()
    x#=getvirtualjoystickx(1)
    y#=getvirtualjoysticky(1)
    ohx#=getspritex(cursorsprite)
    ohy#=getspritey(cursorsprite)-1
    if x#<>0 or y#<>0
        scrollx#=scrollx#+x#
        scrolly#=scrolly#+y#
        if scrollx#>maxscroll
            scrollx#=maxscroll
        endif
        if scrollx#<minscroll
            scrollx#=minscroll
        endif
        if scrolly#>maxscroll
            scrolly#=maxscroll
        endif
        if scrolly#<minscroll
            scrolly#=minscroll
        endif
        y1=y1-scrolly#
        x1=x1-scrollx#
        SetViewOffset( scrollx#,scrolly# )
    endif
endfunction

rem ********* initialize function ***********
function init()
    mode$="Placement Mode"
    loadimage(cursorimage,"cursor.png")
    loadimage(96,"overhead.png")
    loadimage(97,"grass2.png")
    loadimage(98,"hole.png")
    loadimage(99,"ball.png")
    loadimage(100,"redbrick.png")
    loadimage(101,"redbrick.png")
    loadimage(102,"bluebrick2.png")
    loadimage(103,"greenbrick.png")
    loadimage(104,"physicsbuttonup.png")
    loadimage(105,"physicsbuttondown.png")
    loadimage(106,"savebuttonup.png")
    loadimage(107,"savebuttondown.png")
    loadimage(108,"joystickouter.png")
    loadimage(109,"joystickinner.png")
    loadimage(110,"loadbuttonup.png")
    loadimage(111,"loadbuttondown.png")
    loadimage(112,"clearbuttonup.png")
    loadimage(113,"clearbuttondown.png")
    loadimage(114,"sizebuttonplusup.png")
    loadimage(115,"sizebuttonplusdown.png")
    loadimage(116,"sizebuttonminusup.png")
    loadimage(117,"sizebuttonminusdown.png")
    loadimage(118,"shapebuttonup.png")
    loadimage(119,"shapebuttondown.png")
    loadimage(120,"panel.png")
    loadimage(121,"gfxbuttonplusup.png")
    loadimage(122,"gfxbuttonplusdown.png")
    loadimage(123,"gfxbuttonminusup.png")
    loadimage(124,"gfxbuttonminusdown.png")
    loadimage(125,"pool_table.png")
    loadimage(126,"concrete.png")
    setclearcolor(0,25,0)
    clearscreen()
    createsprite(cursorsprite,cursorimage)
    `setspriteoffset(cursorsprite,0,0)
    setspritesize(cursorsprite,swidth,sheight)
    setspritedepth(cursorsprite,0)
    addvirtualjoystick(1,90,90,10)
    setvirtualjoystickimageinner(1,109)
    setvirtualjoystickimageouter(1,108)
endfunction

function FillMouse(gridx,gridy)
    Mouse.x1#=getpointerx()
    Mouse.y1#=getpointery()
    Mouse.x2#=screentoworldx(Mouse.x1#)
    Mouse.y2#=screentoworldy(Mouse.y1#)
    Mouse.x3=floor(Mouse.x2#/gridx)*gridx
    Mouse.y3=floor(Mouse.y2#/gridy)*gridy
endfunction

function save(level)
 f$=""
    f$="level"
    f$=f$+str(level)
    f$=f$+".dat"
    myfile = OpenToWrite(f$, 0)
    for r=0 to maxlayers
        for n = 1 to bricklimit
            writeinteger (myfile,tile[n,r].xloc)
            writeinteger (myfile,tile[n,r].yloc)
            writeinteger (myfile,tile[n,r].imagenum)
            writeinteger (myfile,tile[n,r].spritenumber)
            writeinteger (myfile,tile[n,r].sizex)
            writeinteger (myfile,tile[n,r].sizey)
            writeinteger (myfile,tile[n,r].physicstype)
            writeinteger (myfile,tile[n,r].sprgroup)
            writeinteger (myfile,tile[n,r].sprdepth)
            writeinteger (myfile,tile[n,r].spriteangle)
            writeinteger (myfile,tile[n,r].spriteshape)
            writeinteger  (myfile,tile[n,r].spritetype)
            writeinteger (myfile,tile[n,r].spritelayer)
            `************** Layer 2 data ********************
        next n
    next r
    print ("SAVED!")
    closefile (myfile)
endfunction

function clear_level()
    for n=1 to bricklimit
        if getspriteexists(n)
            deletesprite(n)
            deleted[n]=0
        endif
    next n
    for r=0 to maxlayers
        for n=1 to bricklimit
            tile[n,r].xloc = 0
            tile[n,r].yloc = 0
            tile[n,r].imagenum = 0
            tile[n,r].spritenumber = 0
            tile[n,r].sizey= 0
            tile[n,r].physicstype =0
            tile[n,r].sprgroup = 0
            tile[n,r].sprdepth = 0
            tile[n,r].spriteangle = 0
            tile[n,r].spriteshape = 2
            tile[n,r].spritetype = 0
            tile[n,r].spritelayer = 0
        next n
    next r
    brickcount = 0
    bricknum=0
endfunction

function load_level(level)
    f$=""
    f$="level"
    f$=f$+str(level)
    f$=f$+".dat"
    if getfileexists(f$) =0
        print (" level file doesn't exist ")
        sync()
        found3=1
    endif
    if found3=0
    myfile = OpenToread(f$)
    `brickcount = readinteger (myfile)
    print ("Please wait")
    for r=0 to maxlayers
    for n = 1 to bricklimit
        xl = readinteger (myfile)
        yl = readinteger (myfile)
        im = readinteger (myfile)
        sn= readinteger (myfile)
        sx = readinteger (myfile)
        sy = readinteger (myfile)
        pt = readinteger (myfile)
        sprg = readinteger (myfile)
        sprd = readinteger (myfile)
        spra=readinteger (myfile)
        sprshape= readinteger (myfile)
        sprtype= readinteger (myfile)
        sprlayer = readinteger (myfile)
        `****
        tile[n,r].xloc = xl
        tile[n,r].yloc = yl
        tile[n,r].imagenum = im
        tile[n,r].spritenumber = sn
        tile[n,r].sizex= sx
        tile[n,r].sizey= sy
        tile[n,r].physicstype = pt
        tile[n,r].sprgroup = sprg
        tile[n,r].sprdepth = sprd
        tile[n,r].spriteangle = spra
        tile[n,r].spriteshape = sprshape
        tile[n,r].spritetype = sprtype
        tile[n,r].spritelayer = sprlayer
        if tile[n,r].spritenumber <> 0
            inc brickcount
            inc bricknum
            createsprite(tile[n,r].spritenumber,tile[n,r].imagenum)
            setspritesize(tile[n,r].spritenumber,tile[n,r].sizex,tile[n,r].sizey)
            setspriteangle(tile[n,r].spritenumber,tile[n,r].spriteangle)
            setspriteposition(tile[n,r].spritenumber,tile[n,r].xloc,tile[n,r].yloc)
            setspritedepth(tile[n,r].spritenumber,tile[n,r].sprdepth)
        endif
    next n
    next r
        closefile (myfile)
    endif
endfunction

+ Code Snippet

rem
rem AGK Application
rem
rem Landscape App
SetDisplayAspect( 1024.0 / 600.0 )
global physicsmode = 1
global physicsshape = 2
global cursorsprite = 6000
global cursorimage = 95
global swidth = 2
global sheight = 2
global gridx=1
global maxlayers = 8
global gridy=1
global layer=0
global state=0
global bricklimit=4999
global bricknum=0
global brickcount=0
global maxscroll=380
global minscroll=0
global scrollx#
global scrolly#
global level=1
global mode=0
global minimages=98
global maximages=126
global physicsrun=0
global angle#=0
global t$
global d$
global l$
global li$
global pss$
global ps$
global prrr$
global pshape$
rem ************** Setup tiles type ****************
type Ttiles
    xloc as integer
    yloc as integer
    spritenumber as integer
    physicstype as integer
    spriteshape as integer
    sizex as integer
    sizey as integer
    imagenumber as integer
    spritedepth as integer
    spriteangle as integer
    imagenum as integer
    sprdepth as integer
    spritetype as integer
    sprgroup as integer
    spritelayer as integer
endtype

rem ************** Setup Mouse type *****************
type Tmouse
    x1#
    y1#
    x2#
    y2#
    x3
    y3
endtype
global Mouse as Tmouse
dim tile[5000,maxlayers] as Ttiles
dim deleted[5000]
SetPhysicsDebugOn()
init()
prrr$="Physics Shape = "
d$="Current Physics Mode = "
li$="Editing Level Number "
info$="Press h for help"
t$=d$+str(layer)
createtext(1,t$)
createtext(2,l$)
createtext(3,pshape$)
createtext(4,info$)
settextposition(4,70,1)
fixtexttoscreen(4,1)
settextcolor(4,255,3,3,200)
settextsize(1,3)
settextsize(2,3)
settextsize(3,3)
fixtexttoscreen(1,1)
fixtexttoscreen(2,1)
fixtexttoscreen(3,1)
rem ***************** Main Loop *****************
rem ***************** Clear the Level and set default values *******
clear_level()

Do

    t$=d$+pm$

    SetTextString(1,t$)
    SetTextPosition(1,0,5)
    l$=li$+str(level)
    settextstring(2,l$)
    settextposition(2,0,2)
   select physicsmode
        case 0:
            pm$="Non"
        Endcase

        case 1:
            pm$="Static"
        endcase
        case 2:
            pm$="Dynamic"
        endcase
        case 3:
            pm$="Kinematic"
        endcase
    endselect
    select physicsshape
    case 1
        prr$="Circle"
    endcase
    case 2
        prr$="Rectangle"
    endcase
    case 3
        prr$="polygon"
    endcase
    endselect

    pshape$=prrr$+prr$
    SetTextString(3,pshape$)
    SetTextPosition(3,0,9)
    setspriteposition(cursorsprite,mouse.x3,mouse.y3)
    handle_keys()
    control()
    scroll_control()

    sync()
        StepPhysics(0.02)
Loop
rem ***********************************************************
function handle_keys()
    if getrawkeypressed(76)
        inc layer
        if layer>=maxlayers
            layer=0
        endif
    endif
    rem ********************** F2 to save ********************
    if getrawkeypressed(113)
        save(level)
    endif
    rem ********************** F1 to Load ********************
    if getrawkeypressed(112)
        clear_level()
        load_level(level)
    endif
    rem ********************** Clear the Whole Level *************
    if getrawkeypressed(67)
        clear_level()
    endif
    rem ********************** Turn On All Physics ***************
    rem ************* key 'p' runs physics simulation ************
    if getrawkeypressed(80)
        physicsrun=1
    endif
    if physicsrun=1
        physicsrun=0
        for r=0 to maxlayers
            for n=1 to bricklimit
                if tile[n,r].physicstype >0
                    setspritephysicson(n,tile[n,r].physicstype)
                    setspriteshape(n,tile[n,r].spriteshape)
                endif
            next r
        next n
    endif
    rem **************** Adjust Physics type ***************
    rem Use key 'm' to cycle through modes
     if getrawkeypressed(77)
        inc physicsmode
        if physicsmode>3
            physicsmode=0
        endif
    endif
    if getrawkeypressed(78)
        inc physicsshape
        if physicsshape>3
            physicsshape=1
        endif

    endif
    rem             ****************** Adjust sprites size.. ******************
    rem     ******************'a'= smaller width .. 'd'= bigger width .. *******************
    rem ****************** Keys 'w'= smaller heigth .. 's'= larger heigth *******************
    if getrawkeypressed(68)
        swidth=swidth+1
        setspritesize(cursorsprite,swidth,sheight)
    endif
    if getrawkeypressed(65) and swidth>1
        swidth=swidth-1
        setspritesize(cursorsprite,swidth,sheight)
    endif
    if getrawkeypressed(87) and sheight>1
        sheight=sheight-1
        setspritesize(cursorsprite,swidth,sheight)
    endif
    if getrawkeypressed(83)
        sheight=sheight+1
        setspritesize(cursorsprite,swidth,sheight)
    endif
    rem ****************** Scroll through textures with + and - keys
    if getrawkeypressed(219) and cursorimage>minimages

        dec cursorimage
        setspriteimage(cursorsprite,cursorimage)
    endif
    if getrawkeypressed(221) and cursorimage<maximages
        inc cursorimage
        setspriteimage(cursorsprite,cursorimage)
    endif
    rem ****************** Rotate Sprite using key 'r'
    if getrawkeypressed(82)
        angle#=angle#+45.5
        setspriteangle(cursorsprite,angle#)
    endif
    if getrawkeypressed(86)
        angle#=0
        setspriteangle(cursorsprite,angle#)
    endif
    rem ***********************************************************************************
endfunction

function control()
    state=getpointerpressed()
    if state>0
        select mode
                `*** Placement Mode
                case 0
                    for n=1 to bricklimit
                        if tile[n,layer].xloc = Mouse.x3 and tile[n,layer].yloc = Mouse.y3 and tile[n,layer].spritenumber <>0
                            found=1
                            f=tile[n,layer].spritenumber
                            exit
                        endif
                    next n
                    if found=0 and brickcount<bricklimit
                        for n=1 to bricklimit
                            if deleted[n]>0
                                founddeleted=1
                                sprnum=n
                                exit
                            endif
                        next n

                        if founddeleted =0
                            inc brickcount
                            inc bricknum
                            id2=bricknum
                            else
                                id2=sprnum
                                inc brickcount
                                deleted[sprnum]=0
                        Endif
                        if getspriteexists(id2) = 0
                            tile[id2,layer].xloc = Mouse.x3
                            tile[id2,layer].yloc = Mouse.y3
                            tile[id2,layer].spritenumber = id2
                            tile[id2,layer].imagenum = cursorimage
                            tile[id2,layer].sizex=swidth
                            tile[id2,layer].sizey=sheight
                            tile[id2,layer].physicstype = physicsmode
                            tile[id2,layer].spriteshape=physicsshape
                            tile[id2,layer].sprdepth =2
                            tile[id2,layer].spritetype = myspritetype
                            tile[id2,layer].sprgroup=myspritegroup
                            tile[id2,layer].spritelayer=layer
                            createsprite(id2,cursorimage)
                            setspritesize(id2,tile[id2,layer].sizex,tile[id2,layer].sizey)
                            print("sprite number "+str(tile[id2,layer].spritenumber))
                            setspriteangle(id2,getspriteangle(cursorsprite))
                            tile[id2,layer].spriteangle= getspriteangle(id2)
                            setspriteposition(id2,tile[id2,layer].xloc,tile[id2,layer].yloc)
                            setspritedepth(id2,tile[id2,layer].sprdepth)
                        endif
                    endif
            endcase

         `*** Edit Mode
            case 1
                r=getspritehit(getspritex(cursorsprite),getspritey(cursorsprite))
                if r>0
                    if tile[r,layer].spritelayer = layer
                        deletesprite(r)
                        tile[r,layer].xloc = 0
                        tile[r,layer].yloc = 0
                        tile[r,layer].spritenumber = 0
                        tile[r,layer].imagenum = 0
                        tile[r,layer].physicstype = 0
                        tile[r,layer].sprdepth = 0
                        tile[r,layer].spritelayer=0
                        dec brickcount
                        deleted[r]=1
                    endif
                endif
            endcase
        endselect
    endif
    FillMouse(gridx,gridy)
endfunction

function scroll_control()
    x#=getvirtualjoystickx(1)
    y#=getvirtualjoysticky(1)
    ohx#=getspritex(cursorsprite)
    ohy#=getspritey(cursorsprite)-1
    if x#<>0 or y#<>0
        scrollx#=scrollx#+x#
        scrolly#=scrolly#+y#
        if scrollx#>maxscroll
            scrollx#=maxscroll
        endif
        if scrollx#<minscroll
            scrollx#=minscroll
        endif
        if scrolly#>maxscroll
            scrolly#=maxscroll
        endif
        if scrolly#<minscroll
            scrolly#=minscroll
        endif
        y1=y1-scrolly#
        x1=x1-scrollx#
        SetViewOffset( scrollx#,scrolly# )
    endif
endfunction

rem ********* initialize function ***********
function init()
    mode$="Placement Mode"
    loadimage(cursorimage,"cursor.png")
    loadimage(96,"overhead.png")
    loadimage(97,"grass2.png")
    loadimage(98,"hole.png")
    loadimage(99,"ball.png")
    loadimage(100,"redbrick.png")
    loadimage(101,"redbrick.png")
    loadimage(102,"bluebrick2.png")
    loadimage(103,"greenbrick.png")
    loadimage(104,"physicsbuttonup.png")
    loadimage(105,"physicsbuttondown.png")
    loadimage(106,"savebuttonup.png")
    loadimage(107,"savebuttondown.png")
    loadimage(108,"joystickouter.png")
    loadimage(109,"joystickinner.png")
    loadimage(110,"loadbuttonup.png")
    loadimage(111,"loadbuttondown.png")
    loadimage(112,"clearbuttonup.png")
    loadimage(113,"clearbuttondown.png")
    loadimage(114,"sizebuttonplusup.png")
    loadimage(115,"sizebuttonplusdown.png")
    loadimage(116,"sizebuttonminusup.png")
    loadimage(117,"sizebuttonminusdown.png")
    loadimage(118,"shapebuttonup.png")
    loadimage(119,"shapebuttondown.png")
    loadimage(120,"panel.png")
    loadimage(121,"gfxbuttonplusup.png")
    loadimage(122,"gfxbuttonplusdown.png")
    loadimage(123,"gfxbuttonminusup.png")
    loadimage(124,"gfxbuttonminusdown.png")
    loadimage(125,"pool_table.png")
    loadimage(126,"concrete.png")
    setclearcolor(0,25,0)
    clearscreen()
    createsprite(cursorsprite,cursorimage)
    `setspriteoffset(cursorsprite,0,0)
    setspritesize(cursorsprite,swidth,sheight)
    setspritedepth(cursorsprite,0)
    addvirtualjoystick(1,90,90,10)
    setvirtualjoystickimageinner(1,109)
    setvirtualjoystickimageouter(1,108)
endfunction


function FillMouse(gridx,gridy)
    Mouse.x1#=getpointerx()
    Mouse.y1#=getpointery()
    Mouse.x2#=screentoworldx(Mouse.x1#)
    Mouse.y2#=screentoworldy(Mouse.y1#)
    Mouse.x3=floor(Mouse.x2#/gridx)*gridx
    Mouse.y3=floor(Mouse.y2#/gridy)*gridy
endfunction


function save(level)
 f$=""
    f$="level"
    f$=f$+str(level)
    f$=f$+".dat"
    myfile = OpenToWrite(f$, 0)
    for r=0 to maxlayers
        for n = 1 to bricklimit
            writeinteger (myfile,tile[n,r].xloc)
            writeinteger (myfile,tile[n,r].yloc)
            writeinteger (myfile,tile[n,r].imagenum)
            writeinteger (myfile,tile[n,r].spritenumber)
            writeinteger (myfile,tile[n,r].sizex)
            writeinteger (myfile,tile[n,r].sizey)
            writeinteger (myfile,tile[n,r].physicstype)
            writeinteger (myfile,tile[n,r].sprgroup)
            writeinteger (myfile,tile[n,r].sprdepth)
            writeinteger (myfile,tile[n,r].spriteangle)
            writeinteger (myfile,tile[n,r].spriteshape)
            writeinteger  (myfile,tile[n,r].spritetype)
            writeinteger (myfile,tile[n,r].spritelayer)
            `************** Layer 2 data ********************
        next n
    next r
    print ("SAVED!")
    closefile (myfile)
endfunction

function clear_level()
    for n=1 to bricklimit
        if getspriteexists(n)
            deletesprite(n)
            deleted[n]=0
        endif
    next n
    for r=0 to maxlayers
        for n=1 to bricklimit
            tile[n,r].xloc = 0
            tile[n,r].yloc = 0
            tile[n,r].imagenum = 0
            tile[n,r].spritenumber = 0
            tile[n,r].sizey= 0
            tile[n,r].physicstype =0
            tile[n,r].sprgroup = 0
            tile[n,r].sprdepth = 0
            tile[n,r].spriteangle = 0
            tile[n,r].spriteshape = 2
            tile[n,r].spritetype = 0
            tile[n,r].spritelayer = 0
        next n
    next r
    brickcount = 0
    bricknum=0
endfunction


function load_level(level)
    f$=""
    f$="level"
    f$=f$+str(level)
    f$=f$+".dat"
    if getfileexists(f$) =0
        print (" level file doesn't exist ")
        sync()
        found3=1
    endif
    if found3=0
    myfile = OpenToread(f$)
    `brickcount = readinteger (myfile)
    print ("Please wait")
    for r=0 to maxlayers
    for n = 1 to bricklimit
        xl = readinteger (myfile)
        yl = readinteger (myfile)
        im = readinteger (myfile)
        sn= readinteger (myfile)
        sx = readinteger (myfile)
        sy = readinteger (myfile)
        pt = readinteger (myfile)
        sprg = readinteger (myfile)
        sprd = readinteger (myfile)
        spra=readinteger (myfile)
        sprshape= readinteger (myfile)
        sprtype= readinteger (myfile)
        sprlayer = readinteger (myfile)
        `****
        tile[n,r].xloc = xl
        tile[n,r].yloc = yl
        tile[n,r].imagenum = im
        tile[n,r].spritenumber = sn
        tile[n,r].sizex= sx
        tile[n,r].sizey= sy
        tile[n,r].physicstype = pt
        tile[n,r].sprgroup = sprg
        tile[n,r].sprdepth = sprd
        tile[n,r].spriteangle = spra
        tile[n,r].spriteshape = sprshape
        tile[n,r].spritetype = sprtype
        tile[n,r].spritelayer = sprlayer
        if tile[n,r].spritenumber <> 0
            inc brickcount
            inc bricknum
            createsprite(tile[n,r].spritenumber,tile[n,r].imagenum)
            setspritesize(tile[n,r].spritenumber,tile[n,r].sizex,tile[n,r].sizey)
            setspriteangle(tile[n,r].spritenumber,tile[n,r].spriteangle)
            setspriteposition(tile[n,r].spritenumber,tile[n,r].xloc,tile[n,r].yloc)
            setspritedepth(tile[n,r].spritenumber,tile[n,r].sprdepth)
        endif
    next n
    next r
        closefile (myfile)
    endif
endfunction

Hail to the king, baby!

http://davidjohnwheeler.blogspot.co.uk

Back to top

Profile PM Website

Ranietz

AGK Gold Backer

20

Years of Service

User Offline

Joined: 2nd Sep 2004

Location: Norway

Posted: 3rd Jul 2013 00:22

Link

How do you reset the simulation? I could't find it in the code. Do you just re-position every sprite? If so, do you set the velocity of each sprite back to zero?

Back to top

Profile PM

shadey

14

Years of Service

User Offline

Joined: 25th Jan 2010

Location:

Posted: 3rd Jul 2013 00:26 Edited at: 3rd Jul 2013 00:27

Link

just press F1 to reload,but perhaps you have a point about the velocity!

Hail to the king, baby!

http://davidjohnwheeler.blogspot.co.uk

Back to top

Profile PM Website

shadey

14

Years of Service

User Offline

Joined: 25th Jan 2010

Location:

Posted: 3rd Jul 2013 00:36 Edited at: 3rd Jul 2013 00:50

Link

nope..doesn't matter if I reset the velocity to 0, though I was deleting sprites anyhow, I have this funky sprite recycle system going on!
*** edit *** included is a download to the whole project, for those curious or if anyone can benefit from it, you can resize with w-a-s-d
.. save with F2, load with F1, change physics type with m, change phyics shape with n, scroll through textures using [],rotate with r, reset rotate with v..run physics simulation withp... and finally clear level with c! you cannot delete a sprite yet, needs adding..

Hail to the king, baby!

http://davidjohnwheeler.blogspot.co.uk

Attachments

Login to view attachments

Back to top

Profile PM Website

Ranietz

AGK Gold Backer

20

Years of Service

User Offline

Joined: 2nd Sep 2004

Location: Norway

Posted: 3rd Jul 2013 00:48

Link

If you delete and recreate the sprites when you reset the simulation you should not have to set the velocity to zero. I've only looked at your code using my phone so far but I'll see if I can come up with some other suggestions once I get the time to try it out.

Back to top

Profile PM

Markus

Valued Member

20

Years of Service

User Offline

Joined: 10th Apr 2004

Location: Germany

Posted: 3rd Jul 2013 00:49

Link

this part i found strange.
you turn n on but outside is a r loop

+ Code Snippet

    if physicsrun=1
        physicsrun=0
        for r=0 to maxlayers
            for n=1 to bricklimit
                if tile[n,r].physicstype >0
                    setspritephysicson(n,tile[n,r].physicstype)
                    setspriteshape(n,tile[n,r].spriteshape)
                endif
            next r
        next n
    endif

Back to top

Profile PM Email

shadey

14

Years of Service

User Offline

Joined: 25th Jan 2010

Location:

Posted: 3rd Jul 2013 00:54 Edited at: 3rd Jul 2013 00:58

Link

i have the ability to simply make more than one layer of sprites at the same coordinates (up to 10) hence the line:

+ Code Snippet

dim tile[5000,maxlayers] as Ttiles

near the top, so each layer could have 5000 sprites, times 10 layers, of any sprite size.
but note this isnt a finished project,but mostly done, i will release the whole lot for free as i have said,when i am happy with it

Hail to the king, baby!

http://davidjohnwheeler.blogspot.co.uk

Back to top

Profile PM Website

Markus

Valued Member

20

Years of Service

User Offline

Joined: 10th Apr 2004

Location: Germany

Posted: 3rd Jul 2013 01:28

Link

i just wonder why you use n and not tile[n,r].spritenumber there.

Back to top

Profile PM Email

shadey

14

Years of Service

User Offline

Joined: 25th Jan 2010

Location:

Posted: 3rd Jul 2013 01:39

Link

I did have it the other way around, the next r after the next n, but it wouldn't work oddly enough, however all seems to work ok on saving and loading!

Hail to the king, baby!

http://davidjohnwheeler.blogspot.co.uk

Back to top

Profile PM Website

Impetus73

13

Years of Service

User Offline

Joined: 28th Aug 2011

Location: Volda, Norway

Posted: 3rd Jul 2013 11:38

Link

Even if you find a way to completely reset the system between simulations, so that it runs the same on one device, it will behave different on a different device. So unless you make the program for one type of device only, it will not behave the same. You just need to design your levels with a bit of room for random physics behavior, so that they will be playable on all devices. Maybe make a "I'm stuck" cheat button, or a "Reset level and try again" button.

----------------
AGK programmer
Did Amiga / AMOS programming in the 90's.

Back to top

Profile PM Email

Ranietz

AGK Gold Backer

20

Years of Service

User Offline

Joined: 2nd Sep 2004

Location: Norway

Posted: 3rd Jul 2013 12:46

Link

I did some testing on my own program and it seems like things will behave a little different each time. I guess it's because the frame rate is not constant.

However, I found a trick that may help you. Try to update the physics several times each loop but in smaller increments.
Replace:

+ Code Snippet

StepPhysics(0.02)

With:

+ Code Snippet

StepPhysics(0.01)
StepPhysics(0.01)

I assume it will use more CPU power so I'm not sure if it's a good solution though...

Back to top

Profile PM

Markus

Valued Member

20

Years of Service

User Offline

Joined: 10th Apr 2004

Location: Germany

Posted: 3rd Jul 2013 13:41

Link

i make a test program for it that saves a image after some seconds and
later you can switch with windows photo view through.

+ Code Snippet

rem
rem AGK Application 1.08B13
rem

SetDisplayAspect( 4.0/3.0 )

for i=1 to 10

    spr1=createsprite(0)
    setspritepositionbyoffset(spr1,50,50)
    setspriteangle(spr1,10)

    spr2=createsprite(0)
    setspritepositionbyoffset(spr2,45,25)
    setspriteangle(spr2,20)

    spr3=createsprite(0)
    setspritepositionbyoffset(spr3,55,10)
    setspriteangle(spr3,15)

    setspritephysicson(spr1,2)
    setspritephysicson(spr2,2)
    setspritephysicson(spr3,2)

    enableclearcolor(1)

    t#=timer()

        do
         stepphysics(0.02)
         Print("physics test")

        Update(0)
        Render()

         if timer()-t#>3
          g=getimage(0,0,100,100)
          saveimage(g,"screenshot"+str(i)+".png")
          deleteimage(g)
          exit
         endif

        Swap()

        loop

    deletesprite(spr1)
    deletesprite(spr2)
    deletesprite(spr3)

next

end

Back to top

Profile PM Email

Impetus73

13

Years of Service

User Offline

Joined: 28th Aug 2011

Location: Volda, Norway

Posted: 3rd Jul 2013 13:43

Link

Box2D does not use any random number, or numbers based on timers, it's just the floats that messes it all up. almost like the butterfly effect. A small rounding "error" and all changes.

----------------
AGK programmer
Did Amiga / AMOS programming in the 90's.

Back to top

Profile PM Email

baxslash

Valued Member

Bronze Codemaster

17

Years of Service

User Offline

Joined: 26th Dec 2006

Location: Duffield

Posted: 3rd Jul 2013 13:48

Link

I guess like physics in real life it's hard to account for cumulative errors and get an exact copy each time. Maybe it's the tiniest difference that changes it...

I guess if you need 100% the same each time you may not achieve it using box2D. Maybe you should calculate the positioning yourself? I don't know how complicated your game is but it might be safer if that's the effect you want.

It's not impossible to calculate normals / reflection angles etc. using maths (for circular objects at least). Might be worth considering?

this.mess = abs(sin(times#))

Back to top

Profile PM Email

Markus

Valued Member

20

Years of Service

User Offline

Joined: 10th Apr 2004

Location: Germany

Posted: 3rd Jul 2013 14:09

Link

i made a other test with colors.
(i don't think a cpu multiply two values each time with different results. i know the cause and effect...)

rem
rem AGK Application 1.08B13
rem

SetDisplayAspect( 4.0/3.0 )

for i=1 to 10

spr1=createsprite(0)
    setspritepositionbyoffset(spr1,50,50)
    setspriteangle(spr1,-10)

spr2=createsprite(0)
    setspritepositionbyoffset(spr2,45,25)
    setspriteangle(spr2,25)

spr3=createsprite(0)
    setspritepositionbyoffset(spr3,55,10)
    setspriteangle(spr3,16.2)

spr4=createsprite(0)
    setspritepositionbyoffset(spr4,35,60)
    setspriteangle(spr4,66)
    setspriteshape(spr4,1)

setspritephysicson(spr1,2)
    setspritephysicson(spr2,2)
    setspritephysicson(spr3,2)
    setspritephysicson(spr4,2)

r=random(0,255)
    g=random(0,255)
    b=random(0,255)
    setspritecolor(spr1,r,g,b,255)
    setspritecolor(spr2,r,g,b,255)
    setspritecolor(spr3,r,g,b,255)
    setspritecolor(spr4,r,g,b,255)

SetSpritePhysicsRestitution( spr1, 0.75 )

enableclearcolor(0)

t#=timer()

do
         stepphysics(0.02)
         Print("physics test")

Update(0)
        Render()

if timer()-t#>4
if 1=0
          g=getimage(0,0,100,100)
          saveimage(g,"screenshot"+str(i)+".png")
          deleteimage(g)
endif
          exit
         endif

Swap()

loop

deletesprite(spr1)
    deletesprite(spr2)
    deletesprite(spr3)
    deletesprite(spr4)

+ Code Snippet

rem
rem AGK Application 1.08B13
rem

SetDisplayAspect( 4.0/3.0 )

for i=1 to 10

    spr1=createsprite(0)
    setspritepositionbyoffset(spr1,50,50)
    setspriteangle(spr1,-10)

    spr2=createsprite(0)
    setspritepositionbyoffset(spr2,45,25)
    setspriteangle(spr2,25)

    spr3=createsprite(0)
    setspritepositionbyoffset(spr3,55,10)
    setspriteangle(spr3,16.2)

    spr4=createsprite(0)
    setspritepositionbyoffset(spr4,35,60)
    setspriteangle(spr4,66)
    setspriteshape(spr4,1)

    setspritephysicson(spr1,2)
    setspritephysicson(spr2,2)
    setspritephysicson(spr3,2)
    setspritephysicson(spr4,2)

    r=random(0,255)
    g=random(0,255)
    b=random(0,255)
    setspritecolor(spr1,r,g,b,255)
    setspritecolor(spr2,r,g,b,255)
    setspritecolor(spr3,r,g,b,255)
    setspritecolor(spr4,r,g,b,255)

    SetSpritePhysicsRestitution( spr1, 0.75 )

    enableclearcolor(0)

    t#=timer()

        do
         stepphysics(0.02)
         Print("physics test")

        Update(0)
        Render()

         if timer()-t#>4
if 1=0
          g=getimage(0,0,100,100)
          saveimage(g,"screenshot"+str(i)+".png")
          deleteimage(g)
endif
          exit
         endif

        Swap()

        loop

    deletesprite(spr1)
    deletesprite(spr2)
    deletesprite(spr3)
    deletesprite(spr4)

next

end

Back to top

Profile PM Email

Impetus73

13

Years of Service

User Offline

Joined: 28th Aug 2011

Location: Volda, Norway

Posted: 3rd Jul 2013 15:09

Link

Box2D uses Gauss-Seidel to approximately solve constraints. Box2D also uses Semi-implicit Euler to approximately solve the differential equations. Box2D also does not have exact collision. Polygons are covered with a thin skin (around 0.5cm thick) to avoid numerical problems. This can sometimes lead to unexpected contact normals. Also, some shapes may begin to overlap and then be pushed apart by the solver.

Any sufficient advanced program, is indistinguishable from magic... :-P

----------------
AGK programmer
Did Amiga / AMOS programming in the 90's.

Back to top

Profile PM Email

shadey

14

Years of Service

User Offline

Joined: 25th Jan 2010

Location:

Posted: 3rd Jul 2013 19:56 Edited at: 4th Jul 2013 00:33

Link

so,if this is the case, then maybe you cannot possibly do an angry birds type game with this physics( we all know that game so I choose this as an example!)
because that game would need exact results as I have found in some levels, you have to take the exact shot with exact everything! But perhaps if the 'skin' as you say is 0.5 thick. I should position the objects with this gap?
Ranietz:
Tried your solution, it improves it but still minor differences,better than before though,I will think up a rather cool simulation set up to test it more

Hail to the king, baby!

http://davidjohnwheeler.blogspot.co.uk

Back to top

Profile PM Website

Sorry your browser is not supported!

AppGameKit Classic Chat / physics run different every time

Attachments