bezier problem - GameCreators Forum

Author

Message

nruser

18

Years of Service

User Offline

Joined: 22nd Dec 2007

Location: Serbia

Posted: 15th Aug 2011 17:37 Edited at: 15th Aug 2011 17:46

Link

i found this code with search options

`this function initializes bezier curves
function SetupBezier()
    `make bezier handles
    for a=1 to 3
            make object cube ((a-1)*3)+1,1
            make object cube ((a-1)*3)+2,1
            make object cube ((a-1)*3)+3,1
    next a
    
    `make temp object
    make object cube 100,1
    `hide object 100
    
    BezierRnd(100.0)
    TempBezier=Bezier
    UpdateBezier()
endfunction

remstart
this function makes bezier curve
probably most function arguments ever used - horror :)

StartX#, StartY#, StartZ# -> position coordinates for start of the curve
StartHandlePrevX#, StartHandlePrevY#, StartHandlePrevZ# -> position coordinates for the first control object that adjust bezier curve on the start point
StartHandleNextX#, StartHandleNextY#, StartHandleNextZ# -> position coordinates for the second control object that adjust bezier curve on the start point

MidX#, MidY#, MidZ# -> position coordinates for middle of the curve
MidHandlePrevX#, MidHandlePrevY#, MidHandlePrevZ# -> position coordinates for the first control object that adjust bezier curve on the middle point
MidHandleNextX#, MidHandleNextY#, MidHandleNextZ# -> position coordinates for the second control object that adjust bezier curve on the middle point

EndX#, EndY#, EndZ# -> position coordinates for end of the curve
EndHandlePrevX#, EndHandlePrevY#, EndHandleZ# -> position coordinates for the first control object that adjust bezier curve on the end point
EndHandleNextX#, EndHandleNextY#, EndHandleZ# -> position coordinates for the first control object that adjust bezier curve on the end point
remend
function BezierMake(StartX#,StartY#,StartZ#,StartHandlePrevX#,StartHandlePrevY#,StartHandlePrevZ#,StartHandleNextX#,StartHandleNextY#,StartHandleNextZ#,MidX#,MidY#,MidZ#,MidHandlePrevX#,MidHandlePrevY#,MidHandlePrevZ#,MidHandleNextX#,MidHandleNextY#,MidHandleNextZ#,EndX#,EndY#,EndZ#,EndHandlePrevX#,EndHandlePrevY#,EndHandlePrevZ#,EndHandleNextX#,EndHandleNextY#,EndHandleZ#)
    Bezier.Start.Pos.X=StartX#
    Bezier.Start.Pos.Y=StartY#
    Bezier.Start.Pos.Z=StartZ#
    Bezier.Start.HandlePrev.X=StartHandlePrevX#
    Bezier.Start.HandlePrev.Y=StartHandlePrevY#
    Bezier.Start.HandlePrev.Z=StartHandlePrevZ#
    Bezier.Start.HandleNext.X=StartHandleNextX#
    Bezier.Start.HandleNext.Y=StartHandleNextY#
    Bezier.Start.HandleNext.Z=StartHandleNextZ#
    
    Bezier.Mid.Pos.X=MidX#
    Bezier.Mid.Pos.Y=MidY#
    Bezier.Mid.Pos.Z=MidZ#
    Bezier.Mid.HandlePrev.X=MidHandlePrevX#
    Bezier.Mid.HandlePrev.Y=MidHandlePrevY#
    Bezier.Mid.HandlePrev.Z=MidHandlePrevZ#
    Bezier.Mid.HandleNext.X=MidHandleNextX#
    Bezier.Mid.HandleNext.Y=MidHandleNextY#
    Bezier.Mid.HandleNext.Z=MidHandleNextZ#
    
    Bezier.Last.Pos.X=EndX#
    Bezier.Last.Pos.Y=EndY#
    Bezier.Last.Pos.Z=EndZ#
    Bezier.Last.HandlePrev.X=EndHandlePrevX#
    Bezier.Last.HandlePrev.Y=EndHandlePrevY#
    Bezier.Last.HandlePrev.Z=EndHandlePrevZ#
    Bezier.Last.HandleNext.X=EndHandleNextX#
    Bezier.Last.HandleNext.Y=EndHandleNextY#
    Bezier.Last.HandleNext.Z=EndHandleNextZ#
endfunction

`this function updates bezier curve
function UpdateBezier()
    position object 1,TempBezier.Start.Pos.X,TempBezier.Start.Pos.Y,TempBezier.Start.Pos.Z
    position object 4,TempBezier.Mid.Pos.X,TempBezier.Mid.Pos.Y,TempBezier.Mid.Pos.Z
    position object 7,TempBezier.Last.Pos.X,TempBezier.Last.Pos.Y,TempBezier.Last.Pos.Z
    position object 2,TempBezier.Start.HandlePrev.X,TempBezier.Start.HandlePrev.Y,TempBezier.Start.HandlePrev.Z
    position object 5,TempBezier.Mid.HandlePrev.X,TempBezier.Mid.HandlePrev.Y,TempBezier.Mid.HandlePrev.Z
    position object 8,TempBezier.Last.HandlePrev.X,TempBezier.Last.HandlePrev.Y,TempBezier.Last.HandlePrev.Z
    position object 3,TempBezier.Start.HandleNext.X,TempBezier.Start.HandleNext.Y,TempBezier.Start.HandleNext.Z
    position object 6,TempBezier.Mid.HandleNext.X,TempBezier.Mid.HandleNext.Y,TempBezier.Mid.HandleNext.Z
    position object 9,TempBezier.Last.HandleNext.X,TempBezier.Last.HandleNext.Y,TempBezier.Last.HandleNext.Z
    
    `draw non-bezier lines
    startx=object screen x(1)
    starty=object screen y(1)
    midx=object screen x(4)
    midy=object screen y(4)
    lastx=object screen x(7)
    lasty=object screen y(7)
    
    d3d_line startx,starty,midx,midy,d3d_rgba(255,255,255,255),d3d_rgba(255,255,255,255)
    d3d_line midx,midy,lastx,lasty,d3d_rgba(255,255,255,255),d3d_rgba(255,255,255,255)
    
    `draw handles
    starthandleprevx=object screen x(2)
    starthandleprevy=object screen y(2)
    starthandlenextx=object screen x(3)
    starthandlenexty=object screen y(3)
    midhandleprevx=object screen x(5)
    midhandleprevy=object screen y(5)
    midhandlenextx=object screen x(6)
    midhandlenexty=object screen y(6)
    lasthandleprevx=object screen x(8)
    lasthandleprevy=object screen y(8)
    lasthandlenextx=object screen x(9)
    lasthandlenexty=object screen y(9)
    
    d3d_line startx,starty,starthandleprevx,starthandleprevy,d3d_rgba(0,0,245,255),d3d_rgba(0,0,245,255)
    d3d_line startx,starty,starthandlenextx,starthandlenexty,d3d_rgba(0,0,245,255),d3d_rgba(0,0,245,255)
    d3d_line midx,midy,midhandleprevx,midhandleprevy,d3d_rgba(0,0,245,255),d3d_rgba(0,0,245,255)
    d3d_line midx,midy,midhandlenextx,midhandlenexty,d3d_rgba(0,0,245,255),d3d_rgba(0,0,245,255)
    d3d_line lastx,lasty,lasthandleprevx,lasthandleprevy,d3d_rgba(0,0,245,255),d3d_rgba(0,0,245,255)
    d3d_line lastx,lasty,lasthandlenextx,lasthandlenexty,d3d_rgba(0,0,245,255),d3d_rgba(0,0,245,255)
endfunction

`this function draws bezier curve
function DrawBezier(A as BezierPoint,B as BezierPoint,BezierSamples as integer)
    local AHandlePos as Vec3D
    local BHandlePos as Vec3D
    
    ax as float
    ay as float
    az as float
    bx as float
    by as float
    bz as float
    cx as float
    cy as float
    cz as float
    
    local drawxold=0
    local drawyold=0
    position object 100,A.Pos.X,A.Pos.Y,A.Pos.Z
    local drawxnew
    drawxnew=object screen x(100)
    local drawynew
    drawynew=object screen y(100)
    
    for t=0 to BezierSamples
            `get position along the next handle of A.
            ax=((A.HandleNext.X-A.Pos.X)/BezierSamples)*(t*1.0)+A.Pos.X
            ay=((A.HandleNext.Y-A.Pos.Y)/BezierSamples)*(t*1.0)+A.Pos.Y
            az=((A.HandleNext.Z-A.Pos.Z)/BezierSamples)*(t*1.0)+A.Pos.Z
            
            `get position along the prev handle of B.
            bx=((B.HandlePrev.X-B.Pos.X)/BezierSamples)*((BezierSamples-t)*1.0)+B.Pos.X
            by=((B.HandlePrev.Y-B.Pos.Y)/BezierSamples)*((BezierSamples-t)*1.0)+B.Pos.Y
            bz=((B.HandlePrev.Z-B.Pos.Z)/BezierSamples)*((BezierSamples-t)*1.0)+B.Pos.Z
            
            `get position along the line ax,ay,az-bx,by,bz.
            cx=((bx-ax)/BezierSamples)*(t*1.0)+ax
            cy=((by-ay)/BezierSamples)*(t*1.0)+ay
            cz=((bz-az)/BezierSamples)*(t*1.0)+az
            
            position object 100,cx,cy,cz
            drawxold=drawxnew
            drawyold=drawynew
            drawxnew=object screen x(100)
            drawynew=object screen y(100)
            
            `draw bezier curve section.
            d3d_line drawxold,drawyold,drawxnew,drawynew,d3d_rgba(255,0,255,255),d3d_rgba(255,0,255,255)
            
            f=f+1
            if f=1 and spacekey()
                hide object 1
                hide object 2
                hide object 3
                hide object 4
                hide object 5
                hide object 6
                hide object 7
                hide object 8
                hide object 9
                position camera 0,object position x(100),object position y(100),object position z(100)
                sync 
                f=0
            else
                show object 1
                show object 2
                show object 3
                show object 4
                show object 5
                show object 6
                show object 7
                show object 8
                show object 9
            endif
    next t
endfunction

function BezierRnd(PosRndMax)
    Bezier.Start.Pos.X=-(PosRndMax/2)+(random(PosRndMax))
    Bezier.Start.Pos.Y=-(PosRndMax/2)+(random(PosRndMax))
    Bezier.Start.Pos.Z=-(PosRndMax/2)+(random(PosRndMax))
    Bezier.Start.HandlePrev.X=-(PosRndMax/2)+(random(PosRndMax))
    Bezier.Start.HandlePrev.Y=-(PosRndMax/2)+(random(PosRndMax))
    Bezier.Start.HandlePrev.Z=-(PosRndMax/2)+(random(PosRndMax))
    Bezier.Start.HandleNext.X=-(PosRndMax/2)+(random(PosRndMax))
    Bezier.Start.HandleNext.Y=-(PosRndMax/2)+(random(PosRndMax))
    Bezier.Start.HandleNext.Z=-(PosRndMax/2)+(random(PosRndMax))
    
    Bezier.Mid.Pos.X=-(PosRndMax/2)+(random(PosRndMax))
    Bezier.Mid.Pos.Y=-(PosRndMax/2)+(random(PosRndMax))
    Bezier.Mid.Pos.Z=-(PosRndMax/2)+(random(PosRndMax))
    Bezier.Mid.HandlePrev.X=-(PosRndMax/2)+(random(PosRndMax))
    Bezier.Mid.HandlePrev.Y=-(PosRndMax/2)+(random(PosRndMax))
    Bezier.Mid.HandlePrev.Z=-(PosRndMax/2)+(random(PosRndMax))
    Bezier.Mid.HandleNext.X=-(PosRndMax/2)+(random(PosRndMax))
    Bezier.Mid.HandleNext.Y=-(PosRndMax/2)+(random(PosRndMax))
    Bezier.Mid.HandleNext.Z=-(PosRndMax/2)+(random(PosRndMax))
    
    Bezier.Last.Pos.X=-(PosRndMax/2)+(random(PosRndMax))
    Bezier.Last.Pos.Y=-(PosRndMax/2)+(random(PosRndMax))
    Bezier.Last.Pos.Z=-(PosRndMax/2)+(random(PosRndMax))
    Bezier.Last.HandlePrev.X=-(PosRndMax/2)+(random(PosRndMax))
    Bezier.Last.HandlePrev.Y=-(PosRndMax/2)+(random(PosRndMax))
    Bezier.Last.HandlePrev.Z=-(PosRndMax/2)+(random(PosRndMax))
    Bezier.Last.HandleNext.X=-(PosRndMax/2)+(random(PosRndMax))
    Bezier.Last.HandleNext.Y=-(PosRndMax/2)+(random(PosRndMax))
    Bezier.Last.HandleNext.Z=-(PosRndMax/2)+(random(PosRndMax))
endfunction

+ Code Snippet

`this function initializes bezier curves
function SetupBezier()
    `make bezier handles
    for a=1 to 3
            make object cube ((a-1)*3)+1,1
            make object cube ((a-1)*3)+2,1
            make object cube ((a-1)*3)+3,1
    next a
    
    `make temp object
    make object cube 100,1
    `hide object 100
    
    BezierRnd(100.0)
    TempBezier=Bezier
    UpdateBezier()
endfunction

remstart
this function makes bezier curve
probably most function arguments ever used - horror :)

StartX#, StartY#, StartZ# -> position coordinates for start of the curve
StartHandlePrevX#, StartHandlePrevY#, StartHandlePrevZ# -> position coordinates for the first control object that adjust bezier curve on the start point
StartHandleNextX#, StartHandleNextY#, StartHandleNextZ# -> position coordinates for the second control object that adjust bezier curve on the start point

MidX#, MidY#, MidZ# -> position coordinates for middle of the curve
MidHandlePrevX#, MidHandlePrevY#, MidHandlePrevZ# -> position coordinates for the first control object that adjust bezier curve on the middle point
MidHandleNextX#, MidHandleNextY#, MidHandleNextZ# -> position coordinates for the second control object that adjust bezier curve on the middle point

EndX#, EndY#, EndZ# -> position coordinates for end of the curve
EndHandlePrevX#, EndHandlePrevY#, EndHandleZ# -> position coordinates for the first control object that adjust bezier curve on the end point
EndHandleNextX#, EndHandleNextY#, EndHandleZ# -> position coordinates for the first control object that adjust bezier curve on the end point
remend
function BezierMake(StartX#,StartY#,StartZ#,StartHandlePrevX#,StartHandlePrevY#,StartHandlePrevZ#,StartHandleNextX#,StartHandleNextY#,StartHandleNextZ#,MidX#,MidY#,MidZ#,MidHandlePrevX#,MidHandlePrevY#,MidHandlePrevZ#,MidHandleNextX#,MidHandleNextY#,MidHandleNextZ#,EndX#,EndY#,EndZ#,EndHandlePrevX#,EndHandlePrevY#,EndHandlePrevZ#,EndHandleNextX#,EndHandleNextY#,EndHandleZ#)
    Bezier.Start.Pos.X=StartX#
    Bezier.Start.Pos.Y=StartY#
    Bezier.Start.Pos.Z=StartZ#
    Bezier.Start.HandlePrev.X=StartHandlePrevX#
    Bezier.Start.HandlePrev.Y=StartHandlePrevY#
    Bezier.Start.HandlePrev.Z=StartHandlePrevZ#
    Bezier.Start.HandleNext.X=StartHandleNextX#
    Bezier.Start.HandleNext.Y=StartHandleNextY#
    Bezier.Start.HandleNext.Z=StartHandleNextZ#
    
    Bezier.Mid.Pos.X=MidX#
    Bezier.Mid.Pos.Y=MidY#
    Bezier.Mid.Pos.Z=MidZ#
    Bezier.Mid.HandlePrev.X=MidHandlePrevX#
    Bezier.Mid.HandlePrev.Y=MidHandlePrevY#
    Bezier.Mid.HandlePrev.Z=MidHandlePrevZ#
    Bezier.Mid.HandleNext.X=MidHandleNextX#
    Bezier.Mid.HandleNext.Y=MidHandleNextY#
    Bezier.Mid.HandleNext.Z=MidHandleNextZ#
    
    Bezier.Last.Pos.X=EndX#
    Bezier.Last.Pos.Y=EndY#
    Bezier.Last.Pos.Z=EndZ#
    Bezier.Last.HandlePrev.X=EndHandlePrevX#
    Bezier.Last.HandlePrev.Y=EndHandlePrevY#
    Bezier.Last.HandlePrev.Z=EndHandlePrevZ#
    Bezier.Last.HandleNext.X=EndHandleNextX#
    Bezier.Last.HandleNext.Y=EndHandleNextY#
    Bezier.Last.HandleNext.Z=EndHandleNextZ#
endfunction

`this function updates bezier curve
function UpdateBezier()
    position object 1,TempBezier.Start.Pos.X,TempBezier.Start.Pos.Y,TempBezier.Start.Pos.Z
    position object 4,TempBezier.Mid.Pos.X,TempBezier.Mid.Pos.Y,TempBezier.Mid.Pos.Z
    position object 7,TempBezier.Last.Pos.X,TempBezier.Last.Pos.Y,TempBezier.Last.Pos.Z
    position object 2,TempBezier.Start.HandlePrev.X,TempBezier.Start.HandlePrev.Y,TempBezier.Start.HandlePrev.Z
    position object 5,TempBezier.Mid.HandlePrev.X,TempBezier.Mid.HandlePrev.Y,TempBezier.Mid.HandlePrev.Z
    position object 8,TempBezier.Last.HandlePrev.X,TempBezier.Last.HandlePrev.Y,TempBezier.Last.HandlePrev.Z
    position object 3,TempBezier.Start.HandleNext.X,TempBezier.Start.HandleNext.Y,TempBezier.Start.HandleNext.Z
    position object 6,TempBezier.Mid.HandleNext.X,TempBezier.Mid.HandleNext.Y,TempBezier.Mid.HandleNext.Z
    position object 9,TempBezier.Last.HandleNext.X,TempBezier.Last.HandleNext.Y,TempBezier.Last.HandleNext.Z
    
    `draw non-bezier lines
    startx=object screen x(1)
    starty=object screen y(1)
    midx=object screen x(4)
    midy=object screen y(4)
    lastx=object screen x(7)
    lasty=object screen y(7)
    
    d3d_line startx,starty,midx,midy,d3d_rgba(255,255,255,255),d3d_rgba(255,255,255,255)
    d3d_line midx,midy,lastx,lasty,d3d_rgba(255,255,255,255),d3d_rgba(255,255,255,255)
    
    `draw handles
    starthandleprevx=object screen x(2)
    starthandleprevy=object screen y(2)
    starthandlenextx=object screen x(3)
    starthandlenexty=object screen y(3)
    midhandleprevx=object screen x(5)
    midhandleprevy=object screen y(5)
    midhandlenextx=object screen x(6)
    midhandlenexty=object screen y(6)
    lasthandleprevx=object screen x(8)
    lasthandleprevy=object screen y(8)
    lasthandlenextx=object screen x(9)
    lasthandlenexty=object screen y(9)
    
    d3d_line startx,starty,starthandleprevx,starthandleprevy,d3d_rgba(0,0,245,255),d3d_rgba(0,0,245,255)
    d3d_line startx,starty,starthandlenextx,starthandlenexty,d3d_rgba(0,0,245,255),d3d_rgba(0,0,245,255)
    d3d_line midx,midy,midhandleprevx,midhandleprevy,d3d_rgba(0,0,245,255),d3d_rgba(0,0,245,255)
    d3d_line midx,midy,midhandlenextx,midhandlenexty,d3d_rgba(0,0,245,255),d3d_rgba(0,0,245,255)
    d3d_line lastx,lasty,lasthandleprevx,lasthandleprevy,d3d_rgba(0,0,245,255),d3d_rgba(0,0,245,255)
    d3d_line lastx,lasty,lasthandlenextx,lasthandlenexty,d3d_rgba(0,0,245,255),d3d_rgba(0,0,245,255)
endfunction

`this function draws bezier curve
function DrawBezier(A as BezierPoint,B as BezierPoint,BezierSamples as integer)
    local AHandlePos as Vec3D
    local BHandlePos as Vec3D
    
    ax as float
    ay as float
    az as float
    bx as float
    by as float
    bz as float
    cx as float
    cy as float
    cz as float
    
    local drawxold=0
    local drawyold=0
    position object 100,A.Pos.X,A.Pos.Y,A.Pos.Z
    local drawxnew
    drawxnew=object screen x(100)
    local drawynew
    drawynew=object screen y(100)
    
    for t=0 to BezierSamples
            `get position along the next handle of A.
            ax=((A.HandleNext.X-A.Pos.X)/BezierSamples)*(t*1.0)+A.Pos.X
            ay=((A.HandleNext.Y-A.Pos.Y)/BezierSamples)*(t*1.0)+A.Pos.Y
            az=((A.HandleNext.Z-A.Pos.Z)/BezierSamples)*(t*1.0)+A.Pos.Z
            
            `get position along the prev handle of B.
            bx=((B.HandlePrev.X-B.Pos.X)/BezierSamples)*((BezierSamples-t)*1.0)+B.Pos.X
            by=((B.HandlePrev.Y-B.Pos.Y)/BezierSamples)*((BezierSamples-t)*1.0)+B.Pos.Y
            bz=((B.HandlePrev.Z-B.Pos.Z)/BezierSamples)*((BezierSamples-t)*1.0)+B.Pos.Z
            
            `get position along the line ax,ay,az-bx,by,bz.
            cx=((bx-ax)/BezierSamples)*(t*1.0)+ax
            cy=((by-ay)/BezierSamples)*(t*1.0)+ay
            cz=((bz-az)/BezierSamples)*(t*1.0)+az
            
            position object 100,cx,cy,cz
            drawxold=drawxnew
            drawyold=drawynew
            drawxnew=object screen x(100)
            drawynew=object screen y(100)
            
            `draw bezier curve section.
            d3d_line drawxold,drawyold,drawxnew,drawynew,d3d_rgba(255,0,255,255),d3d_rgba(255,0,255,255)
            
            f=f+1
            if f=1 and spacekey()
                hide object 1
                hide object 2
                hide object 3
                hide object 4
                hide object 5
                hide object 6
                hide object 7
                hide object 8
                hide object 9
                position camera 0,object position x(100),object position y(100),object position z(100)
                sync 
                f=0
            else
                show object 1
                show object 2
                show object 3
                show object 4
                show object 5
                show object 6
                show object 7
                show object 8
                show object 9
            endif
    next t
endfunction

function BezierRnd(PosRndMax)
    Bezier.Start.Pos.X=-(PosRndMax/2)+(random(PosRndMax))
    Bezier.Start.Pos.Y=-(PosRndMax/2)+(random(PosRndMax))
    Bezier.Start.Pos.Z=-(PosRndMax/2)+(random(PosRndMax))
    Bezier.Start.HandlePrev.X=-(PosRndMax/2)+(random(PosRndMax))
    Bezier.Start.HandlePrev.Y=-(PosRndMax/2)+(random(PosRndMax))
    Bezier.Start.HandlePrev.Z=-(PosRndMax/2)+(random(PosRndMax))
    Bezier.Start.HandleNext.X=-(PosRndMax/2)+(random(PosRndMax))
    Bezier.Start.HandleNext.Y=-(PosRndMax/2)+(random(PosRndMax))
    Bezier.Start.HandleNext.Z=-(PosRndMax/2)+(random(PosRndMax))
    
    Bezier.Mid.Pos.X=-(PosRndMax/2)+(random(PosRndMax))
    Bezier.Mid.Pos.Y=-(PosRndMax/2)+(random(PosRndMax))
    Bezier.Mid.Pos.Z=-(PosRndMax/2)+(random(PosRndMax))
    Bezier.Mid.HandlePrev.X=-(PosRndMax/2)+(random(PosRndMax))
    Bezier.Mid.HandlePrev.Y=-(PosRndMax/2)+(random(PosRndMax))
    Bezier.Mid.HandlePrev.Z=-(PosRndMax/2)+(random(PosRndMax))
    Bezier.Mid.HandleNext.X=-(PosRndMax/2)+(random(PosRndMax))
    Bezier.Mid.HandleNext.Y=-(PosRndMax/2)+(random(PosRndMax))
    Bezier.Mid.HandleNext.Z=-(PosRndMax/2)+(random(PosRndMax))
    
    Bezier.Last.Pos.X=-(PosRndMax/2)+(random(PosRndMax))
    Bezier.Last.Pos.Y=-(PosRndMax/2)+(random(PosRndMax))
    Bezier.Last.Pos.Z=-(PosRndMax/2)+(random(PosRndMax))
    Bezier.Last.HandlePrev.X=-(PosRndMax/2)+(random(PosRndMax))
    Bezier.Last.HandlePrev.Y=-(PosRndMax/2)+(random(PosRndMax))
    Bezier.Last.HandlePrev.Z=-(PosRndMax/2)+(random(PosRndMax))
    Bezier.Last.HandleNext.X=-(PosRndMax/2)+(random(PosRndMax))
    Bezier.Last.HandleNext.Y=-(PosRndMax/2)+(random(PosRndMax))
    Bezier.Last.HandleNext.Z=-(PosRndMax/2)+(random(PosRndMax))
endfunction

my functions are BezierMake and SetupBezier when i try to use BezierMake function it doesn't make a correct bezier curve instead it makes one that is made by default from BezierRnd function, and how can i change position object 1 and so to use find free object() function every time i try that with this functions it return an error like object already exists or such? can someone help me with this? original code for this was done by monocoder.

Back to top

Profile PM Email

nruser

18

Years of Service

User Offline

Joined: 22nd Dec 2007

Location: Serbia

Posted: 16th Aug 2011 13:04

Link

this isn't solved yet does anyone knows how to fix this?

Back to top

Profile PM Email

Max P

16

Years of Service

User Offline

Joined: 23rd Jan 2010

Location:

Posted: 16th Aug 2011 13:32 Edited at: 16th Aug 2011 13:36

Link

Don't know what is wrong with your code, but I can provide you with a 2d and 3d bezier curve function:

Type C_Vector2
    x as float
    y as float
endType

Type C_Vector3
    x as float
    y as float
    z as float
endType

Function bezier2D(x1, y1, vx1, vy1, x2, y2, vx2, vy2, quality as float )
    
    t as float
    u as float
    tt as float
    uu as float
    uuu as float
    ttt as float
    
    
    p0 as C_Vector2 : p0.x = x1 : p0.y = y1
    p1 as C_Vector2 : p1.x = vx1 : p1.y = vy1
    p2 as C_Vector2 : p2.x = vx2 : p2.y = vy2
    p3 as C_Vector2 : p3.x = x2 : p3.y = y2
    p as C_Vector2
    pO as C_Vector2
    
    p  = p0
    
    dx# = x1 - x2
    dy# = y1 - y2
    d# = sqrt(dx#*dx# + dy#*dy#)
    
    step# = 1.0/(d# * (quality/100.0))
    
    a2StartLineBatch int(1.0/step#)
    
    for t=0 to 1 step step#
        
        pO = p
        
        u = 1-t
        tt = t*t
        uu = u*u
        uuu = uu * u
        ttt = tt * t
         
        p.x = uuu * p0.x
        p.y = uuu * p0.y
        
        p.x = p.x + 3 * uu * t * p1.x
        p.y = p.y + 3 * uu * t * p1.y
        
        p.x = p.x + 3 * u * tt * p2.x
        p.y = p.y + 3 * u * tt * p2.y
        
        p.x = p.x + ttt * p3.x
        p.y = p.y + ttt * p3.y
        
        a2Line pO.x, pO.y, p.x, p.y, core_Color
    next t
    
    a2EndBatch
    
endFunction

Function bezier3D(x1, y1, z1, vx1, vy1, vz1, x2, y2, z2, vx2, vy2, vz2, quality as float )
    
    t as float
    u as float
    tt as float
    uu as float
    uuu as float
    ttt as float
    
    
    p0 as C_Vector3 : p0.x = x1 : p0.y = y1 : p0.z = z1
    p1 as C_Vector3 : p1.x = vx1 : p1.y = vy1 : p1.z = vz1
    p2 as C_Vector3 : p2.x = vx2 : p2.y = vy2 : p2.z = vz2
    p3 as C_Vector3 : p3.x = x2 : p3.y = y2 : p3.z = z3
    p as C_Vector3
    pO as C_Vector3
    
    p  = p0
    
    dx# = x1 - x2
    dy# = y1 - y2
    d# = sqrt(dx#*dx# + dy#*dy#)
    
    step# = 1.0/(d# * (quality/100.0))
    
    for t=0 to 1 step step#
        
        pO = p
        
        u = 1-t
        tt = t*t
        uu = u*u
        uuu = uu * u
        ttt = tt * t
         
        p.x = uuu * p0.x
        p.y = uuu * p0.y
        p.z = uuu * p0.z
        
        p.x = p.x + 3 * uu * t * p1.x
        p.y = p.y + 3 * uu * t * p1.y
        p.z = p.z + 3 * uu * t * p1.z
        
        p.x = p.x + 3 * u * tt * p2.x
        p.y = p.y + 3 * u * tt * p2.y
        p.z = p.z + 3 * u * tt * p2.z
        
        p.x = p.x + ttt * p3.x
        p.y = p.y + ttt * p3.y
        p.z = p.z + ttt * p3.z
        
        
        d3d_line3d p0.x, p0.y, p0.z, p.x, p.y, p.z
        // create your 3d line from p0.x, p0.y, p0.z to p.x, p.y, p.z
    next t
    
endFunction

+ Code Snippet

Type C_Vector2
    x as float
    y as float
endType

Type C_Vector3
    x as float
    y as float
    z as float
endType

Function bezier2D(x1, y1, vx1, vy1, x2, y2, vx2, vy2, quality as float )
    
    t as float
    u as float
    tt as float
    uu as float
    uuu as float
    ttt as float
    
    
    p0 as C_Vector2 : p0.x = x1 : p0.y = y1
    p1 as C_Vector2 : p1.x = vx1 : p1.y = vy1
    p2 as C_Vector2 : p2.x = vx2 : p2.y = vy2
    p3 as C_Vector2 : p3.x = x2 : p3.y = y2
    p as C_Vector2
    pO as C_Vector2
    
    p  = p0
    
    dx# = x1 - x2
    dy# = y1 - y2
    d# = sqrt(dx#*dx# + dy#*dy#)
    
    step# = 1.0/(d# * (quality/100.0))
    
    a2StartLineBatch int(1.0/step#)
    
    for t=0 to 1 step step#
        
        pO = p
        
        u = 1-t
        tt = t*t
        uu = u*u
        uuu = uu * u
        ttt = tt * t
         
        p.x = uuu * p0.x
        p.y = uuu * p0.y
        
        p.x = p.x + 3 * uu * t * p1.x
        p.y = p.y + 3 * uu * t * p1.y
        
        p.x = p.x + 3 * u * tt * p2.x
        p.y = p.y + 3 * u * tt * p2.y
        
        p.x = p.x + ttt * p3.x
        p.y = p.y + ttt * p3.y
        
        a2Line pO.x, pO.y, p.x, p.y, core_Color
    next t
    
    a2EndBatch
    
endFunction

Function bezier3D(x1, y1, z1, vx1, vy1, vz1, x2, y2, z2, vx2, vy2, vz2, quality as float )
    
    t as float
    u as float
    tt as float
    uu as float
    uuu as float
    ttt as float
    
    
    p0 as C_Vector3 : p0.x = x1 : p0.y = y1 : p0.z = z1
    p1 as C_Vector3 : p1.x = vx1 : p1.y = vy1 : p1.z = vz1
    p2 as C_Vector3 : p2.x = vx2 : p2.y = vy2 : p2.z = vz2
    p3 as C_Vector3 : p3.x = x2 : p3.y = y2 : p3.z = z3
    p as C_Vector3
    pO as C_Vector3
    
    p  = p0
    
    dx# = x1 - x2
    dy# = y1 - y2
    d# = sqrt(dx#*dx# + dy#*dy#)
    
    step# = 1.0/(d# * (quality/100.0))
    
    for t=0 to 1 step step#
        
        pO = p
        
        u = 1-t
        tt = t*t
        uu = u*u
        uuu = uu * u
        ttt = tt * t
         
        p.x = uuu * p0.x
        p.y = uuu * p0.y
        p.z = uuu * p0.z
        
        p.x = p.x + 3 * uu * t * p1.x
        p.y = p.y + 3 * uu * t * p1.y
        p.z = p.z + 3 * uu * t * p1.z
        
        p.x = p.x + 3 * u * tt * p2.x
        p.y = p.y + 3 * u * tt * p2.y
        p.z = p.z + 3 * u * tt * p2.z
        
        p.x = p.x + ttt * p3.x
        p.y = p.y + ttt * p3.y
        p.z = p.z + ttt * p3.z
        
        
        d3d_line3d p0.x, p0.y, p0.z, p.x, p.y, p.z
        // create your 3d line from p0.x, p0.y, p0.z to p.x, p.y, p.z
    next t
    
endFunction

Example of the curve attached.

Back to top

Profile PM

Mugen Wizardry

User Banned

Posted: 16th Aug 2011 16:09

Link

Now is there any way you could get an OBJECT to follow the 3D Bezier Curve, is the question?

CHECK OUT MY WEBSITE AT http://imageposeidon.com/ !

Back to top

Profile

nruser

18

Years of Service

User Offline

Joined: 22nd Dec 2007

Location: Serbia

Posted: 16th Aug 2011 16:48

Link

this is original code that i used from code snippets

set display mode desktop width(), desktop height(), 32, 1
sync on
sync rate 60

#constant cBezierSamples 50.0

type tInputKey
        Old
        New
endtype

type tVec3D
        x as float
        y as float
        z as float
endtype
type tBezierPoint
        pos as tVec3D
        handleprev as tVec3D
        handlenext as tVec3D
endtype
type tBezierLineThree
        start as tBezierPoint
        mid as tBezierPoint
        last as tBezierPoint
endtype

global gBezier as tBezierLineThree
global Bezier as tBezierLineThree
global gCtrl as tInputKey

// Make Bezier Handles.
for a = 1 to 3
        make object cube ((a - 1) * 3) + 1, 1
        make object cube ((a - 1) * 3) + 2, 1
        make object cube ((a - 1) * 3) + 3, 1
next a
// Make Temp Object.
make object cube 100, 1
`hide object 100

BezierRnd(100.0)
gBezier = Bezier
UpdateBezier()

make matrix 1, 1000,1000,10,10
position matrix 1,0,-100,0

do
        // update input.
        gCtrl.Old = gCtrl.New
        gCtrl.New = controlkey()

if gCtrl.New
                if gCtrl.Old = 0
                        // Randomize Bezier Line
                        BezierRnd(100.0)
                        gBezier = Bezier
                        UpdateBezier()
                endif
        endif
        
        if shiftkey()
                inc gBezier.Mid.Pos.X, 0.1
                inc gBezier.Mid.Pos.Y, 0.1
                UpdateBezier()
        endif
        
        // Update camera.
        rotate camera camera angle x() + mousemovey(), camera angle y() + mousemovex(), 0
        position camera 0, 0, 0
        `move camera -384 + (mousez()/10.0)
        
        // Draw Non-Bezier Line
        startx = object screen x(1)
        starty = object screen y(1)
        midx = object screen x(4)
        midy = object screen y(4)
        lastx = object screen x(7)
        lasty = object screen y(7)
        ink rgb(255, 255, 255)
        line startx, starty, midx, midy
        line midx, midy, lastx, lasty
        
        // DRAW 3D BEZIER.
        // We draw two bezier curves: The curve Start-Mid, and the curve Mid-Last.
        ink rgb(255, 0, 255)
        DrawBezier(gBezier.Start, gBezier.Mid)
        DrawBezier(gBezier.Mid, gBezier.Last)
        
        // Draw Handles
        starthandleprevx = object screen x(2)
        starthandleprevy = object screen y(2)
        starthandlenextx = object screen x(3)
        starthandlenexty = object screen y(3)
        midhandleprevx = object screen x(5)
        midhandleprevy = object screen y(5)
        midhandlenextx = object screen x(6)
        midhandlenexty = object screen y(6)
        lasthandleprevx = object screen x(8)
        lasthandleprevy = object screen y(8)
        lasthandlenextx = object screen x(9)
        lasthandlenexty = object screen y(9)
        ink rgb(0, 0, 245)
        line startx, starty, starthandleprevx, starthandleprevy
        line startx, starty, starthandlenextx, starthandlenexty
        line midx, midy, midhandleprevx, midhandleprevy
        line midx, midy, midhandlenextx, midhandlenexty
        line lastx, lasty, lasthandleprevx, lasthandleprevy
        line lastx, lasty, lasthandlenextx, lasthandlenexty
        
        set cursor 0, 0
        ink rgb(255, 255, 255)
        print screen fps()
sync
loop

function BezierRnd(PosRndMax)
        Bezier.Start.Pos.X = -(PosRndMax / 2) + (random(PosRndMax))
        Bezier.Start.Pos.Y = -(PosRndMax / 2) + (random(PosRndMax))
        Bezier.Start.Pos.Z = -(PosRndMax / 2) + (random(PosRndMax))
        Bezier.Start.HandlePrev.X = -(PosRndMax / 2) + (random(PosRndMax))
        Bezier.Start.HandlePrev.Y = -(PosRndMax / 2) + (random(PosRndMax))
        Bezier.Start.HandlePrev.Z = -(PosRndMax / 2) + (random(PosRndMax))
        Bezier.Start.HandleNext.X = -(PosRndMax / 2) + (random(PosRndMax))
        Bezier.Start.HandleNext.Y = -(PosRndMax / 2) + (random(PosRndMax))
        Bezier.Start.HandleNext.Z = -(PosRndMax / 2) + (random(PosRndMax))
        
        Bezier.Mid.Pos.X = -(PosRndMax / 2) + (random(PosRndMax))
        Bezier.Mid.Pos.Y = -(PosRndMax / 2) + (random(PosRndMax))
        Bezier.Mid.Pos.Z = -(PosRndMax / 2) + (random(PosRndMax))
        Bezier.Mid.HandlePrev.X = -(PosRndMax / 2) + (random(PosRndMax))
        Bezier.Mid.HandlePrev.Y = -(PosRndMax / 2) + (random(PosRndMax))
        Bezier.Mid.HandlePrev.Z = -(PosRndMax / 2) + (random(PosRndMax))
        Bezier.Mid.HandleNext.X = -(PosRndMax / 2) + (random(PosRndMax))
        Bezier.Mid.HandleNext.Y = -(PosRndMax / 2) + (random(PosRndMax))
        Bezier.Mid.HandleNext.Z = -(PosRndMax / 2) + (random(PosRndMax))
        
        Bezier.Last.Pos.X = -(PosRndMax / 2) + (random(PosRndMax))
        Bezier.Last.Pos.Y = -(PosRndMax / 2) + (random(PosRndMax))
        Bezier.Last.Pos.Z = -(PosRndMax / 2) + (random(PosRndMax))
        Bezier.Last.HandlePrev.X = -(PosRndMax / 2) + (random(PosRndMax))
        Bezier.Last.HandlePrev.Y = -(PosRndMax / 2) + (random(PosRndMax))
        Bezier.Last.HandlePrev.Z = -(PosRndMax / 2) + (random(PosRndMax))
        Bezier.Last.HandleNext.X = -(PosRndMax / 2) + (random(PosRndMax))
        Bezier.Last.HandleNext.Y = -(PosRndMax / 2) + (random(PosRndMax))
        Bezier.Last.HandleNext.Z = -(PosRndMax / 2) + (random(PosRndMax))
endfunction

function UpdateBezier()
        position object 1, gBezier.Start.Pos.X, gBezier.Start.Pos.Y, gBezier.Start.Pos.Z
        position object 4, gBezier.Mid.Pos.X, gBezier.Mid.Pos.Y, gBezier.Mid.Pos.Z
        position object 7, gBezier.Last.Pos.X, gBezier.Last.Pos.Y, gBezier.Last.Pos.Z
        position object 2, gBezier.Start.HandlePrev.X, gBezier.Start.HandlePrev.Y, gBezier.Start.HandlePrev.Z
        position object 5, gBezier.Mid.HandlePrev.X, gBezier.Mid.HandlePrev.Y, gBezier.Mid.HandlePrev.Z
        position object 8, gBezier.Last.HandlePrev.X, gBezier.Last.HandlePrev.Y, gBezier.Last.HandlePrev.Z
        position object 3, gBezier.Start.HandleNext.X, gBezier.Start.HandleNext.Y, gBezier.Start.HandleNext.Z
        position object 6, gBezier.Mid.HandleNext.X, gBezier.Mid.HandleNext.Y, gBezier.Mid.HandleNext.Z
        position object 9, gBezier.Last.HandleNext.X, gBezier.Last.HandleNext.Y, gBezier.Last.HandleNext.Z
endfunction

function DrawBezier(A as tBezierPoint, B as tBezierPoint)
        local AHandlePos as tVec3D
        local BHandlePos as tVec3D
        
        ax as float : ay as float : az as float
        bx as float : by as float : bz as float
        cx as float : cy as float : cz as float
        
        local drawxold = 0
        local drawyold = 0
        position object 100, A.Pos.X, A.Pos.Y, A.Pos.Z
        local drawxnew : drawxnew = object screen x(100)
        local drawynew : drawynew = object screen y(100)
        `backdrop off
        
        for t = 0 to cBezierSamples
                // Get Position along the Next Handle of A.
                ax = ((A.HandleNext.X - A.Pos.X) / cBezierSamples) * (t*1.0) + A.Pos.X
                ay = ((A.HandleNext.Y - A.Pos.Y) / cBezierSamples) * (t*1.0) + A.Pos.Y
                az = ((A.HandleNext.Z - A.Pos.Z) / cBezierSamples) * (t*1.0) + A.Pos.Z
                
                // Get Position along the Prev Handle of B.
                bx = ((B.HandlePrev.X - B.Pos.X) / cBezierSamples) * ((cBezierSamples-t)*1.0) + B.Pos.X
                by = ((B.HandlePrev.Y - B.Pos.Y) / cBezierSamples) * ((cBezierSamples-t)*1.0) + B.Pos.Y
                bz = ((B.HandlePrev.Z - B.Pos.Z) / cBezierSamples) * ((cBezierSamples-t)*1.0) + B.Pos.Z
                
                // Get Position along the Line ax,ay,az - bx,by,bz.
                cx = ((bx - ax) / cBezierSamples) * (t*1.0) + ax
                cy = ((by - ay) / cBezierSamples) * (t*1.0) + ay
                cz = ((bz - az) / cBezierSamples) * (t*1.0) + az
                
                position object 100, cx, cy, cz
                drawxold = drawxnew
                drawyold = drawynew
                drawxnew = object screen x(100)
                drawynew = object screen y(100)
                
                // Draw Bezier Curve Section.
                line drawxold, drawyold, drawxnew, drawynew
                
                f = f + 1
                if f = 1 and spacekey()
                    hide object 1
                    hide object 2
                    hide object 3
                    hide object 4
                    hide object 5
                    hide object 6
                    hide object 7
                    hide object 8
                    hide object 9
                    position camera 0,object position x(100),object position y(100), object position z(100)
                    sync 
                    f = 0
                endif
        next t
        `backdrop on
endfunction

+ Code Snippet

set display mode desktop width(), desktop height(), 32, 1
sync on
sync rate 60

#constant cBezierSamples 50.0

type tInputKey
        Old
        New
endtype

type tVec3D
        x as float
        y as float
        z as float
endtype
type tBezierPoint
        pos as tVec3D
        handleprev as tVec3D
        handlenext as tVec3D
endtype
type tBezierLineThree
        start as tBezierPoint
        mid as tBezierPoint
        last as tBezierPoint
endtype

global gBezier as tBezierLineThree
global Bezier as tBezierLineThree
global gCtrl as tInputKey

// Make Bezier Handles.
for a = 1 to 3
        make object cube ((a - 1) * 3) + 1, 1
        make object cube ((a - 1) * 3) + 2, 1
        make object cube ((a - 1) * 3) + 3, 1
next a
// Make Temp Object.
make object cube 100, 1
`hide object 100

BezierRnd(100.0)
gBezier = Bezier
UpdateBezier()

make matrix 1, 1000,1000,10,10
position matrix 1,0,-100,0

do
        // update input.
        gCtrl.Old = gCtrl.New
        gCtrl.New = controlkey()

        if gCtrl.New
                if gCtrl.Old = 0
                        // Randomize Bezier Line
                        BezierRnd(100.0)
                        gBezier = Bezier
                        UpdateBezier()
                endif
        endif
        
        if shiftkey()
                inc gBezier.Mid.Pos.X, 0.1
                inc gBezier.Mid.Pos.Y, 0.1
                UpdateBezier()
        endif
        
        // Update camera.
        rotate camera camera angle x() + mousemovey(), camera angle y() + mousemovex(), 0
        position camera 0, 0, 0
        `move camera -384 + (mousez()/10.0)
        
        // Draw Non-Bezier Line
        startx = object screen x(1)
        starty = object screen y(1)
        midx = object screen x(4)
        midy = object screen y(4)
        lastx = object screen x(7)
        lasty = object screen y(7)
        ink rgb(255, 255, 255)
        line startx, starty, midx, midy
        line midx, midy, lastx, lasty
        
        // DRAW 3D BEZIER.
        // We draw two bezier curves: The curve Start-Mid, and the curve Mid-Last.
        ink rgb(255, 0, 255)
        DrawBezier(gBezier.Start, gBezier.Mid)
        DrawBezier(gBezier.Mid, gBezier.Last)
        
        // Draw Handles
        starthandleprevx = object screen x(2)
        starthandleprevy = object screen y(2)
        starthandlenextx = object screen x(3)
        starthandlenexty = object screen y(3)
        midhandleprevx = object screen x(5)
        midhandleprevy = object screen y(5)
        midhandlenextx = object screen x(6)
        midhandlenexty = object screen y(6)
        lasthandleprevx = object screen x(8)
        lasthandleprevy = object screen y(8)
        lasthandlenextx = object screen x(9)
        lasthandlenexty = object screen y(9)
        ink rgb(0, 0, 245)
        line startx, starty, starthandleprevx, starthandleprevy
        line startx, starty, starthandlenextx, starthandlenexty
        line midx, midy, midhandleprevx, midhandleprevy
        line midx, midy, midhandlenextx, midhandlenexty
        line lastx, lasty, lasthandleprevx, lasthandleprevy
        line lastx, lasty, lasthandlenextx, lasthandlenexty
        
        set cursor 0, 0
        ink rgb(255, 255, 255)
        print screen fps()
sync
loop

function BezierRnd(PosRndMax)
        Bezier.Start.Pos.X = -(PosRndMax / 2) + (random(PosRndMax))
        Bezier.Start.Pos.Y = -(PosRndMax / 2) + (random(PosRndMax))
        Bezier.Start.Pos.Z = -(PosRndMax / 2) + (random(PosRndMax))
        Bezier.Start.HandlePrev.X = -(PosRndMax / 2) + (random(PosRndMax))
        Bezier.Start.HandlePrev.Y = -(PosRndMax / 2) + (random(PosRndMax))
        Bezier.Start.HandlePrev.Z = -(PosRndMax / 2) + (random(PosRndMax))
        Bezier.Start.HandleNext.X = -(PosRndMax / 2) + (random(PosRndMax))
        Bezier.Start.HandleNext.Y = -(PosRndMax / 2) + (random(PosRndMax))
        Bezier.Start.HandleNext.Z = -(PosRndMax / 2) + (random(PosRndMax))
        
        Bezier.Mid.Pos.X = -(PosRndMax / 2) + (random(PosRndMax))
        Bezier.Mid.Pos.Y = -(PosRndMax / 2) + (random(PosRndMax))
        Bezier.Mid.Pos.Z = -(PosRndMax / 2) + (random(PosRndMax))
        Bezier.Mid.HandlePrev.X = -(PosRndMax / 2) + (random(PosRndMax))
        Bezier.Mid.HandlePrev.Y = -(PosRndMax / 2) + (random(PosRndMax))
        Bezier.Mid.HandlePrev.Z = -(PosRndMax / 2) + (random(PosRndMax))
        Bezier.Mid.HandleNext.X = -(PosRndMax / 2) + (random(PosRndMax))
        Bezier.Mid.HandleNext.Y = -(PosRndMax / 2) + (random(PosRndMax))
        Bezier.Mid.HandleNext.Z = -(PosRndMax / 2) + (random(PosRndMax))
        
        Bezier.Last.Pos.X = -(PosRndMax / 2) + (random(PosRndMax))
        Bezier.Last.Pos.Y = -(PosRndMax / 2) + (random(PosRndMax))
        Bezier.Last.Pos.Z = -(PosRndMax / 2) + (random(PosRndMax))
        Bezier.Last.HandlePrev.X = -(PosRndMax / 2) + (random(PosRndMax))
        Bezier.Last.HandlePrev.Y = -(PosRndMax / 2) + (random(PosRndMax))
        Bezier.Last.HandlePrev.Z = -(PosRndMax / 2) + (random(PosRndMax))
        Bezier.Last.HandleNext.X = -(PosRndMax / 2) + (random(PosRndMax))
        Bezier.Last.HandleNext.Y = -(PosRndMax / 2) + (random(PosRndMax))
        Bezier.Last.HandleNext.Z = -(PosRndMax / 2) + (random(PosRndMax))
endfunction

function UpdateBezier()
        position object 1, gBezier.Start.Pos.X, gBezier.Start.Pos.Y, gBezier.Start.Pos.Z
        position object 4, gBezier.Mid.Pos.X, gBezier.Mid.Pos.Y, gBezier.Mid.Pos.Z
        position object 7, gBezier.Last.Pos.X, gBezier.Last.Pos.Y, gBezier.Last.Pos.Z
        position object 2, gBezier.Start.HandlePrev.X, gBezier.Start.HandlePrev.Y, gBezier.Start.HandlePrev.Z
        position object 5, gBezier.Mid.HandlePrev.X, gBezier.Mid.HandlePrev.Y, gBezier.Mid.HandlePrev.Z
        position object 8, gBezier.Last.HandlePrev.X, gBezier.Last.HandlePrev.Y, gBezier.Last.HandlePrev.Z
        position object 3, gBezier.Start.HandleNext.X, gBezier.Start.HandleNext.Y, gBezier.Start.HandleNext.Z
        position object 6, gBezier.Mid.HandleNext.X, gBezier.Mid.HandleNext.Y, gBezier.Mid.HandleNext.Z
        position object 9, gBezier.Last.HandleNext.X, gBezier.Last.HandleNext.Y, gBezier.Last.HandleNext.Z
endfunction

function DrawBezier(A as tBezierPoint, B as tBezierPoint)
        local AHandlePos as tVec3D
        local BHandlePos as tVec3D
        
        ax as float : ay as float : az as float
        bx as float : by as float : bz as float
        cx as float : cy as float : cz as float
        
        local drawxold = 0
        local drawyold = 0
        position object 100, A.Pos.X, A.Pos.Y, A.Pos.Z
        local drawxnew : drawxnew = object screen x(100)
        local drawynew : drawynew = object screen y(100)
        `backdrop off
        
        for t = 0 to cBezierSamples
                // Get Position along the Next Handle of A.
                ax = ((A.HandleNext.X - A.Pos.X) / cBezierSamples) * (t*1.0) + A.Pos.X
                ay = ((A.HandleNext.Y - A.Pos.Y) / cBezierSamples) * (t*1.0) + A.Pos.Y
                az = ((A.HandleNext.Z - A.Pos.Z) / cBezierSamples) * (t*1.0) + A.Pos.Z
                
                // Get Position along the Prev Handle of B.
                bx = ((B.HandlePrev.X - B.Pos.X) / cBezierSamples) * ((cBezierSamples-t)*1.0) + B.Pos.X
                by = ((B.HandlePrev.Y - B.Pos.Y) / cBezierSamples) * ((cBezierSamples-t)*1.0) + B.Pos.Y
                bz = ((B.HandlePrev.Z - B.Pos.Z) / cBezierSamples) * ((cBezierSamples-t)*1.0) + B.Pos.Z
                
                // Get Position along the Line ax,ay,az - bx,by,bz.
                cx = ((bx - ax) / cBezierSamples) * (t*1.0) + ax
                cy = ((by - ay) / cBezierSamples) * (t*1.0) + ay
                cz = ((bz - az) / cBezierSamples) * (t*1.0) + az
                
                position object 100, cx, cy, cz
                drawxold = drawxnew
                drawyold = drawynew
                drawxnew = object screen x(100)
                drawynew = object screen y(100)
                
                // Draw Bezier Curve Section.
                line drawxold, drawyold, drawxnew, drawynew
                
                f = f + 1
                if f = 1 and spacekey()
                    hide object 1
                    hide object 2
                    hide object 3
                    hide object 4
                    hide object 5
                    hide object 6
                    hide object 7
                    hide object 8
                    hide object 9
                    position camera 0,object position x(100),object position y(100), object position z(100)
                    sync 
                    f = 0
                endif
        next t
        `backdrop on
endfunction

can anyone get this to work like my BezierMake function

@Max P
see attached screenshot can you change your code so it actually look like bezier curve, and how can i make camera or object follow your bezier curve?

@Mugen Wizardry
yes it is possible to get camera to follow bezier curve (with the original code), that is not the problem, the problem is that i can't generate bezier curve of my own.

Back to top

Profile PM Email

Max P

16

Years of Service

User Offline

Joined: 23rd Jan 2010

Location:

Posted: 16th Aug 2011 17:26

Link

Here it is:

Type C_Vector2
    x as float
    y as float
endType

Type C_Vector3
    x as float
    y as float
    z as float
endType

open console

sync on
sync rate 0

x1# = 0
y1# = 0
z1# = 0

vx1# = 50
vy1# = 0
vz1# = 0

x2# = 100
y2# = 100
z2# = 0

vx2# = 50
vy2# = 100
vz2# = 0

MakeBezier(x1#, y1#, z1#, vx1#, vy1#, vz1#, x2#, y2#, z2#, vx2#, vy2#, vz2#, 5)

for t=1 to 100
    make object cube t, 2
    position object t, GetBezierX(t), GetBezierY(t), GetBezierZ(t)
next t

id = makeObjectFromBezier()

position camera 50, 50, -100
point camera 50, 50, 0

Do
    
    if spacekey()
        MakeBezier(x1#, y1#, z1#, vx1#, vy1#, vz1#, x2#, y2#, z2#, vx2#, vy2#, vz2#, 2 + rnd(98))
        for t=1 to 100
            position object t, GetBezierX(t), GetBezierY(t), GetBezierZ(t)
        next t
    endif
    
    Sync
Loop

end

Function MakeBezier(x1, y1, z1, vx1, vy1, vz1, x2, y2, z2, vx2, vy2, vz2, quality as float )
    
    t as float
    u as float
    tt as float
    uu as float
    uuu as float
    ttt as float
    
    p0 as C_Vector3 : p0.x = x1 : p0.y = y1 : p0.z = z1
    p1 as C_Vector3 : p1.x = vx1 : p1.y = vy1 : p1.z = vz1
    p2 as C_Vector3 : p2.x = vx2 : p2.y = vy2 : p2.z = vz2
    p3 as C_Vector3 : p3.x = x2 : p3.y = y2 : p3.z = z3
    p as C_Vector3
    pO as C_Vector3
    
    p  = p0
    
    dx# = x1 - x2
    dy# = y1 - y2
    d# = sqrt(dx#*dx# + dy#*dy#)
    
    step# = 1.0/(d# * (quality/100.0))
    
    if array count(bezierData())>-1 then empty array bezierData()
    dim bezierData(ceil(1.0/step#)) as C_Vector3
    
    Global BezierStep as float
    BezierStep = step#
    
    for t=0 to 1 step step#
        
        pO = p
        
        u = 1-t
        tt = t*t
        uu = u*u
        uuu = uu * u
        ttt = tt * t
         
        p.x = uuu * p0.x
        p.y = uuu * p0.y
        p.z = uuu * p0.z
        
        p.x = p.x + 3 * uu * t * p1.x
        p.y = p.y + 3 * uu * t * p1.y
        p.z = p.z + 3 * uu * t * p1.z
        
        p.x = p.x + 3 * u * tt * p2.x
        p.y = p.y + 3 * u * tt * p2.y
        p.z = p.z + 3 * u * tt * p2.z
        
        p.x = p.x + ttt * p3.x
        p.y = p.y + ttt * p3.y
        p.z = p.z + ttt * p3.z
        
        index = t / step#
        bezierData(index).x = p.x
        bezierData(index).y = p.y
        bezierData(index).z = p.z
    next t
    
endFunction

Function makeObjectFromBezier()
    
    x1# = GetBezierX(0)
    y1# = GetBezierY(0)
    z1# = GetBezierZ(0)
        
    x2# = GetBezierX(1)
    y2# = GetBezierY(1)
    z2# = GetBezierZ(1)
    
    mainObject = reserve free object()
    tempObject = reserve free object()
    tempMesh   = reserve free mesh()
    
    make object triangle mainObject, x1#, y1#, z1#, x2#, y2#, z2#, x2#, y2#, z2#
    
    for t=1 to 99
        x1# = GetBezierX(t)
        y1# = GetBezierY(t)
        z1# = GetBezierZ(t)
        
        x2# = GetBezierX(t+1)
        y2# = GetBezierY(t+1)
        z2# = GetBezierZ(t+1)
        
        make object triangle tempObject, x1#, y1#, z1#, x2#, y2#, z2#, x2#, y2#, z2#
        
        make mesh from object tempMesh, tempObject
        
        delete object tempObject
        
        append limb mainObject, tempMesh
        
        delete mesh tempMesh
        
    next t
    
    set object cull mainObject, 0
    set object wireframe mainObject, 1
    
endFunction mainObject

Function GetBezierX(t#)
    
    t# = t#/100.0
    
    index = t# / BezierStep
    
    x# = bezierData(index).x
    
endFunction x#

Function GetBezierY(t#)
    
    t# = t#/100.0
    
    index = t# / BezierStep
    
    y# = bezierData(index).y
endFunction y#

Function GetBezierZ(t#)
    
    t# = t#/100.0
    
    index = t# / BezierStep
    
    z# = bezierData(index).z
    
endFunction z#

+ Code Snippet

Type C_Vector2
    x as float
    y as float
endType

Type C_Vector3
    x as float
    y as float
    z as float
endType

open console

sync on
sync rate 0

x1# = 0
y1# = 0
z1# = 0

vx1# = 50
vy1# = 0
vz1# = 0

x2# = 100
y2# = 100
z2# = 0

vx2# = 50
vy2# = 100
vz2# = 0

MakeBezier(x1#, y1#, z1#, vx1#, vy1#, vz1#, x2#, y2#, z2#, vx2#, vy2#, vz2#, 5)

for t=1 to 100
    make object cube t, 2
    position object t, GetBezierX(t), GetBezierY(t), GetBezierZ(t)
next t

id = makeObjectFromBezier()

position camera 50, 50, -100
point camera 50, 50, 0

Do
    
    if spacekey()
        MakeBezier(x1#, y1#, z1#, vx1#, vy1#, vz1#, x2#, y2#, z2#, vx2#, vy2#, vz2#, 2 + rnd(98))
        for t=1 to 100
            position object t, GetBezierX(t), GetBezierY(t), GetBezierZ(t)
        next t
    endif
    
    Sync
Loop

end

Function MakeBezier(x1, y1, z1, vx1, vy1, vz1, x2, y2, z2, vx2, vy2, vz2, quality as float )
    
    t as float
    u as float
    tt as float
    uu as float
    uuu as float
    ttt as float
    
    p0 as C_Vector3 : p0.x = x1 : p0.y = y1 : p0.z = z1
    p1 as C_Vector3 : p1.x = vx1 : p1.y = vy1 : p1.z = vz1
    p2 as C_Vector3 : p2.x = vx2 : p2.y = vy2 : p2.z = vz2
    p3 as C_Vector3 : p3.x = x2 : p3.y = y2 : p3.z = z3
    p as C_Vector3
    pO as C_Vector3
    
    p  = p0
    
    dx# = x1 - x2
    dy# = y1 - y2
    d# = sqrt(dx#*dx# + dy#*dy#)
    
    step# = 1.0/(d# * (quality/100.0))
    
    if array count(bezierData())>-1 then empty array bezierData()
    dim bezierData(ceil(1.0/step#)) as C_Vector3
    
    Global BezierStep as float
    BezierStep = step#
    
    for t=0 to 1 step step#
        
        pO = p
        
        u = 1-t
        tt = t*t
        uu = u*u
        uuu = uu * u
        ttt = tt * t
         
        p.x = uuu * p0.x
        p.y = uuu * p0.y
        p.z = uuu * p0.z
        
        p.x = p.x + 3 * uu * t * p1.x
        p.y = p.y + 3 * uu * t * p1.y
        p.z = p.z + 3 * uu * t * p1.z
        
        p.x = p.x + 3 * u * tt * p2.x
        p.y = p.y + 3 * u * tt * p2.y
        p.z = p.z + 3 * u * tt * p2.z
        
        p.x = p.x + ttt * p3.x
        p.y = p.y + ttt * p3.y
        p.z = p.z + ttt * p3.z
        
        index = t / step#
        bezierData(index).x = p.x
        bezierData(index).y = p.y
        bezierData(index).z = p.z
    next t
    
endFunction

Function makeObjectFromBezier()
    
    x1# = GetBezierX(0)
    y1# = GetBezierY(0)
    z1# = GetBezierZ(0)
        
    x2# = GetBezierX(1)
    y2# = GetBezierY(1)
    z2# = GetBezierZ(1)
    
    mainObject = reserve free object()
    tempObject = reserve free object()
    tempMesh   = reserve free mesh()
    
    make object triangle mainObject, x1#, y1#, z1#, x2#, y2#, z2#, x2#, y2#, z2#
    
    for t=1 to 99
        x1# = GetBezierX(t)
        y1# = GetBezierY(t)
        z1# = GetBezierZ(t)
        
        x2# = GetBezierX(t+1)
        y2# = GetBezierY(t+1)
        z2# = GetBezierZ(t+1)
        
        make object triangle tempObject, x1#, y1#, z1#, x2#, y2#, z2#, x2#, y2#, z2#
        
        make mesh from object tempMesh, tempObject
        
        delete object tempObject
        
        append limb mainObject, tempMesh
        
        delete mesh tempMesh
        
    next t
    
    set object cull mainObject, 0
    set object wireframe mainObject, 1
    
endFunction mainObject

Function GetBezierX(t#)
    
    t# = t#/100.0
    
    index = t# / BezierStep
    
    x# = bezierData(index).x
    
endFunction x#

Function GetBezierY(t#)
    
    t# = t#/100.0
    
    index = t# / BezierStep
    
    y# = bezierData(index).y
endFunction y#

Function GetBezierZ(t#)
    
    t# = t#/100.0
    
    index = t# / BezierStep
    
    z# = bezierData(index).z
    
endFunction z#

It only supports 1 active bezier at the time though.

Back to top

Profile PM

nruser

18

Years of Service

User Offline

Joined: 22nd Dec 2007

Location: Serbia

Posted: 16th Aug 2011 18:04

Link

ok, that helped but how can i move camera or object along the curve? i am not sure how to do this

Back to top

Profile PM Email

Max P

16

Years of Service

User Offline

Joined: 23rd Jan 2010

Location:

Posted: 16th Aug 2011 18:31

Link

Using this code:

+ Code Snippet

for t=0 to 100
    position camera 0, GetBezierX(t), GetBezierY(t), GetBezierZ(t)
next t

t=0 is the beginning of the curve,
t=100 is the end.
To move it from the start to the end use

+ Code Snippet

position = 0

Do
inc position, 1
position camera GetBezierX(position), GetBezierY(position), GetBezierZ(position)
Sync
Loop

Back to top

Profile PM

nruser

18

Years of Service

User Offline

Joined: 22nd Dec 2007

Location: Serbia

Posted: 16th Aug 2011 21:31

Link

i modified your code into this but it crashes when camera reaches the end of curve

Type C_Vector2
    x as float
    y as float
endType

Type C_Vector3
    x as float
    y as float
    z as float
endType

sync on
sync rate 60

x1# = 0
y1# = 0
z1# = 0

vx1# = 150
vy1# = 50
vz1# = 100

x2# = 100
y2# = 200
z2# = 0

vx2# = 50
vy2# = 100
vz2# = 200

make matrix 1,1000,1000,10,10
position matrix 1,0,0,0

MakeBezier(x1#, y1#, z1#, vx1#, vy1#, vz1#, x2#, y2#, z2#, vx2#, vy2#, vz2#, 50)

id = makeObjectFromBezier()

position camera 100, 100, -100
point camera 50, 50, 0

pos=0

Do
    if spacekey()
        inc pos,1
        position camera 0,GetBezierX(pos), GetBezierY(pos), GetBezierZ(pos)
        if pos>1000 or pos=1000 then pos=0
    endif

point camera 0,500,0,500
    Sync
Loop

end

Function MakeBezier(x1, y1, z1, vx1, vy1, vz1, x2, y2, z2, vx2, vy2, vz2, quality as float )
    
    t as float
    u as float
    tt as float
    uu as float
    uuu as float
    ttt as float
    
    p0 as C_Vector3 : p0.x = x1 : p0.y = y1 : p0.z = z1
    p1 as C_Vector3 : p1.x = vx1 : p1.y = vy1 : p1.z = vz1
    p2 as C_Vector3 : p2.x = vx2 : p2.y = vy2 : p2.z = vz2
    p3 as C_Vector3 : p3.x = x2 : p3.y = y2 : p3.z = z3
    p as C_Vector3
    pO as C_Vector3
    
    p  = p0
    
    dx# = x1 - x2
    dy# = y1 - y2
    d# = sqrt(dx#*dx# + dy#*dy#)
    
    step# = 1.0/(d# * (quality/100.0))
    
    if array count(bezierData())>-1 then empty array bezierData()
    dim bezierData(ceil(1.0/step#)) as C_Vector3
    
    Global BezierStep as float
    BezierStep = step#
    
    for t=0 to 1 step step#
        
        pO = p
        
        u = 1-t
        tt = t*t
        uu = u*u
        uuu = uu * u
        ttt = tt * t
         
        p.x = uuu * p0.x
        p.y = uuu * p0.y
        p.z = uuu * p0.z
        
        p.x = p.x + 3 * uu * t * p1.x
        p.y = p.y + 3 * uu * t * p1.y
        p.z = p.z + 3 * uu * t * p1.z
        
        p.x = p.x + 3 * u * tt * p2.x
        p.y = p.y + 3 * u * tt * p2.y
        p.z = p.z + 3 * u * tt * p2.z
        
        p.x = p.x + ttt * p3.x
        p.y = p.y + ttt * p3.y
        p.z = p.z + ttt * p3.z
        
        index = t / step#
        bezierData(index).x = p.x
        bezierData(index).y = p.y
        bezierData(index).z = p.z
    next t
    
endFunction

Function makeObjectFromBezier()
    
    x1# = GetBezierX(0)
    y1# = GetBezierY(0)
    z1# = GetBezierZ(0)
        
    x2# = GetBezierX(1)
    y2# = GetBezierY(1)
    z2# = GetBezierZ(1)
    
    mainObject = reserve free object()
    tempObject = reserve free object()
    tempMesh   = reserve free mesh()
    
    make object triangle mainObject, x1#, y1#, z1#, x2#, y2#, z2#, x2#, y2#, z2#
    
    for t=1 to 99
        x1# = GetBezierX(t)
        y1# = GetBezierY(t)
        z1# = GetBezierZ(t)
        
        x2# = GetBezierX(t+1)
        y2# = GetBezierY(t+1)
        z2# = GetBezierZ(t+1)
        
        make object triangle tempObject, x1#, y1#, z1#, x2#, y2#, z2#, x2#, y2#, z2#
        
        make mesh from object tempMesh, tempObject
        
        delete object tempObject
        
        append limb mainObject, tempMesh
        
        delete mesh tempMesh
        
    next t
    
    set object cull mainObject, 0
    set object wireframe mainObject, 1
    
endFunction mainObject

Function GetBezierX(t#)
    
    t# = t#/100.0
    
    index = t# / BezierStep
    
    x# = bezierData(index).x
    
endFunction x#

Function GetBezierY(t#)
    
    t# = t#/100.0
    
    index = t# / BezierStep
    
    y# = bezierData(index).y
endFunction y#

Function GetBezierZ(t#)
    
    t# = t#/100.0
    
    index = t# / BezierStep
    
    z# = bezierData(index).z
    
endFunction z#

+ Code Snippet

Type C_Vector2
    x as float
    y as float
endType

Type C_Vector3
    x as float
    y as float
    z as float
endType

sync on
sync rate 60

x1# = 0
y1# = 0
z1# = 0

vx1# = 150
vy1# = 50
vz1# = 100

x2# = 100
y2# = 200
z2# = 0

vx2# = 50
vy2# = 100
vz2# = 200

make matrix 1,1000,1000,10,10
position matrix 1,0,0,0

MakeBezier(x1#, y1#, z1#, vx1#, vy1#, vz1#, x2#, y2#, z2#, vx2#, vy2#, vz2#, 50)

id = makeObjectFromBezier()

position camera 100, 100, -100
point camera 50, 50, 0

pos=0

Do
    if spacekey()
        inc pos,1
        position camera 0,GetBezierX(pos), GetBezierY(pos), GetBezierZ(pos)
        if pos>1000 or pos=1000 then pos=0
    endif

    point camera 0,500,0,500
    Sync
Loop

end

Function MakeBezier(x1, y1, z1, vx1, vy1, vz1, x2, y2, z2, vx2, vy2, vz2, quality as float )
    
    t as float
    u as float
    tt as float
    uu as float
    uuu as float
    ttt as float
    
    p0 as C_Vector3 : p0.x = x1 : p0.y = y1 : p0.z = z1
    p1 as C_Vector3 : p1.x = vx1 : p1.y = vy1 : p1.z = vz1
    p2 as C_Vector3 : p2.x = vx2 : p2.y = vy2 : p2.z = vz2
    p3 as C_Vector3 : p3.x = x2 : p3.y = y2 : p3.z = z3
    p as C_Vector3
    pO as C_Vector3
    
    p  = p0
    
    dx# = x1 - x2
    dy# = y1 - y2
    d# = sqrt(dx#*dx# + dy#*dy#)
    
    step# = 1.0/(d# * (quality/100.0))
    
    if array count(bezierData())>-1 then empty array bezierData()
    dim bezierData(ceil(1.0/step#)) as C_Vector3
    
    Global BezierStep as float
    BezierStep = step#
    
    for t=0 to 1 step step#
        
        pO = p
        
        u = 1-t
        tt = t*t
        uu = u*u
        uuu = uu * u
        ttt = tt * t
         
        p.x = uuu * p0.x
        p.y = uuu * p0.y
        p.z = uuu * p0.z
        
        p.x = p.x + 3 * uu * t * p1.x
        p.y = p.y + 3 * uu * t * p1.y
        p.z = p.z + 3 * uu * t * p1.z
        
        p.x = p.x + 3 * u * tt * p2.x
        p.y = p.y + 3 * u * tt * p2.y
        p.z = p.z + 3 * u * tt * p2.z
        
        p.x = p.x + ttt * p3.x
        p.y = p.y + ttt * p3.y
        p.z = p.z + ttt * p3.z
        
        index = t / step#
        bezierData(index).x = p.x
        bezierData(index).y = p.y
        bezierData(index).z = p.z
    next t
    
endFunction

Function makeObjectFromBezier()
    
    x1# = GetBezierX(0)
    y1# = GetBezierY(0)
    z1# = GetBezierZ(0)
        
    x2# = GetBezierX(1)
    y2# = GetBezierY(1)
    z2# = GetBezierZ(1)
    
    mainObject = reserve free object()
    tempObject = reserve free object()
    tempMesh   = reserve free mesh()
    
    make object triangle mainObject, x1#, y1#, z1#, x2#, y2#, z2#, x2#, y2#, z2#
    
    for t=1 to 99
        x1# = GetBezierX(t)
        y1# = GetBezierY(t)
        z1# = GetBezierZ(t)
        
        x2# = GetBezierX(t+1)
        y2# = GetBezierY(t+1)
        z2# = GetBezierZ(t+1)
        
        make object triangle tempObject, x1#, y1#, z1#, x2#, y2#, z2#, x2#, y2#, z2#
        
        make mesh from object tempMesh, tempObject
        
        delete object tempObject
        
        append limb mainObject, tempMesh
        
        delete mesh tempMesh
        
    next t
    
    set object cull mainObject, 0
    set object wireframe mainObject, 1
    
endFunction mainObject

Function GetBezierX(t#)
    
    t# = t#/100.0
    
    index = t# / BezierStep
    
    x# = bezierData(index).x
    
endFunction x#

Function GetBezierY(t#)
    
    t# = t#/100.0
    
    index = t# / BezierStep
    
    y# = bezierData(index).y
endFunction y#

Function GetBezierZ(t#)
    
    t# = t#/100.0
    
    index = t# / BezierStep
    
    z# = bezierData(index).z
    
endFunction z#

can you help?

Back to top

Profile PM Email

Max P

16

Years of Service

User Offline

Joined: 23rd Jan 2010

Location:

Posted: 16th Aug 2011 21:35

Link

The position can't go past 100, 100 is the end of the curve.
In your code it goes to 1000.
change

+ Code Snippet

if pos>1000 or pos=1000 then pos=0

to

+ Code Snippet

if pos>=100 then pos=0

Back to top

Profile PM

nruser

18

Years of Service

User Offline

Joined: 22nd Dec 2007

Location: Serbia

Posted: 16th Aug 2011 22:41

Link

ok thanks

Back to top

Profile PM Email

Mugen Wizardry

User Banned

Posted: 17th Aug 2011 00:03

Link

How can we enhance this code to have all the length we want, and still not lag?

CHECK OUT MY WEBSITE AT http://imageposeidon.com/ !

Back to top

Profile

Max P

16

Years of Service

User Offline

Joined: 23rd Jan 2010

Location:

Posted: 17th Aug 2011 11:32

Link

Increase the quality value in the function, or use curvevalue when moving your camera.
A quality of 2 will give only some points, where a quality of 100 gives a lot of points.

Back to top

Profile PM

Pincho Paxton

23

Years of Service

User Offline

Joined: 8th Dec 2002

Location:

Posted: 6th Sep 2011 16:05 Edited at: 6th Sep 2011 16:07

Link

Hi.. I have replaced my bezier curve for my program with the one above. Instead of using a camera I place objects at the bezier locations. But I can't figure out the rotation angles for my objects so that they bend in the directions of the bezier curves. The example when you press space bar doesn't rotate the boxes, so can anyone tell me how to do that please.

Back to top

Profile PM Email Website

Pincho Paxton

23

Years of Service

User Offline

Joined: 8th Dec 2002

Location:

Posted: 6th Sep 2011 18:53

Link

This nearly works at rotating the object with the curve...

rotate object t,0,0,wrapvalue(0+object position x(t)- object position y(t))

But I don't think it will work very well.

Back to top

Profile PM Email Website

Mugen Wizardry

User Banned

Posted: 6th Sep 2011 18:54

Link

i'd like to know the answer to this too!