Advertisement
Guest User

Untitled

a guest
May 26th, 2017
76
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
VB.NET 1.24 KB | None | 0 0
  1. Create 4 arrays of numbers:
  2. String1_X (0 to 31)
  3. String1_Y (0 to 31)
  4. String2_X (0 to 31)
  5. String2_Y (0 to 31)
  6.  
  7. Initialise all the points in String_X() and String_Y():
  8.  
  9. Loop i from 0 to 31
  10.     String1_X (i) = 0
  11.     String1_Y (i) = i
  12. end of loop
  13.  
  14. Loop Forever
  15.  
  16.     Loop i from 0 to 31
  17.  
  18.         X_vector1 = String1_X(i- 1) - String1_X(i)
  19.         Y_vector1 = String1_Y(i - 1) - String1_Y(i)
  20.         Magnitude1 = LengthOf (X_Vector1, Y_Vector1)
  21.         Extension1 = Magnitude1 - Normal_Length
  22.  
  23.         X_vector2 = String1_X(i + 1) - String1_X(i)
  24.         Y_vector2 = String1_Y(i + 1) - String1_Y(i)
  25.         Magnitude2 = LengthOf(X_Vector2, Y_Vector2)
  26.         Extension2 = Magnitude2 - Normal_Length
  27.  
  28.         xv = (X_Vector1 / Magnitude1 * Extension1) + (X_Vector2 / Magnitude2 * Extension2)
  29.         yv = (Y_Vector1 / Magnitude1 * Extension1) + (Y_Vector2 / Magnitude2 * Extension2) + Gravity
  30.  
  31.         Velocity_X(i) = Velocity_X(i) * Damping + (xv * .001)
  32.         Velocity_Y(i) = Velocity_Y(i) * Damping + (yv * .001)
  33.         String2_X(i)  = String1_X(i) + Velocity_X(i)
  34.         String2_Y(i)  = String1_Y(i) + Velocity_Y(i)
  35.         (Note you can use what ever value you like instead of .01)
  36.  
  37.     end of loop
  38.  
  39.     Copy all of String2_X to String1_X
  40.     Copy all of String2_Y to String1_Y
  41.     Draw lines between all adjacent points
  42.  
  43. end of LoopForever
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement