#!/usr/bin/perl
#
#calculate phase increments for non-standard steps (ie neq 0,1,2,3)
# spc7 would look something like below:
$steps = 7;
#$res = 65536;
$res = 360;
$ph_shift = 0;

for($i = 0; $i < $steps; $i = $i + 1){

      $cur = $res*$i/$steps;
      $cur = $cur + ($ph_shift/360)*$res;
      #printf"  %3.1f   %4.0f \n",$i,$cur;
      if ($cur > $res){$fin = $cur - $res}
      else {$fin = $cur}
      printf"%4.0f ", $fin;
      }
      printf"\n";