Sin Wave - Floating Objects?

Blitz3D Forums/Blitz3D Programming/Sin Wave - Floating Objects?

Guy Fawkes (Posted 2016) [#1]

Hi all. Can someone please help me fix "Float_Objects ( )" function? I want the shapes to bob slowly up & down on a Sin() wave like Asteroids. Here's my demo: Graphics3D ( 800, 600, 0, 2 ) SetBuffer BackBuffer ( ) SeedRnd MilliSecs ( ) Global cam = CreateCamera ( ) PositionEntity cam, 0.0, 1.0, 0.0 Global light = CreateLight ( ) RotateEntity light, 45, 45, 0 Global sky = CreateCube ( cam ) EntityColor sky, 102, 102, 255 EntityOrder sky, 25 ScaleEntity sky, 25, 25, 25 EntityFX sky, 1 FlipMesh sky Global land = CreatePlane ( ) EntityColor land, 0, 16, 0 EntityFX land, 1 Global master_dummy_pivot = CreateCylinder ( 6 ) PositionEntity master_dummy_pivot, 0, 3, 0 RotateEntity master_dummy_pivot, 45, 45, 0 api_ShowWindow ( SystemProperty$ ( "apphWnd" ), 1 ) Global dummy_cube_count = 250 ;Create an Array to hold randomly colored / rotated, transparent / non-transparent cubes Dim dummy_cubes ( dummy_cube_count ) For x = 1 To dummy_cube_count dummy_cubes ( x ) = CreateCube ( ) EntityParent dummy_cubes ( x ), master_dummy_pivot PositionEntity dummy_cubes ( x ), Rnd ( -250.0, 250.0 ), 3.0, Rnd ( 25.0, 125.0 ) ScaleEntity dummy_cubes ( x ), Rnd ( -2.618, 2.618 ), Rnd ( -2.618, 2.618 ), Rnd ( -2.618, 2.618 ) RotateEntity ( dummy_cubes ( x ), Rnd ( -359.0, 359.0 ), Rnd ( -359.0, 359.0 ), Rnd ( -359.0, 359.0 ) ) EntityAlpha dummy_cubes ( x ), Rnd ( 0.2618, 0.85 ) EntityColor dummy_cubes ( x ), Rnd ( 0, 255 ), Rnd ( 0, 255 ), Rnd ( 0, 255 ) Next While Not KeyHit ( 1 ) UpdateWorld RenderWorld Control_Entity ( cam, 1.0, 1.0, 3.0, 3.0 ) For x = 1 To dummy_cube_count If x1# < -359.0 Then x1# = 0.0 If y1# < -359.0 Then y1# = 0.0 If z1# < -359.0 Then z1# = 0.0 If x1# > 359.0 Then x1# = 0.0 If y1# > 359.0 Then y1# = 0.0 If z1# > 359.0 Then z1# = 0.0 x1# = x1# - 0.001 y1# = y1# - 0.001 z1# = z1# - 0.001 RotateEntity dummy_cubes ( x ), x1#, y1#, z1# RotateEntity master_dummy_pivot, 0.0, y1#, 0.0 Float_Object ( dummy_cubes ( x ), Delta_Timing# ( ), 10.0, 5.0, 1.0, 5.0 ) Next If EntityY# ( cam ) < 0.0 RotateEntity land, -180.0, 0.0, 0.0 Else RotateEntity land, 0.0, 0.0, 0.0 EndIf Text GraphicsWidth ( ) / 2.0, GraphicsHeight ( ) / 2.0, "Delta_Timing#: " + Delta_Timing# ( ) Flip 0 VWait 1 Wend End Function Control_Entity ( ent, move_speed# = 1.0, turn_speed# = 1.0, double_move_speed# = 3.0, double_turn_speed# = 3.0 ) If Not ( KeyDown ( 29 ) Or KeyDown ( 157 ) ) If Not ( KeyDown ( 42 ) Or KeyDown ( 54 ) ) ty# = ( KeyDown ( 30 ) - KeyDown ( 32 ) Or KeyDown ( 203 ) - KeyDown ( 205 ) ) * turn_speed# mz# = ( KeyDown ( 17 ) - KeyDown ( 31 ) Or KeyDown ( 200 ) - KeyDown ( 208 ) ) * move_speed# MoveEntity ent, 0.0, 0.0, mz# TurnEntity ent, 0.0, ty#, 0.0 Else ty# = ( KeyDown ( 30 ) - KeyDown ( 32 ) Or KeyDown ( 203 ) - KeyDown ( 205 ) ) * double_turn_speed# mz# = ( KeyDown ( 17 ) - KeyDown ( 31 ) Or KeyDown ( 200 ) - KeyDown ( 208 ) ) * double_move_speed# MoveEntity ent, 0.0, 0.0, mz# TurnEntity ent, 0.0, ty#, 0.0 EndIf Else If Not ( KeyDown ( 42 ) Or KeyDown ( 54 ) ) mx# = ( KeyDown ( 32 ) - KeyDown ( 30 ) Or KeyDown ( 205 ) - KeyDown ( 203 ) ) * move_speed# my# = ( KeyDown ( 17 ) - KeyDown ( 31 ) Or KeyDown ( 200 ) - KeyDown ( 208 ) ) * move_speed# Else mx# = ( KeyDown ( 32 ) - KeyDown ( 30 ) Or KeyDown ( 205 ) - KeyDown ( 203 ) ) * double_move_speed# my# = ( KeyDown ( 17 ) - KeyDown ( 31 ) Or KeyDown ( 200 ) - KeyDown ( 208 ) ) * double_move_speed# EndIf MoveEntity ent, mx#, my#, 0.0 EndIf End Function Function Float_Object ( ent, deltatime# = 0.0, amplitudeX# = 10.0, amplitudeY# = 5.0, omegaX# = 1.0, omegaY# = 5.0 ) amplitudeX# = 0.01 amplitudeY# = 0.05 omegaX# = 0.1 omegaY# = 0.5 index = 0 x# = ( amplitudeX# * Cos ( omegaX * index ) ) y# = ( Abs ( amplitudeY# * Sin ( omegaY * index ) ) ) index = index + deltatime# TranslateEntity ent, 0, y#, 0 End Function Function Delta_Timing# ( ) thistime# = MilliSecs() deltatime# = ( thistime# - oldmillisecs# ) oldmillisecs# = ( thistime# ) Return deltatime# End Function Function Float_Object ( ent, deltatime# = 0.0, amplitudeX# = 10.0, amplitudeY# = 5.0, omegaX# = 1.0, omegaY# = 5.0 ) amplitudeX# = 0.01 amplitudeY# = 0.05 omegaX# = 0.1 omegaY# = 0.5 index = 0 x# = ( amplitudeX# * Cos ( omegaX * index ) ) y# = ( Abs ( amplitudeY# * Sin ( omegaY * index ) ) ) index = index + deltatime# TranslateEntity ent, 0, y#, 0 End Function Thanks! =) ~GF

RemiD (Posted 2016) [#2]

I can't help since i only know the basics of math. Not sure i understand what you want, but if you want your meshes to float on water-like waves, there are several examples of 3d waves in the code archives...

Guy Fawkes (Posted 2016) [#3]

no. I said I want them to float slowly up & down like asteroids USING the Sin() wave function. ~GF

RemiD (Posted 2016) [#4]

Asteroids do not float up and down, they rather have a direction, a linearvelocity (translate) and an angularvelocity (rotate)

Guy Fawkes (Posted 2016) [#5]

please.. stop with all the schmuck... I just want these objects to float up and down slowly. ~GF

Flanker (Posted 2016) [#6]

Sin() and Cos() return a value beetween -1 and 1 with an angle beetween 0 and 360. So you need an "angle" for each of your object, that you increment with a speed, then use Sin() or Cos() with that angle, multiplied with the desired amplitude. Example : SeedRnd MilliSecs() Graphics3D 800,600,32,2 SetBuffer BackBuffer() camera = CreateCamera() light = CreateLight() TurnEntity light,30,70,0 cubes_count = 250 Dim cube(cubes_count) Dim angle#(cubes_count) amplitude# = 2 speed# = 2 For i = 1 To cubes_count cube(i) = CreateCube() EntityColor cube(i),Rand(255),Rand(255),Rand(255) RotateEntity cube(i),Rnd(360),Rnd(360),Rnd(360) angle(i) = Rand(360) PositionEntity cube(i),Rnd(200)-100,Sin(angle(i))*amplitude,Rnd(200)-100 Next While Not KeyHit(1) For i = 1 To cubes_count angle(i) = angle(i) + speed If angle(i) >= 360 Then angle(i) = 0 PositionEntity cube(i),EntityX(cube(i),1),Sin(angle(i))*amplitude,EntityZ(cube(i),1) TurnEntity cube(i),1,2,3 Next RenderWorld() Flip Wend End

Guy Fawkes (Posted 2016) [#7]

Thank you, Flanker! :) ~GF

RemiD (Posted 2016) [#8]

Nice example :) You can probably achieve the same effect by using a height# variable that you progressively increase or decrease.