<pre>
#
# Track properties - Show state info.pl
#
 
use strict;
use warnings;
 
use constant CURR_PROJ => 0;
 
my $Track_ID;
my $Flags;
 
my $Name;
my $Selected;
my $Folder;
my $Mute;
my $Solo;
my $FX;
my $Arm;
 
my $Summary;
 
# Get track count
my $Track_Count = RPR_CountTracks(CURR_PROJ);
my $Track_Index = 0;
 
while ($Track_Index < $Track_Count) {
	# Get track ID for current index
	$Track_ID = RPR_GetTrack(CURR_PROJ, $Track_Index);
 
	# Get current track name and flags
	($Name, $Track_ID, $Flags) = RPR_GetTrackState($Track_ID, 0);
 
	# Check selection status
	if ($Flags & 2) {
		$Selected = 'Yes';
	} else {
		$Selected = 'No';
	}
 
	# Check folder status
	if ($Flags & 1) {
		$Folder = 'Yes';
	} else {
		$Folder = 'No';
	}
 
	# Check mute status
	if ($Flags & 8) {
		$Mute = 'Yes';
	} else {
		$Mute = 'No';
	}
 
	# Check solo status
	if ($Flags & 16) {
		# Check solo mode
		if ($Flags & 32) {
			$Solo = 'Yes (in place)';
		} else {
			$Solo = 'Yes (ignore routing)';
		}
	} else {
		$Solo = 'No';
	}
 
	# Check effects status
	if ($Flags & 4) {
		$FX = 'Enabled';
	} else {
		$FX = 'Disabled';
	}
 
	# Check arm status
	if ($Flags & 64) {
		$Arm = 'Yes';
	} else {
		$Arm = 'No';
	}
 
	# Create track summary string
	$Summary = "Name:\t$Name\n"
	         . "Selected:\t$Selected\n"
	         . "Folder:\t$Folder\n"
	         . "Arm:\t$Arm\n"
	         . "Mute:\t$Mute\n"
	         . "Solo:\t$Solo\n"
	         . "FX:\t$FX\n";
 
	# Show summary in message box
	RPR_ShowMessageBox($Summary, "Track $Track_Index", 0);
 
	$Track_Index++;
}