sinus balls - GameCreators Forum

Author

Message

HomerS

17

Years of Service

User Offline

Joined: 8th Apr 2007

Location:

Posted: 5th Mar 2013 20:23

Link

Hi,

I try to make a wave of balls. They have to be wobbeling on the y-as. All the balls together have to make a sinus curve.

I have tryed some code, but it still does not correctly work.

Have a look at my code.

+ Code Snippet

for n=1 to 10
make object sphere n,50
position object n,(n*50)-50,0,0
next n
sync on
position camera 250,0,-500
m=0

do
for d=1 to 10
 ox#=object position x(d)
 oz#=object position z(d)
 position object d,ox#,cos(m*((d-1)))*100,oz#
next d
m=m+1
m=wrapvalue(m)
sync
center text 110,10,str$(m)
loop

Can someone give me a hint?

Greetings!

Toedeledoki

Back to top

Profile PM

BN2 Productions

20

Years of Service

User Offline

Joined: 22nd Jan 2004

Location:

Posted: 5th Mar 2013 23:14

Link

Quote: " position object d,ox#,cos(m*((d-1)))*100,oz#"

Hint:
Your problem is here, specifically in your argument to cos(). You are MULTIPLYING M, making the angle change rapidly from point to point. You want a more regular adjustment to the angle for each point.

Answer:

+ Code Snippet

The short version is change m*((d-1)) to m-scale*d where scale is some scale value that you'll need to play with to get what you want. Effectively the idea here is that M is your starting point, and each ball will be at that angle plus how far they are from the starting point times some regular interval.

Your code uses M as a starting point, but it is then MULTIPLIED for each position. The effect was pretty cool looking though.

Great Quote:
"Time...LINE??? Time isn't made out of lines...it is made out of circles. That is why clocks are round!" -Caboose

Back to top

Profile PM

HomerS

17

Years of Service

User Offline

Joined: 8th Apr 2007

Location:

Posted: 7th Mar 2013 22:31

Link

Hello Batman,

TNX for your tip!

I have been fixing the problem.

I changed the code from

+ Code Snippet

position object d,ox#,cos(m*((d-1)))*100,oz#

into

+ Code Snippet

position object d,ox#,cos(m#+(d*balls_size#)*wave_height#,oz#

The little program I now have made a little interactive. You can change the variables.

Look for this code:

REM *********************
REM **SIMPLE WAVE_BALLS**
REM *********************

autocam off:hide mouse
REM CHANGE THE VARIABLES 
 balls#=25
 balls_size#=50
 wave_height#=50
 speed#=4

REM MAKE THE WAVE FIT ON THE X-SCREEN
camx#=(balls#*balls_size#)/2

REM MAKE THE BALLS
for n=1 to balls#
	make object sphere n,balls_size#
	position object n,(n*balls_size#)-balls_size#,0,0
next n

REM PUT SYNC ON AND HIDE MOUSE
	sync on : Hide Mouse

REM POSITION CAMERA USE CAMX
position camera camx#,100,-1000
 color backdrop RGB(0,0,0)
REM USE A VARIABLE AT 0 TO START THE SINUS_BALLS
m#=0

REM MAIN LOOP
REPEAT
	gosub keys
	m#=m#+speed#
	m#=wrapvalue(m#)

for d=1 to balls#
		ox#=object position x(d)
		oz#=object position z(d)
		position object d,ox#,cos(m#+(d*balls_size#))*wave_height#,oz#
	next d

sync

text 0,0,"Wrapvalue: "+str$(m#)
	text 0,15,"Speed: "+str$(speed#)+"   CHANGE WITH KEYLEFT AND KEYRIGHT"
	text 0,30,"WaveHeight: "+str$(wave_height#)+"   CHANGE WITH KEYUP AND KEYDOWN"

UNTIL SPACEKEY()

REM END THE PROGRAM
END

REM THE LIST OF KEYBOARD CODE TO MAKE THE MAINLOOP SMALLER
keys:
	if leftkey()
		speed#=speed#-0.1
	endif
	if rightkey()
		speed#=speed#+0.1
	endif
	if upkey()
		wave_height#=wave_height#+0.5
	endif
	if downkey()
		wave_height#=wave_height#-0.5
	endif
RETURN

+ Code Snippet

REM *********************
REM **SIMPLE WAVE_BALLS**
REM *********************

autocam off:hide mouse
REM CHANGE THE VARIABLES 
 balls#=25
 balls_size#=50
 wave_height#=50
 speed#=4

REM MAKE THE WAVE FIT ON THE X-SCREEN
camx#=(balls#*balls_size#)/2

REM MAKE THE BALLS
for n=1 to balls#
	make object sphere n,balls_size#
	position object n,(n*balls_size#)-balls_size#,0,0
next n

REM PUT SYNC ON AND HIDE MOUSE
	sync on : Hide Mouse

REM POSITION CAMERA USE CAMX
position camera camx#,100,-1000
 color backdrop RGB(0,0,0)
REM USE A VARIABLE AT 0 TO START THE SINUS_BALLS
m#=0

REM MAIN LOOP
REPEAT
	gosub keys
	m#=m#+speed#
	m#=wrapvalue(m#)

	for d=1 to balls#
		ox#=object position x(d)
		oz#=object position z(d)
		position object d,ox#,cos(m#+(d*balls_size#))*wave_height#,oz#
	next d

	sync

	text 0,0,"Wrapvalue: "+str$(m#)
	text 0,15,"Speed: "+str$(speed#)+"   CHANGE WITH KEYLEFT AND KEYRIGHT"
	text 0,30,"WaveHeight: "+str$(wave_height#)+"   CHANGE WITH KEYUP AND KEYDOWN"

UNTIL SPACEKEY()

REM END THE PROGRAM
END

REM THE LIST OF KEYBOARD CODE TO MAKE THE MAINLOOP SMALLER
keys:
	if leftkey()
		speed#=speed#-0.1
	endif
	if rightkey()
		speed#=speed#+0.1
	endif
	if upkey()
		wave_height#=wave_height#+0.5
	endif
	if downkey()
		wave_height#=wave_height#-0.5
	endif
RETURN

Maybe beginners have fun with it?

Now lets change colors!!