#FortMyrmidon Set Ant orientation manually

user_defined_ant_pose.R

e <- fmExperimentOpen("file.myrmidon")

ts <- fmQueryComputeTagStatistics()

for ( i in seq(1,length(ts))) {
  # optionnaly maybe skip the tag with some criterion
  if ( ts[i]$Count < 42 ) {
    next;
  }
  a <- e$createAnt();
  e$addIdentification(a$antID(),ts[i]$TagID,fmTimeInf(),fmTimeInf())
}

# now you would certainly use fmQueryComputeAntTrajectory and some heuristics to compute the pose you want
ants <- e$ants()
for ( i in seq(1,length(ants)) ) {
  a <- ants[i];
  a$identifications()[1]$setUserAntDefinedAntPose(c(x,y),angle);
}