#!/usr/bin/perl
#
#   adjust-offset
#
#   make manual changes to a dewar offset file
#
#  Version: 7 Feb 04

$file=shift;
$dx=$dy=$dtheta=0;
$dscl=1.;
$narg=@ARGV;
if($narg<2){
  print "Usage: adjust-offset dewoff_file deltax deltay [delta theta][scale]]\n";
  exit();}
while(1){
    $dx=shift;
    $dy=shift;
    if($narg==2){last;}
    $dtheta=shift;
    if($narg==3){last;}
    $dscl=shift;
    last;}
if($dscl<.3){
    $dscl+=1.;
    print "\nI assume you MEANT to specify scale factor = $dscl\n";}

$filename=$file.".dewoff";
die("\ncannot find $filename") if(!(-e $filename));
$command="mv $filename $filename";
$command.="%";
system $command;
open(OUT,">$filename");
$filename.="%";
open(IN,"$filename");
for($i=0;$i<3;$i++){
    $_=<IN>;
    printf OUT "%s",$_;}
$_=<IN>;
chop;
($th,$sc,$delx,$dely,$ypar)=split;
if($ypar==0){$ypar=1;}
$delx-=$dx*0.015;
$dely-=$dy*0.015;
$th+=$ypar*$dtheta;
$sc*=$dscl;
printf OUT "%8.3f %7.5f %7.3f %7.3f %d\n",$th,$sc,$delx,$dely,$ypar;
