SCM Repository
Diff of /webwml/stattrans.pl
Parent Directory
| 
Revision Log
| 
Patch
| revision 1.16, Fri Jul 20 14:07:42 2001 UTC | revision 1.17, Fri Jul 20 15:28:44 2001 UTC | |
|---|---|---|
| # | Line 163 | Line 163 |
| 163 | { | { |
| 164 | my $percent = shift; | my $percent = shift; |
| 165 | ||
| 166 | if ((255 - ($percent * (255/75))) < 0) { | if ($percent < 50) { |
| 167 | return sprintf ("#%02x%02x00", 255 - ($percent * (255/100)), $percent * (255/100)); | return sprintf ("#FF%02x00", (255/50) * $percent); |
| 168 | } else { | } else { |
| 169 | return sprintf ("#%02x%02x00", 255 - ($percent * (255/75)), $percent * (255/100)); | return sprintf ("#%02xFF00", (255/50) * (100 - $percent)); |
| 170 | } | } |
| 171 | } | } |
| 172 |
|
||||||||
| root@alioth.debian.org | ViewVC Help |
| Powered by ViewVC 1.0.0 |
