Add option to display tempo as BPM

The dragging mechanic was not changed, i.e. you can only drag in the increments you could before. That means the tempo will always increment in steps of 0.25, which in BPM corresponds to 3.75.

Author: Bentroen

scripts/control_create/control_create.gml

@@ -60,6 +60,8 @@ playing = 0
 record = 0
 tempo = 10
 tempodrag = 10
+bpm = 0
+use_bpm = 0
 metronome = 0
 metronome_played = -1
 marker_pos = 0

scripts/control_draw/control_draw.gml

@@ -1231,9 +1231,17 @@ if (show_layers) {
 	popup_set(184, 57, 64, 22, "Position of the marker in bars, beats and sixteenths.")
 
 	// Tempo
-	draw_sprite(spr_tempobox, 0, 108, 57)
 	draw_set_halign(fa_center)
-	draw_text(136, 60, string_format(tempo, 4, 2) + " t / s")
+	if (use_bpm) {
+		draw_sprite(spr_tempobox, 1, 101, 57)
+		bpm = tempo * 15
+		draw_text(136, 60, string_format(bpm, 4, 2) + " BPM")
+		popup_set(108, 57, 64, 22, "Tempo of the song (measured in beats per minute).\nClick and drag to change. Right click to reset.")
+	} else {
+		draw_sprite(spr_tempobox, 0, 108, 57)
+		draw_text(136, 60, string_format(tempo, 4, 2) + " t / s")
+		popup_set(108, 57, 64, 22, "Tempo of the song (measured in ticks per second).\nClick and drag to change. Right click to reset.")
+	}
 	draw_set_halign(fa_left)
 	a = mouse_rectangle(108, 57, 64, 22)
 	popup_set(108, 57, 64, 22, "Tempo of the song (measured in ticks per second.)\nClick and drag to change. Right click to reset.")

scripts/load_settings/load_settings.gml

@@ -37,6 +37,7 @@ marker_end =         ini_read_real(  "preferences", "marker_end",         marker
 realvolume =         ini_read_real(  "preferences", "show_layer_volumes", realvolume)
 realstereo =         ini_read_real(  "preferences", "use_stereo",         realstereo)
 looptobarend =       ini_read_real(  "preferences", "loop_to_bar_end",    looptobarend)
+use_bpm =            ini_read_real(  "preferences", "use_bpm",            use_bpm)
 save_version =       ini_read_real(  "preferences", "save_version",       save_version)
 
 // Midi import settings

scripts/save_settings/save_settings.gml

@@ -36,6 +36,7 @@ ini_write_real_clean("preferences", "marker_end",         marker_end)
 ini_write_real_clean("preferences", "show_layer_volumes", realvolume)
 ini_write_real_clean("preferences", "use_stereo",         realstereo)
 ini_write_real_clean("preferences", "loop_to_bar_end",    looptobarend)
+ini_write_real_clean("preferences", "use_bpm",            use_bpm)
 ini_write_real_clean("preferences", "save_version",       save_version)
 
 // Midi import settings