#!/usr/local/bin/perl
#
# makepath.perl : make CAMM-3 data from cutter path
#

require "getopts.pl";

$#="%6.0f";

$opt_z="0:-7:-14";
$opt_v="1";
$opt_d="0.2";

&Getopts('z:v:d:');

if($opt_h){
    print <<EOF;
usage:
  makepath [-h] [-z UP:STEP:DOWN] [-v SPD] [-d SPD] [FILE]
  Read cutter path from FILE and produce CAMM-3 data to STDOUT.
  -h : print this help
  -z UP:STEP:DOWN : specifies z coord of pen up/down
  -v SPD : specifies velocity of cutting speed (default is 1 (mm/s))
  -d SPD : specifies velocity of pen down (default is 0.2 (mm/s))

  Coordinate unit is measured by 10 micrometer.

  Cutter path file must be
  X11,Y11,X12,Y12,X13,Y13,X14,Y14..
  X21,Y21,X22,Y22..
   One continuous path must be written in one line
EOF
    exit;
}

($zu,$zs,$zd)=split(/:/,$opt_z);

@dd=();				# DATA ( X,Y,N ) unit is um
while(<>){
    chop($_);
    if(/^[0-9.\-]/){
	push(@dd,$_);
    }
}

print "!1;v$opt_d;f$opt_v;\n";
for($z=$zu;$z>=$zd-$zs;$z+=$zs){
    &prt($z);
}
&prt($zd);
print "m;!0;\n";

sub prt{
    local($z)=@_;

    print "\@$z,100;";
    foreach (@dd){
	/^([0-9.\-]+\,[0-9.\-]+)/;
	print "m$1;d$_;m;\n";
    }
}