view release on metacpan or  search on metacpan

lib/Audio/Nama/Graphical.pm  view on Meta::CPAN

	$length = int($length + 5.5);
	$args{seconds} = $length;
	my $pps = $config->{waveform_pixels_per_second};
	for (0..$args{seconds})
	{
		my $xpos = $_ * $pps;
		if ($_ % 10 == 0)
		{
			$args{widget}->createText( 
							$xpos, $args{y_pos} - 20, 
							-font => 'lucidasanstypewriter-bold-14', 
							-text => $_,
							);
		}
		$args{widget}->createLine(
			$xpos, $args{y_pos} - height($_),
			$xpos, $args{y_pos},
			-fill => 'black',
			-width => 1,
			-tags => 'timelime'
		);

lib/Audio/Nama/Waveform.pm  view on Meta::CPAN

	$gui->{waveform}{$self->track->name} = []; # unused? 
	$gui->{wwcanvas}->createImage(	0,
												$self->y_offset_multiplier * $config->{waveform_height}, 
												-anchor => 'nw', 
												-tags => ['waveform', $self->track->name],
												-image => $widget);
	my ($width, $height) = Audio::Nama::wh($gui->{ww});
	my $name_x = $width - 150;
	my $name_y = $config->{waveform_height} * $self->y_offset_multiplier  + 20;
	$gui->{wwcanvas}->createText( $name_x, $name_y, -font =>
'lucidasanstypewriter-bold-14', -text => uc($self->track->name) . ' - '.$self->track->current_wav);
}
sub width  {
	my $self = shift;
	my ($waveform) = $self->get_waveform; 
	my ($width, $height, $pixels_per_second) = $waveform =~ /(\d+)x(\d+)-(\d+)/
		or Audio::Nama::throw("cannot parse waveform filename: $waveform");
	$width
}
sub height  {
	my $self = shift;