Bouncing Bezier Demo, anyone care to try? :-)

Author

Message

Nicholas Thompson

19

Years of Service

User Offline

Joined: 6th Sep 2004

Location: Bognor Regis, UK

Posted: 19th Feb 2005 00:51 Edited at: 19th Feb 2005 04:00

Link

ok, I posted this code in the thread about sin waves (it got off topic I think)

Basically, I was wondering what kinda speed "3d lines" have if you use a triangle with 2 points on the same spot.

sync on
sync rate 0
randomize timer()
backdrop on
color backdrop 0
set text font "Courier New"
set text size 18

CURVE_COUNT = 3
CURVE_SEGMENTS = 8
#constant ARENA_SIZE 10.0
#constant LINE_SPEED 10.0

make object cube 1, ARENA_SIZE * 2.0
position object 1, 0, 0 ,0
color object 1, rgb(128,128,128)
set alpha mapping on 1, 10
set object transparency 1, 3

Status = 1
camDist# = ARENA_SIZE * 4.0
mouseDown = 0

START:
dim Curves(CURVE_COUNT) as CurveData
temp = make vector3(1)

for i = 1 to CURVE_COUNT + 1
   curveOffset = i * 100

if i <= CURVE_COUNT
      `SET RANDOM START POINT
      Curves(i).A.Pos.X# = rnd(ARENA_SIZE+ARENA_SIZE)-ARENA_SIZE
      Curves(i).A.Pos.Y# = rnd(ARENA_SIZE+ARENA_SIZE)-ARENA_SIZE
      Curves(i).A.Pos.Z# = rnd(ARENA_SIZE+ARENA_SIZE)-ARENA_SIZE
      Curves(i).B.Pos.X# = rnd(ARENA_SIZE+ARENA_SIZE)-ARENA_SIZE
      Curves(i).B.Pos.Y# = rnd(ARENA_SIZE+ARENA_SIZE)-ARENA_SIZE
      Curves(i).B.Pos.Z# = rnd(ARENA_SIZE+ARENA_SIZE)-ARENA_SIZE
      Curves(i).C.Pos.X# = rnd(ARENA_SIZE+ARENA_SIZE)-ARENA_SIZE
      Curves(i).C.Pos.Y# = rnd(ARENA_SIZE+ARENA_SIZE)-ARENA_SIZE
      Curves(i).C.Pos.Z# = rnd(ARENA_SIZE+ARENA_SIZE)-ARENA_SIZE
      Curves(i).D.Pos.X# = rnd(ARENA_SIZE+ARENA_SIZE)-ARENA_SIZE
      Curves(i).D.Pos.Y# = rnd(ARENA_SIZE+ARENA_SIZE)-ARENA_SIZE
      Curves(i).D.Pos.Z# = rnd(ARENA_SIZE+ARENA_SIZE)-ARENA_SIZE

`SET RANDOM VELOCITY
      Curves(i).A.Vel.X# = rnd(LINE_SPEED+LINE_SPEED)-LINE_SPEED
      Curves(i).A.Vel.Y# = rnd(LINE_SPEED+LINE_SPEED)-LINE_SPEED
      Curves(i).A.Vel.Z# = rnd(LINE_SPEED+LINE_SPEED)-LINE_SPEED
      Curves(i).B.Vel.X# = rnd(LINE_SPEED+LINE_SPEED)-LINE_SPEED
      Curves(i).B.Vel.Y# = rnd(LINE_SPEED+LINE_SPEED)-LINE_SPEED
      Curves(i).B.Vel.Z# = rnd(LINE_SPEED+LINE_SPEED)-LINE_SPEED
      Curves(i).C.Vel.X# = rnd(LINE_SPEED+LINE_SPEED)-LINE_SPEED
      Curves(i).C.Vel.Y# = rnd(LINE_SPEED+LINE_SPEED)-LINE_SPEED
      Curves(i).C.Vel.Z# = rnd(LINE_SPEED+LINE_SPEED)-LINE_SPEED
      Curves(i).D.Vel.X# = rnd(LINE_SPEED+LINE_SPEED)-LINE_SPEED
      Curves(i).D.Vel.Y# = rnd(LINE_SPEED+LINE_SPEED)-LINE_SPEED
      Curves(i).D.Vel.Z# = rnd(LINE_SPEED+LINE_SPEED)-LINE_SPEED
      Curves(i).col = rgb(rnd(255),rnd(255),rnd(255))

for j = 0 to CURVE_SEGMENTS
         obj = j + curveOffset
         if j < CURVE_SEGMENTS
            t# = j * 1.0 / CURVE_SEGMENTS
            x1# = CubicBezier(Curves(i).A.Pos.X#, Curves(i).B.Pos.X#, Curves(i).C.Pos.X#, Curves(i).D.Pos.X#, t#)
            y1# = CubicBezier(Curves(i).A.Pos.Y#, Curves(i).B.Pos.Y#, Curves(i).C.Pos.Y#, Curves(i).D.Pos.Y#, t#)
            z1# = CubicBezier(Curves(i).A.Pos.Z#, Curves(i).B.Pos.Z#, Curves(i).C.Pos.Z#, Curves(i).D.Pos.Z#, t#)

t# = (j+1.0) * 1.0 / CURVE_SEGMENTS
            x2# = CubicBezier(Curves(i).A.Pos.X#, Curves(i).B.Pos.X#, Curves(i).C.Pos.X#, Curves(i).D.Pos.X#, t#)
            y2# = CubicBezier(Curves(i).A.Pos.Y#, Curves(i).B.Pos.Y#, Curves(i).C.Pos.Y#, Curves(i).D.Pos.Y#, t#)
            z2# = CubicBezier(Curves(i).A.Pos.Z#, Curves(i).B.Pos.Z#, Curves(i).C.Pos.Z#, Curves(i).D.Pos.Z#, t#)

if object exist(obj) then delete object obj

set vector3 1, x1# - x2#, y1# - y2#, z1# - z2#
            make object triangle obj, 0,0,0, 0,0,0, 0, 0, 1.0
            scale object obj, 100.0, 100.0, 100.0 * length vector3(1)
            position object obj, x1#, y1#, z1#
            point object obj, x2#, y2#, z2#
            set object wireframe obj,1
            set object emissive obj, Curves(i).col
            `color object obj, Curves(i).col
         else
            if object exist(obj) then delete object obj
         endif
      next j
   else
      for j = 0 to CURVE_SEGMENTS-1
         obj =j + curveOffset
         if object exist(obj) then delete object obj
      next j
   endif
next i

autocam off
positionCamera(wrapvalue(mousex()), wrapvalue(mousey()), camDist#,)
frameTime# = 1.0
startTime = timer()
do
   frameTime# = (frameTime# * 0.8) + ((timer() - startTime) * 0.2)
   startTime = timer()
   text 10, 10, "FPS: " + str$(screen fps())

text 30, 30, "Curves: " + str$(CURVE_COUNT)
   text 30, 50, "Number of Segments Per Curve: " + str$(CURVE_SEGMENTS)
   text 30, 70, "Camera Distance: " + str$(camDist#)
   text  5, 10 + (Status * 20), "->"

mmz = mousemovez()
   if mmz <> 0
      if mmz > 0
         dec Status
         if Status < 1 then Status = 3
      endif
      if mmz < 0
         inc Status
         if Status > 3 then Status = 1
      endif
   endif

if mouseclick() > 0
      restart = 0
      select Status
         case 1
            if mouseDown = 0
               restart = 1
               if mouseclick() = 1 then inc CURVE_COUNT else if mouseclick() = 2 AND CURVE_COUNT > 1 then dec CURVE_COUNT else restart = 0
               mouseDown = 1
            endif
         endcase
         case 2
            if mouseDown = 0
               restart = 1
               if mouseclick() = 1 then inc CURVE_SEGMENTS else if mouseclick() = 2 AND CURVE_SEGMENTS > 1 then dec CURVE_SEGMENTS else restart = 0
               mouseDown = 1
            endif
         endcase
         case 3
            if mouseclick() = 1 then inc camDist#, frameTime# * 0.05 else inc camDist#, frameTime# * -0.05
            positionCamera(wrapvalue(mousex()), wrapvalue(mousey()), camDist#,)
         endcase
      endselect
      if restart = 1 then goto START
   else
      if mouseDown = 1 then mouseDown = 0
   endif

if mousemovey()<> 0 OR mousemovex() <> 0 then positionCamera(wrapvalue(mousex()), wrapvalue(mousey()), camDist#,)
   gosub ANIMATE_CURVE
   sync
loop
end

ANIMATE_CURVE:
for i = 1 to CURVE_COUNT
   ft# = frameTime# * 0.001
   inc Curves(i).A.Pos.X#, Curves(i).A.Vel.X# * ft#
   inc Curves(i).A.Pos.Y#, Curves(i).A.Vel.Y# * ft#
   inc Curves(i).A.Pos.Z#, Curves(i).A.Vel.Z# * ft#
   inc Curves(i).B.Pos.X#, Curves(i).B.Vel.X# * ft#
   inc Curves(i).B.Pos.Y#, Curves(i).B.Vel.Y# * ft#
   inc Curves(i).B.Pos.Z#, Curves(i).B.Vel.Z# * ft#
   inc Curves(i).C.Pos.X#, Curves(i).C.Vel.X# * ft#
   inc Curves(i).C.Pos.Y#, Curves(i).C.Vel.Y# * ft#
   inc Curves(i).C.Pos.Z#, Curves(i).C.Vel.Z# * ft#
   inc Curves(i).D.Pos.X#, Curves(i).D.Vel.X# * ft#
   inc Curves(i).D.Pos.Y#, Curves(i).D.Vel.Y# * ft#
   inc Curves(i).D.Pos.Z#, Curves(i).D.Vel.Z# * ft#

if (Curves(i).A.Pos.X# > ARENA_SIZE AND Curves(i).A.Vel.X# > 0) OR (Curves(i).A.Pos.X# < -ARENA_SIZE  AND Curves(i).A.Vel.X# < 0) then Curves(i).A.Vel.X# = -Curves(i).A.Vel.X#
   if (Curves(i).A.Pos.Y# > ARENA_SIZE AND Curves(i).A.Vel.Y# > 0) OR (Curves(i).A.Pos.Y# < -ARENA_SIZE  AND Curves(i).A.Vel.Y# < 0) then Curves(i).A.Vel.Y# = -Curves(i).A.Vel.Y#
   if (Curves(i).A.Pos.Z# > ARENA_SIZE AND Curves(i).A.Vel.Z# > 0) OR (Curves(i).A.Pos.Z# < -ARENA_SIZE  AND Curves(i).A.Vel.Z# < 0) then Curves(i).A.Vel.Z# = -Curves(i).A.Vel.Z#
   if (Curves(i).B.Pos.X# > ARENA_SIZE AND Curves(i).B.Vel.X# > 0) OR (Curves(i).B.Pos.X# < -ARENA_SIZE  AND Curves(i).B.Vel.X# < 0) then Curves(i).B.Vel.X# = -Curves(i).B.Vel.X#
   if (Curves(i).B.Pos.Y# > ARENA_SIZE AND Curves(i).B.Vel.Y# > 0) OR (Curves(i).B.Pos.Y# < -ARENA_SIZE  AND Curves(i).B.Vel.Y# < 0) then Curves(i).B.Vel.Y# = -Curves(i).B.Vel.Y#
   if (Curves(i).B.Pos.Z# > ARENA_SIZE AND Curves(i).B.Vel.Z# > 0) OR (Curves(i).B.Pos.Z# < -ARENA_SIZE  AND Curves(i).B.Vel.Z# < 0) then Curves(i).B.Vel.Z# = -Curves(i).B.Vel.Z#
   if (Curves(i).C.Pos.X# > ARENA_SIZE AND Curves(i).C.Vel.X# > 0) OR (Curves(i).C.Pos.X# < -ARENA_SIZE  AND Curves(i).C.Vel.X# < 0) then Curves(i).C.Vel.X# = -Curves(i).C.Vel.X#
   if (Curves(i).C.Pos.Y# > ARENA_SIZE AND Curves(i).C.Vel.Y# > 0) OR (Curves(i).C.Pos.Y# < -ARENA_SIZE  AND Curves(i).C.Vel.Y# < 0) then Curves(i).C.Vel.Y# = -Curves(i).C.Vel.Y#
   if (Curves(i).C.Pos.Z# > ARENA_SIZE AND Curves(i).C.Vel.Z# > 0) OR (Curves(i).C.Pos.Z# < -ARENA_SIZE  AND Curves(i).C.Vel.Z# < 0) then Curves(i).C.Vel.Z# = -Curves(i).C.Vel.Z#
   if (Curves(i).D.Pos.X# > ARENA_SIZE AND Curves(i).D.Vel.X# > 0) OR (Curves(i).D.Pos.X# < -ARENA_SIZE  AND Curves(i).D.Vel.X# < 0) then Curves(i).D.Vel.X# = -Curves(i).D.Vel.X#
   if (Curves(i).D.Pos.Y# > ARENA_SIZE AND Curves(i).D.Vel.Y# > 0) OR (Curves(i).D.Pos.Y# < -ARENA_SIZE  AND Curves(i).D.Vel.Y# < 0) then Curves(i).D.Vel.Y# = -Curves(i).D.Vel.Y#
   if (Curves(i).D.Pos.Z# > ARENA_SIZE AND Curves(i).D.Vel.Z# > 0) OR (Curves(i).D.Pos.Z# < -ARENA_SIZE  AND Curves(i).D.Vel.Z# < 0) then Curves(i).D.Vel.Z# = -Curves(i).D.Vel.Z#

curveOffset = i * 100
   for j = 0 to CURVE_SEGMENTS-1
      t# = j * 1.0 / CURVE_SEGMENTS
      x1# = CubicBezier(Curves(i).A.Pos.X#, Curves(i).B.Pos.X#, Curves(i).C.Pos.X#, Curves(i).D.Pos.X#, t#)
      y1# = CubicBezier(Curves(i).A.Pos.Y#, Curves(i).B.Pos.Y#, Curves(i).C.Pos.Y#, Curves(i).D.Pos.Y#, t#)
      z1# = CubicBezier(Curves(i).A.Pos.Z#, Curves(i).B.Pos.Z#, Curves(i).C.Pos.Z#, Curves(i).D.Pos.Z#, t#)

t# = (j+1.0) * 1.0 / CURVE_SEGMENTS
      x2# = CubicBezier(Curves(i).A.Pos.X#, Curves(i).B.Pos.X#, Curves(i).C.Pos.X#, Curves(i).D.Pos.X#, t#)
      y2# = CubicBezier(Curves(i).A.Pos.Y#, Curves(i).B.Pos.Y#, Curves(i).C.Pos.Y#, Curves(i).D.Pos.Y#, t#)
      z2# = CubicBezier(Curves(i).A.Pos.Z#, Curves(i).B.Pos.Z#, Curves(i).C.Pos.Z#, Curves(i).D.Pos.Z#, t#)

obj = j + curveOffset
      set vector3 1, x1# - x2#, y1# - y2#, z1# - z2#
      position object obj, x1#, y1#, z1#
      point object obj, x2#, y2#, z2#
      scale object obj, 100.0, 100.0, 100.0 * length vector3(1)

next j
next i
return

function positionCamera(a#, p#, d#)
   position camera cos(a#)*sin(p#)*d#, cos(p#)*d#, sin(a#)*sin(p#)*d#
   point camera 0,0,0
endfunction

function CubicBezier(A#, B#, C#, D#, T#)
   invT# = 1.0 - T#
   result# = (A# * invT# * invT# * invT#) + (3.0 * B# * invT# * invT# * T#) + (3.0 * C# * invT# * T# * T#) + (D# * T# * T# * T#)
endfunction result#

type Coord
   X#
   Y#
   Z#
endtype

type PointData
   Pos as Coord
   Vel as Coord
endtype

type CurveData
   A as PointData
   B as PointData
   C as PointData
   D as PointData
   col as DWORD
endtype

+ Code Snippet

sync on
sync rate 0
randomize timer()
backdrop on
color backdrop 0
set text font "Courier New"
set text size 18

CURVE_COUNT = 3
CURVE_SEGMENTS = 8
#constant ARENA_SIZE 10.0
#constant LINE_SPEED 10.0


make object cube 1, ARENA_SIZE * 2.0
position object 1, 0, 0 ,0
color object 1, rgb(128,128,128)
set alpha mapping on 1, 10
set object transparency 1, 3

Status = 1
camDist# = ARENA_SIZE * 4.0
mouseDown = 0

START:
dim Curves(CURVE_COUNT) as CurveData
temp = make vector3(1)

for i = 1 to CURVE_COUNT + 1
   curveOffset = i * 100

   if i <= CURVE_COUNT
      `SET RANDOM START POINT
      Curves(i).A.Pos.X# = rnd(ARENA_SIZE+ARENA_SIZE)-ARENA_SIZE
      Curves(i).A.Pos.Y# = rnd(ARENA_SIZE+ARENA_SIZE)-ARENA_SIZE
      Curves(i).A.Pos.Z# = rnd(ARENA_SIZE+ARENA_SIZE)-ARENA_SIZE
      Curves(i).B.Pos.X# = rnd(ARENA_SIZE+ARENA_SIZE)-ARENA_SIZE
      Curves(i).B.Pos.Y# = rnd(ARENA_SIZE+ARENA_SIZE)-ARENA_SIZE
      Curves(i).B.Pos.Z# = rnd(ARENA_SIZE+ARENA_SIZE)-ARENA_SIZE
      Curves(i).C.Pos.X# = rnd(ARENA_SIZE+ARENA_SIZE)-ARENA_SIZE
      Curves(i).C.Pos.Y# = rnd(ARENA_SIZE+ARENA_SIZE)-ARENA_SIZE
      Curves(i).C.Pos.Z# = rnd(ARENA_SIZE+ARENA_SIZE)-ARENA_SIZE
      Curves(i).D.Pos.X# = rnd(ARENA_SIZE+ARENA_SIZE)-ARENA_SIZE
      Curves(i).D.Pos.Y# = rnd(ARENA_SIZE+ARENA_SIZE)-ARENA_SIZE
      Curves(i).D.Pos.Z# = rnd(ARENA_SIZE+ARENA_SIZE)-ARENA_SIZE

      `SET RANDOM VELOCITY
      Curves(i).A.Vel.X# = rnd(LINE_SPEED+LINE_SPEED)-LINE_SPEED
      Curves(i).A.Vel.Y# = rnd(LINE_SPEED+LINE_SPEED)-LINE_SPEED
      Curves(i).A.Vel.Z# = rnd(LINE_SPEED+LINE_SPEED)-LINE_SPEED
      Curves(i).B.Vel.X# = rnd(LINE_SPEED+LINE_SPEED)-LINE_SPEED
      Curves(i).B.Vel.Y# = rnd(LINE_SPEED+LINE_SPEED)-LINE_SPEED
      Curves(i).B.Vel.Z# = rnd(LINE_SPEED+LINE_SPEED)-LINE_SPEED
      Curves(i).C.Vel.X# = rnd(LINE_SPEED+LINE_SPEED)-LINE_SPEED
      Curves(i).C.Vel.Y# = rnd(LINE_SPEED+LINE_SPEED)-LINE_SPEED
      Curves(i).C.Vel.Z# = rnd(LINE_SPEED+LINE_SPEED)-LINE_SPEED
      Curves(i).D.Vel.X# = rnd(LINE_SPEED+LINE_SPEED)-LINE_SPEED
      Curves(i).D.Vel.Y# = rnd(LINE_SPEED+LINE_SPEED)-LINE_SPEED
      Curves(i).D.Vel.Z# = rnd(LINE_SPEED+LINE_SPEED)-LINE_SPEED
      Curves(i).col = rgb(rnd(255),rnd(255),rnd(255))

      for j = 0 to CURVE_SEGMENTS
         obj = j + curveOffset
         if j < CURVE_SEGMENTS
            t# = j * 1.0 / CURVE_SEGMENTS
            x1# = CubicBezier(Curves(i).A.Pos.X#, Curves(i).B.Pos.X#, Curves(i).C.Pos.X#, Curves(i).D.Pos.X#, t#)
            y1# = CubicBezier(Curves(i).A.Pos.Y#, Curves(i).B.Pos.Y#, Curves(i).C.Pos.Y#, Curves(i).D.Pos.Y#, t#)
            z1# = CubicBezier(Curves(i).A.Pos.Z#, Curves(i).B.Pos.Z#, Curves(i).C.Pos.Z#, Curves(i).D.Pos.Z#, t#)

            t# = (j+1.0) * 1.0 / CURVE_SEGMENTS
            x2# = CubicBezier(Curves(i).A.Pos.X#, Curves(i).B.Pos.X#, Curves(i).C.Pos.X#, Curves(i).D.Pos.X#, t#)
            y2# = CubicBezier(Curves(i).A.Pos.Y#, Curves(i).B.Pos.Y#, Curves(i).C.Pos.Y#, Curves(i).D.Pos.Y#, t#)
            z2# = CubicBezier(Curves(i).A.Pos.Z#, Curves(i).B.Pos.Z#, Curves(i).C.Pos.Z#, Curves(i).D.Pos.Z#, t#)

            if object exist(obj) then delete object obj

            set vector3 1, x1# - x2#, y1# - y2#, z1# - z2#
            make object triangle obj, 0,0,0, 0,0,0, 0, 0, 1.0
            scale object obj, 100.0, 100.0, 100.0 * length vector3(1)
            position object obj, x1#, y1#, z1#
            point object obj, x2#, y2#, z2#
            set object wireframe obj,1
            set object emissive obj, Curves(i).col
            `color object obj, Curves(i).col
         else
            if object exist(obj) then delete object obj
         endif
      next j
   else
      for j = 0 to CURVE_SEGMENTS-1
         obj =j + curveOffset
         if object exist(obj) then delete object obj
      next j
   endif
next i





autocam off
positionCamera(wrapvalue(mousex()), wrapvalue(mousey()), camDist#,)
frameTime# = 1.0
startTime = timer()
do
   frameTime# = (frameTime# * 0.8) + ((timer() - startTime) * 0.2)
   startTime = timer()
   text 10, 10, "FPS: " + str$(screen fps())

   text 30, 30, "Curves: " + str$(CURVE_COUNT)
   text 30, 50, "Number of Segments Per Curve: " + str$(CURVE_SEGMENTS)
   text 30, 70, "Camera Distance: " + str$(camDist#)
   text  5, 10 + (Status * 20), "->"


   mmz = mousemovez()
   if mmz <> 0
      if mmz > 0
         dec Status
         if Status < 1 then Status = 3
      endif
      if mmz < 0
         inc Status
         if Status > 3 then Status = 1
      endif
   endif



   if mouseclick() > 0
      restart = 0
      select Status
         case 1
            if mouseDown = 0
               restart = 1
               if mouseclick() = 1 then inc CURVE_COUNT else if mouseclick() = 2 AND CURVE_COUNT > 1 then dec CURVE_COUNT else restart = 0
               mouseDown = 1
            endif
         endcase
         case 2
            if mouseDown = 0
               restart = 1
               if mouseclick() = 1 then inc CURVE_SEGMENTS else if mouseclick() = 2 AND CURVE_SEGMENTS > 1 then dec CURVE_SEGMENTS else restart = 0
               mouseDown = 1
            endif
         endcase
         case 3
            if mouseclick() = 1 then inc camDist#, frameTime# * 0.05 else inc camDist#, frameTime# * -0.05
            positionCamera(wrapvalue(mousex()), wrapvalue(mousey()), camDist#,)
         endcase
      endselect
      if restart = 1 then goto START
   else
      if mouseDown = 1 then mouseDown = 0
   endif



   if mousemovey()<> 0 OR mousemovex() <> 0 then positionCamera(wrapvalue(mousex()), wrapvalue(mousey()), camDist#,)
   gosub ANIMATE_CURVE
   sync
loop
end




ANIMATE_CURVE:
for i = 1 to CURVE_COUNT
   ft# = frameTime# * 0.001
   inc Curves(i).A.Pos.X#, Curves(i).A.Vel.X# * ft#
   inc Curves(i).A.Pos.Y#, Curves(i).A.Vel.Y# * ft#
   inc Curves(i).A.Pos.Z#, Curves(i).A.Vel.Z# * ft#
   inc Curves(i).B.Pos.X#, Curves(i).B.Vel.X# * ft#
   inc Curves(i).B.Pos.Y#, Curves(i).B.Vel.Y# * ft#
   inc Curves(i).B.Pos.Z#, Curves(i).B.Vel.Z# * ft#
   inc Curves(i).C.Pos.X#, Curves(i).C.Vel.X# * ft#
   inc Curves(i).C.Pos.Y#, Curves(i).C.Vel.Y# * ft#
   inc Curves(i).C.Pos.Z#, Curves(i).C.Vel.Z# * ft#
   inc Curves(i).D.Pos.X#, Curves(i).D.Vel.X# * ft#
   inc Curves(i).D.Pos.Y#, Curves(i).D.Vel.Y# * ft#
   inc Curves(i).D.Pos.Z#, Curves(i).D.Vel.Z# * ft#

   if (Curves(i).A.Pos.X# > ARENA_SIZE AND Curves(i).A.Vel.X# > 0) OR (Curves(i).A.Pos.X# < -ARENA_SIZE  AND Curves(i).A.Vel.X# < 0) then Curves(i).A.Vel.X# = -Curves(i).A.Vel.X#
   if (Curves(i).A.Pos.Y# > ARENA_SIZE AND Curves(i).A.Vel.Y# > 0) OR (Curves(i).A.Pos.Y# < -ARENA_SIZE  AND Curves(i).A.Vel.Y# < 0) then Curves(i).A.Vel.Y# = -Curves(i).A.Vel.Y#
   if (Curves(i).A.Pos.Z# > ARENA_SIZE AND Curves(i).A.Vel.Z# > 0) OR (Curves(i).A.Pos.Z# < -ARENA_SIZE  AND Curves(i).A.Vel.Z# < 0) then Curves(i).A.Vel.Z# = -Curves(i).A.Vel.Z#
   if (Curves(i).B.Pos.X# > ARENA_SIZE AND Curves(i).B.Vel.X# > 0) OR (Curves(i).B.Pos.X# < -ARENA_SIZE  AND Curves(i).B.Vel.X# < 0) then Curves(i).B.Vel.X# = -Curves(i).B.Vel.X#
   if (Curves(i).B.Pos.Y# > ARENA_SIZE AND Curves(i).B.Vel.Y# > 0) OR (Curves(i).B.Pos.Y# < -ARENA_SIZE  AND Curves(i).B.Vel.Y# < 0) then Curves(i).B.Vel.Y# = -Curves(i).B.Vel.Y#
   if (Curves(i).B.Pos.Z# > ARENA_SIZE AND Curves(i).B.Vel.Z# > 0) OR (Curves(i).B.Pos.Z# < -ARENA_SIZE  AND Curves(i).B.Vel.Z# < 0) then Curves(i).B.Vel.Z# = -Curves(i).B.Vel.Z#
   if (Curves(i).C.Pos.X# > ARENA_SIZE AND Curves(i).C.Vel.X# > 0) OR (Curves(i).C.Pos.X# < -ARENA_SIZE  AND Curves(i).C.Vel.X# < 0) then Curves(i).C.Vel.X# = -Curves(i).C.Vel.X#
   if (Curves(i).C.Pos.Y# > ARENA_SIZE AND Curves(i).C.Vel.Y# > 0) OR (Curves(i).C.Pos.Y# < -ARENA_SIZE  AND Curves(i).C.Vel.Y# < 0) then Curves(i).C.Vel.Y# = -Curves(i).C.Vel.Y#
   if (Curves(i).C.Pos.Z# > ARENA_SIZE AND Curves(i).C.Vel.Z# > 0) OR (Curves(i).C.Pos.Z# < -ARENA_SIZE  AND Curves(i).C.Vel.Z# < 0) then Curves(i).C.Vel.Z# = -Curves(i).C.Vel.Z#
   if (Curves(i).D.Pos.X# > ARENA_SIZE AND Curves(i).D.Vel.X# > 0) OR (Curves(i).D.Pos.X# < -ARENA_SIZE  AND Curves(i).D.Vel.X# < 0) then Curves(i).D.Vel.X# = -Curves(i).D.Vel.X#
   if (Curves(i).D.Pos.Y# > ARENA_SIZE AND Curves(i).D.Vel.Y# > 0) OR (Curves(i).D.Pos.Y# < -ARENA_SIZE  AND Curves(i).D.Vel.Y# < 0) then Curves(i).D.Vel.Y# = -Curves(i).D.Vel.Y#
   if (Curves(i).D.Pos.Z# > ARENA_SIZE AND Curves(i).D.Vel.Z# > 0) OR (Curves(i).D.Pos.Z# < -ARENA_SIZE  AND Curves(i).D.Vel.Z# < 0) then Curves(i).D.Vel.Z# = -Curves(i).D.Vel.Z#

   curveOffset = i * 100
   for j = 0 to CURVE_SEGMENTS-1
      t# = j * 1.0 / CURVE_SEGMENTS
      x1# = CubicBezier(Curves(i).A.Pos.X#, Curves(i).B.Pos.X#, Curves(i).C.Pos.X#, Curves(i).D.Pos.X#, t#)
      y1# = CubicBezier(Curves(i).A.Pos.Y#, Curves(i).B.Pos.Y#, Curves(i).C.Pos.Y#, Curves(i).D.Pos.Y#, t#)
      z1# = CubicBezier(Curves(i).A.Pos.Z#, Curves(i).B.Pos.Z#, Curves(i).C.Pos.Z#, Curves(i).D.Pos.Z#, t#)

      t# = (j+1.0) * 1.0 / CURVE_SEGMENTS
      x2# = CubicBezier(Curves(i).A.Pos.X#, Curves(i).B.Pos.X#, Curves(i).C.Pos.X#, Curves(i).D.Pos.X#, t#)
      y2# = CubicBezier(Curves(i).A.Pos.Y#, Curves(i).B.Pos.Y#, Curves(i).C.Pos.Y#, Curves(i).D.Pos.Y#, t#)
      z2# = CubicBezier(Curves(i).A.Pos.Z#, Curves(i).B.Pos.Z#, Curves(i).C.Pos.Z#, Curves(i).D.Pos.Z#, t#)

      obj = j + curveOffset
      set vector3 1, x1# - x2#, y1# - y2#, z1# - z2#
      position object obj, x1#, y1#, z1#
      point object obj, x2#, y2#, z2#
      scale object obj, 100.0, 100.0, 100.0 * length vector3(1)

   next j
next i
return





function positionCamera(a#, p#, d#)
   position camera cos(a#)*sin(p#)*d#, cos(p#)*d#, sin(a#)*sin(p#)*d#
   point camera 0,0,0
endfunction






function CubicBezier(A#, B#, C#, D#, T#)
   invT# = 1.0 - T#
   result# = (A# * invT# * invT# * invT#) + (3.0 * B# * invT# * invT# * T#) + (3.0 * C# * invT# * T# * T#) + (D# * T# * T# * T#)
endfunction result#

type Coord
   X#
   Y#
   Z#
endtype

type PointData
   Pos as Coord
   Vel as Coord
endtype

type CurveData
   A as PointData
   B as PointData
   C as PointData
   D as PointData
   col as DWORD
endtype

This is a little demo of Cubic Bezier curves.
My "benchmark":
Spec: AMD Barton 3200+, 1Gb DDR 400, 9800XT 256Mb RAM (Nothing overclocked)
Settings: 16 curves, 24 segments, 163FPS

Controls:

scroll the mouse up and down to change option on the menu

click left to increase

click right to decrease

move mouse left/right/up/down to move around the "cube" in a spherical way.

What do people think?

Cheers,
Nick

PS: I was thinking of putting this in WIP, but its not.. IT was a little demo, its not really "work"...

edit:
Screeny:

edit 2: btw: those lines are actually in 3D.. They're not 2D lines on the screen

My Website:

Attachments

Login to view attachments

Back to top

Profile PM Email Website

TEH_CODERER

20

Years of Service

User Offline

Joined: 12th Nov 2003

Location: Right behind you!

Posted: 19th Feb 2005 04:19

Link

Very nice. I have no idea how it works but very nice!

[url]andrewneale2004@yahoo.com[/url]
http://www.elbsoftware.tk

Back to top

Profile PM Email

Nicholas Thompson

19

Years of Service

User Offline

Joined: 6th Sep 2004

Location: Bognor Regis, UK

Posted: 19th Feb 2005 08:49

Link

Hehe.. Cheers for the nice review

It uses Bezier curves to draw..well curves in 3D. This demo is meant to show thats its pretty efficient.

I'd like to improve it. I think it'd be MUCH better if I could make a mesh so there is 1 object with n poly's where n is the number of triangle-lines. Then if I can edit the mesh to just change the position of the verticies, then I wont need to faff about with 12 seperate objects (depending on the number of segments) to position, calculate size and point in the right direction..

My Website:

Back to top

Profile PM Email Website

Teh Go0rfmeister

20

Years of Service

User Offline

Joined: 17th Aug 2003

Location:

Posted: 12th Mar 2005 00:31

Link

i get 1000fps+ on default settings.

could we have some kind of practical code just showing a line from one point to another rather than fancily curving etc?

(*has a use for this but cant figure out how to code it himself*)

Back to top

Profile PM Website

Walnoot

19

Years of Service

User Offline

Joined: 3rd Jul 2004

Location:

Posted: 12th Mar 2005 00:50

Link

102 fps with 62 curves

Amd 64 3000+
1024 DDR Ram
ATI Sappire radion 9600xt

Back to top

Profile PM Email

RiiDii

19

Years of Service

User Offline

Joined: 20th Jan 2005

Location: Inatincan

Posted: 12th Mar 2005 00:55

Link

Good work Nicholas!
Just a question I've been thinking about (along the same lines as your code)...

Is Make Object Sphere 1,1,1,1 the same poly count as Make Object Triangle 1,....?

Just wondering if one could replace the lines of code:

+ Code Snippet

make object triangle obj, 0,0,0, 0,0,0, 0, 0, 1.0
scale object obj, 100.0, 100.0, 100.0 * length vector3(1)

with

+ Code Snippet

make object sphere obj,1,1,1
scale object obj, 0.0, 0.0, 100.0 * length vector3(1)

(for no other reason than curiosity)

"Droids don't rip your arms off when they lose." -H. Solo

REALITY II

Back to top

Profile PM Email

Nicholas Thompson

19

Years of Service

User Offline

Joined: 6th Sep 2004

Location: Bognor Regis, UK

Posted: 12th Mar 2005 00:56 Edited at: 12th Mar 2005 00:57

Link

ok, the actual function that does the curve is:

+ Code Snippet

function CubicBezier(A#, B#, C#, D#, T#)
   invT# = 1.0 - T#
   result# = (A# * invT# * invT# * invT#) + (3.0 * B# * invT# * invT# * T#) + (3.0 * C# * invT# * T# * T#) + (D# * T# * T# * T#)
endfunction result#

All it does is make a weighted average on the "curve".

A# is the starting point, B# is the "control point" for A#, C# is the control point for D# and D# is the end point. T# is a value between 0.0 and 1.0 which refers to the position along the curve..

This any help? When I get home I'll try to post an example of this later.

I'm glad someone finally found it usefull

Even if there was nearly a month between my last post

I never tried it with that many curves.. 62 curves and how many segments?

EDIT
A triangle is 1 poly. A sphere is many polies (depending on how many rows and columns you use). A quad is often 2 polies.. The reason I use a triangle and then wirefream it is to make it look like a line.

My Website:

Back to top

Profile PM Email Website

RiiDii

19

Years of Service

User Offline

Joined: 20th Jan 2005

Location: Inatincan

Posted: 12th Mar 2005 01:17 Edited at: 12th Mar 2005 01:18

Link

Don't want to hijack your thread with a different topic Nic, so I'll drop it after this: Make Object Sphere 1,1,1,1 is 2 polies?

Thanks.

"Droids don't rip your arms off when they lose." -H. Solo

REALITY II

Back to top

Profile PM Email

Nicholas Thompson

19

Years of Service

User Offline

Joined: 6th Sep 2004

Location: Bognor Regis, UK

Posted: 12th Mar 2005 05:50

Link

Err.. To be honest I'm not sure. a sphere that is 1x1 in terms of rows and columns.. Hmm..

Just curious - what would be the advantage of doing that anyway?

My Website:

Back to top

Profile PM Email Website

Ric

19

Years of Service

User Offline

Joined: 11th Jul 2004

Location: object position x

Posted: 12th Mar 2005 08:25 Edited at: 13th Mar 2005 01:08

Link

Couldn't resist finding out ..... how sad am I?! A sphere of 1X1 is just a line, formed by joining the top of the sphere to the bottom, with six vertices positioned at top middle and bottom. A sphere of 2x2 is a plane made from two polygons (triangles) joining 30 vertices positioned at the top, front, back, middle and bottom of the sphere.

autocam off
position camera 0,5,-30
make object sphere 1000,10,2,2
for vertex=1 to Vertices(1000)
make object cube vertex,1
position object vertex,vertexx(1000,vertex),vertexy(1000,vertex),vertexz(1000,vertex)
next vertex
set object wireframe 1000,1
vertex=1
do
text 0,0,str$(vertices(1000))
text object screen x(vertex),object screen y(vertex),str$(vertex)
if returnkey()=1 then inc vertex:wait 300
if spacekey()=1 then dec vertex:wait 300
control camera using arrowkeys 0,0.1,1
loop

Function Vertices(ObjNo)
`Returns number of Vertices
`Vars
MeshNo=100
make mesh from object MeshNo,ObjNo
NoVerts=0
`Make your meshes and memblocks
make memblock from mesh 1,MeshNo
`Calculate no of vertices
NoVerts=memblock dword(1,8)
`Tidy
delete memblock 1
`delete mesh meshno
endfunction NoVerts

Function VertexX(ObjNo,VertexNo)
`Returns X position of specified vertex
MeshNo=100
make mesh from object MeshNo,ObjNo
NoVerts=0
`Make Memblock
make memblock from mesh 1,MeshNo
`Calculate no of vertices
NoVerts=memblock dword(1,8)
If VertexNo<NoVerts
`Get values of vertex cords
ValueX#=memblock float(1,12+((VertexNo*32)-32))
endif
`Tidy Up
delete memblock 1
`delete mesh meshno
endfunction ValueX#

Function VertexY(ObjNo,VertexNo)
`Returns Y position of specified vertex
MeshNo=100
make mesh from object MeshNo,ObjNo
NoVerts=0
`Make Memblock
make memblock from mesh 1,MeshNo
`Calculate no of vertices
NoVerts=memblock dword(1,8)
If VertexNo<NoVerts
`Get values of vertex cords
ValueY#=memblock float(1,16+((VertexNo*32)-32))
endif
`Tidy Up
delete memblock 1
`delete mesh meshno
endfunction ValueY#

Function VertexZ(ObjNo,VertexNo)
`Returns Z position of specified vertex
MeshNo=100
make mesh from object MeshNo,ObjNo
NoVerts=0
`Make Memblock
make memblock from mesh 1,MeshNo
`Calculate no of vertices
NoVerts=memblock dword(1,8)
If VertexNo<NoVerts
`Get values of vertex cords
ValueZ#=memblock float(1,20+((VertexNo*32)-32))
endif
`Tidy Up
delete memblock 1
`delete mesh meshno
endfunction ValueZ#

+ Code Snippet

autocam off
position camera 0,5,-30
make object sphere 1000,10,2,2
for vertex=1 to Vertices(1000)
make object cube vertex,1
position object vertex,vertexx(1000,vertex),vertexy(1000,vertex),vertexz(1000,vertex)
next vertex
set object wireframe 1000,1
vertex=1
do
text 0,0,str$(vertices(1000))
text object screen x(vertex),object screen y(vertex),str$(vertex)
if returnkey()=1 then inc vertex:wait 300
if spacekey()=1 then dec vertex:wait 300
control camera using arrowkeys 0,0.1,1
loop



Function Vertices(ObjNo)
`Returns number of Vertices
`Vars
MeshNo=100
make mesh from object MeshNo,ObjNo
NoVerts=0
`Make your meshes and memblocks
make memblock from mesh 1,MeshNo
`Calculate no of vertices
NoVerts=memblock dword(1,8)
`Tidy
delete memblock 1
`delete mesh meshno
endfunction NoVerts



Function VertexX(ObjNo,VertexNo)
`Returns X position of specified vertex
MeshNo=100
make mesh from object MeshNo,ObjNo
NoVerts=0
`Make Memblock
make memblock from mesh 1,MeshNo
`Calculate no of vertices
NoVerts=memblock dword(1,8)
If VertexNo<NoVerts
`Get values of vertex cords
ValueX#=memblock float(1,12+((VertexNo*32)-32))
endif
`Tidy Up
delete memblock 1
`delete mesh meshno
endfunction ValueX#



Function VertexY(ObjNo,VertexNo)
`Returns Y position of specified vertex
MeshNo=100
make mesh from object MeshNo,ObjNo
NoVerts=0
`Make Memblock
make memblock from mesh 1,MeshNo
`Calculate no of vertices
NoVerts=memblock dword(1,8)
If VertexNo<NoVerts
`Get values of vertex cords
ValueY#=memblock float(1,16+((VertexNo*32)-32))
endif
`Tidy Up
delete memblock 1
`delete mesh meshno
endfunction ValueY#



Function VertexZ(ObjNo,VertexNo)
`Returns Z position of specified vertex
MeshNo=100
make mesh from object MeshNo,ObjNo
NoVerts=0
`Make Memblock
make memblock from mesh 1,MeshNo
`Calculate no of vertices
NoVerts=memblock dword(1,8)
If VertexNo<NoVerts
`Get values of vertex cords
ValueZ#=memblock float(1,20+((VertexNo*32)-32))
endif
`Tidy Up
delete memblock 1
`delete mesh meshno
endfunction ValueZ#

This shows a 2X2 sphere. Use returnkey and spacekey to move up/down through the vertices, and the arrow keys to move around the object.

Back to top

Profile PM Email Website

Nicholas Thompson

19

Years of Service

User Offline

Joined: 6th Sep 2004

Location: Bognor Regis, UK

Posted: 12th Mar 2005 22:43

Link

So a triangle is a single poly with 3 verts?

My Website:

Back to top

Profile PM Email Website

Ric

19

Years of Service

User Offline

Joined: 11th Jul 2004

Location: object position x

Posted: 13th Mar 2005 01:07

Link

Correct.

Back to top

Profile PM Email Website

Nicholas Thompson

19

Years of Service

User Offline

Joined: 6th Sep 2004

Location: Bognor Regis, UK

Posted: 13th Mar 2005 02:17

Link

Cool.. I wonder if it'd be any kind of improvement to use a memblock to make a simple object that could be cloned that only contains 2 verts. Surely it'd be a 33% increase

Hehe..

My Website:

Back to top

Profile PM Email Website

Ric

19

Years of Service

User Offline

Joined: 11th Jul 2004

Location: object position x

Posted: 13th Mar 2005 09:24 Edited at: 13th Mar 2005 09:31

Link

Probably, although I wonder if it would be even faster to just hide the objects and join them together using the line command and get object screen. Then no polygons would need to be drawn. (Assuming that's not what you're doing anyway - haven't really studied your code yet.)

Back to top

Profile PM Email Website

Nicholas Thompson

19

Years of Service

User Offline

Joined: 6th Sep 2004

Location: Bognor Regis, UK

Posted: 13th Mar 2005 09:29

Link

The line point is unbelievably slow in DBPro. Do a little test - make a program that draws a line from 0,0 to 100,0 as fast as it can and check your FPS. Then do the same thing but make a box (2D box) from 0,0 to 100,1 and it'll be massively faster. I dont know why..

It would be quicker if I could somehow make this into a limbed object..

My Website:

Back to top

Profile PM Email Website

Ric

19

Years of Service

User Offline

Joined: 11th Jul 2004

Location: object position x

Posted: 13th Mar 2005 09:42

Link

Seems very odd. The line command should require far less calculations to colour a few pixels on the screen, than a 3d object, which needs to be converted into a 2d projection first before it can be rendered to the screen. I think the DBP 2d engine needs a complete overhaul!

Back to top

Profile PM Email Website

Nicholas Thompson

19

Years of Service

User Offline

Joined: 6th Sep 2004

Location: Bognor Regis, UK

Posted: 13th Mar 2005 10:03 Edited at: 13th Mar 2005 10:04

Link

Now let me introduce - with help from Jessticular - a screensaver version of the above code

INCLUDING a preview window in Display Properties!

Click here to download the source zipped up (including a project file).

This contains no media.

I am hoping to make this into a decent screensaver. There are going to be options, etc (ie how many curves, etc). Also going to add in a clock feature I think..

My Website:

Attachments

Login to view attachments

Back to top

Profile PM Email Website

RiiDii

19

Years of Service

User Offline

Joined: 20th Jan 2005

Location: Inatincan

Posted: 15th Mar 2005 06:35

Link

Quote: "Just curious - what would be the advantage of doing that anyway?"

I was just curious too. Was wondering if one could get similar results (polies & verticies) using Make Object Triangle with Make Object Sphere. Make Object Sphere 1,1,1,1 is easier to type. As Ric has shown: Nope.

Thanks Nicholas and Ric!

"Droids don't rip your arms off when they lose." -H. Solo

REALITY II

Back to top

Profile PM Email

Cloggy

19

Years of Service

User Offline

Joined: 31st Oct 2004

Location: Rayleigh, Essex

Posted: 22nd Apr 2005 19:54

Link

I'm in the process of creating a dll to draw 3d lines using the directx method DrawPrimative. This should be fast as it is the same way that DBPro draws it's own primatives.

The only problem I have at the moment is that the lines are not affected by lighting and although you can spoecify and alpha value it currently has no effect.

If you like I could post the latest version of the dll for you to try. It also has functions to create a 3d text mesh and to display antialiased text.

Cheers,

CLoggy

Back to top

Profile PM Email Website

Nicholas Thompson

19

Years of Service

User Offline

Joined: 6th Sep 2004

Location: Bognor Regis, UK

Posted: 22nd Apr 2005 22:32

Link

I think that would be quite usefull - maybe make a comparison demo..

The 3D Text Mesh would be Über usefull.. Not sure what you meant by antialiased text.. (I know what it is, but not sure why it would be usefull..)

My Website:

Back to top

Profile PM Email Website

Cloggy

19

Years of Service

User Offline

Joined: 31st Oct 2004

Location: Rayleigh, Essex

Posted: 22nd Apr 2005 22:44

Link

When you display text using the text or print command, you get jaggies. the bigger the text the more pronounced they become.

I have a version of the dll that includes 3d text is in the dll forum http://forum.thegamecreators.com/?m=forum_view&t=52693&b=18. Make sure you take the second dll as that should work with 5.8. the previous one asks for d3dx9_24.dll as it was compiled with Feb 2004 SDK.

I have just got the 3d line working fully with alpha transparency as well and will post a new version with all the functions demoed later this evening once i've tidied things up a bit.

et me know what you think or if you have any problems.

Cheers,

Cloggy

Back to top

Profile PM Email Website

Cloggy

19

Years of Service

User Offline

Joined: 31st Oct 2004

Location: Rayleigh, Essex

Posted: 23rd Apr 2005 05:30

Link

My dll is here http://forum.thegamecreators.com/?m=forum_view&t=52852&b=18

Let me know what you think.

Antialiased text is quite slow but I'm investigating. It could be used to create sprites at the beginning of your program though.

The 3d text mesh is offset. It positions the first character with the correct font spacing, I am looking to change that but I just wanted to get the basics working first to prove it could be done.

Cheers,

Cloggy

Back to top

Profile PM Email Website

Sorry your browser is not supported!

DarkBASIC Professional Discussion / Bouncing Bezier Demo, anyone care to try? :-)

Attachments

Attachments