###########################################################
## 入力ファイルを 4分割割付する
##                   Last Change: 2020-07-14 火 17:33:00.
###########################################################

use PDF::API2;

my ($in_file, $out_file) = ($ARGV[0], $ARGV[1]);
if ($in_file eq '' || $out_file eq '') {
	print "bad arguments.\n";
	exit;
}

# ページごとに分割
my $p1_pdf = PDF::API2->new();
my $p2_pdf = PDF::API2->new();
my $p3_pdf = PDF::API2->new();
my $p4_pdf = PDF::API2->new();

my $in_pdf = PDF::API2->open($in_file);
my ($n1, $n2, $n3, $n4);
for my $p (1..$in_pdf->pages) {
	if ($p % 4 == 1) {
		$p1_pdf->import_page($in_pdf, $p);
		$n1++;
		next;
	}
	if ($p % 4 == 2) {
		my $page = $p2_pdf->import_page($in_pdf, $p);
		$page->rotate(180);
		$n2++;
		next;
	}
	if ($p % 4 == 3) {
		$p3_pdf->import_page($in_pdf, $p);
		$n3++;
		next;
	}
	my $page = $p4_pdf->import_page($in_pdf, $p);
	$page->rotate(180);
	$n4++;
}
if ($n1 > $n2) {
	my $page = $p2_pdf->page();
	$page->mediabox('B5');
}
if ($n1 > $n3) {
	my $page = $p3_pdf->page();
	$page->mediabox('B5');
}
if ($n1 > $n4) {
	my $page = $p4_pdf->page();
	$page->mediabox('B5');
}
$p1_pdf->saveas('p1.pdf');
$p2_pdf->saveas('p2.pdf');
$p3_pdf->saveas('p3.pdf');
$p4_pdf->saveas('p4.pdf');
$p1_pdf->end;
$p2_pdf->end;
$p3_pdf->end;
$p4_pdf->end;

# 移動
$p2_pdf = PDF::API2->open('p2.pdf');
my $p2m_pdf = PDF::API2->new();
for my $p (1..$p2_pdf->pages) {
	my $page = $p2m_pdf->page();
	$page->mediabox('B5');
	my $gfx = $page->gfx();
	my $xo = $p2m_pdf->importPageIntoForm($p2_pdf, $p);
	$gfx->formimage($xo, -230, 200, 1.0);
}
$p2m_pdf->saveas('p2m.pdf');
$p2m_pdf->end;

$p4_pdf = PDF::API2->open('p4.pdf');
my $p4m_pdf = PDF::API2->new();
for my $p (1..$p4_pdf->pages) {
	my $page = $p4m_pdf->page();
	$page->mediabox('B5');
	my $gfx = $page->gfx();
	my $xo = $p4m_pdf->importPageIntoForm($p4_pdf, $p);
	$gfx->formimage($xo, -230, 200, 1.0);
}
$p4m_pdf->saveas('p4m.pdf');
$p4m_pdf->end;

# 割付
my $new_pdf = PDF::API2->new();
$p1_pdf  = PDF::API2->open('p1.pdf');
$p2m_pdf = PDF::API2->open('p2m.pdf');
$p3_pdf  = PDF::API2->open('p3.pdf');
$p4m_pdf = PDF::API2->open('p4m.pdf');
my $zoom = 0.82;
for my $p (1..$p1_pdf->pages) {
	$page = $new_pdf->page();
	$page->mediabox('B5');

	my $gfx = $page->gfx();
	my $xo1 = $new_pdf->importPageIntoForm($p1_pdf, $p);
	$gfx->formimage($xo1, -20, 20, $zoom);

	my $xo2 = $new_pdf->importPageIntoForm($p2m_pdf, $p);
	$gfx->formimage($xo2, -20, -170, $zoom);

	my $xo3 = $new_pdf->importPageIntoForm($p3_pdf, $p);
	$gfx->formimage($xo3, 230, 20, $zoom);

	my $xo4 = $new_pdf->importPageIntoForm($p4m_pdf, $p);
	$gfx->formimage($xo4, 230, -170, $zoom);
}
$new_pdf->saveas($out_file);
$new_pdf->end;
$p1_pdf->end;
$p2m_pdf->end;
$p3_pdf->end;
$p4m_pdf->end;

# 掃除
unlink 'p1.pdf';
unlink 'p2.pdf';
unlink 'p3.pdf';
unlink 'p4.pdf';
unlink 'p2m.pdf';
unlink 'p4m.pdf';