X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=wheel%2Fwheel.pl;h=3facfe94cdde22e7d95d44e4218383beecb6371c;hb=0d6f3892ec8a9ad40d00b6aa4fd9e233a6898e32;hp=61655cf228f60c77a1536c001ef4a74d73c671ad;hpb=d0784343fb47b4065b089a231c85962041be2585;p=wheel.git

diff --git a/wheel/wheel.pl b/wheel/wheel.pl
index 61655cf..3facfe9 100755
--- a/wheel/wheel.pl
+++ b/wheel/wheel.pl
@@ -20,7 +20,7 @@
 
 
 
-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
@@ -39,6 +39,8 @@ use GD;
 use GD::Text::Align;
 use POSIX;
 
+use HTML::Entities qw(encode_entities);
+
 
 sub round($) {
   my ($a) = @_;
@@ -366,10 +368,6 @@ if (defined $q->param('draw') and $q->param('draw')=~/yes/) {
 		      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',
@@ -525,8 +523,23 @@ else {
   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'),