# Test - Track FX Get Num Params.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;
my $FX_Param_Count;
 
# 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 FX count for current track
	RPR_ShowConsoleMsg("Track $Track_Index\n\tFX: $Track_FX_Count\n");
 
	# Get name and parameter count for each effect
	$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);
		# Get number of FX parameter
		$FX_Param_Count = RPR_TrackFX_GetNumParams($Track_ID, $FX_Index);
		# Show summary
		RPR_ShowConsoleMsg("Effect " . ($FX_Index + 1) . ":\n\tName: $FX_Name\n\tParameters: $FX_Param_Count\n");
		$FX_Index++;
	}
 
	$Selected_Index++;
}