#!/usr/bin/perl -w 


@dir = qw(hs1A_50
hs1B_51
hs1C_52
hs1D_53);

@info = qw(wt+DMSO 
wt+pB
y2h2+DMSO
y2h2+pB);


@files = qw(
YAL003W.pdf
YBL040C.pdf
YBL050W.pdf
YBL087C.pdf
YBR078W.pdf
YBR082C.pdf
YBR189W.pdf
YCR028C-A.pdf
YDL012C.pdf
YDL029W.pdf
YDL064W.pdf
YDL125C.pdf
YDL130W.pdf
YDL136W.pdf
YDL191W.pdf
YDL219W.pdf
YDR005C.pdf
YDR025W.pdf
YDR059C.pdf
YDR064W.pdf
YDR092W.pdf
YDR129C.pdf
YDR139C.pdf
YDR381W.pdf
YER003C.pdf
YER093C-A.pdf
YER133W.pdf
YFL039C.pdf
YFR031C-A.pdf
YGL030W.pdf
YGL137W.pdf
YGR183C.pdf
YGR214W.pdf
YHR001W-A.pdf
YHR021C.pdf
YHR077C.pdf
YHR101C.pdf
YJL001W.pdf
YJL041W.pdf
YJL191W.pdf
YKR095W-A.pdf
YLR093C.pdf
YML056C.pdf
YMR033W.pdf
YMR079W.pdf
YMR194C-B.pdf
YMR225C.pdf
YMR242C.pdf
YNL112W.pdf
YNL265C.pdf
YNL312W.pdf
YNR053C.pdf
YPL081W.pdf
YPL218W.pdf
YPR028W.pdf
YPR063C.pdf
YPR187W.pdf);


foreach $f (@files){
#system("montage $dir[0]/$f $dir[1]/$f $dir[2]/$f $dir[3]/$f panels/$f ");

system("convert $dir[0]/$f -pointsize 36 -background Orange label:'$dir[0] $info[0]' -gravity Center -append -flatten -sharpen 0x1.0 -quality 100 -size 1800x800 a.jpg");
system("convert $dir[1]/$f -pointsize 36 -background Red label:'$dir[1] $info[1]' -gravity Center -append -flatten -sharpen 0x1.0 -quality 100 -size 1800x800 b.jpg");
system("convert $dir[2]/$f -pointsize 36 -background Green label:'$dir[2] $info[2]' -gravity Center -append -flatten -sharpen 0x1.0 -quality 100 -size 1800x800 c.jpg");
system("convert $dir[3]/$f -pointsize 36 -background Blue label:'$dir[3] $info[3]' -gravity Center -append -flatten -sharpen 0x1.0 -quality 100 -size 1800x800 d.jpg");
system("montage -geometry 1200x1200 a.jpg b.jpg c.jpg d.jpg  panels/$f.jpg ");
#exit;
}