#
# Test - Track FX Get Count.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 $Selected_Index = 0;
 
# Show number of FXs for each selected track
while ($Selected_Index < $Track_Count) {
	# Get selected track pointer
	my $Track_ID = RPR_GetSelectedTrack(CURR_PROJ, $Selected_Index);
 
	# Get selected track index
	my $Track_Index = RPR_GetMediaTrackInfo_Value($Track_ID, "IP_TRACKNUMBER");
 
	# Get selected track index
	my $Track_FX_Count = RPR_TrackFX_GetCount($Track_ID);
 
	# Show summary for current track
	RPR_ShowConsoleMsg("Track: $Track_Index\nFX Count: $Track_FX_Count\n");
 
	$Selected_Index++;
}