X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=wheel%2Fwheel.pl;h=a4c05c3139538f4052d049033dd117f8624c5f97;hb=7f0e0f620a63a1868b41d70aaad8a98138cf075d;hp=61655cf228f60c77a1536c001ef4a74d73c671ad;hpb=d0784343fb47b4065b089a231c85962041be2585;p=wheel.git diff --git a/wheel/wheel.pl b/wheel/wheel.pl index 61655cf..a4c05c3 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.3 2004-10-21 22:32:38 don Exp $; # Intial Released Version 0.10 # p01: Fixing displayed angle @@ -366,10 +366,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', @@ -527,6 +523,21 @@ else { if (defined $q->param('submit') and $q->param('submit')=~/Submit/) { print $q->h1('Wheel:'.$q->param('sequence')); print $q->img({-src=>$q->self_url.'&draw=yes'}); + + print <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.) +OUT + } print $q->h1('Helical Wheel Projections'), $q->start_form(-method=>'GET'),