|
|
@ -79,9 +79,7 @@ sub render($this, $grid, $svg) |
|
|
|
my ($qx,$qy) = $grid->coords_of_centre($current_tile->nw, $current_tile->sw); |
|
|
|
my ($qx,$qy) = $grid->coords_of_centre($current_tile->nw, $current_tile->sw); |
|
|
|
($x2,$y2) = $grid->coords_of_edge($current_tile->nw, $current_tile->sw, $next_edge); |
|
|
|
($x2,$y2) = $grid->coords_of_edge($current_tile->nw, $current_tile->sw, $next_edge); |
|
|
|
|
|
|
|
|
|
|
|
# TODO: Draw curve from $current_tile:$previous_edge to $current_tile:$next_edge |
|
|
|
$g->path(d => curve_path($x1,$y1, $qx,$qy, $x2,$y2), fill => 'transparent', |
|
|
|
# with $current_tile centre as the control point |
|
|
|
|
|
|
|
$g->path(d => curve_path($x1,$y1, $qx,$qy, $x2,$y2), |
|
|
|
|
|
|
|
stroke => $this->colour, style => $this->style, class => $this->css_class |
|
|
|
stroke => $this->colour, style => $this->style, class => $this->css_class |
|
|
|
); |
|
|
|
); |
|
|
|
|
|
|
|
|
|
|
|