1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
|
NAME
Color::Library - An easy-to-use and comprehensive named-color library
VERSION
version 0.021
SYNOPSIS
use Color::Library;
# Search for a sea blue color
my $seablue = Color::Library->color("seablue");
# Search for a grey73 in the 'svg' and 'x11' dictionaries only
my $grey73 = Color::Library->colour([qw/svg x11/] => "grey73");
# Find a bunch of colors at the same time
my ($red, $green, $blue) = Color::Library->colors(qw/red green blue/);
# Fetch the named color "aliceblue" from the SVG dictionary
my $color = Color::Library->SVG->color("aliceblue");
# Prints out "aliceblue is #ff08ff"
print $color->name, "is ", $color, "\n";
# Get a list of names in the svg dictionary
my @names = Color::Library->SVG->names;
# Get a list of colors in the x11 dictionary
my @colors = Color::Library->dictionary('x11')->colors;
DESCRIPTION
Color::Library is an easy-to-use and comprehensive named-color
dictionary. Currently provides coverage for www (svg, html, css) colors,
x11 colors, and more.
DICTIONARIES
The following dictionaries are available in this distribution:
Color::Library::Dictionary::SVG - Colors from the SVG specification
Color::Library::Dictionary::X11 - Colors for the X11 Window System (rgb.txt)
Color::Library::Dictionary::HTML - Colors from the HTML 4.0 specification
Color::Library::Dictionary::IE - Colors recognized by Internet Explorer
Color::Library::Dictionary::Mozilla - Colors recognized by Mozilla (ColorNames.txt)
Color::Library::Dictionary::Netscape - Colors recognized by Netscape
Color::Library::Dictionary::Windows - Colors from the Windows system palette
Color::Library::Dictionary::VACCC - VisiBone Anglo-Centric Color Code
Color::Library::Dictionary::NBS_ISCC - Centroids of the NBS/ISCC catalog
Color::Library::Dictionary::NBS_ISCC::A - Dye Colors
Color::Library::Dictionary::NBS_ISCC::B - Colour Terminology in Biology
Color::Library::Dictionary::NBS_ISCC::F - Colors; (for) Ready-Mixed Paints
Color::Library::Dictionary::NBS_ISCC::H - Horticultural Colour Charts
Color::Library::Dictionary::NBS_ISCC::M - Dictionary of Color
Color::Library::Dictionary::NBS_ISCC::P - Plochere Color System
Color::Library::Dictionary::NBS_ISCC::R - Color Standards and Color Nomenclature
Color::Library::Dictionary::NBS_ISCC::RC - Rock-Color Chart
Color::Library::Dictionary::NBS_ISCC::S - Postage-Stamp Color Names
Color::Library::Dictionary::NBS_ISCC::SC - Soil Color Charts
Color::Library::Dictionary::NBS_ISCC::TC - Standard Color Card of America
You can see a list of colors in any of these by reading their perldoc.
For example:
perldoc Color::Library::Dictionary::VACCC
If you have any suggestions for more color dictionaries to integrate,
contact me.
METHODS
$dictionary = Color::Library->dictionary( <dictionary_id> )
Returns a Color::Library::Dictionary object corresponding to
<dictionary_id>
@dictionaries = Color::Library->dictionaries
@dictionaries = Color::Library->dictionaries( <dictionary_id>,
<dictionary_id>, ... )
$dictionaries = Color::Library->dictionaries( <dictionary_id>,
<dictionary_id>, ... )
In list context, returns a list of Color::Library::Dictionary
objects (for each <dictionary_id> passed in
In scalar context, returns a hash of Color::Library::Dictionary
objects mapping a dictionary id to a dictionary
When called without arguments, the method will return all
dictionaries
$color = Color::Library->color( <query> )
Returns a Color::Library::Color object found via <query>
A query can be any of the following:
color name
A color name is like "blue" or "bleached-almond"
color title
A color title is like "Dark Green-Teal"
color id
A color id is in the form of <dictionary_id>:<color_name>, for
example: "x11:azure1"
color( <query>, <query>, ... )
In list context, returns a list of Color::Library::Color objects
corresponding to each <query>
In scalar context, just returns the first <query>
color( <dictionaries>, <query>, ... )
If an array reference is passed as the first argument, then this
indicates that the array is a list of dictionary ids to search
through (in order):
# Search in the svg and x11 dictionaries for a match
my $blue = Color::Library->color([qw/svg x11/], "blue");
# Will not find "aquamarine1" in the svg dictionary, so it will try the x11 dictionary
my $aquamarine1 = Color::Library->color([qw/svg x11/], "aquamarine1");
$color = Color::Library->colors
$color = Color::Library->colour
$color = Color::Library->colours
All are aliases for the above color method
ABOUT
This package was inspired by Graphics::ColorNames, and covers much of
the same ground. However, I found the Graphics::ColorNames interface
difficult to use. I also wanted to list colors directly in the perldoc,
which this package does.
SEE ALSO
Graphics::ColorNames
AUTHOR
Robert Krimen <robertkrimen@gmail.com>
COPYRIGHT AND LICENSE
This software is copyright (c) 2011 by Robert Krimen.
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
|
