set display mode desktop width(),desktop height(),32,1
phy start

make object box 1,100,1,100 //boden
phy make rigid body static box 1

make object box 2,10,2,2 //balken
position object 2,0,43,0
phy make rigid body static box 2

make_rope(10,20,0,40,0,10,30,10)
phy make sphere joint 10,10,2,object position x(2),object position y(2),object position z(2)
phy build sphere joint 10
            
position camera 0,70,-70
point camera 0,0,0

do

    phy update
loop

function make_rope(MinID,MaxID,StartX#,StartY#,StartZ#,EndX#,EndY#,EndZ#)
    Size#=distance(StartX#,StartY#,StartZ#,EndX#,EndY#,EndZ#)/(MaxID-MinID)
    for ObjectID=MinID to MaxID

        make object cube ObjectID,Size#
        position object ObjectID,StartX#,StartY#,StartZ#
        point object ObjectID,EndX#,EndY#,EndZ#
        move object ObjectID,1+(ObjectID-MinID)*Size#
        
        phy make rigid body dynamic box ObjectID
        
        phy set group collision 1,2,0
        if Group=2 then Group=1 else Group=2
        phy set rigid body group ObjectID,Group
        
        if ObjectID>MinID
            phy make sphere joint ObjectID,ObjectID,ObjectID-1,object position x(ObjectID-1),object position y(ObjectID-1),object position z(ObjectID-1)
            phy build sphere joint ObjectID
        endif
        
    next ObjectID
endfunction

function distance(x1#,y1#,z1#,x2#,y2#,z2#)
    xs#=x1#-x2#
    xs#=xs#*xs#
    ys#=y1#-y2#
    ys#=ys#*ys#
    zs#=z1#-z2#
    zs#=zs#*zs#
    distance#=sqrt(xs#+ys#+zs#)
ENDFUNCTION distance#

PHY SET GROUP COLLISION


Description

Set the collision state for groups.


Syntax

PHY SET GROUP COLLISION A, B, state


Parameters


A

First group
B

Second group
state

Collision state - 1 to enable collision between groups and 0 to disable

Return


n/a