class EL_AUDIO_MONITOR
Audio monitor
note
	description: "Audio monitor"
	author: "Finnian Reilly"
	copyright: "Copyright (c) 2001-2022 Finnian Reilly"
	contact: "finnian at eiffel hyphen loop dot com"
	license: "MIT license (See: en.wikipedia.org/wiki/MIT_License)"
	date: "2022-11-15 19:56:06 GMT (Tuesday 15th November 2022)"
	revision: "5"
		
		class
	EL_AUDIO_MONITOR
inherit
	WEL_GROUP_BOX
		rename
			make as make_group_box
		end
	EL_MODULE_LIO
create
	make
feature {NONE} -- Initialization
	make (a_parent: WEL_WINDOW; a_name: STRING; a_x, a_y, a_width, a_height: INTEGER)
			--
		local
			border_left, border_top: INTEGER
		do
			make_group_box (a_parent, a_name, a_x, a_y, a_width, a_height, 0)
			border_top := 20
			border_left := (height * 0.2).rounded
			create signal_level_meter.make (
				a_parent,
				-- Position
				x + border_left , y + border_top,
				-- Size
				width - border_left * 2 , ((height - border_top) * 0.6).rounded,
				-1
			)
			signal_level_meter.set_range (0, 2000)
		end
feature -- Element change
	set_signal_threshold (rms_energy: REAL)
			--
		do
			signal_level_meter.set_signal_threshold (rms_energy)
		end
feature -- Access
	signal_level_meter: EL_AUDIO_SIGNAL_LEVEL_METER
end