File Coverage

blib/lib/Graph/Writer/DrGeo.pm

Criterion	Covered	Total	%
statement	7	9	77.7
branch			n/a
condition			n/a
subroutine	3	3	100.0
pod			n/a
total	10	12	83.3

package Graph::Writer::DrGeo;
use strict;
use warnings;
use Graph::Writer;
use vars qw(@ISA $VERSION);
@ISA = qw(Graph::Writer);

use Math::Trig qw(:radial deg2rad pi);

$VERSION = '0.01';

my $layout = 'circle';

sub _write_graph {
  my ($self,$graph,$FILE) = @_;
  my @V = $graph->vertices_unsorted;
  my $out = "(new-figure \"Graph\")\n";
  for my $i (0..$#V) {
    my ($x,$y) = calc_circle_dot_position($i,scalar(@V));
    $out .= qq{(lets Point "$V[$i]" free  $x  $y)\n};
  }

  my @E = $graph->edges;
  for my $i (0..@E/2) {
    my $V1 = @E[2*$i] || last;
    my $V2 = @E[2*$i + 1] || last;
    $out .= qq{(Segment "" extremities $V1 $V2)\n};
  }
  print $FILE $out;
}

sub calc_circle_dot_position {
  my ($n,$ndots) = @_;
  # 3 is just a random estimation, should have a better guess.
  my $rho = $ndots/3;
  my ($x,$y) = raid2cart($rho,deg2rad(360*$n/$ndots));
  return ($x,$y);
}

sub raid2cart {
  my ($rho,$theta) = @_;
  my ($x,$y) = spherical_to_cartesian($rho,$theta,pi/2);
  return ($x,$y);
}


1;

__END__