#!/usr/bin/perl
use Time::HiRes qw(time sleep);
do 'dim.pl';
dim('iw',21);
foreach $l (r1,r2,r3,r4) { action($l) }

$start = time;
$t = 0;
$hitime = 1.5;
$endtime = 4;
$hival = 90;
$endval = 20;
while($t<$endtime+5) {
    $t = time-$start;
    $goal = $t/$hitime*$hival if $t < $hitime;
    $goal = $hival - ($hival-$endval)*($t-$hitime)/($endtime-$hitime) if 
        $t >= $hitime && $t < $endtime;
    $goal = $endval if $t >= $endtime;
    $r[3] += ($goal-$r[3])*.2;
#    $r[3] = 80+0*sin($t*(rand()*4+3));
#    if( $t<3 ) { $r[3]*=$t/3 }
    for( 0..2 ) {
        $r[$_] += ($r[$_+1]-$r[$_])*.1;
    }
    dim(iw,21*(4-$t)/4) if $t < 4;
    #print int($t)," ",int($r[0])," ",int($r[1])," ",int($r[2])," ",int($r[3]),"\n";
#select(undef,undef,undef,.2);
    dim(r1, $r[0]);
    dim(r2, $r[1]);
    dim(r3, $r[2]);
    dim(r4, $r[3]);
}