thermalsensor

thermalsensor

Joined Member # 2388408
0 Posts 0 Replies 162 Reputation

Hi, after a very short vacation, i read the last post. So now are like 2 am, tomorrow i have school but here is the wheel code(great name don't you think), version 2.0 with arrays and everything jeje, and thnx mike for the idea (this time is the entire code): Dim t1,r,wd,f Dim seno(999) Dim coseno(999) 'Called when the script is executed Sub Object_OnScriptEnter r = 100 f=5 wd = .0062832*f llenarreglo object.SetTimer 1,10 End Sub <br/

18 Replies 9,779 Views

Finally!!!! After finish my final exam of math, i figure out how and here is the function, just are missing some adjustments for displace objects in a same trayectory: 'x = center from left 'y = center from top 'wd = frequency 'r = radius 't = incrementant constant Function wheel(x,y,wd,r,t) Dim vp,w Object.Top=y-r*Cos(wd*t) Object.Left=x+r*Sin(wd*t) vp = Sqr(((r*wd*Sin(wd*t))^2)+((r*wd*Cos(wd*t))^2)) w = (vp/r)*(180/3.141592654)

18 Replies 9,779 Views

mmmm in a second thought, after analize the code, is similar to a code that i tried :s but i need that the object rotate at the same velocity and thats a problem

18 Replies 9,779 Views

Hi, i have a problem, i'm doing a clock(just for fun), and i need ti make an entire group rotate respect a point, i mean, i have a circule and some other objects in the edge, i want that all objects rotate around the center of the circule. I hope somebody can help me.

18 Replies 9,779 Views