|
|
@ -38,7 +38,6 @@ sub make_region($this, $name, %defaults) |
|
|
|
|
|
|
|
|
|
|
|
sub get_tile_at($this, $nw, $sw) |
|
|
|
sub get_tile_at($this, $nw, $sw) |
|
|
|
{ |
|
|
|
{ |
|
|
|
# return $this->{tiles}{$nw}{$sw} if exists $this->{tiles}{$nw}{$sw}; |
|
|
|
|
|
|
|
foreach my $region (keys $this->{regions}->%*) |
|
|
|
foreach my $region (keys $this->{regions}->%*) |
|
|
|
{ |
|
|
|
{ |
|
|
|
return $this->{regions}{$region}{tiles}{$nw}{$sw} if exists $this->{regions}{$region}{tiles}{$nw}{$sw}; |
|
|
|
return $this->{regions}{$region}{tiles}{$nw}{$sw} if exists $this->{regions}{$region}{tiles}{$nw}{$sw}; |
|
|
@ -78,8 +77,6 @@ sub render($this) |
|
|
|
$svg->{-docref}{-document}{id}='grid-root'; |
|
|
|
$svg->{-docref}{-document}{id}='grid-root'; |
|
|
|
$svg->{-docref}{-document}{version}='1.2'; |
|
|
|
$svg->{-docref}{-document}{version}='1.2'; |
|
|
|
|
|
|
|
|
|
|
|
# $svg->tag('textArea', width => "300", height => "300")->cdata("this is sum text like a bunch."); |
|
|
|
|
|
|
|
# $svg->foreignObject(width => "300", height => "300")->tag('div', xmlns => "http://www.w3.org/1999/xhtml")->cdata('foo'); |
|
|
|
|
|
|
|
return $svg->xmlify; |
|
|
|
return $svg->xmlify; |
|
|
|
} |
|
|
|
} |
|
|
|
|
|
|
|
|
|
|
|