#
# GetTrackEnvelope.pl
#
 
use strict;
use warnings;
 
use Win32::Clipboard;
my $Clipboard = Win32::Clipboard();
 
# MediaTrack* GetSelectedTrack(ReaProject* proj, int seltrackidx)
# TrackEnvelope* GetTrackEnvelope(MediaTrack* track, int envidx)
# bool GetSetEnvelopeState(TrackEnvelope* env, char* str, int maxlen)
 
use constant CURR_PROJ => 0;
use constant FIRST => 0;
use constant MAX_LEN => (16 * 1024);
 
my $tr;
my $te;
my $result;
my $chunk;
 
$tr = RPR_GetSelectedTrack(CURR_PROJ, FIRST);
unless($tr){
    $Clipboard -> Set("GetSelectedTrack() failed.");
    exit;
}
$te = RPR_GetTrackEnvelope($tr, FIRST);unless($te){
    $Clipboard -> Set("GetTrackEnvelope() failed.");
    exit;
}
($result, undef, $chunk, undef) = RPR_GetSetEnvelopeState($te, "", MAX_LEN);
unless($te){
    $Clipboard -> Set("GetSetEnvelopeState() failed.");
    exit;
} else {
    $Clipboard -> Set($chunk);
}