# *** not tested
 
# ------------------------------------------------------------------------
# DeleteProjectMarker.pl
#
# syntax:
# bool DeleteProjectMarker(void* proj, int markrgnindexnumber, bool isrgn)
# returns array:
# (bool, void* proj, int markrgnindexnumber, bool isrgn)
# ------------------------------------------------------------------------
 
use strict;
use warnings;
 
my $CURR_PROJ = 0;
my $pos;
my $isrgn;
my $rgnend;
my $name;
my $wantidx;
 
my @result;
my @retval;
 
# add region
$pos =  1;
$isrgn = 1; # is region
$rgnend = 3;
$name = "first region";
$wantidx = 1; # id is here
@retval = RPR_AddProjectMarker($CURR_PROJ, $isrgn, $pos, $rgnend, $name, $wantidx);
 
# delete region
@result = RPR_DeleteProjectMarker($CURR_PROJ, $wantidx, 1);
if (@result[0]){
  RPR_ShowConsoleMsg("region deleted");
}else{
  RPR_ShowConsoleMsg("region not deleted");
};
RPR_ShowConsoleMsg("\n");
 
# add marker
$pos =  5;
$isrgn = 0; # not a region
$rgnend = 8;
$name = "a marker";
$wantidx = 2; # id is here
@retval = RPR_AddProjectMarker($CURR_PROJ, $isrgn, $pos, $rgnend, $name, $wantidx);
 
# delete marker
@result = RPR_DeleteProjectMarker($CURR_PROJ, $wantidx, 0);
if (@result[0]) {
  RPR_ShowConsoleMsg("region deleted");
}else{
  RPR_ShowConsoleMsg("region not deleted");
};
RPR_ShowConsoleMsg("\n");