#!/usr/bin/perl
use POSIX;
#:::args:::

# $num, $width, $delta, $speed

print FHo "(podgotovka-perl.k3math started successfully)\n";

print "(got num=$num, width=$width, delta=$delta, speed=$speed)\n";
print "F$speed\n";
$x=0;

for ($i=0; $i<$num; $i++)
{
 print "G1 X$x Y$width\n";
 $x+=$delta;
 print "G1 X$x Y$width\n";
 print "G1 X$x Y0\n";
 if ($i ne ($num-1)) { $x+=$delta; print "G1 X$x\n"; print "(i=$i)\n";};
}

print "M02\n";