coil springs - GameCreators Forum

Author

Message

Link102

20

Years of Service

User Offline

Joined: 1st Dec 2004

Location: On your head, weeeeee!

Posted: 24th Jan 2008 16:54 Edited at: 24th Jan 2008 17:04

Link

I fixed a litle coil spring script:

sync on:sync rate 30
hide mouse
dim spring(11,2)
dim vars#(2,6)

ink 0,0
mass=1:restlength=2:stiffness=3:friction=4:stretch=5:velocity=6

`feel free to change these values, it will change the way the spring behaves
vars#(1,mass)=10
vars#(1,restlength)=50
vars#(1,stiffness)=0.1
vars#(1,friction)=0.1

vars#(2,mass)=5
vars#(2,restlength)=50
vars#(2,stiffness)=0.5
vars#(2,friction)=0.1

do
cls 16777215
   set cursor 0,0
   print screen fps()
   if mouseclick()>0 and mouseclick()<3 then vars#(mouseclick(),stretch)=vars#(mouseclick(),stretch)+mousemovex():vars#(mouseclick(),velocity)=0
   if mouseclick()=0
      netf#=0-(vars#(1,stiffness)/vars#(1,mass))*vars#(1,stretch)-(vars#(1,friction)/vars#(1,mass))*vars#(1,velocity)
      vars#(1,velocity)=vars#(1,velocity)+netf#
      vars#(1,stretch)=vars#(1,stretch)+vars#(1,velocity)

netf#=0-(vars#(2,stiffness)/vars#(2,mass))*vars#(2,stretch)-(vars#(2,friction)/vars#(2,mass))*vars#(2,velocity)
      vars#(2,velocity)=vars#(2,velocity)+netf#
      vars#(2,stretch)=vars#(2,stretch)+vars#(2,velocity)
   endif
   draw_spring(100.0,100.0,90.0,vars#(1,stretch)+vars#(1,restlength)+0.0)
   draw_spring(100.0,120.0,90.0,vars#(2,stretch)+vars#(2,restlength)+0.0)
sync
loop

function draw_spring(posx#,posy#,angle#,dist#)
   x=1
   y=2
   spring(1,x)=posx#
   spring(1,y)=posy#
   spring(2,x)=newxvalue(posx#,angle#,dist#/16)
   spring(2,y)=newzvalue(posy#,angle#,dist#/16)
   spring(3,x)=newxvalue(newxvalue(posx#,angle#,dist#/8*1),angle#+90,10)
   spring(3,y)=newzvalue(newzvalue(posy#,angle#,dist#/8*1),angle#+90,10)
   spring(4,x)=newxvalue(newxvalue(posx#,angle#,dist#/8*2),angle#-90,10)
   spring(4,y)=newzvalue(newzvalue(posy#,angle#,dist#/8*2),angle#-90,10)
   spring(5,x)=newxvalue(newxvalue(posx#,angle#,dist#/8*3),angle#+90,10)
   spring(5,y)=newzvalue(newzvalue(posy#,angle#,dist#/8*3),angle#+90,10)
   spring(6,x)=newxvalue(newxvalue(posx#,angle#,dist#/8*4),angle#-90,10)
   spring(6,y)=newzvalue(newzvalue(posy#,angle#,dist#/8*4),angle#-90,10)
   spring(7,x)=newxvalue(newxvalue(posx#,angle#,dist#/8*5),angle#+90,10)
   spring(7,y)=newzvalue(newzvalue(posy#,angle#,dist#/8*5),angle#+90,10)
   spring(8,x)=newxvalue(newxvalue(posx#,angle#,dist#/8*6),angle#-90,10)
   spring(8,y)=newzvalue(newzvalue(posy#,angle#,dist#/8*6),angle#-90,10)
   spring(9,x)=newxvalue(newxvalue(posx#,angle#,dist#/8*7),angle#+90,10)
   spring(9,y)=newzvalue(newzvalue(posy#,angle#,dist#/8*7),angle#+90,10)
   spring(10,x)=newxvalue(posx#,angle#,dist#/17*16)
   spring(10,y)=newzvalue(posy#,angle#,dist#/17*16)
   spring(11,x)=newxvalue(posx#,angle#,dist#)
   spring(11,y)=newzvalue(posy#,angle#,dist#)
   for i = 1 to 10
      line spring(i,x),spring(i,y),spring(i+1,x),spring(i+1,y)
   next i
endfunction

+ Code Snippet

sync on:sync rate 30
hide mouse
dim spring(11,2)
dim vars#(2,6)

ink 0,0
mass=1:restlength=2:stiffness=3:friction=4:stretch=5:velocity=6

`feel free to change these values, it will change the way the spring behaves
vars#(1,mass)=10
vars#(1,restlength)=50
vars#(1,stiffness)=0.1
vars#(1,friction)=0.1

vars#(2,mass)=5
vars#(2,restlength)=50
vars#(2,stiffness)=0.5
vars#(2,friction)=0.1

do
cls 16777215
   set cursor 0,0
   print screen fps()
   if mouseclick()>0 and mouseclick()<3 then vars#(mouseclick(),stretch)=vars#(mouseclick(),stretch)+mousemovex():vars#(mouseclick(),velocity)=0
   if mouseclick()=0
      netf#=0-(vars#(1,stiffness)/vars#(1,mass))*vars#(1,stretch)-(vars#(1,friction)/vars#(1,mass))*vars#(1,velocity)
      vars#(1,velocity)=vars#(1,velocity)+netf#
      vars#(1,stretch)=vars#(1,stretch)+vars#(1,velocity)

      netf#=0-(vars#(2,stiffness)/vars#(2,mass))*vars#(2,stretch)-(vars#(2,friction)/vars#(2,mass))*vars#(2,velocity)
      vars#(2,velocity)=vars#(2,velocity)+netf#
      vars#(2,stretch)=vars#(2,stretch)+vars#(2,velocity)
   endif
   draw_spring(100.0,100.0,90.0,vars#(1,stretch)+vars#(1,restlength)+0.0)
   draw_spring(100.0,120.0,90.0,vars#(2,stretch)+vars#(2,restlength)+0.0)
sync
loop

function draw_spring(posx#,posy#,angle#,dist#)
   x=1
   y=2
   spring(1,x)=posx#
   spring(1,y)=posy#
   spring(2,x)=newxvalue(posx#,angle#,dist#/16)
   spring(2,y)=newzvalue(posy#,angle#,dist#/16)
   spring(3,x)=newxvalue(newxvalue(posx#,angle#,dist#/8*1),angle#+90,10)
   spring(3,y)=newzvalue(newzvalue(posy#,angle#,dist#/8*1),angle#+90,10)
   spring(4,x)=newxvalue(newxvalue(posx#,angle#,dist#/8*2),angle#-90,10)
   spring(4,y)=newzvalue(newzvalue(posy#,angle#,dist#/8*2),angle#-90,10)
   spring(5,x)=newxvalue(newxvalue(posx#,angle#,dist#/8*3),angle#+90,10)
   spring(5,y)=newzvalue(newzvalue(posy#,angle#,dist#/8*3),angle#+90,10)
   spring(6,x)=newxvalue(newxvalue(posx#,angle#,dist#/8*4),angle#-90,10)
   spring(6,y)=newzvalue(newzvalue(posy#,angle#,dist#/8*4),angle#-90,10)
   spring(7,x)=newxvalue(newxvalue(posx#,angle#,dist#/8*5),angle#+90,10)
   spring(7,y)=newzvalue(newzvalue(posy#,angle#,dist#/8*5),angle#+90,10)
   spring(8,x)=newxvalue(newxvalue(posx#,angle#,dist#/8*6),angle#-90,10)
   spring(8,y)=newzvalue(newzvalue(posy#,angle#,dist#/8*6),angle#-90,10)
   spring(9,x)=newxvalue(newxvalue(posx#,angle#,dist#/8*7),angle#+90,10)
   spring(9,y)=newzvalue(newzvalue(posy#,angle#,dist#/8*7),angle#+90,10)
   spring(10,x)=newxvalue(posx#,angle#,dist#/17*16)
   spring(10,y)=newzvalue(posy#,angle#,dist#/17*16)
   spring(11,x)=newxvalue(posx#,angle#,dist#)
   spring(11,y)=newzvalue(posy#,angle#,dist#)
   for i = 1 to 10
      line spring(i,x),spring(i,y),spring(i+1,x),spring(i+1,y)
   next i
endfunction

give comments

Back to top

Profile PM

Latch

18

Years of Service

User Offline

Joined: 23rd Jul 2006

Location:

Posted: 24th Jan 2008 23:36 Edited at: 24th Jan 2008 23:37

Link

That's great!

Now, is there a way to generalize it a bit? As it stands, it looks like you are hardcoding each vertex in the function. Can you alter the function so that any sized spring can be calculated?

Also the points on either side of the x axis for each spring should be coming closer together. The spring itself shouldn't be getting longer, the angle of the lines should change and the points on either side of x should be getting closer to center y while they are moving along x, not just moving further down along x.

Enjoy your day.

Back to top

Profile PM

Link102

20

Years of Service

User Offline

Joined: 1st Dec 2004

Location: On your head, weeeeee!

Posted: 25th Jan 2008 11:34 Edited at: 25th Jan 2008 12:09

Link

O the spring drawing is just for reference, but it shouldn't be hard to change it.
I'll tinker with it a bit a see if I can get 2 springs attached to each other.

Dit you know cloth simutalion is entirely based on springs?

edit:
here you go

sync on:sync rate 30
hide mouse
dim spring(11,2)
dim v#(2,6)

ink 0,0
init_spring(1, 4.0 ,50.0 ,0.5 , 1.0)
init_spring(2, 2.0 ,50.0 ,0.5 , 1.0)

do
cls 16777215
set cursor 0,0
print screen fps()

if mouseclick() > 0 and mouseclick() < 3
      v#(mouseclick(),5) = v#(mouseclick(),5) + mousemovex() : v#(mouseclick(),6)=0
   else
      calc_spring(1)
      calc_spring(2)
   endif
   draw_spring(1,100.0,100.0,90.0)
   draw_spring(2,100.0,120.0,90.0)

sync
loop

function init_spring(nr,mass#,restlength#,stiffness#,friction#)
   v#(nr,1)=mass#
   v#(nr,2)=restlength#
   v#(nr,3)=stiffness#
   v#(nr,4)=friction#
endfunction

function calc_spring(nr)
      netf# = 0 - (v#(nr,3)/v#(nr,1))*v#(nr,5) - (v#(nr,4)/v#(nr,1))*v#(nr,6)
      v#(nr,6) = v#(nr,6) + netf#
      v#(nr,5) = v#(nr,5) + v#(nr,6)
endfunction

function draw_spring(nr,posx#,posy#,angle#)
   dist#=v#(nr,5)+v#(nr,2)
   t#=10-v#(nr,5)/50
   if t#<0 then t#=0
   if t#>10 then t#=10
   x=1
   y=2
   spring(1,x)=posx#
   spring(1,y)=posy#
   spring(2,x)=newxvalue(posx#,angle#,dist#/16)
   spring(2,y)=newzvalue(posy#,angle#,dist#/16)
   spring(3,x)=newxvalue(newxvalue(posx#,angle#,dist#/8*1),angle#+90,t#)
   spring(3,y)=newzvalue(newzvalue(posy#,angle#,dist#/8*1),angle#+90,t#)
   spring(4,x)=newxvalue(newxvalue(posx#,angle#,dist#/8*2),angle#-90,t#)
   spring(4,y)=newzvalue(newzvalue(posy#,angle#,dist#/8*2),angle#-90,t#)
   spring(5,x)=newxvalue(newxvalue(posx#,angle#,dist#/8*3),angle#+90,t#)
   spring(5,y)=newzvalue(newzvalue(posy#,angle#,dist#/8*3),angle#+90,t#)
   spring(6,x)=newxvalue(newxvalue(posx#,angle#,dist#/8*4),angle#-90,t#)
   spring(6,y)=newzvalue(newzvalue(posy#,angle#,dist#/8*4),angle#-90,t#)
   spring(7,x)=newxvalue(newxvalue(posx#,angle#,dist#/8*5),angle#+90,t#)
   spring(7,y)=newzvalue(newzvalue(posy#,angle#,dist#/8*5),angle#+90,t#)
   spring(8,x)=newxvalue(newxvalue(posx#,angle#,dist#/8*6),angle#-90,t#)
   spring(8,y)=newzvalue(newzvalue(posy#,angle#,dist#/8*6),angle#-90,t#)
   spring(9,x)=newxvalue(newxvalue(posx#,angle#,dist#/8*7),angle#+90,t#)
   spring(9,y)=newzvalue(newzvalue(posy#,angle#,dist#/8*7),angle#+90,t#)
   spring(10,x)=newxvalue(posx#,angle#,dist#/17*16)
   spring(10,y)=newzvalue(posy#,angle#,dist#/17*16)
   spring(11,x)=newxvalue(posx#,angle#,dist#)
   spring(11,y)=newzvalue(posy#,angle#,dist#)
   for i = 1 to 10
      line spring(i,x),spring(i,y),spring(i+1,x),spring(i+1,y)
   next i
endfunction

+ Code Snippet

sync on:sync rate 30
hide mouse
dim spring(11,2)
dim v#(2,6)

ink 0,0
init_spring(1, 4.0 ,50.0 ,0.5 , 1.0)
init_spring(2, 2.0 ,50.0 ,0.5 , 1.0)

do
cls 16777215
set cursor 0,0
print screen fps()

   if mouseclick() > 0 and mouseclick() < 3
      v#(mouseclick(),5) = v#(mouseclick(),5) + mousemovex() : v#(mouseclick(),6)=0
   else
      calc_spring(1)
      calc_spring(2)
   endif
   draw_spring(1,100.0,100.0,90.0)
   draw_spring(2,100.0,120.0,90.0)

sync
loop

function init_spring(nr,mass#,restlength#,stiffness#,friction#)
   v#(nr,1)=mass#
   v#(nr,2)=restlength#
   v#(nr,3)=stiffness#
   v#(nr,4)=friction#
endfunction

function calc_spring(nr)
      netf# = 0 - (v#(nr,3)/v#(nr,1))*v#(nr,5) - (v#(nr,4)/v#(nr,1))*v#(nr,6)
      v#(nr,6) = v#(nr,6) + netf#
      v#(nr,5) = v#(nr,5) + v#(nr,6)
endfunction

function draw_spring(nr,posx#,posy#,angle#)
   dist#=v#(nr,5)+v#(nr,2)
   t#=10-v#(nr,5)/50
   if t#<0 then t#=0
   if t#>10 then t#=10
   x=1
   y=2
   spring(1,x)=posx#
   spring(1,y)=posy#
   spring(2,x)=newxvalue(posx#,angle#,dist#/16)
   spring(2,y)=newzvalue(posy#,angle#,dist#/16)
   spring(3,x)=newxvalue(newxvalue(posx#,angle#,dist#/8*1),angle#+90,t#)
   spring(3,y)=newzvalue(newzvalue(posy#,angle#,dist#/8*1),angle#+90,t#)
   spring(4,x)=newxvalue(newxvalue(posx#,angle#,dist#/8*2),angle#-90,t#)
   spring(4,y)=newzvalue(newzvalue(posy#,angle#,dist#/8*2),angle#-90,t#)
   spring(5,x)=newxvalue(newxvalue(posx#,angle#,dist#/8*3),angle#+90,t#)
   spring(5,y)=newzvalue(newzvalue(posy#,angle#,dist#/8*3),angle#+90,t#)
   spring(6,x)=newxvalue(newxvalue(posx#,angle#,dist#/8*4),angle#-90,t#)
   spring(6,y)=newzvalue(newzvalue(posy#,angle#,dist#/8*4),angle#-90,t#)
   spring(7,x)=newxvalue(newxvalue(posx#,angle#,dist#/8*5),angle#+90,t#)
   spring(7,y)=newzvalue(newzvalue(posy#,angle#,dist#/8*5),angle#+90,t#)
   spring(8,x)=newxvalue(newxvalue(posx#,angle#,dist#/8*6),angle#-90,t#)
   spring(8,y)=newzvalue(newzvalue(posy#,angle#,dist#/8*6),angle#-90,t#)
   spring(9,x)=newxvalue(newxvalue(posx#,angle#,dist#/8*7),angle#+90,t#)
   spring(9,y)=newzvalue(newzvalue(posy#,angle#,dist#/8*7),angle#+90,t#)
   spring(10,x)=newxvalue(posx#,angle#,dist#/17*16)
   spring(10,y)=newzvalue(posy#,angle#,dist#/17*16)
   spring(11,x)=newxvalue(posx#,angle#,dist#)
   spring(11,y)=newzvalue(posy#,angle#,dist#)
   for i = 1 to 10
      line spring(i,x),spring(i,y),spring(i+1,x),spring(i+1,y)
   next i
endfunction

Back to top

Profile PM

Latch

18

Years of Service

User Offline

Joined: 23rd Jul 2006

Location:

Posted: 27th Jan 2008 23:59

Link

could you explain the physics for this? I can't quite wrap my brain around it.

Enjoy your day.

Back to top

Profile PM

Link102

20

Years of Service

User Offline

Joined: 1st Dec 2004

Location: On your head, weeeeee!

Posted: 28th Jan 2008 14:25

Link

f = − k⁄m * x − b⁄m * v
v = v + f
x = x + v

f = net force
k = spring stiffness
m = mass
x = stretch (not the x posion on the screen)
b = friction
v = velocity

I hope this helpes.
And there's also restlength witch is the length of the spring in pixels when x = 0 (just add it in the drawing routine)

Back to top

Profile PM

Libervurto

18

Years of Service

User Offline

Joined: 30th Jun 2006

Location: On Toast

Posted: 29th Jan 2008 11:00 Edited at: 29th Jan 2008 11:03

Link

Wow that's great link

could you make something like that cloth simulation?

Back to top

Profile PM Email

Link102

20

Years of Service

User Offline

Joined: 1st Dec 2004

Location: On your head, weeeeee!

Posted: 29th Jan 2008 18:40

Link

I've got pendulums, cloth, bridges and ropes on my to do list

Back to top

Profile PM

Libervurto

18

Years of Service

User Offline

Joined: 30th Jun 2006

Location: On Toast

Posted: 29th Jan 2008 21:14

Link

bridges?

Back to top

Profile PM Email

Link102

20

Years of Service

User Offline

Joined: 1st Dec 2004

Location: On your head, weeeeee!

Posted: 29th Jan 2008 21:21 Edited at: 29th Jan 2008 21:23

Link

yes a rope bridge. where the bridge will go down where the player is, and where the brige will topple when the player goes to close to the edge

Back to top

Profile PM

Libervurto

18

Years of Service

User Offline

Joined: 30th Jun 2006

Location: On Toast

Posted: 29th Jan 2008 21:25

Link

oh cool, in 3D?

Back to top

Profile PM Email

Link102

20

Years of Service

User Offline

Joined: 1st Dec 2004

Location: On your head, weeeeee!

Posted: 29th Jan 2008 21:50

Link

of course

it's pretty ambitious, but I'll try anyway

Back to top

Profile PM

Sinani201

18

Years of Service

User Offline

Joined: 16th Apr 2007

Location: Aperture Science Enrichment Center

Posted: 30th Jan 2008 02:00

Link

COOL! It's like Dark Physics!

Seriously, how do you make the little blue text come up below your message?

Back to top

Profile PM

Muddleglum

22

Years of Service

User Offline

Joined: 3rd Nov 2002

Location: New Zealand

Posted: 5th Feb 2008 22:19

Link

that link to the cloth is amazing.

tried to make a simplified version of spring action and ended up with an unexpected oddity . wonder what could be done with it?

it's also not accurate because the distance between points is not corrected for angles.. though I suppose that could be added.

could be added to for 3d objects quite easily. Having the 'gap' vertical imitates gravity I notice, so i suppose horizontal should give a bridge like effect .. if ends fixed ..?? hmm .. must try ..

sync on
sync rate 40
autocam off

dim posy#(40)
dim posx#(40)
dim deltax#(40)
dim deltay#(40)
dim across#(40)
dim vertical#(40)

set display mode 800,600,32
color backdrop RGB(128,128,128)
ink RGB(255,128,128),RGB(128,128,128)
box 0,0,6,6
get image 1,0,0,6,6

ink RGB(255,255,255),RGB(128,128,128)
box 0,0,6,6
get image 2,0,0,6,6

strength#=.04
damping#= .2 : `maximum is 1
gap=15

posx =700
position mouse 400,100

` ------------------------------------------------------------
do
cls

deltax#= posx-mousex()
across#=across#+(deltax#*strength#)
across#=across#*(1-damping#)
posx= posx- across#
posx#(1)=posx

deltay#= posy -mousey()-gap
vertical#=vertical#+(deltay#*strength#)
vertical#=vertical#*(1-damping#)
posy= posy- vertical#
posy#(1)=posy
paste image 1,posx,posy

`  ............ added points

for x= 2 to 20

deltax#(x)= posx#(x)-posx#(x-1)
across#(x)=across#(x)+(deltax#(x)*strength#)
across#(x)= across#(x)*(1-damping#)
posx#(x)= posx#(x)-  across#(x)

deltay#(x)= posy#(x)- posy#(x-1)+gap
vertical#(x)=vertical#(x)+(deltay#(x)*strength#)
vertical#(x)=vertical#(x)*(1-damping#)
posy#(x)= posy#(x)- vertical#(x)

paste image 2,posx#(x),posy#(x)

next x

for x= 2 to 20
rem line  posx#(x-1),posy#(x-1), posx#(x),posy#(x)

next x

sync
loop

+ Code Snippet


sync on
sync rate 40
autocam off

dim posy#(40)
dim posx#(40)
dim deltax#(40)
dim deltay#(40)
dim across#(40)
dim vertical#(40)

set display mode 800,600,32
color backdrop RGB(128,128,128)
ink RGB(255,128,128),RGB(128,128,128)
box 0,0,6,6
get image 1,0,0,6,6

ink RGB(255,255,255),RGB(128,128,128)
box 0,0,6,6
get image 2,0,0,6,6


strength#=.04
damping#= .2 : `maximum is 1
gap=15


posx =700
position mouse 400,100

` ------------------------------------------------------------
do
cls


deltax#= posx-mousex()
across#=across#+(deltax#*strength#)
across#=across#*(1-damping#)
posx= posx- across#
posx#(1)=posx


deltay#= posy -mousey()-gap
vertical#=vertical#+(deltay#*strength#)
vertical#=vertical#*(1-damping#)
posy= posy- vertical#
posy#(1)=posy
paste image 1,posx,posy

 `  ............ added points

for x= 2 to 20

deltax#(x)= posx#(x)-posx#(x-1)
across#(x)=across#(x)+(deltax#(x)*strength#)
across#(x)= across#(x)*(1-damping#)
posx#(x)= posx#(x)-  across#(x)

deltay#(x)= posy#(x)- posy#(x-1)+gap
vertical#(x)=vertical#(x)+(deltay#(x)*strength#)
vertical#(x)=vertical#(x)*(1-damping#)
posy#(x)= posy#(x)- vertical#(x)

paste image 2,posx#(x),posy#(x)

next x

for x= 2 to 20
rem line  posx#(x-1),posy#(x-1), posx#(x),posy#(x)

next x


sync
loop

cheers ... david l

Back to top

Profile PM Website

Sorry your browser is not supported!

DarkBASIC Discussion / coil springs