Graphics 800,600,0
      SetBuffer BackBuffer()
     
            g1 = LoadImage("schiff1.png")
     
            Type schiff
            Field x = x
            Field y = y
           
            Field speedx = speedx
            Field speedy = speedy
     
            Field x1 = x1
            Field y1 = y1
            Field vx1 = vx1
            Field vy1 = vy1
            Field x2 = x2
            Field y2 = y2
            Field vx2 = vx2
            Field vy2 = vy2
            End Type
     
      init(801, 187, 10, 42, -100, 435, 562, 359, 0.1, 0.1)
     
      Local pointx#
      Local pointy#
      Local t#
      Repeat
          Cls
      For schiff.schiff = Each schiff
      For  t = 0 To 1 Step .01
            pointx = schiff\x1*(1-t)^3 + 3*schiff\vx1*(1-t)^2*t + 3*schiff\vx2*(1-t)*t^2 + schiff\x2*t^3
            pointy = schiff\y1*(1-t)^3 + 3*schiff\vy1*(1-t)^2*t + 3*schiff\vy2*(1-t)*t^2 + schiff\y2*t^3
     
            schiff\x = pointx : schiff\y = pointy
            DrawImage g1, schiff\x, schiff\y
     Next
   
     Next
      Flip 1
     Until KeyHit (1)
           
      Function init(x1, y1, vx1, vy1, x2, y2, vx2, vy2, speedx ,speedy)
            schiff.schiff = New schiff
            schiff\x1 = x1
            schiff\y1 = y1
            schiff\vx1 = vx1
            schiff\vy1 = vy1
            schiff\x2 = x2
            schiff\y2 = y2
            schiff\vx2 = vx2
            schiff\vy2 = vy2
            schiff\x = x
            schiff\y = y
            schiff\speedx = speedx
            schiff\speedy = speedy
      End Function

'STEP 1 ---------------  Understanding your PASTE DUMP!!!
'Ok first we are going to use beziers we got from using spline magic..
'After pressing X I can paste the bezier data straight into the IDE

'bezier1.p0x=440         'p0 is the starting point
'bezier1.p0y=25

'bezier1.p1x=100            'p1 is a modifier, this point causes the bending
'bezier1.p1y=250

'bezier1.p2x=320           'p2 is the ending point
'bezier1.p2y=570

'bezier1.p3x=600         'p3 is a modifer like p1, it causes bending.
'bezier1.p3y=250

Graphics 800,600,0
'For the demo I'm going to rename each of them.
x1=440   'point 0   - Starting Point X
y1=25    'point 0   - Starting Point Y
vx1=100  'point 1   - Curve modifier X
vy1=250  'point 1   - Curve modifier Y
x2=320   'point 2   - Ending Point X
y2=570   'point 2   - Ending Point Y
vx2=600  'point 3   - Curve modifier X
vy2=250  'point 3   - Curve modifier Y


'This is the default bezier data.. notice I'm only using one bezier in this demo.
'If you open spline magic right now, the data it uses to draw that bezier is
'the same data you see above.  I just simply pressed X and dumped it here :)
'END OF STEP 1 ----------------------------------------------------

'STEP 2 ------------------------------------------  Drawing the bezier
Repeat
    Cls
   'Ok, I do not understand the complex math that you read down there.
   'You dont need to either to be using beziers!  Just know this formula, get
   'used to it.  Maybe if you are good with math, you can make even cooler
   'effects!
   
   'What I do understand, is that all the points we plugged in above are used
   'by the math below to create the pointx and the pointy variables.
   'pointx and pointy start at point 0 and eventually end up at point 2
   'The loop is going from 0.0 to 1.0 by an incriment of .10
   'This means that within every incriment the pointx and pointy follow the path
   'we created. 
   For Local t:Float=0 To 1 Step .01   
      Local pointx:Float = x1*(1-t)^3 + 3*vx1*(1-t)^2*t + 3*vx2*(1-t)*t^2 + x2*t^3
      Local pointy:Float = y1*(1-t)^3 + 3*vy1*(1-t)^2*t + 3*vy2*(1-t)*t^2 + y2*t^3
      Plot pointx,pointy
   Next
    Flip
Until KeyHit (KEY_ESCAPE)
'END OF STEP 2 -------------------------------------------------------------
'The bezeir has been drawn.. Now imagine the possibilites.. If you know how to use
'types, and know how to incriment and manage steps well, you can impliment multiple
'bezeirs to start after each other and create a complex pattern.  I'm sure you can
'do it!! :)  Good Luck!