[Bioperl-l] Helical Wheel module

[Tim Nugent]

Hi everyone,

I've been drawing a lot of helical wheels recently so put all my code 
into a module. I don't think there's anything in bioperl to do this yet 
though there are a few programs written in perl and flash on the web to 
do the same thing. I was thinking this could fit into biographics. Has 
lots of options to adjust labels, colours, ttf fonts and can output to 
png & svg.

Tim

...

Here's the output, converted to jpg from svg:
http://www.cs.ucl.ac.uk/staff/T.Nugent/images/2A79_B_helices.jpg

Module:
http://www.cs.ucl.ac.uk/staff/T.Nugent/downloads/DrawHelicalWheel.tar.gz

Works like this:

use DrawHelicalWheel;

my $im = DrawHelicalWheel->new(-title=>$title,
                               -sequence=>$sequence,
                               -helices=>\@helices,
                               -ttf_font=>$font);
open(OUTPUT, ">$svg");
binmode OUTPUT;
print OUTPUT $im->svg;
close OUTPUT;

-- 
Tim Nugent (MRes)
Research Student
Bioinformatics Unit
Department of Computer Science
University College London
Gower Street
London WC1E 6BT
Tel: 020-7679-0410
t.nugent at ucl.ac.uk
http://www.cs.ucl.ac.uk/staff/T.Nugent