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


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
{
}




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


  draw_horiz_line(0xfe,0,0,0x27f,0x11,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>';