Result:
found more than 419 distributions - search limited to the first 2001 files matching your query
( run in 0.979 )
HTML-Obj2HTML
view release on metacpan or search on metacpan
lib/HTML/Obj2HTML.pm view on Meta::CPAN
input => END_TAG_FORBIDDEN,
ins => END_TAG_REQUIRED,
kbd => END_TAG_REQUIRED,
keygen => END_TAG_FORBIDDEN,
label => END_TAG_REQUIRED,
legend => END_TAG_REQUIRED,
li => END_TAG_REQUIRED,
link => END_TAG_FORBIDDEN,
main => END_TAG_REQUIRED,
map => END_TAG_REQUIRED,
mark => END_TAG_REQUIRED,
HTML-Object
view release on metacpan or search on metacpan
lib/HTML/Object/DOM.pm view on Meta::CPAN
# Deprecated
isindex => 'HTML::Object::DOM::Element::Unknown',
# Deprecated
keygen => 'HTML::Object::DOM::Element::Unknown',
label => 'HTML::Object::DOM::Element::Label',
legend => 'HTML::Object::DOM::Element::Legend',
li => 'HTML::Object::DOM::Element::LI',
'link' => 'HTML::Object::DOM::Element::Link',
listing => 'HTML::Object::DOM::Element::Pre',
'map' => 'HTML::Object::DOM::Element::Map',
marquee => 'HTML::Object::DOM::Element::Marquee',
HTML-Packer
view release on metacpan or search on metacpan
t/04-leaks_full.t view on Meta::CPAN
<html>
<head>
<meta charset="utf-8">
<style type="text/css">
html, body, div, span, applet, object, iframe, h1, h2, h3, h4, h5, h6, p, blockquote, pre, a, abbr, acronym, address, big, cite, code, del, dfn, em, img, ins, kbd, q, s, samp, small, strike, strong, sub, sup, tt, var, b, u, i, center, dl, dt, dd, ol,...
margin : 0;
padding : 0;
border : 0;
font-size : 100%;
font : inherit;
HTML-Prototype
view release on metacpan or search on metacpan
lib/HTML/Prototype.pm view on Meta::CPAN
<% $c->prototype->define_javascript_functions %>
<form action="/bar" method="post" id="baz">
<fieldset>
<legend>Type search terms</legend>
<label for="acomp"><span class="field">Search:</span></label>
<input type="text" name="acomp" id="acomp"/>
<span style="display:none" id="acomp_stat">Searching...</span><br />
</fieldset>
</form>
HTML-TagTree
view release on metacpan or search on metacpan
lib/HTML/TagTree.pm view on Meta::CPAN
'input' => 'Defines an input field 3.0 3.0 STF ',
'ins' => 'Defines inserted text 6.2 4.0 STF ',
'isindex' => 'Deprecated. Defines a single-line input field 3.0 3.0 TF ',
'kbd' => 'Defines keyboard text 3.0 3.0 STF ',
'label' => 'Defines a label for a form control 6.2 4.0 STF ',
'legend' => 'Defines a title in a fieldset 6.2 4.0 STF ',
'li' => 'Defines a list item 3.0 3.0 STF ',
'link' => 'Defines a resource reference 4.0 3.0 STF ',
'map' => 'Defines an image map 3.0 3.0 STF ',
'menu' => 'Deprecated. Defines a menu list 3.0 3.0 TF ',
'meta' => 'Defines meta information 3.0 3.0 STF ',
HTML-Tagset
view release on metacpan or search on metacpan
lib/HTML/Tagset.pm view on Meta::CPAN
# List of all elements from Extensible HTML version 1.0 Transitional DTD:
#
# a abbr acronym address applet area b base basefont bdo big
# blockquote body br button caption center cite code col colgroup
# dd del dfn dir div dl dt em fieldset font form h1 h2 h3 h4 h5 h6
# head hr html i iframe img input ins isindex kbd label legend li
# link map menu meta noframes noscript object ol optgroup option p
# param pre q s samp script select small span strike strong style
# sub sup table tbody td textarea tfoot th thead title tr tt u ul
# var
#
lib/HTML/Tagset.pm view on Meta::CPAN
hr
ol ul dir menu li
dl dt dd
ins del
fieldset legend
map area
applet param object
isindex script noscript
table
HTML-Tiny
view release on metacpan or search on metacpan
lib/HTML/Tiny.pm view on Meta::CPAN
em embed
fieldset figcaption figure font footer form frame frameset
h1 h2 h3 h4 h5 h6 head header hgroup hr html
i iframe img input ins
kbd keygen
label legend li link
main map mark marquee menu menuitem meta meter
nav nobr noframes noscript
object ol optgroup option output
p param picture portal pre progress
q
lib/HTML/Tiny.pm view on Meta::CPAN
a abbr acronym address applet area article aside audio b base bdi bdo big
blink blockquote body br button canvas caption center cite code col colgroup
data datalist dd del details dfn dialog dir div dl dt em embed fieldset
figcaption figure font footer form frame frameset h1 h2 h3 h4 h5 h6 head
header hgroup hr html i iframe img input ins kbd keygen label legend li link
main map mark marquee menu menuitem meta meter nav nobr noframes noscript
object ol optgroup option output p param picture portal pre progress q rb rp
rt rtc ruby s samp script section select slot small source spacer span strike
strong style sub summary sup table tbody td template textarea tfoot th thead
time title tr track tt u ul var video wbr xmp
HTML-Untidy
view release on metacpan or search on metacpan
lib/HTML/Untidy.pm view on Meta::CPAN
em embed
fieldset figcaption figure footer form
h1 h2 h3 h4 h5 h6 head header hgroup hr html
i iframe img input ins
kbd
label legend li link
main map mark menu menuitem meta meter
nav noframes noscript
object ol optgroup option output
p param picture pre progress
q
lib/HTML/Untidy.pm view on Meta::CPAN
Exports every HTML5 tag I could find.
a abbr address area article aside audio b base bdi bdo blockquote body br
button canvas caption cite code col colgroup data datalist dd del details dfn
dialog div dl dt em embed fieldset figcaption figure footer form h1 h2 h3 h4
h5 h6 head header hgroup hr html i iframe img input ins kbd label legend li
link main map mark menu menuitem meta meter nav noframes noscript object ol
optgroup option output p param picture pre progress q rp rt rtc ruby s samp
script section select slot small source span strong style sub summary sup
table tbody td template textarea tfoot th thead time title tr track u ul var
video wbr
HTML-Valid
view release on metacpan or search on metacpan
tidy-html5.c view on Meta::CPAN
{ TidyTag_INPUT, "input", VERS_ELEM_INPUT, &TY_(W3CAttrsFor_INPUT)[0], (CM_INLINE|CM_IMG|CM_EMPTY), TY_(ParseEmpty), NULL },
{ TidyTag_INS, "ins", VERS_ELEM_INS, &TY_(W3CAttrsFor_INS)[0], (CM_INLINE|CM_BLOCK|CM_MIXED), TY_(ParseInline), NULL },
{ TidyTag_ISINDEX, "isindex", VERS_ELEM_ISINDEX, &TY_(W3CAttrsFor_ISINDEX)[0], (CM_BLOCK|CM_EMPTY), TY_(ParseEmpty), NULL },
{ TidyTag_KBD, "kbd", VERS_ELEM_KBD, &TY_(W3CAttrsFor_KBD)[0], (CM_INLINE), TY_(ParseInline), NULL },
{ TidyTag_LABEL, "label", VERS_ELEM_LABEL, &TY_(W3CAttrsFor_LABEL)[0], (CM_INLINE), TY_(ParseInline), NULL },
{ TidyTag_LEGEND, "legend", VERS_ELEM_LEGEND, &TY_(W3CAttrsFor_LEGEND)[0], (CM_INLINE), TY_(ParseInline), NULL },
{ TidyTag_LI, "li", VERS_ELEM_LI, &TY_(W3CAttrsFor_LI)[0], (CM_LIST|CM_OPT|CM_NO_INDENT), TY_(ParseBlock), NULL },
{ TidyTag_LINK, "link", VERS_ELEM_LINK, &TY_(W3CAttrsFor_LINK)[0], (CM_HEAD|CM_BLOCK|CM_EMPTY), TY_(ParseEmpty), CheckLINK },
{ TidyTag_LISTING, "listing", VERS_ELEM_LISTING, &TY_(W3CAttrsFor_LISTING)[0], (CM_BLOCK|CM_OBSOLETE), TY_(ParsePre), NULL },
{ TidyTag_MAP, "map", VERS_ELEM_MAP, &TY_(W3CAttrsFor_MAP)[0], (CM_INLINE), TY_(ParseBlock), NULL },
{ TidyTag_MATHML, "math", VERS_ELEM_MATHML, &TY_(W3CAttrsFor_MATHML)[0], (CM_INLINE|CM_BLOCK|CM_MIXED), TY_(ParseNamespace),NULL }, /* [i_a]2 */
HTML-Widget
view release on metacpan or search on metacpan
examples/big.pl view on Meta::CPAN
use HTML::Widget;
use Test::MockObject;
my $w1 = HTML::Widget->new('widget1')->legend('widget1');
my $w2 = HTML::Widget->new('widget2');
$w1->element( 'Checkbox', 'checkbox1' )->label('Checkbox1');
$w1->element( 'Checkbox', 'checkbox2' )->label('Checkbox3');
$w1->element( 'Checkbox', 'checkbox3' )->label('Checkbox2');
HTML5-DOM
view release on metacpan or search on metacpan
scripts/tags.txt view on Meta::CPAN
ruby ruby
rb ruby-base
rp none
rt ruby-text
rtc ruby-text-container
legend block
fieldset block
select inline-block
option block
optgroup block
button inline-block
Haineko
view release on metacpan or search on metacpan
eg/sendmail.html view on Meta::CPAN
fieldset {
padding: 8px 4px 32px 4px;
border: 1px #ccc solid;
border-radius: 8px;
}
legend { color: #ccc; margin: 2px 8px; }
tr th {
text-align: right;
color: #222;
margin: 8px;
padding: 8px 12px 4px 0;
eg/sendmail.html view on Meta::CPAN
<body>
<h1>Haineko/eg/sendmail.html</h1>
<div id = 'emaildata'>
<h2>Email Data</h2>
<fieldset>
<legend>Email</legend>
<table id = 'email'>
<tr>
<th style = 'text-align: right;'>
<button type = 'submit' id = 'sendmail' onclick = 'submit();'>
Send
Harvey
view release on metacpan or search on metacpan
Word/noun.txt view on Meta::CPAN
leg,legs
legacy,legacies
legality,legalities
legate,legates
legation,legations
legend,legends
legging,leggings
legion,legions
legionary,legionaries
legionnaire,legionnaires
legislation,legislations
HiPi-BCM2835
view release on metacpan or search on metacpan
BCM2835/src/doc/Doxyfile.in view on Meta::CPAN
# support this, this feature is disabled by default.
DOT_MULTI_TARGETS = NO
# If the GENERATE_LEGEND tag is set to YES (the default) Doxygen will
# generate a legend page explaining the meaning of the various boxes and
# arrows in the dot generated graphs.
GENERATE_LEGEND = YES
# If the DOT_CLEANUP tag is set to YES (the default) Doxygen will
Hopkins-Plugin-HMI
view release on metacpan or search on metacpan
share/root/static/yui/assets/dpSyntaxHighlighter.js view on Meta::CPAN
dp.sh.Brushes.CSS = function() {
//Not used yet - added to values
var tags = 'abbr acronym address applet area a b base basefont bdo big blockquote body br button ' +
'caption center cite code col colgroup dd del dfn dir div dl dt em fieldset form frame frameset h1 h2 h3 h4 h5 h6 head hr html img i ' +
'iframe img input ins isindex kbd label legend li link map menu meta noframes noscript ol optgroup option p param pre q s samp script select ' +
'span strike strong style sub sup table tbody td textarea tfoot th thead title tr tt ul u';
var keywords = 'ascent azimuth background-attachment background-color background-image background-position ' +
'background-repeat background baseline bbox border-collapse border-color border-spacing border-style border-top ' +
'border-right border-bottom border-left border-top-color border-right-color border-bottom-color border-left-color ' +
'border-top-style border-right-style border-bottom-style border-left-style border-top-width border-right-width ' +
Hypatia-Chart-Clicker
view release on metacpan or search on metacpan
lib/Hypatia/Chart/Clicker/Options.pm view on Meta::CPAN
has 'height'=>(isa=>PositiveInt,is=>'ro',default=>300);
#TODO: Legend options
has 'legend_position'=>(isa=>Position,is=>'ro',default=>"south");
has "padding"=>(isa=>Padding,is=>"ro",coerce=>1,default=>sub{ Graphics::Primitive::Insets->new({top=>3,bottom=>3,right=>3,left=>3}) });
#has "title"=>(isa=>"TitleOptions", is=>"ro", coerce=>1, default=>sub{ Hypatia::Chart::Clicker::Options::Title->new });
lib/Hypatia/Chart/Clicker/Options.pm view on Meta::CPAN
=head2 width,height
The width and height of the resulting image. The defaults are 500 and 300, respectively.
=head2 legend_position
One of C<north>, C<west>, C<east>, C<south>, or C<center>. The default is C<south>.
=head2 padding
IO-Compress-Brotli
view release on metacpan or search on metacpan
brotli/c/common/dictionary.bin view on Meta::CPAN
he left).val()false);logicalbankinghome tonaming Arizonacredits);
});
founderin turnCollinsbefore But thechargedTitle">CaptainspelledgoddessTag -->Adding:but wasRecent patientback in=false&Lincolnwe knowCounterJudaismscript altered']);
has theunclearEvent',both innot all
<!-- placinghard to centersort ofclientsstreetsBernardassertstend tofantasydown inharbourFreedomjewelry/about..searchlegendsis mademodern only ononly toimage" linear painterand notrarely acronymdelivershorter00&as manywidth="/* <![Ctitle =of the ...
bombingmailto:made in. Many carries||{};wiwork ofsynonymdefeatsfavoredopticalpageTraunless sendingleft"><comScorAll thejQuery.touristClassicfalse" Wilhelmsuburbsgenuinebishops.split(global followsbody ofnominalContactsecularleft tochiefly-hidden-bann...
. When in bothdismissExplorealways via thespañolwelfareruling arrangecaptainhis sonrule ofhe tookitself,=0&(calledsamplesto makecom/pagMartin Kennedyacceptsfull ofhandledBesides//--></able totargetsessencehim to its by common.mineralto takeways ...
it intoranked rate oful>
attemptpair ofmake itKontaktAntoniohaving ratings activestreamstrapped").css(hostilelead tolittle groups,Picture-->
brotli/c/common/dictionary.bin view on Meta::CPAN
solutionswhen the Analyticstemplatesdangeroussatellitedocumentspublisherimportantprototypeinfluence»</effectivegenerallytransformbeautifultransportorganizedpublishedprominentuntil thethumbnailNational .focus();over the migrationannouncedfooter"...
exceptionless thanexpensiveformationframeworkterritoryndicationcurrentlyclassNamecriticismtraditionelsewhereAlexanderappointedmaterialsbroadcastmentionedaffiliate</option>treatmentdifferent/default.Presidentonclick="biographyotherwisepermanentFrança...
reductionDecember preferredCambridgeopponentsBusiness confusion>
<title>presentedexplaineddoes not worldwideinterfacepositionsnewspaper</table>
mountainslike the essentialfinancialselectionaction="/abandonedEducationparseInt(stabilityunable to</title>
relationsNote thatefficientperformedtwo yearsSince thethereforewrapper">alternateincreasedBattle ofperceivedtrying tonecessaryportrayedelectionsElizabeth</iframe>discoveryinsurances.length;legendaryGeographycandidatecorporatesometimesservices.inherit...
suspectedmargin: 0spiritual</head>
microsoftgraduallydiscussedhe becameexecutivejquery.jshouseholdconfirmedpurchasedliterallydestroyedup to thevariationremainingit is notcenturiesJapanese among thecompletedalgorithminterestsrebellionundefinedencourageresizableinvolvingsensitiveunivers...
sponsoreddocument.or "there arethose whomovementsprocessesdifficultsubmittedrecommendconvincedpromoting" width=".replace(classicalcoalitionhis firstdecisionsassistantindicatedevolution-wrapper"enough toalong thedelivered-->
<!--American protectedNovember </style><furnitureInternet onblur="suspendedrecipientbased on Moreover,abolishedcollectedwere madeemotionalemergencynarrativeadvocatespx;bordercommitteddir="ltr"employeesresearch. selectedsuccessorcustomersdisplayedSep...
IUP
view release on metacpan or search on metacpan
examples/0-basic/plot_advanced.pl view on Meta::CPAN
my $MAXPLOT = 6;
my @plot = (); # Plot controls
my ($dial1, $dial2); # dials for zooming
my ($tgg1, $tgg2); # auto scale on|off toggles
my ($tgg3, $tgg4); # grid show|hide toggles
my $tgg5; # legend show|hide toggle
my $tabs; # tabbed control
sub delete_cb {
my ($self, $index, $sample_index, $x, $y) = @_;
printf("DELETE_CB(%d, %d, %g, %g)\n", $index, $sample_index, $x, $y);
examples/0-basic/plot_advanced.pl view on Meta::CPAN
else {
$tgg4->VALUE("OFF");
}
}
# legend
if ($plot[$ii]->GetAttribute("LEGENDSHOW")) {
$tgg5->VALUE("ON");
}
else {
$tgg5->VALUE("OFF");
examples/0-basic/plot_advanced.pl view on Meta::CPAN
return IUP_DEFAULT;
}
# show/hide legend
sub tgg5_cb {
my ($self, $v) = @_;
my $ii = tabs_get_index();
$plot[$ii]->SetAttribute("LEGENDSHOW", $v ? "YES" : "NO");
Image-BoxModel
view release on metacpan or search on metacpan
examples/20_chart_bars.pl view on Meta::CPAN
textsize => 15,
box_position => "bottom",
font => './FreeSans.ttf'
);
# draw the legend
$image -> Legend(
font => './FreeSans.ttf',
textsize => 15,
name => 'legend',
values_annotations => ['Marc','Joss','Joe','Kim','Frederic','X','y',"other\nfriends"],
border => 1,
padding_top => 0,
position => 'right', #left | right only at the moment. bug.
);
Image-CCV
view release on metacpan or search on metacpan
ccv-src/.doxygen.conf view on Meta::CPAN
# The default value is: NO.
# This tag requires that the tag HAVE_DOT is set to YES.
DOT_MULTI_TARGETS = YES
# 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.
Image-DS9
view release on metacpan or search on metacpan
utils/ref-man-8.5.html view on Meta::CPAN
[axis x|y auto yes|no]<br>
[axis x|y min <value>]<br>
[axis x|y max <value>]<br>
[axis x|y format <string>]<br>
[background <value>]<br>
[legend yes|no]<br>
[legend position right|left|top|bottom|plotarea]<br>
[font title|labels|numbers font times|helvetica|courier]<br>
[font title|labels|numbers size <value>]<br>
[font title|labels|numbers weight normal|bold]<br>
[font title|labels|numbers slant roman|italic]<br>
[title <string>]<br>
utils/ref-man-8.5.html view on Meta::CPAN
$xpaget ds9 plot axis x auto<br>
$xpaget ds9 plot axis x min<br>
$xpaget ds9 plot axis x max<br>
$xpaget ds9 plot axis x format<br>
$xpaget ds9 plot background<br>
$xpaget ds9 plot legend<br>
$xpaget ds9 plot legend position<br>
$xpaget ds9 plot font numbers font<br>
$xpaget ds9 plot font numbers size<br>
$xpaget ds9 plot font numbers weight<br>
$xpaget ds9 plot font numbers slant<br>
$xpaget ds9 plot title<br>
utils/ref-man-8.5.html view on Meta::CPAN
$xpaset -p ds9 plot axis x auto no<br>
$xpaset -p ds9 plot axis x min 1<br>
$xpaset -p ds9 plot axis x max 100<br>
$xpaset -p ds9 plot axis x format {%f}<br>
$xpaset -p ds9 plot background white<br>
$xpaset -p ds9 plot legend yes<br>
$xpaset -p ds9 plot legend position left<br>
$xpaset -p ds9 plot font numbers font times<br>
$xpaset -p ds9 plot font numbers size 12<br>
$xpaset -p ds9 plot font numbers weight bold<br>
$xpaset -p ds9 plot font numbers slant italic<br>
$xpaset -p ds9 plot title {This is a Title}<br>
$xpaset -p ds9 plot title x {X Axis}<br>
$xpaset -p ds9 plot title y {Y Axis}<br>
$xpaset -p ds9 plot title legend {This is the Legend}<br>
</p>
<p>
# configure current dataset<br>
$xpaget ds9 plot show<br>
$xpaget ds9 plot name<br>
Image-ExifTool
view release on metacpan or search on metacpan
lib/Image/ExifTool/Plot.pm view on Meta::CPAN
# default plot settings (lower-case settings may be overridden by the user)
my %defaults = (
size => [ 800, 600 ], # width,height of output image
margin => [ 60, 15, 15, 30 ], # left,top,right,bottom margins around plot area
legend => [ 0, 0 ], # top,right offset for legend
txtpad => [ 10, 10 ], # padding between text and x,y scale
linespacing => 20, # text line spacing
# colours for plot lines
cols => [ qw(red green blue black orange gray fuchsia brown turquoise gold
lime violet maroon aqua navy pink olive indigo silver teal) ],
lib/Image/ExifTool/Plot.pm view on Meta::CPAN
if ($xAxis and $min!=0) {
$py = $margin[1] + $height + $min * $yscl;
print $fp "\n<path stroke='$$self{text}' d='M$margin[0] $py h$width'/>";
}
print $fp "\n<path stroke='$$self{grid}' stroke-width='0.5' d='\n${grid}'/>";
print $fp "\n</g>\n<!-- Plot box and legend -->\n<g dominant-baseline='middle' text-anchor='start'>";
print $fp "\n<path stroke='$$self{text}' fill='none' d='M$margin[0] $margin[1] l0 $height $width 0 0 -$height z'/>";
for ($i=0; $i<@name and not $noLegend; ++$i) {
$x = $size[0] - $margin[2] - 175 + $$self{legend}[0];
$y = $margin[1] + $$self{legend}[1] + 15 + $$self{linespacing} * ($i + 0.5);
my $col = $$cols[$i];
my $mark = $markID{$i} ? " marker-end='url(#$markID{$i})' fill='none'" : '';
my $line = ($style =~ /\bl/) ? ' l-20 0' : sprintf(' m%.4g 0', -5 * $wid);
my $sw = ($style =~ /\bm/ ? 1.5 : 2) * $wid; # (wider for line-only style so colour is more visible)
print $fp "\n<path$mark stroke-width='${sw}' stroke='${col}' d='M$x $y m-7 -1${line}'/>";
lib/Image/ExifTool/Plot.pm view on Meta::CPAN
"Type=Line" - plot type (Line, Scatter or Histogram)
"Style=Line" - data style (Line, Marker and/or Fill)
"NBins=20" - number of bins for histogram plot
"Size=800 600" - width,height of output image
"Margin=60 15 15 30" - left,top,right,bottom margins around plot area
"Legend=0 0" - x,y offset to shift plot legend
"TxtPad=10 10" - padding between text and x,y scale
"LineSpacing=20" - spacing between text lines
"Stroke=1" - plot stroke width and marker-size scaling factor
Title, XLabel, YLabel - plot title and x/y axis labels (no default)
XMin, XMax - x axis minimum/maximum (autoscaling if not set)
Image-Timeline
view release on metacpan or search on metacpan
Timeline.pm view on Meta::CPAN
vspacing => 2,
hmargin => 3,
bg_color => [255,255,255],
bar_color => [255,0,0],
endcap_color => [0,155,0],
legend_color => [0,0,0],
text_color => [0,0,0],
date_format => '',
to_string => sub { $_[0] },
right_margin => 0,
%args
};
# subtract right_margin to width to avoid cutting last legend
$self->{width} -= $self->{right_margin};
return bless $self, $pkg;
}
sub add {
Timeline.pm view on Meta::CPAN
sub _create_image {
my ($self, $w, $h) = @_;
my $image = GD::Image->new($w + $self->{right_margin},$h);
# Allocate some colors
foreach (qw(bg bar endcap legend text)) {
$self->{colors}{$_} = $image->colorAllocate(@{$self->{"${_}_color"}});
}
$image->fill(0,0,$self->{colors}{bg});
return $image;
Timeline.pm view on Meta::CPAN
}
}
return ($self->{min}, $self->{max}) = ($min, $max);
}
sub draw_legend {
# Draw the top legend bar
my ($self, $image) = @_;
my ($min, $max) = $self->_minmax;
my $color = $self->{colors}{legend};
my $step = $self->{bar_stepsize}; # For convenience
if ($step =~ /^(\d+)%$/) { # Convert from percentage
$step = ($max - $min) * $1 / 100;
}
Timeline.pm view on Meta::CPAN
# Add 2 to leave room for header
my $fheight = $self->{font}->height;
$self->{height} = (@{$self->{channels}} + 2) * (2*$fheight + $self->{vspacing});
my $image = $self->_create_image($self->{width}, $self->{height});
$self->draw_legend($image);
$self->draw_channels($image);
return $image;
}
Timeline.pm view on Meta::CPAN
Which GD font should be used to label each entry in the timeline.
Default is C<gdTinyFont>.
=item bar_stepsize
The "tick interval" on the timeline's legend at the top. Default is
50 (i.e. 50 years). If the stepsize ends with the C<%> character, it
will be interpreted as a percentage of the total data width.
Note that the stepsize is given in terms of the data space
(i.e. years), not in terms of the image space (i.e. pixels).
Timeline.pm view on Meta::CPAN
=item bar_color
=item endcap_color
=item legend_color
=item text_color
These parameters affect the colors of the image. Each associated
value should be a 3-element array reference, specifying RGB values
Timeline.pm view on Meta::CPAN
not necessarily attractive.
=item date_format
By default, the numerical data describing an entry's start and end
point are also used as the label for the legend at the top of the
timeline. Typically this means that the data represent years.
However, if you supply the C<date_format> parameter, the data will be
assumed to be a Unix timestamp (similar to the output of the C<time()>
function), and it will be passed to the C<Date::Format> C<time2str>
function, using the C<date_format> parameter as the formatting string.
Timeline.pm view on Meta::CPAN
one argument, the numerical value.
=item right_margin
How many pixels should be left over the right margin so that the last
legend isn't cut from the image.
=back
=head2 add(label, start, end)
Image-WebP
view release on metacpan or search on metacpan
webp-src/src/dec/vp8i.h view on Meta::CPAN
// .|yyyy..
// .+--.+-- <- only 1 pixel high
// .|uu.|vv
// .|uu.|vv
//
// Every character is a 4x4 block, with legend:
// '.' = unused
// 'y' = y-samples 'u' = u-samples 'v' = u-samples
// '|' = left sample, '-' = top sample, '+' = top-left sample
// 't' = extra top-right sample for 4x4 modes
// With this layout, BPS (=Bytes Per Scan-line) is one cacheline size.
Imager-Chart-Radial
view release on metacpan or search on metacpan
}
return;
}
sub add_legend {
my $Chart = shift;
my $starty = 490;
my $endy = 470 - (scalar @{$Chart->{records}} * 18);
$Chart->{_image}->box( color=>$colours{black},xmin=>45,ymin=>$endy,
xmax=>250,ymax=>$starty+2,filled=>0);
=item $chart->plot_values( \@records );>
=item $chart->add_title("This is a chart, there are many like it but this is mine");>
=item $chart->add_legend();>
=item $chart->print('mychart.png');
=head1 DESCRIPTION
);
=head2 Labelling the graph
You can add a title and a legend to the chart using add_title and add_legend
$chart->add_title("This is a radial chart using Imager and my own values");
The title should be short and uses the font specified as header in the fonts hash.
$chart->add_legend();
The legend is generated from the records, you must therefore plot the graph before adding the legend. The legend uses the label font.
=head2 Outputing the graph
To write out the graph just call the print method with the filename you wish to write to.
Imager-Graph
view release on metacpan or search on metacpan
or drawing by supplying C<fg> and/or C<bg> parameters. ie. if you
supply C<<fg=>'FF0000', channels=>3>> then the hash fills and anything
else will be drawn in red. Another use might be to set a transparent
background, by supplying C<<bg=>'00000000', channels=>4>>.
This style outlines the legend if present and outlines the hashed fills.
=item fount_lin
designed as a "pretty" style this uses linear fountain fills for the
background and data fills, and adds a drop shadow.
sub set_graph_foreground_color {
$_[0]->{'custom_style'}->{'fg'} = $_[1];
}
=item set_legend_font_color
=cut
sub set_legend_font_color {
$_[0]->{'custom_style'}->{'legend'}->{'color'} = $_[1];
}
=item set_legend_font
=cut
sub set_legend_font {
$_[0]->{'custom_style'}->{'legend'}->{'font'} = $_[1];
}
=item set_legend_font_size
=cut
sub set_legend_font_size {
$_[0]->{'custom_style'}->{'legend'}->{'size'} = $_[1];
}
=item set_legend_patch_size
=cut
sub set_legend_patch_size {
$_[0]->{'custom_style'}->{'legend'}->{'patchsize'} = $_[1];
}
=item set_legend_patch_gap
=cut
sub set_legend_patch_gap {
$_[0]->{'custom_style'}->{'legend'}->{'patchgap'} = $_[1];
}
=item set_legend_horizontal_align
=cut
sub set_legend_horizontal_align {
$_[0]->{'custom_style'}->{'legend'}->{'halign'} = $_[1];
}
=item set_legend_vertical_align
=cut
sub set_legend_vertical_align {
$_[0]->{'custom_style'}->{'legend'}->{'valign'} = $_[1];
}
=item set_legend_padding
=cut
sub set_legend_padding {
$_[0]->{'custom_style'}->{'legend'}->{'padding'} = $_[1];
}
=item set_legend_outside_padding
=cut
sub set_legend_outside_padding {
$_[0]->{'custom_style'}->{'legend'}->{'outsidepadding'} = $_[1];
}
=item set_legend_fill
=cut
sub set_legend_fill {
$_[0]->{'custom_style'}->{'legend'}->{'fill'} = $_[1];
}
=item set_legend_border
=cut
sub set_legend_border {
$_[0]->{'custom_style'}->{'legend'}->{'border'} = $_[1];
}
=item set_legend_orientation
=cut
sub set_legend_orientation {
$_[0]->{'custom_style'}->{'legend'}->{'orientation'} = $_[1];
}
=item set_callout_font_color
=cut
Some common features are:
=over
=item show_legend()
Feature: legend
X<legend><features, legend>
adds a box containing boxes filled with the data fills, with
the labels provided to the draw method. The legend will only be
displayed if both the legend feature is enabled and labels are
supplied.
=cut
sub show_legend {
$_[0]->{'custom_style'}->{'features'}->{'legend'} = 1;
}
=item show_outline()
Feature: outline
labels each data fill, usually by including text inside the data fill.
If the text does not fit in the fill, they could be displayed in some
other form, eg. as callouts in a pie graph.
For pie charts there isn't much point in enabling both the C<legend>
and C<labels> features.
For other charts, the labels label the independent variable, while the
legend describes the color used to plot the dependent variables.
=cut
sub show_labels {
$_[0]->{'custom_style'}->{'features'}->{'labels'} = 1;
The horizontal and vertical alignment of the title.
=back
=item legend
defines attributes of the graph legend, if present.
=over
=item color
=item font
=item size
text attributes for the labels used in the legend.
=item patchsize
the width and height of the color patch in the legend. Defaults to
90% of the legend text size.
=item patchgap
the minimum gap between patches in pixels. Defaults to 30% of the
patchsize.
=item halign
=item valign
the horizontal and vertical alignment of the legend within the graph.
Defaults to 'right' and 'top'.
=item padding
the gap between the legend patches and text and the outside of its
box, or to the legend border, if any.
=item outsidepadding
the gap between the border and the outside of the legend's box. This
is only used if the I<legend.border> attribute is defined.
=item fill
the background fill for the legend. Default: none
=item border
the border color of the legend. Default: none (no border is drawn
around the legend.)
=item orientation
The orientation of the legend. If this is C<vertical> the the patches
and labels are stacked on top of each other. If this is C<horizontal>
the patchs and labels are word wrapped across the image. Default:
vertical.
=back
For example to create a horizontal legend with borderless patches,
darker than the background, you might do:
my $im = $chart->draw
(...,
legend =>
{
patchborder => undef,
orientation => 'horizontal',
fill => { solid => Imager::Color->new(0, 0, 0, 32), }
},
text=>{
color=>'lookup(fg)',
...
},
legend =>{
color=>'lookup(text.color)',
...
},
So by setting the I<fg> color, you also set the default text color,
since each text element uses lookup(text.color) as its value.
=head2 Specifying fills
Fills can be used for the graph background color, the background color
for the legend block and for the fills used for each data element.
You can specify a fill as a L<color value|Specifying colors> or as a
general fill, see L<Imager::Fill> for details.
You don't need (or usually want) to call Imager::Fill::new yourself,
halign => 'center',
valign => 'top',
size => 'scale(text.size,2.0)',
aa => 'lookup(text.aa)',
},
legend =>{
color => 'lookup(text.color)',
font => 'lookup(text.font)',
aa => 'lookup(text.aa)',
size => 'lookup(text.size)',
patchsize => 'scale(legend.size,0.9)',
patchgap => 'scale(legend.patchsize,0.3)',
patchborder => 'lookup(line)',
halign => 'right',
valign => 'top',
padding => 'scale(legend.size,0.3)',
outsidepadding => 'scale(legend.padding,0.4)',
},
callout => {
color => 'lookup(text.color)',
font => 'lookup(text.font)',
size => 'lookup(text.size)',
qw(FF0000 00FF00 0000FF C0C000 00C0C0 FF00FF)
],
fg=>'000000',
negative_bg=>'EEEEEE',
bg=>'E0E0E0',
legend=>
{
#patchborder=>'000000'
},
},
primary_red =>
qw(FF0000 00FF00 0000FF C0C000 00C0C0 FF00FF)
],
fg=>'000000',
negative_bg=>'EEEEEE',
bg=>'C08080',
legend=>
{
patchborder=>'000000'
},
},
mono =>
$chart_box->[2] = $object_box->[0];
}
}
}
sub _draw_legend {
my ($self, $img, $labels, $chart_box) = @_;
my $orient = $self->_get_thing('legend.orientation');
defined $orient or $orient = 'vertical';
if ($orient eq 'vertical') {
return $self->_draw_legend_vertical($img, $labels, $chart_box);
}
elsif ($orient eq 'horizontal') {
return $self->_draw_legend_horizontal($img, $labels, $chart_box);
}
else {
return $self->_error("Unknown legend.orientation $orient");
}
}
sub _draw_legend_horizontal {
my ($self, $img, $labels, $chart_box) = @_;
defined(my $padding = $self->_get_integer('legend.padding'))
or return;
my $patchsize = $self->_get_integer('legend.patchsize')
or return;
defined(my $gap = $self->_get_integer('legend.patchgap'))
or return;
my $minrowsize = $patchsize + $gap;
my ($width, $height) = (0,0);
my $row_height = $minrowsize;
my $pos = 0;
my @sizes;
my @offsets;
for my $label (@$labels) {
my @text_box = $self->_text_bbox($label, 'legend')
or return;
push(@sizes, \@text_box);
my $entry_width = $patchsize + $gap + $text_box[2];
if ($pos == 0) {
# never re-wrap the first entry
}
}
$height += $row_height;
my @box = ( 0, 0, $width + $padding * 2, $height + $padding * 2 );
my $outsidepadding = 0;
if ($self->{_style}{legend}{border}) {
defined($outsidepadding = $self->_get_integer('legend.outsidepadding'))
or return;
$box[2] += 2 * $outsidepadding;
$box[3] += 2 * $outsidepadding;
}
$self->_align_box(\@box, $chart_box, 'legend')
or return;
if ($self->{_style}{legend}{fill}) {
$img->box(xmin=>$box[0]+$outsidepadding,
ymin=>$box[1]+$outsidepadding,
xmax=>$box[2]-$outsidepadding,
ymax=>$box[3]-$outsidepadding,
$self->_get_fill('legend.fill', \@box));
}
$box[0] += $outsidepadding;
$box[1] += $outsidepadding;
$box[2] -= $outsidepadding;
$box[3] -= $outsidepadding;
my %text_info = $self->_text_style('legend')
or return;
my $patchborder;
if ($self->{_style}{legend}{patchborder}) {
$patchborder = $self->_get_color('legend.patchborder')
or return;
}
my $dataindex = 0;
for my $label (@$labels) {
$left + $patchsize, $top + $patchsize );
my @fill = $self->_data_fill($dataindex, \@patchbox)
or return;
$img->box(xmin=>$left, ymin=>$top, xmax=>$left + $patchsize,
ymax=>$top + $patchsize, @fill);
if ($self->{_style}{legend}{patchborder}) {
$img->box(xmin=>$left, ymin=>$top, xmax=>$left + $patchsize,
ymax=>$top + $patchsize,
color=>$patchborder);
}
$img->string(%text_info, x=>$textpos, 'y'=>$top + $patchsize,
text=>$label);
++$dataindex;
}
if ($self->{_style}{legend}{border}) {
my $border_color = $self->_get_color('legend.border')
or return;
$img->box(xmin=>$box[0], ymin=>$box[1], xmax=>$box[2], ymax=>$box[3],
color=>$border_color);
}
$self->_remove_box($chart_box, \@box);
1;
}
sub _draw_legend_vertical {
my ($self, $img, $labels, $chart_box) = @_;
defined(my $padding = $self->_get_integer('legend.padding'))
or return;
my $patchsize = $self->_get_integer('legend.patchsize')
or return;
defined(my $gap = $self->_get_integer('legend.patchgap'))
or return;
my $minrowsize = $patchsize + $gap;
my ($width, $height) = (0,0);
my @sizes;
for my $label (@$labels) {
my @box = $self->_text_bbox($label, 'legend')
or return;
push(@sizes, \@box);
$width = $box[2] if $box[2] > $width;
if ($minrowsize > $box[3]) {
$height += $minrowsize;
}
my @box = (0, 0,
$width + $patchsize + $padding * 2 + $gap,
$height + $padding * 2 - $gap);
my $outsidepadding = 0;
if ($self->{_style}{legend}{border}) {
defined($outsidepadding = $self->_get_integer('legend.outsidepadding'))
or return;
$box[2] += 2 * $outsidepadding;
$box[3] += 2 * $outsidepadding;
}
$self->_align_box(\@box, $chart_box, 'legend')
or return;
if ($self->{_style}{legend}{fill}) {
$img->box(xmin=>$box[0]+$outsidepadding,
ymin=>$box[1]+$outsidepadding,
xmax=>$box[2]-$outsidepadding,
ymax=>$box[3]-$outsidepadding,
$self->_get_fill('legend.fill', \@box));
}
$box[0] += $outsidepadding;
$box[1] += $outsidepadding;
$box[2] -= $outsidepadding;
$box[3] -= $outsidepadding;
my $ypos = $box[1] + $padding;
my $patchpos = $box[0]+$padding;
my $textpos = $patchpos + $patchsize + $gap;
my %text_info = $self->_text_style('legend')
or return;
my $patchborder;
if ($self->{_style}{legend}{patchborder}) {
$patchborder = $self->_get_color('legend.patchborder')
or return;
}
my $dataindex = 0;
for my $label (@$labels) {
my @patchbox = ( $patchpos - $patchsize/2, $ypos - $patchsize/2,
$patchpos + $patchsize * 3 / 2, $ypos + $patchsize*3/2 );
my @fill;
if ($self->_draw_flat_legend()) {
@fill = (color => $self->_data_color($dataindex), filled => 1);
}
else {
@fill = $self->_data_fill($dataindex, \@patchbox)
or return;
}
$img->box(xmin=>$patchpos, ymin=>$ypos, xmax=>$patchpos + $patchsize,
ymax=>$ypos + $patchsize, @fill);
if ($self->{_style}{legend}{patchborder}) {
$img->box(xmin=>$patchpos, ymin=>$ypos, xmax=>$patchpos + $patchsize,
ymax=>$ypos + $patchsize,
color=>$patchborder);
}
$img->string(%text_info, x=>$textpos, 'y'=>$ypos + $patchsize,
else {
$ypos += $minrowsize;
}
++$dataindex;
}
if ($self->{_style}{legend}{border}) {
my $border_color = $self->_get_color('legend.border')
or return;
$img->box(xmin=>$box[0], ymin=>$box[1], xmax=>$box[2], ymax=>$box[3],
color=>$border_color);
}
$self->_remove_box($chart_box, \@box);
else {
return $box->[2] - $box->[0];
}
}
sub _draw_flat_legend {
return 0;
}
=item _composite()
should be merged instead of just being replaced.
=cut
sub _composite {
qw(title legend text label dropshadow outline callout graph);
}
sub _filter_region {
my ($self, $img, $left, $top, $right, $bottom, $filter) = @_;
Imager-QRCode
view release on metacpan or search on metacpan
vendor/qrencode-3.4.2/Doxyfile view on Meta::CPAN
# support this, this feature is disabled by default.
DOT_MULTI_TARGETS = YES
# If the GENERATE_LEGEND tag is set to YES (the default) Doxygen will
# generate a legend page explaining the meaning of the various boxes and
# arrows in the dot generated graphs.
GENERATE_LEGEND = YES
# If the DOT_CLEANUP tag is set to YES (the default) Doxygen will
Imager-TimelineDiagram
view release on metacpan or search on metacpan
TimelineDiagram.pm view on Meta::CPAN
}
# set list of milestones.
sub set_milestones {
my ($self,@milestones) = @_;
$self->{_legend} = [@milestones];
}
# and AoA of :
# @array = (
# ['processFrom','processTo','time'],
TimelineDiagram.pm view on Meta::CPAN
sub _draw_grid {
my ($self) = @_;
my $image = $self->{_image};
my @v_lines;
my @points = @{ $self->{_legend} };
# for every $gridSpacing pixes across, draw a vertical line
for (my $i=$self->{'gridXOffset'}; $i <= $self->{'gridWidth'} ;$i += $self->{'gridSpacing'}) {
$image->line(color => $self->{'gridColor'}, x1 => $i, y1 => $self->{'gridYOffset'},
x2 => $i, y2 => $self->{'gridYOffset'}+$self->{'gridHeight'});
InSilicoSpectro
view release on metacpan or search on metacpan
cgi/fragmentator.pl view on Meta::CPAN
# my $tmpdir = File::Spec->tmpdir();
use File::Spec;
my $tmpdir = $ENV{INSILICOSPECTRO_FULL_TMPDIR};
my ($tmpFH, $tmpFname) = tempfile('matchplot-XXXXX', SUFFIX=>'.png', UNLINK=>0, DIR=>$tmpdir);
$msms->plotSpectrumMatch(fhandle=>$tmpFH, format=>'png', fontChoice=>'default:Large', style=>'circle',changeColModifAA=>1, legend=>($intern ? 'bottom' : 'right'), plotIntern=>($intern ? 1 : undef));
close($tmpFH);
chmod(0644, $tmpFname);
my $fname = $ENV{INSILICOSPECTRO_WEB_TMPDIR}."/".(split(/\//, $tmpFname))[-1];
print "<br><img src=\"$fname\" alt=\"match image ($tmpdir, $tmpFname, $fname\" />\n";
}
( run in 0.979 second using v1.01-cache-2.11-cpan-49f99fa48dc )