#
# Test - Track FX Get Name.pl
#
 
use strict;
use warnings;
 
use constant CURR_PROJ => 0;
 
# Get number of selected tracks
my $Track_Count = RPR_CountSelectedTracks(CURR_PROJ);
 
# Exit if no tracks selected
exit if ($Track_Count == 0);
 
my $Track_ID;
my $Track_Index;
my $Track_FX_Count;
 
my $FX_Index;
my $FX_Name;
 
# Show number of FXs for each selected track
my $Selected_Index = 0;
 
while ($Selected_Index < $Track_Count) {
	# Get selected track pointer
	$Track_ID = RPR_GetSelectedTrack(CURR_PROJ, $Selected_Index);
 
	# Get selected track index
	$Track_Index = RPR_GetMediaTrackInfo_Value($Track_ID, "IP_TRACKNUMBER");
 
	# Get selected track index
	$Track_FX_Count = RPR_TrackFX_GetCount($Track_ID);
 
	# Show summary for current track
	RPR_ShowConsoleMsg("Track: $Track_Index\nFX Count: $Track_FX_Count\n");
 
	# Get name of each effect on track
	$FX_Index = 0;
 
	while ($FX_Index < $Track_FX_Count) {
		# Get FX name for current FX index
		(undef, undef, undef, $FX_Name, undef) = RPR_TrackFX_GetFXName($Track_ID, $FX_Index, "", 1024);
		# Show summary
		RPR_ShowConsoleMsg("FX index: $FX_Index\nFX name: $FX_Name\n");
		$FX_Index++;
	}
 
	$Selected_Index++;
}