Creating a graphical Metronome - GameCreators Forum

Author

Message

Shaner

7

Years of Service

User Offline

Joined: 26th Oct 2016

Location: The Wild Wild West Of Arizona,USA

Posted: 27th Oct 2016 00:25

Link

I am currently working on a graphic metronome. I have created a non graphic one pretty easily. Unfortunately, Making the graphic one is A LOT harder lol. I am struggling with how to have the pendulum swing match the beep. I am using 60 degree swing on the pendulum when the pendulum reaches 30 degrees positive or negative it plays the beep. I am moving the pendulum using the SetSpriteAngle and a simple y=y+2.5 The user can input the Beats Per Minute wanted. I am using the sleep command and dividing 60 by the requested Beats Per Minute and then dividing the answer by 24( I am moving the pendulum using y=y+2.5 so I divided 60degrees by 2.5 and got 24) then multiplied by 1000 to convert to milliseconds to use in a sleep command for the delay. I have uploaded the main.agc to help decipher this message. Thanks for any help

Attachments

Login to view attachments

Back to top

Profile PM

BatVink

Moderator

21

Years of Service

User Offline

Joined: 4th Apr 2003

Location: Gods own County, UK

Posted: 27th Oct 2016 08:14

Link

You could use tween commands to get the exact timing you need. the also have ease in and ease out options so you can get a more realistic swing.

- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
Quidquid latine dictum sit, altum sonatur
TutCity is being rebuilt

Back to top

Profile PM Email

Shaner

7

Years of Service

User Offline

Joined: 26th Oct 2016

Location: The Wild Wild West Of Arizona,USA

Posted: 27th Oct 2016 11:55

Link

Oh thank you! I havent programmed in 30 years so its been an uphill battle

Back to top

Profile PM

Shaner

7

Years of Service

User Offline

Joined: 26th Oct 2016

Location: The Wild Wild West Of Arizona,USA

Posted: 27th Oct 2016 18:11

Link

I cant find a lot of information on the tween commands or ease in and ease out. I cant find it in the tutorial guide. Anyway you could elaborate on them??

Thanks
Shane

Back to top

Profile PM

BatVink

Moderator

21

Years of Service

User Offline

Joined: 4th Apr 2003

Location: Gods own County, UK

Posted: 28th Oct 2016 09:35 Edited at: 28th Oct 2016 09:35

Link

I wrote a tutorial that includes the Tween commands to shake the screen. Hopefully the demo will shed enough light on how to set up and use tweens...

https://www.thegamecreators.com/pages/newsletters/newsletter_issue_150.html#5

- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
Quidquid latine dictum sit, altum sonatur
TutCity is being rebuilt

Back to top

Profile PM Email

Shaner

7

Years of Service

User Offline

Joined: 26th Oct 2016

Location: The Wild Wild West Of Arizona,USA

Posted: 28th Oct 2016 20:59

Link

Thank you so Much I really appreciate all the help!!

Shane

Back to top

Profile PM

Shaner

7

Years of Service

User Offline

Joined: 26th Oct 2016

Location: The Wild Wild West Of Arizona,USA

Posted: 29th Oct 2016 15:03

Link

Thank you Sir!!

Back to top

Profile PM

CJB

Valued Member

20

Years of Service

User Offline

Joined: 10th Feb 2004

Location: Essex, UK

Posted: 2nd Nov 2016 16:18

Link

That's a good app idea you have there! I don't know if it is a big deal for you, but the beep is likely to get quantised with the refresh rate of the screen if using default sync. To get it really accurate, you might want to look into syncrate settings. (a 60hz quantisation wouldn't bother me personally, but I know people who it would).

V2 T1 (Mostly)
Phone Tap!
Uzmadesign

Back to top

Profile PM Email Website

Shaner

7

Years of Service

User Offline

Joined: 26th Oct 2016

Location: The Wild Wild West Of Arizona,USA

Posted: 3rd Nov 2016 02:47

Link

Thank you CJB! Yeah I am running into that very problem with the refresh rate. I cant get reliable repeatable with the beep. If the Beats Per Minute are set to 108 I sometimes I get 107 sometimes 106. If you set the Beats Per Minute to 131 I cant get it past 128 beats no mater what I do! UGH

Thanks Again,
Shane

Back to top

Profile PM

BatVink

Moderator

21

Years of Service

User Offline

Joined: 4th Apr 2003

Location: Gods own County, UK

Posted: 3rd Nov 2016 09:07 Edited at: 3rd Nov 2016 12:06

Link

I think the most accurate way would be to set the Sync rate to 0, and also measure from the start of the program, not between beeps. If you measure between beeps, you magnify any inaccuracies.
I just created a quick test, I can get it accurate to within 0.2% (0.0009 of a second), although most of the time it is accurate to within 0.05% (0.0002 of a second).
Medialess, so no beep:

// Project: Temp 
// Created: 2016-08-26

// set window properties
SetWindowTitle( "Temp" )
SetWindowSize( 1024, 768, 0 )

// set display properties
SetVirtualResolution( 1024, 768 )
SetOrientationAllowed( 1, 1, 1, 1 )

SetSyncRate(0,0)

// BPM Configuration
bpm = 131
timeDiff# = 60.0/bpm

//Image
spr = createSprite(0)
SetSpriteSize(spr,10, 400)
SetSpriteOffset(spr,5,380)
SetSpritePositionByOffset(spr, GetVirtualWidth() / 2, GetVirtualHeight() - 100)

//Tween
tween = CreateTweenSprite(timeDiff#)
lastAngle# = -30
nextAngle# = 30

ResetTimer()
lastBeep# = 0
nextBeep# = 0

do
	if timer() >= nextBeep#
		if GetTweenSpritePlaying(tween, spr) = 1
			StopTweenSprite(tween,spr)
		endif
		lastBeep# = nextBeep#
		nextBeep# = lastBeep# + timeDiff#
		lastAngle# = lastAngle# * -1
		nextAngle# = nextAngle# * -1
		Drift# = (timer() - lastBeep#) / timeDiff# * 100.0
		SetTweenSpriteAngle(tween,lastAngle#, nextAngle#, TweenEaseOut2())
		PlayTweenSprite(tween,spr,0)
	endif
	print("BPM : " + str(bpm))
	print("Rate : " + str(timeDiff#,4) + "Seconds")
	Print("Drift = " + str(Drift#) + "%")
	UpdateAllTweens(GetFrameTime())
    Sync()
loop

+ Code Snippet


// Project: Temp 
// Created: 2016-08-26

// set window properties
SetWindowTitle( "Temp" )
SetWindowSize( 1024, 768, 0 )

// set display properties
SetVirtualResolution( 1024, 768 )
SetOrientationAllowed( 1, 1, 1, 1 )

SetSyncRate(0,0)

// BPM Configuration
bpm = 131
timeDiff# = 60.0/bpm

//Image
spr = createSprite(0)
SetSpriteSize(spr,10, 400)
SetSpriteOffset(spr,5,380)
SetSpritePositionByOffset(spr, GetVirtualWidth() / 2, GetVirtualHeight() - 100)

//Tween
tween = CreateTweenSprite(timeDiff#)
lastAngle# = -30
nextAngle# = 30

ResetTimer()
lastBeep# = 0
nextBeep# = 0

do
	if timer() >= nextBeep#
		if GetTweenSpritePlaying(tween, spr) = 1
			StopTweenSprite(tween,spr)
		endif
		lastBeep# = nextBeep#
		nextBeep# = lastBeep# + timeDiff#
		lastAngle# = lastAngle# * -1
		nextAngle# = nextAngle# * -1
		Drift# = (timer() - lastBeep#) / timeDiff# * 100.0
		SetTweenSpriteAngle(tween,lastAngle#, nextAngle#, TweenEaseOut2())
		PlayTweenSprite(tween,spr,0)
	endif
	print("BPM : " + str(bpm))
	print("Rate : " + str(timeDiff#,4) + "Seconds")
	Print("Drift = " + str(Drift#) + "%")
	UpdateAllTweens(GetFrameTime())
    Sync()
loop

Edit: Slightly easier to visualise

// Project: Temp 
// Created: 2016-08-26

// set window properties
SetWindowTitle( "Temp" )
SetWindowSize( 1024, 768, 0 )

// set display properties
SetVirtualResolution( 1024, 768 )
SetOrientationAllowed( 1, 1, 1, 1 )

SetSyncRate(0,0)
enableclearcolor(0)

// BPM Configuration
bpm = 131
timeDiff# = 60.0/bpm

//background
bg = createSprite(0)
bg2 = createSprite(0)
SetSpriteSize(bg,GetVirtualWidth(), GetVirtualHeight() - 200)
SetSpriteSize(bg2,GetVirtualWidth(), 200)
SetSpritePosition(bg,0,200)
SetSpritePosition(bg2,0,0)
SetSpriteColor(bg,64,64,128,16)
SetSpriteColor(bg2,64,64,128,255)
SetSpriteDepth(bg,20)

//Image
spr = createSprite(0)
SetSpriteSize(spr,10, 400)
SetSpriteOffset(spr,5,380)
SetSpritePositionByOffset(spr, GetVirtualWidth() / 2, GetVirtualHeight() - 100)

//Tween
tween = CreateTweenSprite(timeDiff#)
setTweenSpriteBlue(tween,240,255,TweenEaseOut1())
setTweenSpriteRed(tween,0,255,TweenEaseOut1())
setTweenSpriteGreen(tween,0,255,TweenEaseOut1())
lastAngle# = -30
nextAngle# = 30

ResetTimer()
lastBeep# = 0
nextBeep# = 0

do
	if timer() >= nextBeep#
		if GetTweenSpritePlaying(tween, spr) = 1
			StopTweenSprite(tween,spr)
		endif
		lastBeep# = nextBeep#
		nextBeep# = lastBeep# + timeDiff#
		lastAngle# = lastAngle# * -1
		nextAngle# = nextAngle# * -1
		Drift# = (timer() - lastBeep#) / timeDiff# * 100.0
		SetTweenSpriteAngle(tween,lastAngle#, nextAngle#, TweenEaseIn1())
		PlayTweenSprite(tween,spr,0)
	endif
	print("BPM : " + str(bpm))
	print("Rate : " + str(timeDiff#,4) + "Seconds")
	Print("Drift = " + str(Drift#) + "%")
	UpdateAllTweens(GetFrameTime())
    Sync()
loop

+ Code Snippet


// Project: Temp 
// Created: 2016-08-26

// set window properties
SetWindowTitle( "Temp" )
SetWindowSize( 1024, 768, 0 )

// set display properties
SetVirtualResolution( 1024, 768 )
SetOrientationAllowed( 1, 1, 1, 1 )

SetSyncRate(0,0)
enableclearcolor(0)

// BPM Configuration
bpm = 131
timeDiff# = 60.0/bpm

//background
bg = createSprite(0)
bg2 = createSprite(0)
SetSpriteSize(bg,GetVirtualWidth(), GetVirtualHeight() - 200)
SetSpriteSize(bg2,GetVirtualWidth(), 200)
SetSpritePosition(bg,0,200)
SetSpritePosition(bg2,0,0)
SetSpriteColor(bg,64,64,128,16)
SetSpriteColor(bg2,64,64,128,255)
SetSpriteDepth(bg,20)

//Image
spr = createSprite(0)
SetSpriteSize(spr,10, 400)
SetSpriteOffset(spr,5,380)
SetSpritePositionByOffset(spr, GetVirtualWidth() / 2, GetVirtualHeight() - 100)

//Tween
tween = CreateTweenSprite(timeDiff#)
setTweenSpriteBlue(tween,240,255,TweenEaseOut1())
setTweenSpriteRed(tween,0,255,TweenEaseOut1())
setTweenSpriteGreen(tween,0,255,TweenEaseOut1())
lastAngle# = -30
nextAngle# = 30

ResetTimer()
lastBeep# = 0
nextBeep# = 0

do
	if timer() >= nextBeep#
		if GetTweenSpritePlaying(tween, spr) = 1
			StopTweenSprite(tween,spr)
		endif
		lastBeep# = nextBeep#
		nextBeep# = lastBeep# + timeDiff#
		lastAngle# = lastAngle# * -1
		nextAngle# = nextAngle# * -1
		Drift# = (timer() - lastBeep#) / timeDiff# * 100.0
		SetTweenSpriteAngle(tween,lastAngle#, nextAngle#, TweenEaseIn1())
		PlayTweenSprite(tween,spr,0)
	endif
	print("BPM : " + str(bpm))
	print("Rate : " + str(timeDiff#,4) + "Seconds")
	Print("Drift = " + str(Drift#) + "%")
	UpdateAllTweens(GetFrameTime())
    Sync()
loop

- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
Quidquid latine dictum sit, altum sonatur
TutCity is being rebuilt

Back to top

Profile PM Email

BatVink

Moderator

21

Years of Service

User Offline

Joined: 4th Apr 2003

Location: Gods own County, UK

Posted: 3rd Nov 2016 13:10

Link

Use + or - to increase/decrease BPM
...Must...stop...

// Project: Temp 
// Created: 2016-08-26

// set window properties
SetWindowTitle( "Temp" )
SetWindowSize( 1024, 768, 0 )

// set display properties
SetVirtualResolution( 1024, 768 )
SetOrientationAllowed( 1, 1, 1, 1 )

SetSyncRate(0,0)
enableclearcolor(0)

// BPM Configuration
bpm = 131
timeDiff# = 60.0/bpm

//background
bg = createSprite(0)
bg2 = createSprite(0)
SetSpriteSize(bg,GetVirtualWidth(), GetVirtualHeight() - 200)
SetSpriteSize(bg2,GetVirtualWidth(), 200)
SetSpritePosition(bg,0,200)
SetSpritePosition(bg2,0,0)
SetSpriteColor(bg,64,64,128,16)
SetSpriteColor(bg2,64,64,128,255)
SetSpriteDepth(bg,20)

//Image
spr = createSprite(0)
SetSpriteSize(spr,10, 400)
SetSpriteOffset(spr,5,380)
SetSpritePositionByOffset(spr, GetVirtualWidth() / 2, GetVirtualHeight() - 100)

//Tween
tween = CreateTweenSprite(timeDiff#)
setTweenSpriteBlue(tween,240,255,TweenEaseOut1())
setTweenSpriteRed(tween,0,255,TweenEaseOut1())
setTweenSpriteGreen(tween,0,255,TweenEaseOut1())
lastAngle# = -30
nextAngle# = 30

ResetTimer()
lastBeep# = 0
nextBeep# = 0

do
	if timer() >= nextBeep#
		if GetTweenSpritePlaying(tween, spr) = 1
			StopTweenSprite(tween,spr)
		endif
		lastBeep# = nextBeep#
		nextBeep# = lastBeep# + timeDiff#
		lastAngle# = lastAngle# * -1
		nextAngle# = nextAngle# * -1
		Drift# = (timer() - lastBeep#) / timeDiff# * 100.0
		SetTweenSpriteAngle(tween,lastAngle#, nextAngle#, TweenEaseIn1())
		PlayTweenSprite(tween,spr,0)
	endif
	print("BPM : " + str(bpm))
	print("Rate : " + str(timeDiff#,4) + " Seconds")
	Print("Drift = " + str(Drift#) + "%")
	UpdateAllTweens(GetFrameTime())
    Sync()
    
    //Increase/Decrease
    if GetRawKeyReleased(107) = 1
		inc bpm,1
		timeDiff# = 60.0/bpm
	endif
		
    if GetRawKeyReleased(189) = 1
		dec bpm,1
		timeDiff# = 60.0/bpm
	endif
		
loop

+ Code Snippet

// Project: Temp 
// Created: 2016-08-26

// set window properties
SetWindowTitle( "Temp" )
SetWindowSize( 1024, 768, 0 )

// set display properties
SetVirtualResolution( 1024, 768 )
SetOrientationAllowed( 1, 1, 1, 1 )

SetSyncRate(0,0)
enableclearcolor(0)

// BPM Configuration
bpm = 131
timeDiff# = 60.0/bpm

//background
bg = createSprite(0)
bg2 = createSprite(0)
SetSpriteSize(bg,GetVirtualWidth(), GetVirtualHeight() - 200)
SetSpriteSize(bg2,GetVirtualWidth(), 200)
SetSpritePosition(bg,0,200)
SetSpritePosition(bg2,0,0)
SetSpriteColor(bg,64,64,128,16)
SetSpriteColor(bg2,64,64,128,255)
SetSpriteDepth(bg,20)

//Image
spr = createSprite(0)
SetSpriteSize(spr,10, 400)
SetSpriteOffset(spr,5,380)
SetSpritePositionByOffset(spr, GetVirtualWidth() / 2, GetVirtualHeight() - 100)

//Tween
tween = CreateTweenSprite(timeDiff#)
setTweenSpriteBlue(tween,240,255,TweenEaseOut1())
setTweenSpriteRed(tween,0,255,TweenEaseOut1())
setTweenSpriteGreen(tween,0,255,TweenEaseOut1())
lastAngle# = -30
nextAngle# = 30

ResetTimer()
lastBeep# = 0
nextBeep# = 0

do
	if timer() >= nextBeep#
		if GetTweenSpritePlaying(tween, spr) = 1
			StopTweenSprite(tween,spr)
		endif
		lastBeep# = nextBeep#
		nextBeep# = lastBeep# + timeDiff#
		lastAngle# = lastAngle# * -1
		nextAngle# = nextAngle# * -1
		Drift# = (timer() - lastBeep#) / timeDiff# * 100.0
		SetTweenSpriteAngle(tween,lastAngle#, nextAngle#, TweenEaseIn1())
		PlayTweenSprite(tween,spr,0)
	endif
	print("BPM : " + str(bpm))
	print("Rate : " + str(timeDiff#,4) + " Seconds")
	Print("Drift = " + str(Drift#) + "%")
	UpdateAllTweens(GetFrameTime())
    Sync()
    
    //Increase/Decrease
    if GetRawKeyReleased(107) = 1
		inc bpm,1
		timeDiff# = 60.0/bpm
	endif
		
    if GetRawKeyReleased(189) = 1
		dec bpm,1
		timeDiff# = 60.0/bpm
	endif
		
loop

- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
Quidquid latine dictum sit, altum sonatur
TutCity is being rebuilt

Back to top

Profile PM Email

Shaner

7

Years of Service

User Offline

Joined: 26th Oct 2016

Location: The Wild Wild West Of Arizona,USA

Posted: 6th Nov 2016 15:50

Link

Thank you so Much for Taking the time to write these examples!!!

Back to top

Profile PM

BatVink

Moderator

21

Years of Service

User Offline

Joined: 4th Apr 2003

Location: Gods own County, UK

Posted: 6th Nov 2016 16:10

Link

You are amongst people who live to solve problems

As soon as I read "I can't get reliable repeatable with the beep" I was drawn to the challenge.

- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
Quidquid latine dictum sit, altum sonatur
TutCity is being rebuilt

Back to top

Profile PM Email

Shaner

7

Years of Service

User Offline

Joined: 26th Oct 2016

Location: The Wild Wild West Of Arizona,USA

Posted: 11th Nov 2016 00:51

Link

Well I'm glad there are folks like you!!!

Back to top

Profile PM

Sorry your browser is not supported!

Newcomers AppGameKit Corner / Creating a graphical Metronome

Attachments