#!/usr/bin/perl
use rIML;
$|=1;

print <<E1;
<iml title="Cube Rotation">
<box name="b1" type="canvas" coords="0,0,240,200" background="gray"/>
<box name="b2" type="text" coords="0,200,240,270"/>
<page title="Cube Rotation">
<canvas box="b1">
E1

for ($i=1;$i<=12;$i++) {        
  print "<draw id=\"l$i\" type=\"line\" width=\"4\"/>";             
}

print <<E2;
</canvas>
<text id="t1" box="b2" align="center">
<b>Increment </b>
<input id = "angle" type="text" var="incr" value="15"/> <br/> <br/>
<input id="left" type="button" label=" + " channel="\$control,\$incr" var="control" value="-1" background="gray"/>
<input id="right" type="button" label=" - " channel="\$control,\$incr" var="control" value="1" background="gray"/>
</text>
</page>
E2

$cx=120;
$cy=140;
$y2=0.0;
$a = 15;
$radiusx = 100;
$radiusy = 30;
$turn=1;

while(1){

		
	for ($ang = 0,$count=1; $ang < 360;$ang += 90,$count++) 
	{
		$angle = (($a + $ang) * 3.14157 )/180;
		$x1 = ($radiusx * sin($angle)) + $cx;
		$y1 = ($radiusy * cos($angle)) + $cy;
	
		$x3 = $x1;
		$y3 = $y1 - 90;

		$angle = (($a + 90 + $ang) * 3.14157)/180;

		$x2 = ($radiusx * sin($angle)) + $cx;
		$y2 = ($radiusy * cos($angle)) + $cy;

		$x4 = $x2;
		$y4 = $y2 - 90;

		print "<update tagid=\"l$count\" coords=\"$x1,$y1,$x2,$y2\"/>\n";
		$temp = $count + 4;
		print "<update tagid=\"l$temp\" coords=\"$x1,$y1,$x3,$y3\"/>\n";
		$temp = $count + 8;
		print "<update tagid=\"l$temp\" coords=\"$x3,$y3,$x4,$y4\"/>\n";
		

	}
	print "<turn/>";
	$hash=rIML->read();
	if(!$hash){
		print STDERR "Empty@\n";
	        exit
	}
	$direction = $hash->{control};
	
	$a += $direction * $hash->{incr};

}