#!/usr/bin/perl -w
use strict;
-our @xm = qw(4.7 6.8 10 15 22 33 47 68 100);
+our @xm = qw(4.7 6.8 8.2 10 12 15 18 22 27 33 47 68 100);
our @ym = qw(3.9 5.6 8.2 12 18 27 39 56);
sub p { print @_ or die $!; }
p " translate(-0.5*p*[1,1]) square([$xm+1,$ym+1]*p);\n";
p " square([$xm,$ym]*p);\n";
p " }\n";
- p " Commitid_BestCount_2D([$xm,$ym] * p);\n";
+ p " Commitid_BestCount_2D([$xm,$ym] * p, margin=0.2);\n";
p " }\n";
$y += $ym + 2;
}