genome_diversity_paper/extract_figures.pl

   1 #!/usr/bin/env perl
   2
   3 use warnings;
   4 use strict;
   5
   6 my %figures =
   7     (title => ['0','2400x1600+100+100'],
   8      fig1a_1 => ['1','750x1200+60+750'],
   9      fig1a_2 => ['1','750x1200+60+1950'],
  10      fig1b => ['1','1000x500+810+1200'],
  11      fig1c => ['1','1000x500+810+1700'],
  12      fig1d => ['1','1000x500+810+2200'],
  13      fig2a => ['2','1000x750+200+200'],
  14      fig2b => ['2','1000x750+1200+200'],
  15      fig2c => ['2','1000x750+200+950'],
  16      fig2d => ['2','1000x750+1200+950'],
  17      fig2e => ['2','1000x650+200+1650'],
  18      fig2f => ['2','1000x650+1200+1650'],
  19      fig3  => ['3','1200x1050+100+200'],
  20      fig_ed1  => ['6','2400x1200+100+100'],
  21      fig_ed2  => ['7','2400x2400+100+100'],
  22      fig_ed3  => ['8','2400x2400+100+100'],
  23      fig_ed4  => ['9','2400x1700+100+100'],
  24      fig_ed5  => ['10','2400x2400+100+100'],
  25      fig_ed5  => ['11','2400x2400+100+100'],
  26     );
  27
  28 for my $figure (keys %figures) {
  29     print($figure."\n");
  30     system('convert','-density','300',
  31            'paper.pdf['.$figures{$figure}[0].']',
  32            '-crop',$figures{$figure}[1],
  33            $figure.'.png'
  34           )
  35 }