Sorry your browser is not supported!

Rem Project: limbsanim
Rem Created: Friday, September 30, 2011
Rem By: Ryan "Da_Rhyno" Lloyd
Rem ***** Main Source File *****

// Get proper display mode, and let us control the drawing in the app.
SET DISPLAY MODE 640, 480, 32
SYNC ON : SYNC RATE 60

// Turn off autocam and let us set the LookAt ;-)
AUTOCAM OFF
POSITION CAMERA 0, 0, -15
POINT CAMERA 0, 0, 0

// We start off by making our primary object and positioning it.
MAKE OBJECT CUBE 1, 1
POSITION OBJECT 1, 0, 0, 0

// Then what we do is set up a temporary object to make a mesh
// from, then make a limb from that mesh, and set the limb's
// offset from the object. Then we delete the temporary object 
// and mesh and hide all the next limbs (which are being used
// in this case as "frames").
//
// This might not seem too practical with how we have it set up,
// but it's the basis for what we're going to do next: Load in 
// objects and set them up via VertexData, and then create their
// "frames", or in this case limbs via the same method as the objects.
// 
// It should work well. =)
For i = 1 To 100
  MAKE OBJECT CUBE 2, 1
  MAKE MESH FROM OBJECT 1, 2
  ADD LIMB 1, i, 1
  OFFSET LIMB 1, i, i*.1, 0, 0
  DELETE MESH 1
  DELETE OBJECT 2
  HIDE LIMB 1, i
NEXT

// Our variables, "i" is the frame count and fps is used to make sure
// we're running at a near-consistent frame rate for our animation.
i = 0
fps = TIMER()

// Our main loop, in which the first things we check are to make sure
// that our animation has a steady frame rate, and also to make sure
// we're not going past our frame bounds.
// For each new frame, we hide the previous limb, then we increase the
// frame count and show the new limb.
// Simple as... pie? Mmmm... pie.
DO
   IF (TIMER() - fps) >= 17
      IF i > 99
         HIDE LIMB 1, i
         i = 0
      ENDIF
      fps = TIMER()
      HIDE LIMB 1, i
      i = i + 1
      SHOW LIMB 1, i 
   ENDIF
   SYNC
LOOP

Determine the number of limbs required, and the number of vertices and indices per limb
begin new object
    for each limb
        add new limb  vertice_count, index_count, fvf
    next limb
finish new object
for each limb
    lock the vertex data
    apply the vertex and index data for this limb
    unlock the vertex data
next limb
recalculate object size

rem chafari´s    SET OBJECT KEYFRAME
autocam off
sync on
_floor=1000
make object box _floor,300,2,300
color object _floor,rgb(0,155,0)

make object box 1,10,10,10
color object 1,rgb(100,0,0)
position camera -100,100,-100
point camera 0,0,0

do
`setting animation  -----------------------------------------------
loop object 1,1,10     //like a normal animated object
fr=object frame(1)
set object speed 1,2   //setting speed
if fr=1 then move object up 1, 0.3
if fr=3 then move object 1,0.4
if fr=5 then move object down 1,0.3:perform csg difference _floor,1
`------------------------------------------------------------------
sync
loop

Rem Project: My_Anim_Project
Rem Created: Sunday, October 02, 2011

Rem ***** Main Source File *****
SET DISPLAY MODE 640, 480, 32
SYNC ON : SYNC RATE 60
AUTOCAM OFF
POSITION CAMERA 0, 0, -15
POINT CAMERA 0, 0, 0

MAKE OBJECT BOX 1, 2, 2, 2
POSITION OBJECT 1, 0, 0, 0
REPEAT
   LOOP OBJECT 1, 1, 80
   SET OBJECT SPEED 1, 100
   IF OBJECT FRAME(1) = 20
      LOCK VERTEXDATA FOR LIMB 1, 0
      vert_max = GET VERTEXDATA VERTEX COUNT()
      FOR v = 0 TO vert_max-1
         y = GET VERTEXDATA POSITION Y(v)
         x = GET VERTEXDATA POSITION X(v)
         z = GET VERTEXDATA POSITION Z(v) 
         IF y > 0
            SET VERTEXDATA POSITION v, x, y * 2, z 
         ENDIF
      NEXT
      UNLOCK VERTEXDATA
   ENDIF
   IF OBJECT FRAME(1) = 40
      LOCK VERTEXDATA FOR LIMB 1, 0
      vert_max = GET VERTEXDATA VERTEX COUNT()
      FOR v = 0 TO vert_max-1
         y = GET VERTEXDATA POSITION Y(v)
         x = GET VERTEXDATA POSITION X(v)
         z = GET VERTEXDATA POSITION Z(v) 
         IF y > 0
            SET VERTEXDATA POSITION v, x, y , z * 2
         ENDIF
      NEXT
      UNLOCK VERTEXDATA
   ENDIF
   IF OBJECT FRAME(1) = 60
      LOCK VERTEXDATA FOR LIMB 1, 0
      vert_max = GET VERTEXDATA VERTEX COUNT()
      FOR v = 0 TO vert_max-1
         y = GET VERTEXDATA POSITION Y(v)
         x = GET VERTEXDATA POSITION X(v)
         z = GET VERTEXDATA POSITION Z(v) 
         IF y > 0
            SET VERTEXDATA POSITION v, x * 2, y , z 
         ENDIF
      NEXT
      UNLOCK VERTEXDATA
   ENDIF
   SYNC
UNTIL OBJECT FRAME(1) >= 79

DO
   Loop Object 1, 1, 80
   Set Object Speed 1, 200
   SET CURSOR 0,0
   TEXT 0, 0, "Current Frame = " + Str$(OBJECT FRAME(1))
   SYNC
LOOP

AnimationSets and Animations
Animations and AnimationSets in the DirectX file format map directly to the Direct3D Retained Mode animation concepts. 

Animation Animation0 {        // The name is chosen for convenience.
{ Frame that it applies to&em;normally a reference }
AnimationKey {
...animation key data...
}
{ ...more animation keys... }
}

Animations are then grouped into AnimationSets: AnimationSet AnimationSet0 { // The name is chosen for convenience. { an animation—could be inline or a reference } { ... more animations ... } } 

Now take the cube through an animation. 

AnimationSet AnimationSet0 {
Animation Animation0 {
{CubeFrame}    // Use the frame containing the cube
AnimationKey {
2;             // Position keys
9;             // 9 keys
10; 3; -100.000000, 0.000000, 0.000000;;,
20; 3; -75.000000, 0.000000, 0.000000;;,
30; 3; -50.000000, 0.000000, 0.000000;;,
40; 3; -25.500000, 0.000000, 0.000000;;,
50; 3; 0.000000, 0.000000, 0.000000;;,
60; 3; 25.500000, 0.000000, 0.000000;;,
70; 3; 50.000000, 0.000000, 0.000000;;,
80; 3; 75.500000, 0.000000, 0.000000;;,
90; 3; 100.000000, 0.000000, 0.000000;;;
}
}
}

sync on
sync rate 60
sync
sync

` Make a cube - I've arranged for the lowest coords to be less than -1, as
` I'll be animating every point above that level.
make object cube 1, 2.1
make mesh from object 1, 1

LastLimb = 0
for a = 0 to 360 step 2
    lock vertexdata for mesh 1
    LastVertex = get vertexdata vertex count()-1
    for v = 0 to LastVertex
        y# = get vertexdata position y(v)
        ` If this point is above the cutoff point, then animate it (just using a simple sine wave).
        if y# >= -1.0
            set vertexdata position v, get vertexdata position x(v), sin(a), get vertexdata position z(v)
        endif
    next
    unlock vertexdata
    if a = 0    ` First loop through changes the existing objects mesh
        change mesh 1, 0, 1
    else        ` All other loops through add a new limb/mesh
        inc LastLimb
        add limb 1, LastLimb, 1
    endif
next

` Hide every limb except limb 0
for l = 1 to LastLimb
    hide limb 1, l
next

l = 0
do
    ` Cycle through the limbs to animate
    hide limb 1, l
    inc l
    if l > LastLimb then l = 0
    show limb 1, l

    set cursor 0, 0
    print "Showing limb: "; l

    sync
loop