+ fill => $line == 2 && [
+ map { "\n\tM " . join "\tL ", map sprintf("%s %s\n",
+ $area{fieldxmin} + $_->[0] * $norm[4],
+ $area{fieldymax} - $_->[1] * $norm[$line+1]
+ ), grep defined, @{$lines[$line][$_]}, reverse @{$lines[$line+1][$_]} } 0 .. $#{$lines[$line]}
+ ],