-my $VERSION="0.10 p06 12/14/2001 DLA";
+my $VERSION=q$Id: wheel.pl,v 1.4 2009-10-20 21:23:36 don Exp $;
# Intial Released Version 0.10
# p01: Fixing displayed angle
use GD::Text::Align;
use POSIX;
+use HTML::Entities qw(encode_entities);
+
sub round($) {
my ($a) = @_;
abbr=>'asn',
woct=>0.85,
wif=>0.42,
- charged=>1,
- fill=>[187,187,255],
- border=>[187,187,255],
- shape=>'triangle',
},
Q=>{name=>'Glutamine',
abbr=>'gln',
print $q->header();
print $q->start_html('Helical Wheel Projections');
if (defined $q->param('submit') and $q->param('submit')=~/Submit/) {
- print $q->h1('Wheel:'.$q->param('sequence'));
+ print $q->h1('Wheel:'.encode_entities($q->param('sequence')));
print $q->img({-src=>$q->self_url.'&draw=yes'});
+
+ print <<OUT
+<table width="400"><tr><td>By default the output presents the
+hydrophilic residues as circles, hydrophobic residues as diamonds,
+potentially negatively charged as triangles, and potentially
+positively charged as pentagons. Hydrophobicity is color coded as
+well: the most hydrophobic residue is green, and the amount of green
+is decreasing proportionally to the hydrophobicity, with zero
+hydrophobicity coded as yellow. Hydrophilic residues are coded red
+with pure red being the most hydrophilic (uncharged) residue, and the
+amount of red decreasing proportionally to the hydrophilicity. The
+potentially charged residues are light blue. (The color will not apply
+if you turn off color.)</td></tr></table>
+OUT
+
}
print $q->h1('Helical Wheel Projections'),
$q->start_form(-method=>'GET'),