Result:
found more than 421 distributions - search limited to the first 2001 files matching your query
( run in 1.179 )
GDGraph-Map
view release on metacpan or search on metacpan
lib/GD/Graph/Map.pm view on Meta::CPAN
my %Defaults = ( #Default Href is JavaScript code, which do nothing
href => 'javascript:;',
lhref => 'javascript:;',
hrefs => [],
lhrefs => [],
#Default information and legend
info => 'x=%x y=%y',
legend => '%l',
#Line width for lines and linespoints graph
linewidth => 3,
);
my %No_Tags = ('img_src' => 0, 'img_usemap' => 0, 'img_ismap' => 0,
lib/GD/Graph/Map.pm view on Meta::CPAN
$s .= "$x, @{[$y + $lw]}, ";
} #foreach
chop $s; chop $s;
my $href = $self->{lhrefs}->[$_ - 1];
$href = $self->{lhref} unless defined($href);
$href =~ s/%l/$gr->{legend}->[$_ - 1]/g;
my $info = $self->{info};
$info =~ s/%l/$gr->{legend}->[$_ - 1]/g;
$s .= "\" Href=\"$href\" Title=\"$info\" Alt=\"$info\" onMouseOver=\"window.status=\'$info\'; return true;\" onMouseOut=\"window.status=\'\'; return true;\"";
if ($self->{newWindow} and not $href =~ /javascript:/i)
{ my $s_;
map
{ $s_ .= "$1=@{[$self->{$_}]}," if $_ =~ /window_(\w+)/i and $self->{$_};
lib/GD/Graph/Map.pm view on Meta::CPAN
chop $s_;
$s .= " Target=\"_$name\" onClick=\"window.open(\'\', \'_$name\', \'$s_\'); return true; \"";
} #if
$s .= ">\n";
} #foreach
$s .= $self->imagelegend($file, $data) if defined($gr->{legend});
$s .= "</Map>\n";
unless ($self->{noImgMarkup})
{ $s .= "<Img UseMap=#$name Src=\"$file\" border=0 Height=@{[$gr->{height}]} Width=@{[$gr->{width}]} ";
map
{ $s .= "$1=@{[$self->{$_}]} " if $_ =~ /img_(\w+)/i and $self->{$_};
lib/GD/Graph/Map.pm view on Meta::CPAN
my $href = ${$self->{hrefs}}[$_ - 1][$i];
$href = $self->{href} unless defined($href);
$href =~ s/%x/$data->[0][$i]/g; $href =~ s/%y/$data->[$_][$i]/g;
$href = $1.(sprintf "%$2f", $data->[0][$i]).$3 if ($href =~ /(^.*)%(\.\d)x(.*&)/);
$href = $1.(sprintf "%$2f", $data->[$_][$i]).$3 if ($href =~ /(^.*)%(\.\d)y(.*$)/);
$href =~ s/%l/@{$gr->{legend}}->[$_ - 1]/g;
my $info = $self->{info};
$info =~ s/%x/$data->[0][$i]/g; $info =~ s/%y/$data->[$_][$i]/g;
$info = $1.(sprintf "%$2f", $data->[0][$i]).$3 if ($info =~ /(^.*)%(\.\d)x(.*&)/);
$info = $1.(sprintf "%$2f", $data->[$_][$i]).$3 if ($info =~ /(^.*)%(\.\d)y(.*$)/);
$info =~ s/%l/@{$gr->{legend}}->[$_ - 1]/g;
$s .= "Href=\"$href\" Title=\"$info\" Alt=\"$info\" onMouseOver=\"window.status=\'$info\'; return true;\" onMouseOut=\"window.status=\'\'; return true;\"";
if ($self->{newWindow} and not $href =~ /javascript:/i)
{ my $s_;
map
{ $s_ .= "$1=".$self->{$_}."," if (($_ =~ /window_(\w*)/i) and ($self->{$_} != 0))
lib/GD/Graph/Map.pm view on Meta::CPAN
$s1 .= "$x, @{[$y + $lw]}, ";
} #foreach
chop $s1; chop $s1;
my $lhref = $self->{lhrefs}->[$_ - 1];
$lhref = $self->{lhref} unless defined($lhref);
$lhref =~ s/%l/$gr->{legend}->[$_ - 1]/g;
my $legend = $self->{legend};
$legend =~ s/%l/$gr->{legend}->[$_ - 1]/g;
$s .= "\t<Area Shape=polygon Coords=\"$s1\" Href=\"$lhref\" Title=\"$legend\" Alt=\"$legend\" onMouseOver=\"window.status=\'$legend\'; return true;\" onMouseOut=\"window.status=\'\'; return true;\"";
if ($self->{newWindow} and not $lhref =~ /javascript:/i)
{ my $s_;
map
{ $s_ .= "$1=@{[$self->{$_}]}," if $_ =~ /window_(\w+)/i and $self->{$_};
} keys %$self;
lib/GD/Graph/Map.pm view on Meta::CPAN
$s .= " Target=\"_$name\" onClick=\"window.open(\'\', \'_$name\', \'$s_\'); return true; \"";
} #if
$s .= ">\n"; $s1 = "";
} #if
}
$s .= $self->imagelegend($file, $data) if defined($gr->{legend});
$s .= "</Map>\n";
unless ($self->{noImgMarkup})
{ $s .= "<Img UseMap=#$name Src=\"$file\" border=0 Height=@{[$gr->{height}]} Width=@{[$gr->{width}]} ";
map
{ $s .= "$1=".($self->{$_})." " if ($_ =~ /img_(\w*)/i) and defined($self->{$_})
lib/GD/Graph/Map.pm view on Meta::CPAN
my $href = ${$self->{hrefs}}[$_ - 1][$i];
$href = $self->{href} unless defined($href);
$href =~ s/%x/$data->[0][$i]/g; $href =~ s/%y/$data->[$_][$i]/g;
$href = $1.(sprintf "%$2f", $data->[0][$i]).$3 if ($href =~ /(^.*)%(\.\d)x(.*$)/);
$href = $1.(sprintf "%$2f", $data->[$_][$i]).$3 if ($href =~ /(^.*)%(\.\d)y(.*$)/);
$href =~ s/%l/@{$gr->{legend}}->[$_ - 1]/g;
my $info = $self->{info};
$info =~ s/%x/$data->[0][$i]/g; $info =~ s/%y/$data->[$_][$i]/g;
$info = $1.(sprintf "%$2f", $data->[0][$i]).$3 if ($info =~ /(^.*)%(\.\d)x(.*$)/);
$info = $1.(sprintf "%$2f", $data->[$_][$i]).$3 if ($info =~ /(^.*)%(\.\d)y(.*$)/);
$info =~ s/%l/@{$gr->{legend}}->[$_ - 1]/g;
$s .= "Href=\"$href\" Title=\"$info\" Alt=\"$info\" onMouseOver=\"window.status=\'$info\'; return true;\" onMouseOut=\"window.status=\'\'; return true;\"";
if ($self->{newWindow} and not $href =~ /javascript:/i)
{ my $s_;
map
{ $s_ .= "$1=".$self->{$_}."," if (($_ =~ /window_(\w*)/i) and ($self->{$_} != 0))
lib/GD/Graph/Map.pm view on Meta::CPAN
$s .= " onClick=\"window.open(\'\', \'_$name\', \'$s_\'); return true;\"";
} #if
$s .= ">\n";
}
}
$s .= $self->imagelegend($file, $data) if defined($gr->{legend});
$s .= "</Map>\n";
unless ($self->{noImgMarkup})
{ $s .= "<Img UseMap=#$name Src=\"$file\" border=0 Height=@{[$gr->{height}]} Width=@{[$gr->{width}]} ";
map
{ $s .= "$1=".($self->{$_})." " if ($_ =~ /img_(\w*)/i) and defined($self->{$_})
lib/GD/Graph/Map.pm view on Meta::CPAN
return level_angle($a - 360) if $a > 360;
return level_angle($a + 360) if $a < 0;
return $a;
} #level_angle
sub imagelegend($$) #($file, \@data)
{ my $self = shift;
my $file = shift;
my $data = shift;
my $gr = $self->{GDGraph};
my $name = defined $self->{mapName} ? $self->{mapName} : time;
my $s = '';
my $xl = $gr->{lg_xs} + $gr->{legend_spacing};
my $y = $gr->{lg_ys} + $gr->{legend_spacing} - 1;
my $i = 0;
my $row = 1;
my $x = $xl;
foreach my $legend (@{$gr->{legend}})
{ $i++;
last if $i > $gr->{_data}->num_sets;
my $xe = $x;
next unless defined($legend) && $legend ne "";
my $lhref = @{$self->{lhrefs}}->[$i - 1];
$lhref = $self->{lhref} unless defined($lhref);
$lhref =~ s/%l/$_/g;
$legend = $self->{legend};
$legend =~ s/%l/$_/g;
my $ye = $y + int($gr->{lg_el_height}/2 - $gr->{legend_marker_height}/2);
$s .= "\t<Area Shape=rect Coords=\"$xe, $ye, ".($xe + $gr->{legend_marker_width}).", ".($ye + $gr->{legend_marker_height})."\" Href=\"$lhref\" Title=\"$legend\" Alt=\"$legend\" onMouseOver=\"window.status=\'$legend\'; return true;\" onMouseOut=\"...
if ($self->{newWindow} and $lhref ne $self->{href}) #$xe + $gr->{legend_marker_width}
{ my $s_;
map
{ $s_ .= "$1=".$self->{$_}."," if (($_ =~ /window_(\w*)/i) and ($self->{$_} != 0))
} keys %{$self};
chop $s_;
$s .= " Target=_$name";
$s .= " onClick=\"window.open(\'\', \'_$name\', \'$s_\'); return true;\"";
} #if
$s .= ">\n";
$xe += $self->{legend_marker_width} + $self->{legend_spacing};
$x += $gr->{lg_el_width};
if (++$row > $gr->{lg_cols})
{ $row = 1;
$y += $gr->{lg_el_height};
$x = $xl;
}
}
return $s;
} #imagelegend
1;
__END__
lib/GD/Graph/Map.pm view on Meta::CPAN
binmode PNG; #only for Windows like platforms
print PNG $graph->plot(\@data)->png;
close PNG;
Then create B<GD::Graph::Map> object. And set options using set routine, or set it
in constructor immediately. If it is necessary create hrefs and legend arrays:
$map = new GD::Graph::Map($graph, newWindow => 1);
$map->set(info => "%x slice contains %.1p% of %s (%x)");
lib/GD/Graph/Map.pm view on Meta::CPAN
=over *
=item B<hrefs>, B<lhrefs>
Sets hyper reference for each data (hrefs), and for each legend (lhrefs).
Array @hrefs must the same size as arrays in @data list, otherwise null
elements of @hrefs will set to default. Similarly array @lhrefs must the same
size as the legend array. Default uses the simple JavaScript code 'javascript:;'
instead reference, which do nothing (but in the some browsers it can work incorrectly).
Example of I<@hrefs> array:
for the I<GD::Graph::pie> object:
lib/GD/Graph/Map.pm view on Meta::CPAN
then @hrefs = (["1.htm","2.htm","3.htm"],
["4.htm","5.htm","6.htm"]);
Example of I<@lhrefs> array;
if @legend = [ 'one', 'two','three'];
then @lhrefs = ["1.htm","2.htm","3.htm"];
=item B<info>, B<legend>
Set information string for the data and for the legend. It will be displayed in the status line
of your browser. Format of this string the same for each data, but you can use special
symbols for receive individual information. Now available following symbols:
I<%x> - Will be replaced on the x values in @data (first array)
I<%y> - Will be replaced on the y values in @data (other arrays)
I<%s> - Will be replaced on the sum of all y values.
I<%l> - Will be replaced on the legend. For all objects, except the B<GD::Graph::pie> object.
I<%p> - Will be replaced on the value, which show what part from all contains this data
(in percentages).
I<%s> and I<%p> symbols can useing only in the B<GD::Graph::pie> object. I<%l> symbol
vice versa available for all objects, except the B<GD::Graph::pie> object. And I<%x>, I<%y>
lib/GD/Graph/Map.pm view on Meta::CPAN
objects.
For the numerical parameters (%x, %y, %s and %p) you can use special format
(the same as uses sprintf routine) for round data: %.d{x|y|p|s}, where 'd' is a digit
from 0 to 9.
For example %.0p or %.3x. It is desirable uses if %x, %y, %s or %p is the floating numbers.
Default is 'x=%x y=%y' for info, and '%l' for legend.
=item B<img_*>
You can set any attribute in the IMG tag (except UseMap, Src, Width, Height and Border,
they will be set automatically) use set routine: set(img_option => value), where 'option'
GDGraph-XY
view release on metacpan or search on metacpan
$self->set_x_label_font(GD::gdSmallFont);
$self->set_y_label_font(GD::gdSmallFont);
$self->set_x_axis_font(GD::gdTinyFont);
$self->set_y_axis_font(GD::gdTinyFont);
$self->set_legend_font(GD::gdTinyFont);
$self->set_values_font(GD::gdTinyFont);
}
# PRIVATE
sub set_max_min
GIFgraph
view release on metacpan or search on metacpan
samples/sample12.pl view on Meta::CPAN
y_tick_number => 8,
y_label_skip => 2,
bar_spacing => 4,
);
$my_graph->set_legend( 'Data set 1', 'Data set 2' );
$my_graph->plot_to_gif( "sample12.gif", \@data );
exit;
GIFgraph_Map
view release on metacpan or search on metacpan
GIFgraph/Map.pm view on Meta::CPAN
href => 'javascript:;',
hrefs => [],
lhrefs => [],
#Open new navigator window?
newWindow => 0,
#Default information and legend
info => 'x=%x y=%y',
legend => '%l',
);
my @No_Tags = ('img_src', 'img_usemap', 'img_ismap', 'img_width',
'img_height', 'img_border');
GIFgraph/Map.pm view on Meta::CPAN
$href = $self->{href} unless defined($href);
my $info = $self->{info};
$info =~ s/%x/$data->[0][$i]/g; $info =~ s/%y/$data->[$_][$i]/g;
$info = $1.(sprintf "%$2f", $data->[0][$i]).$3 if ($info =~ /(^.*)%(\.\d)x(.*&)/);
$info = $1.(sprintf "%$2f", $data->[$_][$i]).$3 if ($info =~ /(^.*)%(\.\d)y(.*$)/);
$info =~ s/%l/@{$gr->{legend}}->[$_ - 1]/g;
$s .= "Href=\"$href\" Alt=\"$info\" onMouseOver=\"window.status=\'$info\'; return true;\" onMouseOut=\"window.status=\'\'; return true;\"";
if ($self->{newWindow} and not $href =~ /javascript:/)
{ my $s_;
map
{ $s_ .= "$1=".$self->{$_}."," if (($_ =~ /window_(\w*)/) and ($self->{$_} != 0))
GIFgraph/Map.pm view on Meta::CPAN
$s .= " onClick=\"window.open(\'\', \'".($name + 1)."\', \'$s_\'); return true;\"";
} #if
$s .= ">\n";
} #foreach
} #foreach
if (defined($gr->{legend}))
{ my $xl = $gr->{lg_xs} + $gr->{legend_spacing};
my $y = $gr->{lg_ys} + $gr->{legend_spacing} - 1;
my $i = 0;
my $row = 1;
my $x = $xl;
foreach (@{$gr->{legend}})
{ $i++;
last if ($i > $gr->{numsets});
my $xe = $x;
next if (!defined($_) or $_ eq "");
my $lhref = @{$self->{lhrefs}}->[$i - 1];
$lhref = $self->{href} unless defined($lhref);
my $legend = $self->{legend};
$legend =~ s/%l/$_/g;
my $old_ms = $gr->{marker_size};
my $ms = _min($gr->{legend_marker_height}, $gr->{legend_marker_width});
($gr->{marker_size} > $ms/2) and $gr->{marker_size} = $ms/2;
my $x1 += $xe + int($gr->{legend_marker_width}/2);
my $y1 += $y + int($gr->{lg_el_height}/2);
my $n = $gr->pick_marker($i);
my $l = $x1 - $gr->{marker_size};
my $r = $x1 - $gr->{marker_size} + $gr->{lg_el_width};
my $b = $y1 + $gr->{marker_size};
my $t = $y1 - $gr->{marker_size};
$s .= "\t<Area Shape=\"rect\" Coords=\"$l, $t, $r, $b\" Href=\"$lhref\" Alt=\"$legend\" onMouseOver=\"window.status=\'$legend\'; return true;\" onMouseOut=\"window.status=\'\'; return true;\"";
if ($self->{newWindow} and $lhref ne $self->{href})
{ my $s_;
map
{ $s_ .= "$1=".$self->{$_}."," if (($_ =~ /window_(\w*)/) and ($self->{$_} != 0))
} keys %{$self};
GIFgraph/Map.pm view on Meta::CPAN
$s .= " Target=\"".($name + 1)."\"";
$s .= " onClick=\"window.open(\'\', \'".($name + 1)."\', \'$s_\'); return true;\"";
} #if
$s .= ">\n";
$gr->{marker_size} = $old_ms;
$xe += $gr->{legend_marker_width} + $gr->{legend_spacing};
my $ys = int($y + $gr->{lg_el_height}/2 - $gr->{lgfh}/2);
$x += $gr->{lg_el_width};
if (++$row > $gr->{lg_cols})
{ $row = 1;
$y += $gr->{lg_el_height};
GIFgraph/Map.pm view on Meta::CPAN
$href = $self->{href} unless defined($href);
my $info = $self->{info};
$info =~ s/%x/$data->[0][$_]/g; $info =~ s/%y/$data->[$i][$_]/g;
$info = $1.(sprintf "%$2f", $data->[0][$_]).$3 if ($info =~ /(^.*)%(\.\d)x(.*$)/);
$info = $1.(sprintf "%$2f", $data->[$i][$_]).$3 if ($info =~ /(^.*)%(\.\d)y(.*$)/);
$info =~ s/%l/@{$gr->{legend}}->[$i - 1]/g;
$s .= "Href=\"$href\" Alt=\"$info\" onMouseOver=\"window.status=\'$info\'; return true;\" onMouseOut=\"window.status=\'\'; return true;\"";
if ($self->{newWindow} and not $href =~ /javascript:/)
{ my $s_;
map
{ $s_ .= "$1=".$self->{$_}."," if (($_ =~ /window_(\w*)/) and ($self->{$_} != 0))
GIFgraph/Map.pm view on Meta::CPAN
$s .= " onClick=\"window.open(\'\', \'".($name + 1)."\', \'$s_\'); return true;\"";
} #if
$s .= ">\n";
} #foreach
} #foreach
if (defined($gr->{legend}))
{ my $xl = $gr->{lg_xs} + $gr->{legend_spacing};
my $y = $gr->{lg_ys} + $gr->{legend_spacing} - 1;
my $i = 0;
my $row = 1;
my $x = $xl;
foreach (@{$gr->{legend}})
{ $i++;
last if ($i > $gr->{numsets});
my $xe = $x;
next if (!defined($_) or $_ eq "");
my $lhref = @{$self->{lhrefs}}->[$i - 1];
$lhref = $self->{href} unless defined($lhref);
my $legend = $self->{legend};
$legend =~ s/%l/$_/g;
my $ye = $y + int($gr->{lg_el_height}/2 - $gr->{legend_marker_height}/2);
$s .= "\t<Area Shape=\"rect\" Coords=\"$xe, $ye, ".($xe + $gr->{lg_el_width}).", ".($ye + $gr->{legend_marker_height})."\" Href=\"$lhref\" Alt=\"$legend\" onMouseOver=\"window.status=\'$legend\'; return true;\" onMouseOut=\"window.status=\'\'; ...
if ($self->{newWindow} and $lhref ne $self->{href})
{ my $s_;
map
{ $s_ .= "$1=".$self->{$_}."," if (($_ =~ /window_(\w*)/) and ($self->{$_} != 0))
} keys %{$self};
chop $s_;
$s .= " Target=\"".($name + 1)."\"";
$s .= " onClick=\"window.open(\'\', \'".($name + 1)."\', \'$s_\'); return true;\"";
} #if
$s .= ">\n";
$xe += $gr->{legend_marker_width} + $gr->{legend_spacing};
my $ys = int($y + $gr->{lg_el_height}/2 - $gr->{lgfh}/2);
$x += $gr->{lg_el_width};
if (++$row > $gr->{lg_cols})
{ $row = 1;
$y += $gr->{lg_el_height};
GIFgraph/Map.pm view on Meta::CPAN
=over *
=item B<hrefs>, B<lhrefs>
Set hyper reference for each data (hrefs), and for each legend (lhrefs).
Array @hrefs must the same size as arrays in @data list, otherwise null
elements of @hrefs set to default. Similarly array @lhrefs must the same
size as legend array. Default use the simple JavaScript code 'javascript:;'
instead reference, which do nothing.
Example of I<@hrefs> array:
for I<GIFgraph::pie>
GIFgraph/Map.pm view on Meta::CPAN
then @hrefs = (["1.htm","2.htm","3.htm"],
["4.htm","5.htm","6.htm"]);
Example of I<@lhrefs> array;
if @legend = [ 'one', 'two','three'];
then @lhrefs = ["1.htm","2.htm","3.htm"];
=item B<info>, B<legend>
Set information string for data and for legend. It will be show in status line of your
browser. Format of this string the same for each data, but you may use special
symbols for receive individual information. Now available following symbols:
I<%x> - Is replaced on x values in @data (first array)
I<%y> - Is replaced on y values in @data (other arrays)
I<%s> - Is replaced on sum of all y values. Only for GIFgraph::pie object.
I<%p> - Is replaced on value, which show what part of all contains this data. Only for
B<GIFgraph::pie> object.
%l - Is replaced on legend. Only for B<GIFgraph::bars>, B<GIFgraph::points> and
B<GIFgraph::linespoints> objects.
For %x, %y, %s and %p parameters you may use special format (the same as use
sprintf routine) for round data: %.d{x|y|p|s}, where d is a digit from 0 to 9. For example
%.0p or %.3x. It is desirable use if %x, %y, %s or %p if floating numbers
Default is 'x=%x y=%y' for info, and '%l' for legend.
=item B<img_*>
You can set any attribute in IMG tag (except UseMap, Src, Width, Height and Border,
they will be set automatically) use set routine: set(img_option => value), where option
Gadabout
view release on metacpan or search on metacpan
Gadabout.pm view on Meta::CPAN
sub SetGraphSize{
my $self = shift;
my $noLegend = shift;
$noLegend = 0 if (!defined($noLegend));
if (!$self->{noLegend}) {
$self->{legendHeight} = $self->{perLegendHeight} * ($self->{num_data_sets} + 1);
} else {
$self->{legendHeight} = 0;
}
$self->{graph_height} = $self->{image_height} - (2 * $self->{ypad}) - $self->{legendHeight};
$self->{graph_width} = $self->{image_width} - (2 * $self->{xpad});
} # sub SetGraphSize
sub CreateColor{
Gadabout.pm view on Meta::CPAN
sub AddData{
my ($self, $xdata, $ydata, $name) = @_;
$name = "" if (!defined($name));
$self->SetGraphSize($self->{image_height},$self->{image_width});
$self->{legendText}[$self->{num_data_sets}] = $name;
#sort(@xdata);
my $dataSetIndex = $self->{num_data_sets};
for (my $i=0; $i < @$xdata; $i++){
Gadabout.pm view on Meta::CPAN
sub LineGraph{
my ($self, $dataset, $color) = @_;
$self->{current_dataset} = $dataset;
$self->{legend}{$dataset}{'LineGraph'} = {"color" => $color};
my $lastx = $self->{data_set}[$dataset]{"x"}[0];
my $lasty = $self->{data_set}[$dataset]{"y"}[0];
for (my $i = 1; $i < $self->{num_points}[$dataset]; $i++) {
Gadabout.pm view on Meta::CPAN
my $min = $self->min($self->{ymin}, $self->{axis2}{ymin});
my ($graph_left, $graph_bottom) = $self->translate($self->{xmin},$min);
$self->{current_dataset} = $dataset;
$self->{legend}{$dataset}{'FilledLineGraph'} = {'color' => $color};
my ($last_x, $last_y) = $self->translate($self->{data_set}[$dataset]{"x"}[0],$self->{data_set}[$dataset]{"y"}[0]);
$graph_bottom = int($graph_bottom+.5);
my $first_x = int($last_x+.5);
my $first_y = int($last_y+.5);
Gadabout.pm view on Meta::CPAN
sub DrawLegend{
my $self = shift;
if (defined($self->{legend})) {
my $legend_top = $self->{graph_height} + 2 * $self->{ypad};
my $current_top = $legend_top;
$self->DrawText($self->{font},10,$legend_top - 18,"Legend:","black",0);
$self->DrawLine(10,$legend_top - 4,47,$legend_top - 4,"black");
my $dataset;
my $type;
my $datasetInfo;
my $legendInfo;
my $tmpHash = $self->{legend};
while (($dataset, $legendInfo) = each %$tmpHash) {
my $legend_left = 10;
while(($type, $datasetInfo) = each %$legendInfo) {
my $legendMod;
if (exists($legendInfo->{'FilledLineGraph'}) || exists($legendInfo->{'VBarGraph'})) {
$legendMod = 0;
} else {
$legendMod = 8;
}
if ($type eq "FilledLineGraph"){
$self->DrawFilledRectangle($legend_left,$current_top,15,15,$datasetInfo->{"color"});
}
else{
if ($type eq "DashedLineGraph"){
$self->DrawDashedLine($legend_left,$current_top + $legendMod, $legend_left + 15, $current_top + $legendMod, 3, 4, $datasetInfo->{"color"});
}
else{
if ($type eq "ScatterGraph"){
$self->DrawBrush($legend_left + 8,$current_top + $legendMod,$datasetInfo->{'shape'},$datasetInfo->{"color"});
}
else{
if ($type eq "LineGraph"){
$self->DrawLine($legend_left,$current_top + $legendMod, $legend_left + 15, $current_top + $legendMod, $datasetInfo->{"color"});
}
else{
if ($type eq "VBarGraph"){
$self->DrawGradientRectangle($legend_left + (15 - $self->{vBarWidth}) / 2, $current_top , $self->{vBarWidth}, 15, $datasetInfo->{"color"});
}
}
}
}
}
Gadabout.pm view on Meta::CPAN
$mesg = " (Right Hand Scale)";
} else {
$mesg = "";
}
$legend_left += 20;
my $label;
if (defined($self->{legendText}[$dataset])){
$label = $self->{legendText}[$dataset];
}
else{
$label = "Dataset: " . $dataset;
}
$label = $label . $mesg;
$self->DrawText($self->{font}, $legend_left, $current_top, $label, "black", 0);
$current_top += 20;
#$dataset++;
}
}
} #sub DrawLegend
Gadabout.pm view on Meta::CPAN
my $self = shift;
my $dataset = shift;
my $shape = shift;
my $color = shift;
$self->{current_dataset} = $dataset;
$self->{legend}{$dataset}{'ScatterGraph'} = {"color" => $color, 'shape' => $shape};
reset($self->{data_set}[$dataset]{"x"});
for (my $i=0; $i < $self->{num_points}[$dataset]; $i++) {
my $x = $self->{data_set}[$dataset]{"x"}[$i];
Gadabout.pm view on Meta::CPAN
sub VBarGraph{
my $self = shift;
my $dataset = shift;
my $color = shift;
$self->{current_dataset} = $dataset;
$self->{legend}{$dataset}{'VBarGraph'} = {"color" => $color};
for (my $i = 0; $i < $self->{num_points}[$dataset]; $i++) {
$self->GraphVBar($self->{data_set}[$dataset]{"x"}[$i], $self->{data_set}[$dataset]{"y"}[$i], $color);
}
}#sub BarGraph
Gadabout.pm view on Meta::CPAN
my $startHeightMod = $pieProps->{"startHeightMod"};
my $edgeColor = $pieProps->{"edgeColor"};
my $maxDepth = $pieProps->{"maxDepth"};
my $titlePad = 15;
my $legendBoxHeight = 15;
my $legendBoxSpace = 8;
my $legendHeightMod = $legendBoxHeight + $legendBoxSpace + 1;
my $maxMod = $self->max($defaultRadMod,($self->ArrayMax($radMod)));
$self->{image_width} = $self->max($self->{image_width},$maxMod+(0.75 * $self->{image_width})); # + ($maxLength * 1));
my $radius = ($self->{image_width} - 10) * .2;
#my $radius = ($self->{image_width} - 10) * .3;
$self->{image_height} = $self->max(2 * ($radius + $maxMod/2) + $self->{ypad},scalar(@$data) * $legendHeightMod + $titlePad);
$self->InitGraph($self->{image_width},$self->{image_height});
my $color = $self->GeneratePieChartColors(scalar(@$data));
#$radius = ($self->{image_width} - 10) * .3;
$radius = $self->min(($self->{image_width} - 10-(.75*$maxMod)) * .2,($self->{image_height} - 40-(.75*$maxMod)) * .5);
my $absCenterX = int(($radius + ($radius / 10) + (.75*$maxMod)) + 20 +.5);
my $absCenterY = int($radius + 10 + .75*$maxMod +.5);
my $legend_left = 2 * $absCenterX;
my $legend_top = 10;
my $degreeSteps = 6;
if (defined($title)) {
$self->DrawText($self->{font},$legend_left,$legend_top,$title,"black",0);
$self->DrawLine($legend_left - 2,$legend_top + $titlePad,$legend_left + (length($title) * 5.2),$legend_top + $titlePad,"black");
$legend_top = $legend_top + 25;
}
#arsort($data);
my $total = 0;
Gadabout.pm view on Meta::CPAN
my $depth;
my $order = $self->GetPerspectiveXY($absCenterX,$absCenterY,$orderX,$orderY,$dMod * $depth,$xAngle,$yAngle,$zAngle);
$polyOrder{$pieceNumber} = $order->{"y"};
if (defined($total)) {
$self->DrawFilledRectangle($legend_left,$legend_top,$legendBoxHeight,$legendBoxHeight,$color->[$colorCount]);
$self->DrawRectangle($legend_left,$legend_top,$legendBoxHeight,$legendBoxHeight,"black");
my $totalPercentage = ($total ? (int(($value / $total * 1000)+.5) / 10) : "0");
my $strLegend = " - " . @$name->[$pieceNumber] . ": " . @$data->[$pieceNumber] . " (" . $totalPercentage . "%)";
$self->DrawText($self->{font},$legend_left + 20, $legend_top, $strLegend,"black",0);
$legend_top = $legend_top + $legendBoxHeight + $legendBoxSpace;
$pieColors[$pieceNumber] = $colorCount;
$colorCount++;
}
}
Gadabout.pm view on Meta::CPAN
my $offSet = 6;
my $count = ceil(($totalDataSets / 2) - $totalDataSets);
my %tempHash = %$self->{chartData}[$chartID];
while (my ($foo,$dataset) = each %tempHash) {
$self->{legend}{$dataset}{"VBarGraph"} = {"color" => @$colors[$foo]};
my $xOffset = $offSet * $count;
for (my $i = 0; $i < $self->{num_points}[$dataset]; $i++) {
$self->GraphVBar($self->{data_set}[$dataset]{"x"}[$i], $self->{data_set}[$dataset]{"y"}[$i], @$colors[$foo], $xOffset);
Galileo
view release on metacpan or search on metacpan
lib/Galileo/files/public/assets/bootstrap/css/bootstrap.min.css view on Meta::CPAN
* Copyright 2012 Twitter, Inc
* Licensed under the Apache License v2.0
* http://www.apache.org/licenses/LICENSE-2.0
*
* Designed and built with all the love in the world @twitter by @mdo and @fat.
*/article,aside,details,figcaption,figure,footer,header,hgroup,nav,section{display:block}audio,canvas,video{display:inline-block;*display:inline;*zoom:1}audio:not([controls]){display:none}html{font-size:100%;-webkit-text-size-adjust:100%;-ms-text-si...
Game-Collisions
view release on metacpan or search on metacpan
nytprof/js/jquery-min.js view on Meta::CPAN
/*! jQuery v1.12.4 | (c) jQuery Foundation | jquery.org/license */
!function(a,b){"object"==typeof module&&"object"==typeof module.exports?module.exports=a.document?b(a,!0):function(a){if(!a.document)throw new Error("jQuery requires a window with a document");return b(a)}:b(a)}("undefined"!=typeof window?window:this...
}return c}function Q(a){var b;for(b in a)if(("data"!==b||!n.isEmptyObject(a[b]))&&"toJSON"!==b)return!1;return!0}function R(a,b,d,e){if(M(a)){var f,g,h=n.expando,i=a.nodeType,j=i?n.cache:a,k=i?a[h]:a[h]&&h;if(k&&j[k]&&(e||j[k].data)||void 0!==d||"str...
marginLeft:0},function(){return a.getBoundingClientRect().left}):0))+"px":void 0}),n.each({margin:"",padding:"",border:"Width"},function(a,b){n.cssHooks[a+b]={expand:function(c){for(var d=0,e={},f="string"==typeof c?c.split(" "):[c];4>d;d++)e[a+V[d]+...
padding:"inner"+a,content:b,"":"outer"+a},function(c,d){n.fn[d]=function(d,e){var f=arguments.length&&(c||"boolean"!=typeof d),g=c||(d===!0||e===!0?"margin":"border");return Y(this,function(b,c,d){var e;return n.isWindow(b)?b.document.documentElement...
Game-HexDescribe
view release on metacpan or search on metacpan
share/hex-describe-schroeder-table.txt view on Meta::CPAN
;fire giant temple of Marduk
1,The front of the temple consists of a sea of sculptures: a thousand stone soldiers, staring out at any visitors, wielding their [swords|spears|halbers], waiting for a battle that never comes.
1,Above the entrance to this temple you see a giant chariot. Inside it are an archer and a driver. Giant scythes project out from the wheels to cut down soldiers that oppose them.
;fire giant temple interior
1,The inside of this temple is a domed chamber nearly 100ft high. There are stone benches sit on and [fire material] statues of fire giants to look at. If you know the legends you can see the statues of [fire giant statues].
1,The inside of the temple is dizzying array of platforms connected by short stairs, with [fire material] trees burning under a roof 60ft above. Along the walls are rows of statues. If you know the history of dwarves and giants, you’ll recognise th...
1,The inside of this temple might at one time have been glorious but now it is filled with boiling grey mud and dancing shadows. The fires burning along the walls show fallen statues and broken columns disappearing the blubbering mass. The stink of s...
;fire giant statues
2,*[with fire giant name]* and *[and fire giant name]*, [fire giant legend summary]
1,*[fire giant name]* the dwarf kings they had enslaved: *[with dwarf name]*, *[and dwarf name]*, and *[and dwarf name]*
1,*[fire giant name]* and the dragon they had enslaved, *[red dragon name]*
;fire giant legend summary
1,who separated fire from earth at the beginning of time
1,who enslaved the ifrit *[ifrit name]* and forced it to [fire giant legendary project]
1,who fought over *[and fire giant name]* and [both died|destroyed the city at the centre of the world] in the process
1,who fought over *[and fire giant name]* and how *[same fire giant name]* was then [crushed|buried|chained for all eternity] under the mountain of *[Sky|Earth|Despair|Hopelessness]*
;fire giant legendary project
1,build the bridge of the river of [ash|dreams|fear]
1,build the ship of the [lead|iron|salt] sea
1,build the rainbow bridge for the gods
1,build the eternal stairs
1,forge the axe to fell the world tree
share/hex-describe-schroeder-table.txt view on Meta::CPAN
1,eater
1,father
;dwarves
3,This is a small forge. [5d8] **dwarves** live and work here ([dwarf stats]) led by [dwarf with portrait] (level [1d6+2 as level]). [luxurious context] [dwarven treasure]
1,This is a legendary forge stronghold. [5d8x10] **dwarves** live and work here ([dwarf stats]) led by [dwarf with portrait] (level [1d4+8 as level]). They are divided into [3d6] families, each led by a clan elder (level [1d6+2]). [dwarven stronghold...
;dwarf stats
1,HDÂ 1 ACÂ 4 1d6 D1 MVÂ 6 MLÂ 8 XPÂ 100
;duergar stats
share/hex-describe-schroeder-table.txt view on Meta::CPAN
;neolithic magic weapon
1,An *arrow* +1 with an obsidian tip.
1,A *sling stone* +1.
1,An *arrow* +1/+3 vs. reptiles, a relic from the *Old Lizard Wars*.
1,The ancient spear *Scale Eater*[here store Scale Eater as legendary weapon] +1/+3 vs. reptiles, a relic of the *Old Lizard Wars*, blessed by *Pazuzu*.
1,A *javelin of thunder* that explodes like a <a class="spell" href="#fireball">fireball</a> dealing 6d6 to all nearby, save vs. spells for half.
1,The ancient bow *Giant Killer*[here store Giant Killer as legendary weapon] +1/+3 vs. giants and extinct megafauna, e.g. sabre tooth tigers, mammoths, or giant elk.
;neolithic wondrous item
1,A *stone of orientation* that always points north.
1,A *stone of fire* that always lights a perfect campfire when struck with iron.
1,An *eternal torch* that produces an eternal flame, temporarily suppressed under water.
share/hex-describe-schroeder-table.txt view on Meta::CPAN
;light elves on the march
1,There are [save 1d6+4 as level][save spellbook for elves][4d6] **light elves** ([elf stats]) in gleaming armour, with lances and shields on impossibly thin grey horses with long manes, led by [elf with portrait] (level [same level]). [same spellboo...
;light elf mission
1,The flowing letters on their white banners identify them as *[name for a clan of the light elves 1]* elves. “Have you seen the *[nearby name for a light elf legendary item]*? If you bring it to us, we will grant you a realm of your own on the Ast...
1,The flowing letters on their white banners identify them as *[name for a clan of the light elves 2]* elves. “Have you seen any other light elves? Take heed for the *[name for a clan of the light elves 1]* are ridden by a strange madness. Avoid th...
;clan of the light elves
# there are exactly two such clans per map
1,[name for a clan of the light elves 1]
share/hex-describe-schroeder-table.txt view on Meta::CPAN
1,Empress
1,Flower
1,Tree
1,Wilderness
;name for a light elf legendary item
# they are all looking for the same item
1,[light elf legendary item]
;light elf legendary item
1,[capitalize positive adjective] [capitalize metal jewelry singular] of [elf name]
1,[capitalize positive adjective] [capitalize vessel desc] of [elf name]
;positive adjective
1,great
1,legendary
1,holy
1,astral
1,arcane
;wood elves
share/hex-describe-schroeder-table.txt view on Meta::CPAN
;druids
1,[druid warning sign] Here stands [druid circle] [the locals call it] *[druid circle name]*. [druid allies] [druid trails]
1,[druid warning sign] At last you reach [druid circle] [the locals call it] *[druid circle name]*. [druid allies] [druid trails]
;the locals call it
1,Local legends have named this place
1,In the old days, they called it
1,In *[old elf ballad name]*, this place was called
1,In *The Travels of [old name]*, this place was called
;druid trails
share/hex-describe-schroeder-table.txt view on Meta::CPAN
;bard
1,The [bard adjective] [singing humanoid] **bard** *[[same singing humanoid] with portrait]* is here, playing the [instrument] and [with performing] *[with story]* and [and performing] *[and story]*. [audience reaction] If you ask them about the war,...
;bard mission
1,They’re looking for a legendary weapon called *[nearby legendary weapon]*. Have you seen it?
1,They’re looking for a book called *[nearby library book]*. Have you seen it?
1,[maybe a book]
;bard adjective
1,wandering
share/hex-describe-schroeder-table.txt view on Meta::CPAN
# neutrality vs law
1,A volatile truce has recently been formed between the two local secret societies. Both are still unsure and suspicious of each other, and will be watching any visitors closely to try to figure out their allegiances.<p>The society of the *[name for ...
# neutrality vs chaos
1,Talk of a treaty between the two local secret societies seems to be the biggest bit of gossip around town.<p>The society of the *[name for a secret society (neutrality)]* is led by [secret society boss] [description for a secret society (neutrality...
# law vs chaos
1,Strife is turning sibling against sibling and parents against their children.<p>The legendary *[story mcguffin] of [human story hero]* used to belong to the *[name for a secret society (law)]*, but now it is gone. Their leader is [secret society bo...
# neutrality vs chaos
1,The locals are forced to pay protection money to *[name for a secret society (chaos)]*, led by [secret society boss] [description for a secret society (chaos)]<p>The recent arrival of *[name for a secret society (neutrality)]* has disrupted this lu...
# neutrality vs law
1,The *[name for a secret society (law)]* are recruiting new members for an ongoing feud. They are led by [secret society boss] [description for a secret society (law)]<p>They are trying to drive the *[name for a secret society (neutrality)]* out of ...
share/hex-describe-schroeder-table.txt view on Meta::CPAN
1,[save 1d6+1 as level][save spellbook for elves][3d12] **tree elves** ([elf stats]) led by [wood|tree|night|moon] [guardian|prince|princess|custodian] [elf with portrait] (level [same level]). [same spellbook for elves] [leader treasure] [ancient tr...
1,[save 1d6+1 as level][save spellbook for elves][3d12] **netherworld elves** ([elf stats]) led by [earth|tunnel|night|moon] [prince|princess|daughter|son|hunter|justicar|inquisitor] [elf with portrait] (level [same level]). [same spellbook for elves...
1,[save 1d6+4 as level][save spellbook for elves][4d6] **light elves** ([elf stats]) in gleaming armour, with spears and shields, led by [elf with portrait] (level [same level]). [same spellbook for elves] [leader treasure] They are accompanied by [2...
;Yggdrasil mission
1,They want to avenge the death of *[elf name]*, legendary author of [store elf as singing humanoid]*[story]*, killed by the fire giant *[fire giant name]* in Muspelheim. Their current location is unknown. This is going to be a long side-quest.
1,They went to see the demon-oracle of *[demon name]* and got the answer they needed. Now all they need to do is get back home.
1,They succeeded in bringing down the thief of the elven *long sword* +1 with [elven inscription][here store the sword of [same owner] as elf treasure]
1,They failed in tracking the thief of the elven *long sword* +1 with [elven inscription]. It must still be down there somewhere, in Muspelheim.
1,They succeeded in bringing down the thief of [elven ring of power][here store the ring of [same owner] as elf treasure]
1,They failed in tracking the thief of [elven ring of power] It must still be down there somewhere, in Muspelheim.
share/hex-describe-schroeder-table.txt view on Meta::CPAN
;relic of Pazuzu
1,small four-winged vulture demon statuette of *Pazuzu*
;relic of Freya
1,small dark wood wolf sculpture dedicated to *Freya*
;relic of Odin
1,legendary eye patch of *Odin* containing the *truth gem*
;relic of Thor
1,small silver hammer amulet of *Thor*
;relic of Mitra
1,magic *fire stone* of *Mitra*
share/hex-describe-schroeder-table.txt view on Meta::CPAN
5,An elven *long bow* +1 with [elven inscription][here store the long bow of [same owner] as elf treasure]
5,A dwarven *short sword* +2 with [dwarven inscription]
2,A dwarven *crossbow* +2.
2,A goblin assassin’s black iron *crossbow* +1, decorated with the seven heads of *Set*.
1,A goblin assassin’s *short bow* +1 with plenty of notches along its side.
1,The orcish zweihänder *Wall Cutter*[here store Wall Cutter as legendary weapon] +1/+3 vs. city dwellers, in the [orc sword tradition].
1,An orcish *mace* +1 with [orcish runes].
1,An orcish *mace* +1 marked with the runes of *[evil power]*.
1,The orcish spear *Dog Impaler*[here store Dog Impaler as legendary weapon] +1/+3 vs. elves, created by *[orc name]* in *[orc war]*.
1,The orcish sword *Monkey Slicer*[here store Monkey Slicer as legendary weapon] +1/+3 vs. humans used by *[orc name]* in *[orc war]*.
1,The ancient spear *Fur Hunter*[here store Fur Hunter as legendary weapon] +1/+3 vs. mammals, a relic of the *Old Lizard Wars*, blessed by *Set*.
1,The long sword *Moonfire*[here store Moonfire as legendary weapon] +1/+3 vs. lycanthropes, inscribed with silver runes of death and banishment, forged by the high inquisitors of *[wight realm]*.
1,The long sword *Razorblade*[here store Razorblade as legendary weapon] +1/+3 vs. spell casters, forged by ancient machines in the *Philosophers’ War*.
1,The holy long sword *Angelfire*[here store Angelfire as legendary weapon] +1/+3 vs. undead, forged in Asgard by *[dwarf name]* during the *Vampire Wars*.
1,The long sword *Meteorstrike*[here store Meteorstrike as legendary weapon] +1/+3 vs. dragons, an old elven sword forged in the *Dragon Wars*.
1,The long sword *Dragonslayer*[here store Dragonslayer as legendary weapon] +1/+3 vs. dragons, blessed by *Marduk*.
1,The dwarven hammer *Ironslayer*[here store Ironslayer as legendary weapon] +1/+3 vs. armoured foes, made by the legendary *[dwarf name]* of *[dwarf forge]*.
1,A *long sword of light* +3 (60ft), made in Asgard for the valkyrie *[valkyrie name]*[here store [same valkyrie name]’s sword as legendary weapon] (the sword rejects anybody who refuses to join three fights while carrying the sword).
1,The *Club of the Slayer*[here store club of the slayer as legendary weapon] +1/+3 vs. giants, blessed by *Marduk*.
1,A smoking, quivering *black arrow of death* +2, carrying the curse of *Nergal*, ready to take root in a target: if hit, save vs. death or die; the arrow’s curse is lost when shot whether it hits or misses.
1,The two handed *Icekiller*[here store Icekiller as legendary weapon] +3, forged by the frost giant *[frost giant name]* in Jotunheim; when the blade is drawn, snow flakes form; when it is stuck into water, a layer of ice forms (10ft); when left uns...
1,The long sword *Swampfire*[here store Swampfire as legendary weapon] +1/+3 vs. runners, forged in the depths of Myrkheim by frogling priests of Tsathoggua; it eeks a phosphorous glowing liquid and smells of rotten eggs; when left unsheathed, every...
1,The *Trident of Fishes*[here store Trident of Fishes as legendary weapon] +1 gives you long, webbed toes and the ability to breathe under water when you step into it, and you can speak the language of fishes.
1,The ancient war hammer *Earth Hammer*[here store Earth Hammer as legendary weapon] +3, made by *[orc name]* in the *War of the Landgrab*: it can smash any structure built by man in three blows.
1,The long bow *Life Ender*[here store Life Ender as legendary weapon] +1/+3 vs. the living, forged in the *Vampire Wars*
1,[neolithic magic weapon]
;magic weapon for magic user
5,An elven *dagger* +1 with [elven inscription][here store the dagger of [same owner] as elf treasure]
3,A goblin assassin’s *dagger* +1 with grip covered by rats’ teeth and lizard skin.
2,A *dagger* +1 consecrated to *[power]*.
1,A *dagger* +1 with the pommel being a small talking head of *[power]* always there to recommend a violent course of action.
1,A *dagger* +1 consecrated to *[evil power]* poisoning your thoughts with images of you stabbing anybody you are talking to.
1,The dagger *Lifeblood* +1 which allows you to transfer the power of life by cutting somebody and having somebody else drink it.
1,The dagger *Stonecutter*[here store Stonecutter as legendary weapon] +1 which allows you to slowly cut through stone.
1,A magic *tongue dagger* +1 with a sticky tongue wrapped around its grip which can pick up unguarded items within 2m, consecrated to Tsathoggua.
3,A dwarven *dagger* +2 with [dwarven inscription]
1,The dagger *Tin Opener*[here store Tin Opener as legendary weapon] +1/+3 vs. armoured foes, with etchings on its blade showing a peasant stabbing a knight into the visor.
1,The black dagger *Kingslayer*[here store Kingslayer as legendary weapon] +1, blessed by *Set*: a target hit in the surprise round must save vs. poison or die.
1,The dagger *Heart Eater*[here store Heart Eater as legendary weapon] +1/+3 vs. humans, with etchings on its blade showing a human sacrifice.
1,The elven silver dagger *Celestial Guardian*[here store Celestial Guardian as legendary weapon] +1/+3 vs. devils.
1,A magic silver rune dagger *Moonshine*[here store Moonshine as legendary weapon] +1/+3 vs. were-creatures.
;magic armour
3,[magic armour for magic user]
4,A suit of elven *plate armour* +1 with [elven inscription][here store the armour of [same owner] as elf treasure]
2,A suit of dwarven *plate armour* +2 with [dwarven inscription]
share/hex-describe-schroeder-table.txt view on Meta::CPAN
1,horse, allows you to ride
1,black cat, allows you to sneak
;unique item
1,
0,The *[here name for a light elf legendary item]*, an ancient light elf heirloom.
;spellbooks
1,<h1 id="appendix-a">Appendix A: Spellbooks</h1><p>These spells are from the <a href="https://alexschroeder.ch/pdfs/spellcasters/">Spellcasters</a> project.<div style="font-size: smaller; column-count: 2">[halberds & helmets: spellbooks]</div>
# Use make hex-describe in the spellcasters working directory to generate the following
Game-TextMapper
view release on metacpan or search on metacpan
lib/Game/TextMapper/Traveller.pm view on Meta::CPAN
$text .= sprintf("%02d%02d @$tile\n", $x + 1, $y + 1);
}
}
}
$text .= join("\n", @$comms, "\ninclude traveller.txt\n");
$text .= $self->legend();
return $text;
}
sub legend {
my $self = shift;
my $template = qq{# frame and legend};
my $x = int(($self->cols + 1) * 1.5 * $dx);
my $y = int(($self->rows + 1) * $dy + 5);
$template .= qq{
other <rect fill="none" stroke="black" stroke-width="10" x="0" y="-50" width="$x" height="$y" />},
$x = int(($self->cols + 1) * 0.75 * $dx);
Game-TileMap
view release on metacpan or search on metacpan
lib/Game/TileMap.pm view on Meta::CPAN
use Carp qw(croak);
use Game::TileMap::Legend;
use Game::TileMap::Tile;
has param 'legend' => (
# isa => InstanceOf ['Game::TileMap::Legend'],
);
has field 'coordinates' => (
lib/Game/TileMap.pm view on Meta::CPAN
with qw(
Game::TileMap::Role::Checks
Game::TileMap::Role::Helpers
);
sub new_legend
{
my $self = shift;
return Game::TileMap::Legend->new(@_);
}
lib/Game/TileMap.pm view on Meta::CPAN
}
sub from_string
{
my ($self, $map_str) = @_;
my $per_tile = $self->legend->characters_per_tile;
my @map_lines =
reverse
grep { length }
map { s/\s//g; $_ }
lib/Game/TileMap.pm view on Meta::CPAN
my @map;
foreach my $line (@map_lines) {
my @objects;
while (length $line) {
my $marker = substr $line, 0, $per_tile, '';
push @objects, ($self->legend->objects->{$marker} // croak "Invalid map marker '$marker'");
}
push @map, \@objects;
}
lib/Game/TileMap.pm view on Meta::CPAN
if @{$map[$line]} != $map_size[0];
for my $col (0 .. $#{$map[$line]}) {
my $prev_obj = $map[$line][$col];
my $obj = Game::TileMap::Tile->new(
legend => $self->legend,
contents => $prev_obj,
x => $col,
y => $line,
);
$new_map[$col][$line] = $obj;
push @{$guide{$self->legend->get_class_of_object($prev_obj)}}, $obj;
}
}
$self->_set_coordinates(\@new_map);
$self->_set_size_x($map_size[0]);
lib/Game/TileMap.pm view on Meta::CPAN
}
sub to_string_and_mark
{
my ($self, $mark_positions, $with) = @_;
$with //= '!' x $self->legend->characters_per_tile;
my @lines;
my %markers_rev = map {
$self->legend->objects->{$_} => $_
} keys %{$self->legend->objects};
my $mark = \undef;
my $coordinates = $self->coordinates;
if ($mark_positions) {
$coordinates = dclone $coordinates;
lib/Game/TileMap.pm view on Meta::CPAN
=head1 SYNOPSIS
use Game::TileMap;
# first, create a map legend
my $legend = Game::TileMap->new_legend;
$legend
->add_wall('#')
->add_void('.')
->add_terrain('_' => 'pavement')
->add_object('monster_spawns', 'a' => 'spawn_a')
->add_object('monster_spawns', 'b' => 'spawn_b')
lib/Game/TileMap.pm view on Meta::CPAN
.__.......
MAP
my $map = Game::TileMap->new(
legend => $legend,
map => $map_str
);
# map can be queried to get some info about its contents
my @monsters = $map->get_all_of_class('monster_spawns');
lib/Game/TileMap.pm view on Meta::CPAN
Maps can be created out of strings or arrays of arrays and are stored as an
array of array of L<Game::TileMap::Tile>. Some helpful features are in place:
=over
=item * map markers (usually just single characters) are translated into objects specified in the legend
Map characters can't be whitespace (whitespace is removed before processing -
can be used for improved visibility).
Legend objects can't be falsy, but other than that they can be anything
(string, object, reference).
=item * each legend object is assigned to a class, which you can query for later
If you add a class C<surroundings>:
$legend->add_object('surroundings', '@' => 'trash bin')
->add_object('surroundings', '=' => 'desk')
->add_object('surroundings', 'H' => 'locker')
->add_object('surroundings', 'L' => 'chair');
Then you can easily get information about locations of those tiles on a map:
lib/Game/TileMap.pm view on Meta::CPAN
$map->coordinates->[3][5]; # actual point at [3;5]
=item * supports multi-character maps
my $legend = Game::TileMap->new_legend(characters_per_tile => 2);
$legend
->add_wall('##')
->add_void('..')
->add_terrain('__' => 'pavement')
->add_terrain('_~' => 'mud')
->add_terrain('_,' => 'grass')
lib/Game/TileMap.pm view on Meta::CPAN
=back
=head2 Attributes
=head3 legend
A reference to map legend. Required in constructor.
=head3 coordinates
The constructed map: array of array of L<Game::TileMap::Tile>.
lib/Game/TileMap.pm view on Meta::CPAN
Vertical size of the map.
=head2 Methods
=head3 new_legend
Static method which returns a new instance of L<Game::TileMap::Legend>. Note
that legends are reusable.
=head3 new
Moose-flavored constructor. Possible arguments are:
lib/Game/TileMap.pm view on Meta::CPAN
Optional.
Map input that will be passed to L<from_string> or L<from_array>.
=item * C<< legend => InstanceOf ['Game::TileMap::Legend'] >>
Required.
Legend of the map, which describes its contents.
=back
=head3 from_string
my $map = Game::TileMap->new(legend => $legend);
$map->from_string($map_str);
Creates a map from a string.
=head3 from_array
my $map = Game::TileMap->new(legend => $legend);
$map->from_array($map_aref);
Creates a map from an array.
=head3 to_string
Game-WordBrain
view release on metacpan or search on metacpan
lib/Game/WordBrain/WordList.pm view on Meta::CPAN
legatos
legature
legatus
legbar
lege
legend
legend's
legenda
legendarian
legendaries
legendarily
legendary
legendic
legendist
legendize
legendized
legendizing
legendless
legendries
legendry
legends
leger
legerdemain
legerdemainist
legerete
legerities
lib/Game/WordBrain/WordList.pm view on Meta::CPAN
outlearned
outlearning
outlearns
outlearnt
outled
outlegend
outlength
outlengthen
outler
outlet
outlet's
lib/Game/WordBrain/WordList.pm view on Meta::CPAN
prelecturing
prelegacy
prelegal
prelegate
prelegatee
prelegend
prelegendary
prelegislative
prelexical
preliability
preliable
prelibation
lib/Game/WordBrain/WordList.pm view on Meta::CPAN
pseudolaminated
pseudolateral
pseudolatry
pseudolegal
pseudolegality
pseudolegendary
pseudolegislative
pseudoleucite
pseudoleucocyte
pseudoleukemia
pseudoleukemic
lib/Game/WordBrain/WordList.pm view on Meta::CPAN
semilate
semilatent
semilatus
semileafless
semilegal
semilegendary
semilegislative
semilegislatively
semilens
semilenticular
semilethal
Games-Axmud
view release on metacpan or search on metacpan
lib/Games/Axmud/Client.pm view on Meta::CPAN
'iberia' => '1.0.0', # Iberia MUD / iberiamud.com 5900
'icesus' => '1.1.0', # Icesus / naga.icesus.org 4000
'ifmud' => '1.0.275', # ifMUD / ifmud.port4000.com 4000
'imperian' => '1.0.376', # Imperian: Sundered Heavens / imperian.com 23
'islands' => '1.1.0', # Islands / play.islands-game.live 3000
'kallisti' => '1.1.0', # Legends of Kallisti / legendsofkallisti.com 4000
'lambda' => '1.1.0', # LambdaMOO / lambda.moo.mud.org 8888
'legendmud' => '1.0.275', # LegendMUD / mud.legendmud.org 9999
'lostsouls' => '1.1.0', # Lost Souls / lostsouls.org 23
'lowlands' => '1.3.0', # Lowlands / lolamud.net 6969
'luminari' => '1.1.0', # Luminari MUD / luminarimud.com 4100
'lusternia' => '1.0.0', # Lusternia / lusternia.com 23
'magica' => '1.0.140', # Materia Magica / materiamagica.com 4000
lib/Games/Axmud/Client.pm view on Meta::CPAN
'merentha' => '1.0.050', # Merentha / mud.merentha.com 10000
'midnightsun' => '1.1.270', # Midnight Sun / midnightsun2.org 3000
'miriani' => '1.1.050', # Miriani / toastsoft.net 1234
'morgengrauen' => '1.1.0', # MorgenGrauen / mg.mud.de 23
'mud1' => '1.1.0', # MUD1 (British Legends)
# / british-legends.com 27750
'mud2' => '1.1.0', # MUD2 (Canadian server) / mud2.com 23
'mudii' => '1.1.0', # MUD2 (UK server) / mud2.com 23
'mume' => '1.1.050', # MUME / mume.org 23
'nannymud' => '1.1.270', # NannyMUD / mud.lysator.liu.se 2000
'nanvaent' => '1.0.0', # Nanvaent / nanvaent.org 23
Games-Cryptoquote
view release on metacpan or search on metacpan
t/patterns.txt view on Meta::CPAN
1|2|3|2|5|4|7|8|9|6|2|12:necessitated|
1|2|3|2|5|4|7|8|9|6|2|4:necessitates|
1|2|3|2|5|4|7|8|9|6|5|12|1:necessitation|
1|2|3|2|5|4|7|8|9|6|5|1|13:necessitating|
1|2|3|2|5|4|7|8|9|7|11:perennially|
1|2|3|2|5|6:Aegean|Aeneas|Aeneid|Bamako|Banach|Bogota|Calais|Duluth|Fijian|Geneva|Helena|Jeremy|Legers|Lilian|Loyola|Madame|Malawi|Mayans|Meyers|Miriam|Moloch|Navaho|Navajo|Peters|Pomona|Rafael|Selena|Seneca|Severn|Sicily|Sirius|Sonoma|Sonora|Staten|...
1|2|3|2|5|6|1:damaged|ensnare|ravager|savages|selects|sidings|sizings|statues|sutures|tiniest|
1|2|3|2|5|6|1|2|9|10:monogamous|
1|2|3|2|5|6|1|3:ensnares|
1|2|3|2|5|6|1|5|3|10:management|
1|2|3|2|5|6|1|5|3|10|11:managements|
t/patterns.txt view on Meta::CPAN
1|2|3|2|5|6|4|8|9:deceiving|receiving|unanimity|
1|2|3|2|5|6|4|8|9|10:honoraries|honorarium|vegetation|
1|2|3|2|5|6|4|8|9|2:repeatable|
1|2|3|2|5|6|4|8|9|3:vegetating|
1|2|3|2|5|6|5|8:mutually|parakeet|
1|2|3|2|5|6|7:Audubon|Augusta|Benelux|Beverly|Boeotia|Bologna|Burundi|Cologne|Dadaism|Dadaist|Dolores|Dorothy|Fijians|Genesco|Hoboken|Karachi|Lamarck|Laramie|Lazarus|Madames|Malamud|Natalie|Paramus|Potomac|Riviera|Saracen|Senegal|Statler|Stetson|Tehe...
1|2|3|2|5|6|7|1:herewith|monogram|receptor|rejector|salaries|savagers|stations|stitches|subunits|
1|2|3|2|5|6|7|1|2:redeclare|
1|2|3|2|5|6|7|1|2|10:redeclares|
1|2|3|2|5|6|7|1|2|3:redeclared|
1|2|3|2|5|6|7|1|9:genealogy|limitably|monograms|rejectors|unanimous|
t/patterns.txt view on Meta::CPAN
1|2|3|2|5|6|7|8|6|3|5|6|1:disinterested|
1|2|3|2|5|6|7|8|6|3|5|6|1|4|6|3|3:disinterestedness|
1|2|3|2|5|6|7|8|6|5|11:receptivity|selectivity|
1|2|3|2|5|6|7|8|6|5|4|5|13:uninterpreted|
1|2|3|2|5|6|7|8|6|7|11:determining|
1|2|3|2|5|6|7|8|9:Augustine|Colombian|Dirichlet|Dixieland|Japanized|Japanizes|Malayizes|Molochize|balancers|beheading|bereaving|cataloged|cataloger|celebrity|colonized|colonizer|colonizes|colorings|coroutine|deceasing|deceitful|deception|decertify|de...
1|2|3|2|5|6|7|8|9|1:monotheism|selections|
1|2|3|2|5|6|7|8|9|10:Colombians|Dixiecrats|Molochizes|benefactor|calamitous|ceremonial|colonizers|coroutines|cumulative|deceptions|defections|delegation|developing|federalist|federation|feverishly|filibuster|generalist|generality|generosity|generousl...
1|2|3|2|5|6|7|8|9|10|11:benefactors|celebrating|celebration|delegations|deservingly|determinacy|monographes|revelations|telegraphic|telescoping|vacationers|
1|2|3|2|5|6|7|8|9|10|11|12:celebrations|
1|2|3|2|5|6|7|8|9|10|11|2:determinable|renegotiable|
Games-Go-SGF2misc
view release on metacpan or search on metacpan
sgf/redrose-tartrate.sgf view on Meta::CPAN
;B[ll]BL[1177.061]CR[ll]C[bass [1k\]: hmm?
]
;W[om]WL[1236.225]CR[om]C[Truc [-\]: lol
]
;B[kc]BL[1173.336]CR[kc]
;W[jc]WL[1234.000]CR[jc]C[peke [-\]: Black has to win, can't ruin the legend now. :/
]
;B[kb]BL[1170.401]CR[kb]C[phenomene [1d\]: both are unvainquished
EIKENHEIN [11k\]: yeah, not an even match
Heretix [24k\]: Anyone care to give a little bit of commentary, this game is confusing...
pyramids [6k\]: i like b
Games-Quake-Stats
view release on metacpan or search on metacpan
lib/Games/Quake/Stats.pm view on Meta::CPAN
x_label => 'player',
y_label => 'frags',
title => 'manliness',
bar_spacing => 1,
bargroup_spacing => 10,
legend_spacing => 3,
legend_placement => 'RT',
show_values => 1,
y_max_value => $max_y + int($max_y/10),
#x_label_position => 0,
dclrs => [ ( "orange", "lgreen", "#0050FF", "dgreen", "#00BBBB",
"dblue", "dred", "blue", "dpurple", "lgray" ) ],
) or warn $my_graph->error;
$my_graph->set_legend(@player_names);
$my_graph->plot($data_ref) or croak $my_graph->error;
my $ext = $my_graph->export_format;
my $outfile;
open($outfile, ">$graph_file") or croak "Could not open $graph_file: $!\n";
binmode $outfile;
lib/Games/Quake/Stats.pm view on Meta::CPAN
x_label => 'player',
y_label => 'skill (% frags/fragged)',
title => 'skill',
bar_spacing => 1,
bargroup_spacing => 50,
legend_spacing => 5,
legend_placement => 'RT',
show_values => 1,
y_max_value => $max_y + int($max_y/10),
#x_label_position => 0,
dclrs => [ ( "#017797", "dpurple", "dred", "dgreen", "blue", "green",
"lblue", "dgray", "dgreen", "dblue", "marine" ) ],
) or warn $my_graph->error;
$my_graph->set_legend(@player_names);
$my_graph->plot($data_ref) or croak $my_graph->error;
my $ext = $my_graph->export_format;
my $outfile;
open($outfile, ">$skill_graph_file") or croak "Could not open $skill_graph_file: $!\n";
Games-Rezrov
view release on metacpan or search on metacpan
# >read dusty book
# The first page of the book was the table of contents. Only two
# chapter names can be read: The Legend of the Unseen Terror and
# The Legend of the Great Implementers.
#
# >read legend of the implementers
# This legend, written in an ancient tongue, speaks of the
# creation of the world. A more absurd account can hardly be
# imagined. The universe, it seems, was created by "Implementers"
# who directed the running of great engines. These engines
# produced this world and others, strange and wondrous, as a test
# or puzzle for others of their kind. It goes on to state that
Games-Roshambo
view release on metacpan or search on metacpan
lib/Games/Roshambo/Thrownames.pm view on Meta::CPAN
'75' => 'discards',
'57' => 'discards',
'61' => 'writes on',
'92' => 'has immortal',
'59' => 'discards',
'69' => 'legendary across',
'89' => 'in',
'91' => 'before',
'78' => 'before',
'79' => 'before',
'87' => 'defines',
Games-Word-Wordlist-Enable
view release on metacpan or search on metacpan
lib/Games/Word/Wordlist/Enable.pm view on Meta::CPAN
leftward leftwards leftwing lefty leg legacies legacy legal legalese legaleses
legalise legalised legalises legalising legalism legalisms legalist legalistic
legalistically legalists legalities legality legalization legalizations
legalize legalized legalizer legalizers legalizes legalizing legally legals
legate legated legatee legatees legates legateship legateships legatine
legating legation legations legato legator legators legatos legend legendarily
legendary legendries legendry legends leger legerdemain legerdemains
legerities legerity legers leges legged leggier leggiero leggiest leggin
legginess legginesses legging leggings leggins leggy leghorn leghorns
legibilities legibility legible legibly legion legionaries legionary
legionnaire legionnaires legions legislate legislated legislates legislating
legislation legislations legislative legislatively legislatives legislator
lib/Games/Word/Wordlist/Enable.pm view on Meta::CPAN
semidomestications semidominant semidry semidrying semidwarf semidwarfs
semidwarves semiempirical semierect semievergreen semifeudal semifinal
semifinalist semifinalists semifinals semifinished semifit semifitted
semiflexible semifluid semifluids semiformal semifunctional semigala semigloss
semigovernmental semigroup semigroups semihard semihigh semihobo semihoboes
semihobos semilegendary semilethal semilethals semiliquid semiliquids
semiliterate semiliterates semilog semilogarithmic semilunar semilustrous
semimat semimatt semimatte semimetal semimetallic semimetals semimicro
semimoist semimonastic semimonthlies semimonthly semimute semimystical semina
seminal seminally seminar seminarian seminarians seminaries seminarist
seminarists seminars seminary seminatural seminiferous seminomad seminomadic
Gantry-Plugins-Uaf
view release on metacpan or search on metacpan
root/uaf_login.tt view on Meta::CPAN
[% title = view.title %]
<form method="post" action="/login" name="login">
<div id="login" class="login">
<fieldset>
<legend>Please Login</legend>
<div class="username">
<label for="username">Username:</label>
<input type="text" name="username" size="32" value="demo" id="username">
</div>
<div class="password">
Gantry
view release on metacpan or search on metacpan
lib/Gantry/Control/C/Groups.pm view on Meta::CPAN
});
}
my $form = {
ajax_java_script => $ajax->define_javascript_functions,
legend => "Add/Remove Members",
back => $$self{location},
fields => \@fields
};
# stash form
lib/Gantry/Control/C/Groups.pm view on Meta::CPAN
my ( $self, $data ) = @_;
my $row = $data->{row};
my $form = {
legend => $self->path_info =~ /edit/i ? 'Edit' : 'Add',
row => $row,
fields => [
{ name => 'name',
label => 'Group Name',
type => 'text',
Genealogy-Obituary-Parser
view release on metacpan or search on metacpan
scripts/generate_index.pl view on Meta::CPAN
},
title: { display: true, text: 'Commit Date' }
},
y: { beginAtZero: true, max: 100, title: { display: true, text: 'Coverage (%)' } }
}, plugins: {
legend: {
display: true,
position: 'top', // You can also use 'bottom', 'left', or 'right'
labels: {
boxWidth: 12,
padding: 10,
scripts/generate_index.pl view on Meta::CPAN
}, options: {
responsive: false,
maintainAspectRatio: false,
elements: { line: { borderJoinStyle: 'round' } },
plugins: {
legend: { display: false },
tooltip: { enabled: false },
zoom: { // Enable zoom and pan
pan: {
enabled: true,
mode: 'x',
Genetics
view release on metacpan or search on metacpan
Genetics/API/Analysis.pm view on Meta::CPAN
bar_spacing => 3,
# shadow_depth => 2,
# shadowclr => 'black',
transparent => 0,
) or carp "WARNING [graphAlleleFreqs]: " . $graph->error ;
$graph->set_legend( @sourceNames );
$graph->plot( \@data ) or croak "ERROR [graphAlleleFreqs]: " . $graph->error ;
$fileName = "/tmp/$$.png" ;
&_saveGraphToFile($graph, $fileName) ;
system("xv $fileName &") == 0 or
croak "ERROR [graphAlleleFreqs]: system xv $fileName & failed: $?" ;
Genome-Model-Tools-Music
view release on metacpan or search on metacpan
lib/Genome/Model/Tools/Music/Survival.pm view on Meta::CPAN
},
phenotypes_to_include => {
is => 'Text', is_optional => 1,
doc => "Include only these genes and/or phenotypes in the anlaysis. (COMMA-DELIMITED)",
},
legend_placement => {
is => 'Text', is_optional => 1, default => 'bottomleft',
doc => "Choose one of 'bottomleft', 'topleft', 'topright', or 'bottomright'.",
},
skip_non_coding => {
is => 'Boolean', is_optional => 1, default => 1,
lib/Genome/Model/Tools/Music/Survival.pm view on Meta::CPAN
# parse input arguments
my $self = shift;
my $bam_list = $self->bam_list;
my $genetic_data_type = $self->genetic_data_type;
my $legend_placement = $self->legend_placement;
# handle phenotype inclusions
my @phenotypes_to_include;
my @clinical_phenotypes_to_include;
my @mutated_genes_to_include;
lib/Genome/Model/Tools/Music/Survival.pm view on Meta::CPAN
return;
}
}
# set up R command
my $R_cmd = "R --slave --args < " . __FILE__ . ".R " . join( " ", $survival_data_file, $mutation_matrix, $legend_placement, $output_dir );
print "R_cmd:\n$R_cmd\n";
#run R command
WIFEXITED( system $R_cmd ) or croak "Couldn't run: $R_cmd ($?)";
Gentoo-Probe
view release on metacpan or search on metacpan
t/sandbox/usr/portage/net-dns/djbdns/djbdns-1.05-r10.ebuild view on Meta::CPAN
DESCRIPTION="Excellent high-performance DNS services"
HOMEPAGE="http://cr.yp.to/djbdns.html"
SRC_URI="http://cr.yp.to/djbdns/${P}.tar.gz
fwdzone? ( http://www.skarnet.org/software/djbdns-fwdzone/djbdns-1.04-fwdzone.patch )
roundrobin? ( http://www.legend.co.uk/djb/dns/round-robin.patch )
ipv6? ( http://www.fefe.de/dns/djbdns-1.05-test20.diff.bz2 )"
SLOT="0"
LICENSE="as-is"
KEYWORDS="~x86"
Geo-Cache
view release on metacpan or search on metacpan
t/sample.gpx view on Meta::CPAN
B. Our second stop on our little journey is on the East Side of the county.<br><br>
N 39° 01.468<br>
W087° 58.279<br><br>
It's the Mound Cemetery where music legend Burl Ives is buried. <A HREF="http://eiuhalloffame.tripod.com/burlives/ivesmonument.html">Link here</a><br><br>
Please stop and read his Monument. It's very nicely done.<br>
My Grandparents are also here on the east side.<br>
Today we come to visit “Sarah C. White†She was<br>
Born in 18BB and Died in 1928<br><br>
Geo-Coder-List
view release on metacpan or search on metacpan
scripts/generate_index.pl view on Meta::CPAN
},
title: { display: true, text: 'Commit Date' }
},
y: { beginAtZero: true, max: 100, title: { display: true, text: 'Coverage (%)' } }
}, plugins: {
legend: {
display: true,
position: 'top', // You can also use 'bottom', 'left', or 'right'
labels: {
boxWidth: 12,
padding: 10,
scripts/generate_index.pl view on Meta::CPAN
}, options: {
responsive: false,
maintainAspectRatio: false,
elements: { line: { borderJoinStyle: 'round' } },
plugins: {
legend: { display: false },
tooltip: { enabled: false },
zoom: { // Enable zoom and pan
pan: {
enabled: true,
mode: 'x',
Geo-Coordinates-OSGB
view release on metacpan or search on metacpan
lib/Geo/Coordinates/OSGB/Grid.pm view on Meta::CPAN
($sq, $e, $n) = format_grid(438710.908, 114792.248); # ('SU', 387, 147)
Note that rather than being rounded, the easting and northing are
B<truncated> to hectometres (as the OS system demands), so the grid
reference refers to the lower left corner of the relevant 100m square.
The system is described below the legend on all OS Landranger maps.
The format grid routine takes an optional third argument to control the
form of grid reference returned. This should be a hash reference with
one or more of the keys shown below (with the default values).
Geo-GDAL
view release on metacpan or search on metacpan
# The default value is: NO.
# This tag requires that the tag HAVE_DOT is set to YES.
DOT_MULTI_TARGETS = NO
# If the GENERATE_LEGEND tag is set to YES doxygen will generate a legend page
# explaining the meaning of the various boxes and arrows in the dot generated
# graphs.
# The default value is: YES.
# This tag requires that the tag HAVE_DOT is set to YES.
Geo-GeoNames
view release on metacpan or search on metacpan
scripts/generate_index.pl view on Meta::CPAN
},
title: { display: true, text: 'Commit Date' }
},
y: { beginAtZero: true, max: 100, title: { display: true, text: 'Coverage (%)' } }
}, plugins: {
legend: {
display: true,
position: 'top', // You can also use 'bottom', 'left', or 'right'
labels: {
boxWidth: 12,
padding: 10,
scripts/generate_index.pl view on Meta::CPAN
}, options: {
responsive: false,
maintainAspectRatio: false,
elements: { line: { borderJoinStyle: 'round' } },
plugins: {
legend: { display: false },
tooltip: { enabled: false },
zoom: { // Enable zoom and pan
pan: {
enabled: true,
mode: 'x',
Geo-ISO19139
view release on metacpan or search on metacpan
lib/Geo/ISO19139/xsd/2005/gmd/identification.xsd view on Meta::CPAN
<xs:attribute ref="gco:nilReason"/>
</xs:complexType>
<!-- =========================================================================== -->
<xs:complexType name="MD_BrowseGraphic_Type">
<xs:annotation>
<xs:documentation>Graphic that provides an illustration of the dataset (should include a legend for the graphic)</xs:documentation>
</xs:annotation>
<xs:complexContent>
<xs:extension base="gco:AbstractObject_Type">
<xs:sequence>
<xs:element name="fileName" type="gco:CharacterString_PropertyType"/>
( run in 1.179 second using v1.01-cache-2.11-cpan-9e8f1244128 )