SVG-Graph

 view release on metacpan or  search on metacpan

Graph/Glyph/axis.pm  view on Meta::CPAN

	   #tick label
	   my $x_tick_label = shift @x_tick_labels;
	   my $x = $self->xoffset + $tickpos;
	   my $y = $self->yoffset+$self->ysize - ($self->y_intercept * $yscale)+($self->group->_parent_svg->margin/4);
	   $group->text(
					x=>$x,
					y=>$y,
					transform=>"rotate(90,$x,$y)",
				   )->cdata($x_tick_label);

	   #intertick label
	   my $x_intertick_label = shift @x_intertick_labels;
	   $tickpos = (((2 * $tick) - 1) / 2) * $xscale;
	   $x = $self->xoffset + $tickpos;
	   $group->text(
					x=>$x,
					y=>$y,
					transform=>"rotate(90,$x,$y)",
				   )->cdata($x_intertick_label);

	 }
   } elsif($self->x_fractional_ticks){
	 my $inc = $self->group->xrange / $self->x_fractional_ticks;
	 for(my $tick = $self->group->xmin ; $tick <= $self->group->xmax; $tick += $inc){
	   my $tickpos = ($tick - $self->group->xmin) * $xscale;

	   $group->line(x1=>$self->xoffset+$tickpos,
					y1=>$self->yoffset+$self->ysize - ($self->y_intercept * $yscale),
					x2=>$self->xoffset+$tickpos,

Graph/Glyph/axis.pm  view on Meta::CPAN

	   #tick label
	   my $y_tick_label = shift @y_tick_labels;
#	   my $x = $self->xoffset + $tickpos;
	   my $x = $self->xoffset + ($self->x_intercept * $xscale) - ($self->group->_parent_svg->margin);
#	   my $y = $self->yoffset+$self->ysize+($self->group->_parent_svg->margin/4);
	   my $y = $self->yoffset + $self->ysize - $tickpos;
	   $group->text(
					x=>$x,
					y=>$y,
#					transform=>"rotate(90,$x,$y)",
				   )->cdata($y_tick_label);

	   #intertick label
	   my $y_intertick_label = shift @y_intertick_labels;
	   $tickpos = (((2 * $tick) - 1) / 2) * $xscale;
	   $x = $self->xoffset + $tickpos;
	   $group->text(
					x=>$x,
					y=>$y,
#					transform=>"rotate(90,$x,$y)",
				   )->cdata($y_intertick_label);

	 }
   } elsif($self->y_fractional_ticks){
	 my $inc = $self->group->yrange / $self->y_fractional_ticks;
	 for(my $tick = $self->group->ymin ; $tick <= $self->group->ymax ; $tick += $inc){
	   my $tickpos = ($tick - $self->group->ymin) * $xscale;

	   $group->line(x1=>$self->xoffset + ($self->x_intercept * $xscale),
					y1=>$self->yoffset+$self->ysize-$tickpos,
					x2=>$self->xoffset + ($self->x_intercept * $xscale)-($self->group->_parent_svg->margin/8),

Graph/Glyph/pictogram.pm  view on Meta::CPAN

	if($datum->y > 0){
	  $self->canvas->text(
						  x             => 0,
						  y             => 0,
#						  'transform'   => "scale($xsc,$ysc), translate(". $x1/$xsc .",". $y1/$ysc .")",
						  'transform'   => "scale($xsc,$ysc), translate(". $x1/$xsc .",". 0 .")",
						  'font-size'   => $fontsize,
						  'font-family' => 'Helvetica',
						  'text-anchor' => 'right',
						  'fill'        => $self->color->{$datum->label},
						 )->cdata($datum->label);
	}
  }
}

=head2 color

 Title   : color
 Usage   : $obj->color($newval)
 Function: 
 Example : 

Graph/Glyph/tree.pm  view on Meta::CPAN

	}
	
	#root branch label
	my($cx,$cy) = ((($frac*$a{xsize}+$xoffset)+($xoffset))/2 , $maxy);
	#my($cx,$cy) = ((($frac*$a{xsize}+$xoffset)+($xoffset))/2 , $a{yoffset}+($a{yscale}*$d->branch_length));
	$a{group}->text(x=>$cx,
					y=>$cy,
#					style=>{'font-size'=>'15px'},
					style=>{$self->_style,'stroke-width'=>0.5},
					transform=>"rotate(90,$cx,$cy)"
				 )->cdata($d->branch_label());
#->cdata($d->name);


	$xoffset += $frac*$a{xsize};
	$c++;

	$self->_draw(group=>$a{group},node=>$d,
				 xsize=>$xoffset - $xoffset_old,
				 yscale=>$a{yscale},
				 xoffset => $xoffset_old,
				 yoffset => $a{yoffset} + ($d->branch_length * $a{yscale}),