#!/usr/bin/perl -w

# Usage:	add_jpeg_views_html YBL016W >> summary.html
#
#	Adds YBL016W.view1_200.jpg,  YBL016W.view2_200.jpg,  YBL016W.view3_200.jpg
#	as front, top, and side views of the protein model.
#	Also adds links for  YBL016W.view1_500.jpg,  YBL016W.view2_500.jpg,  YBL016W.view3_500.jpg

# If the argument is omitted, use the name of the current directory.


use Getopt::Long;

my $dir = `pwd`;
chomp($dir);
$dir =~ /.*\/(.*?)$/;
my $basename= $1;

my $caption="Images of the first model, created by sidechain replacement\n"
	. "on the backbone of the template in the first alignment.\n";

my $color_script="the dssp rasmol script";

GetOptions( "basename=s" => \$basename
	  , "caption=s" => \$caption
	  , "color_script=s" => \$color_script
	  );

if (scalar(@ARGV)>0) {$basename= $ARGV[0];}
$color_script = "$basename.t2k.dssp-color.rasmol" if (!defined($color_script));

my $low_res=200;
my $hi_res=500;

print "<P>\n$caption\n";

print "<P>Coloring is defined by $color_script,\n";
print "to show predicted secondary structure (red for helix, yellow\n";
print "for strand, blue for turn, grey for other).\n";
print "<P>\n";

print "<TABLE>\n";
print "<TR><TD ALIGN=\"center\">Front</TD>\n";
print "    <TD ALIGN=\"center\">Top</TD>\n";
print "    <TD ALIGN=\"center\">Side</TD>\n";
print "</TR>\n";

print "<TR><TD ALIGN=\"center\"><img src=\"$basename.view1_$low_res.jpg\"></TD>\n";
print "    <TD ALIGN=\"center\"><img src=\"$basename.view2_$low_res.jpg\"></TD>\n";
print "    <TD ALIGN=\"center\"><img src=\"$basename.view3_$low_res.jpg\"></TD>\n";
print "</TR>\n";

print "<TR><TD ALIGN=\"center\"><A HREF=\"$basename.view1_$hi_res.jpg\">500x500</A></TD>\n";
print "    <TD ALIGN=\"center\"><A HREF=\"$basename.view2_$hi_res.jpg\">500x500</A></TD>\n";
print "    <TD ALIGN=\"center\"><A HREF=\"$basename.view3_$hi_res.jpg\">500x500</A></TD>\n";
print "</TR>\n";


print "</TABLE>\n";