#!/usr/bin/env perl
use warnings;
use strict;

#FUN_00a7380a


my $style='style="stroke:red;stroke-width:2"';


sub atos($)
{
my $a=shift;
my $c="black";
$a=int($a) & 0xff;
if ($a==0xfe) {
	$c="white";
} elsif ($a==0x01) {
	$c="white";
} elsif ($a==0x02) {
	$c="yellow";
} elsif ($a==0x04) {
	$c="blue";
} elsif ($a==0x08) {
	$c="green";
} elsif ($a==0x10) {
	$c="orange";
} elsif ($a==0x20) {
	$c="cyan";
} elsif ($a==0x40) {
	$c="red";
} elsif ($a==0x80) {
	$c="magenta";
}

return 'style="stroke:'.$c.';stroke-width:2;fill:'.$c.'"';

}


sub draw_horiz_line
{
my ($a,$y,$x1,$x2,$b,$c)=@_;


print '<line x1="',int($x1),'" y1="',int($y),'" x2="',int($x2),'" y2="',int($y),'" ',atos($a),'/>';
print "\n";
}


sub draw_vert_line
{
my ($a,$x,$y1,$y2,$b,$c)=@_;

print '<line x1="',int($x),'" y1="',int($y1),'" x2="',int($x),'" y2="',int($y2),'" ',atos($a),'/>';
print "\n";
}

sub draw_box
{
my ($a,$y2,$x2,$y1,$x1,$b,$c)=@_;
print '<rect x="',int($x1),'" y="',int($y1),'" width="',int($x2-$x1),'" height="',int($y2-$y1),'" ',atos($a),'/>';
print "\n";
}

sub write_text
{
}

sub meh
{
my($a,$x,$y,$b,$c)=@_;

print '<circle cx="',int($x),'" cy="',int($y),'" r="1" style="fill:red"/>';
print "\n";

}



print '<svg height="384" width="641" style="background:black" xmlns="http://www.w3.org/2000/svg">';

my $p1=50;
my $p2=40;

  draw_horiz_line(0xfe,$p1-3,0x1fb,0x203,$p2,0);
  draw_horiz_line(0xfe,$p1-3,0x276,0x27c,$p2,0);
  draw_horiz_line(0xfe,$p1+32,0x1fb,0x203,$p2,0);
  draw_horiz_line(0xfe,$p1+32,0x276,0x27c,$p2,0);

meh(0xfe,0x1fa,$p1-2,$p2,0);
meh(0xfe,0x27f,$p1-2,$p2,0);
meh(0xfe,0x280,$p1-1,$p2,0);
meh(0xfe,0x1f9,$p1-1,$p2,0);

meh(0xfe,0x1fa,$p1+0x1f,$p2,0);
meh(0xfe,0x27f,$p1+0x1f,$p2,0);
meh(0xfe,0x280,$p1+0x1e,$p2,0);
meh(0xfe,0x1f9,$p1+0x1e,$p2,0);

draw_vert_line(0xfe,0x1f8,$p1,$p1+0x1d,$p2,0);
draw_vert_line(0xfe,0x281,$p1,$p1+0x1d,$p2,0);



#  draw_horiz_line(0xfe,0x17f,0,0x27f,0x11,0);
#  draw_vert_line(0xfe,0,0,0x17f,0x11,0);
#  draw_vert_line(0xfe,0x27f,0,0x17f,0x11,0);
#  draw_vert_line(0xfe,0x57,0,0x50,0x11,0);
#  draw_vert_line(0xfe,0x22c,0,0x50,0x11,0);
#  draw_vert_line(0xfe,0x57,0x12f,0x17f,0x11,0);
#  draw_vert_line(0xfe,0x22c,0x12f,0x17f,0x11,0);
#  draw_horiz_line(0xfe,0x50,0,0x57,0x11,0);
#  draw_horiz_line(0xfe,0x12f,0,0x57,0x11,0);
#  draw_horiz_line(0xfe,0x50,0x22c,0x27f,0x11,0);
#  draw_horiz_line(0xfe,0x12f,0x22c,0x27f,0x11,0);
#  draw_box(0xff01,0xfe,0x128,0x82,0x92);
#  draw_box(0xff02,0xfe,0x1f1,0x82,0x15b);
#  draw_box(0xff01,0x122,0xc0,0x10e,0xac);
#  draw_box(0xff02,0x122,0xe8,0x10e,0xd4);
#  draw_box(0xff04,0x122,0x110,0x10e,0xfc);
#  draw_box(0xff08,0x122,0x138,0x10e,0x124);
#  draw_box(0xff10,0x122,0x160,0x10e,0x14c);
#  draw_box(0xff20,0x122,0x188,0x10e,0x174);
#  draw_box(0xff40,0x122,0x1b0,0x10e,0x19c);
#  draw_box(0xff80,0x122,0x1d8,0x10e,0x1c4);
#  draw_box(0xff01,0x71,0xc0,0x5d,0xac);
#  draw_box(0xff02,0x71,0xe8,0x5d,0xd4);
#  draw_box(0xff04,0x71,0x110,0x5d,0xfc);
#  draw_box(0xff08,0x71,0x138,0x5d,0x124);
#  draw_box(0xff10,0x71,0x160,0x5d,0x14c);
#  draw_box(0xff20,0x71,0x188,0x5d,0x174);
#  draw_box(0xff40,0x71,0x1b0,0x5d,0x19c);
#  draw_box(0xff80,0x71,0x1d8,0x5d,0x1c4);
#  write_text(0xfe,0xed,0x1e,"gys358aenrmxzcoftkh#%",1,1,0);
#  write_text(0xfe,0xed,0x32,"gys358aenrmxzcoftkh#%",0,1,0);
#  write_text(0xfe,0xed,0x140,"gys358aenrmxzcoftkh#%",1,1,0);
#  write_text(0xfe,0xed,0x154,"gys358aenrmxzcoftkh#%",0,1,0);
#  write_text(0xfe,0x1f2,0x5f,"any softkey exits",1,0,0);
print '</svg>';