Skip to content

Commit 83fab99

Browse files
zoffixznetzoffixznet
committed
First commit
0 parents  commit 83fab99

File tree

9 files changed

+411
-0
lines changed

9 files changed

+411
-0
lines changed

‎.travis.yml

+7
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,7 @@
1+
language: perl6
2+
perl6:
3+
- latest
4+
5+
install:
6+
- rakudobrew build-panda
7+
- panda installdeps .

‎Changes

+4
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,4 @@
1+
Revision History for 'Color' Perl 6 Distribution
2+
3+
1.001001 2015-11-11
4+
- First version released on an unsuspecting world

‎LICENSE

+202
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,202 @@
1+
The Artistic License 2.0
2+
3+
Copyright (c) 2000-2006, The Perl Foundation.
4+
5+
Everyone is permitted to copy and distribute verbatim copies
6+
of this license document, but changing it is not allowed.
7+
8+
Preamble
9+
10+
This license establishes the terms under which a given free software
11+
Package may be copied, modified, distributed, and/or redistributed.
12+
The intent is that the Copyright Holder maintains some artistic
13+
control over the development of that Package while still keeping the
14+
Package available as open source and free software.
15+
16+
You are always permitted to make arrangements wholly outside of this
17+
license directly with the Copyright Holder of a given Package. If the
18+
terms of this license do not permit the full use that you propose to
19+
make of the Package, you should contact the Copyright Holder and seek
20+
a different licensing arrangement.
21+
22+
Definitions
23+
24+
"Copyright Holder" means the individual(s) or organization(s)
25+
named in the copyright notice for the entire Package.
26+
27+
"Contributor" means any party that has contributed code or other
28+
material to the Package, in accordance with the Copyright Holder's
29+
procedures.
30+
31+
"You" and "your" means any person who would like to copy,
32+
distribute, or modify the Package.
33+
34+
"Package" means the collection of files distributed by the
35+
Copyright Holder, and derivatives of that collection and/or of
36+
those files. A given Package may consist of either the Standard
37+
Version, or a Modified Version.
38+
39+
"Distribute" means providing a copy of the Package or making it
40+
accessible to anyone else, or in the case of a company or
41+
organization, to others outside of your company or organization.
42+
43+
"Distributor Fee" means any fee that you charge for Distributing
44+
this Package or providing support for this Package to another
45+
party. It does not mean licensing fees.
46+
47+
"Standard Version" refers to the Package if it has not been
48+
modified, or has been modified only in ways explicitly requested
49+
by the Copyright Holder.
50+
51+
"Modified Version" means the Package, if it has been changed, and
52+
such changes were not explicitly requested by the Copyright
53+
Holder.
54+
55+
"Original License" means this Artistic License as Distributed with
56+
the Standard Version of the Package, in its current version or as
57+
it may be modified by The Perl Foundation in the future.
58+
59+
"Source" form means the source code, documentation source, and
60+
configuration files for the Package.
61+
62+
"Compiled" form means the compiled bytecode, object code, binary,
63+
or any other form resulting from mechanical transformation or
64+
translation of the Source form.
65+
66+
67+
Permission for Use and Modification Without Distribution
68+
69+
(1) You are permitted to use the Standard Version and create and use
70+
Modified Versions for any purpose without restriction, provided that
71+
you do not Distribute the Modified Version.
72+
73+
74+
Permissions for Redistribution of the Standard Version
75+
76+
(2) You may Distribute verbatim copies of the Source form of the
77+
Standard Version of this Package in any medium without restriction,
78+
either gratis or for a Distributor Fee, provided that you duplicate
79+
all of the original copyright notices and associated disclaimers. At
80+
your discretion, such verbatim copies may or may not include a
81+
Compiled form of the Package.
82+
83+
(3) You may apply any bug fixes, portability changes, and other
84+
modifications made available from the Copyright Holder. The resulting
85+
Package will still be considered the Standard Version, and as such
86+
will be subject to the Original License.
87+
88+
89+
Distribution of Modified Versions of the Package as Source
90+
91+
(4) You may Distribute your Modified Version as Source (either gratis
92+
or for a Distributor Fee, and with or without a Compiled form of the
93+
Modified Version) provided that you clearly document how it differs
94+
from the Standard Version, including, but not limited to, documenting
95+
any non-standard features, executables, or modules, and provided that
96+
you do at least ONE of the following:
97+
98+
(a) make the Modified Version available to the Copyright Holder
99+
of the Standard Version, under the Original License, so that the
100+
Copyright Holder may include your modifications in the Standard
101+
Version.
102+
103+
(b) ensure that installation of your Modified Version does not
104+
prevent the user installing or running the Standard Version. In
105+
addition, the Modified Version must bear a name that is different
106+
from the name of the Standard Version.
107+
108+
(c) allow anyone who receives a copy of the Modified Version to
109+
make the Source form of the Modified Version available to others
110+
under
111+
112+
(i) the Original License or
113+
114+
(ii) a license that permits the licensee to freely copy,
115+
modify and redistribute the Modified Version using the same
116+
licensing terms that apply to the copy that the licensee
117+
received, and requires that the Source form of the Modified
118+
Version, and of any works derived from it, be made freely
119+
available in that license fees are prohibited but Distributor
120+
Fees are allowed.
121+
122+
123+
Distribution of Compiled Forms of the Standard Version
124+
or Modified Versions without the Source
125+
126+
(5) You may Distribute Compiled forms of the Standard Version without
127+
the Source, provided that you include complete instructions on how to
128+
get the Source of the Standard Version. Such instructions must be
129+
valid at the time of your distribution. If these instructions, at any
130+
time while you are carrying out such distribution, become invalid, you
131+
must provide new instructions on demand or cease further distribution.
132+
If you provide valid instructions or cease distribution within thirty
133+
days after you become aware that the instructions are invalid, then
134+
you do not forfeit any of your rights under this license.
135+
136+
(6) You may Distribute a Modified Version in Compiled form without
137+
the Source, provided that you comply with Section 4 with respect to
138+
the Source of the Modified Version.
139+
140+
141+
Aggregating or Linking the Package
142+
143+
(7) You may aggregate the Package (either the Standard Version or
144+
Modified Version) with other packages and Distribute the resulting
145+
aggregation provided that you do not charge a licensing fee for the
146+
Package. Distributor Fees are permitted, and licensing fees for other
147+
components in the aggregation are permitted. The terms of this license
148+
apply to the use and Distribution of the Standard or Modified Versions
149+
as included in the aggregation.
150+
151+
(8) You are permitted to link Modified and Standard Versions with
152+
other works, to embed the Package in a larger work of your own, or to
153+
build stand-alone binary or bytecode versions of applications that
154+
include the Package, and Distribute the result without restriction,
155+
provided the result does not expose a direct interface to the Package.
156+
157+
158+
Items That are Not Considered Part of a Modified Version
159+
160+
(9) Works (including, but not limited to, modules and scripts) that
161+
merely extend or make use of the Package, do not, by themselves, cause
162+
the Package to be a Modified Version. In addition, such works are not
163+
considered parts of the Package itself, and are not subject to the
164+
terms of this license.
165+
166+
167+
General Provisions
168+
169+
(10) Any use, modification, and distribution of the Standard or
170+
Modified Versions is governed by this Artistic License. By using,
171+
modifying or distributing the Package, you accept this license. Do not
172+
use, modify, or distribute the Package, if you do not accept this
173+
license.
174+
175+
(11) If your Modified Version has been derived from a Modified
176+
Version made by someone other than you, you are nevertheless required
177+
to ensure that your Modified Version complies with the requirements of
178+
this license.
179+
180+
(12) This license does not grant you the right to use any trademark,
181+
service mark, tradename, or logo of the Copyright Holder.
182+
183+
(13) This license includes the non-exclusive, worldwide,
184+
free-of-charge patent license to make, have made, use, offer to sell,
185+
sell, import and otherwise transfer the Package with respect to any
186+
patent claims licensable by the Copyright Holder that are necessarily
187+
infringed by the Package. If you institute patent litigation
188+
(including a cross-claim or counterclaim) against any party alleging
189+
that the Package constitutes direct or contributory patent
190+
infringement, then this Artistic License to you shall terminate on the
191+
date that such litigation is filed.
192+
193+
(14) Disclaimer of Warranty:
194+
THE PACKAGE IS PROVIDED BY THE COPYRIGHT HOLDER AND CONTRIBUTORS "AS
195+
IS' AND WITHOUT ANY EXPRESS OR IMPLIED WARRANTIES. THE IMPLIED
196+
WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE, OR
197+
NON-INFRINGEMENT ARE DISCLAIMED TO THE EXTENT PERMITTED BY YOUR LOCAL
198+
LAW. UNLESS REQUIRED BY LAW, NO COPYRIGHT HOLDER OR CONTRIBUTOR WILL
199+
BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, OR CONSEQUENTIAL
200+
DAMAGES ARISING IN ANY WAY OUT OF THE USE OF THE PACKAGE, EVEN IF
201+
ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
202+

‎META.info

+13
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,13 @@
1+
{
2+
"name" : "Color",
3+
"version" : "1.001001",
4+
"description" : "Format conversion and math operations on colours",
5+
"depends" : [ ],
6+
"test-depends" : [ "Test" ],
7+
"provides" : {
8+
"Number::RGB" : "lib/Color.pm6"
9+
},
10+
"author" : "Zoffix Znet",
11+
"authority" : "zoffixznet",
12+
"source-url" : "git://github.com/zoffixznet/perl6-Color.git"
13+
}

‎README.pod

+54
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,54 @@
1+
=encoding utf8
2+
3+
=for HTML <a href="https://travis-ci.org/zoffixznet/perl6-Color"><img src="https://travis-ci.org/zoffixznet/perl6-Color.svg?branch=master"></a>
4+
5+
=head1 NAME
6+
7+
Color - Format conversion and math operations on colours
8+
9+
=head1 SYNOPSIS
10+
11+
use Color;
12+
13+
my $white = Color.new(255, 255, 255);
14+
my $almost_black = Color.new('#111');
15+
16+
my $gray = $white / 2;
17+
say $gray.hex; # prints "#808080"
18+
19+
say $almost_black + 25; # prints "42, 42, 42"
20+
21+
=head1 DESCRIPTION
22+
23+
This module allows you to perform mathematical operations on RGB colour tuples,
24+
as well as convert them into other colour formats, like hex.
25+
26+
=head1 METHODS
27+
28+
=head2 C<new>
29+
30+
my $rgb = Color.new;
31+
32+
Creates new C<Color> object.
33+
34+
=head1 REPOSITORY
35+
36+
Fork this module on GitHub:
37+
L<https://github.com/zoffixznet/perl6-Color>
38+
39+
=head1 BUGS
40+
41+
To report bugs or request features, please use
42+
L<https://github.com/zoffixznet/perl6-Color/issues>
43+
44+
=head1 AUTHOR
45+
46+
Zoffix Znet L<http://zoffix.com/>
47+
48+
=head1 LICENSE
49+
50+
You can use and distribute this module under the same terms as Perl 6
51+
itself. See the C<LICENSE> file included in this distribution for complete
52+
details.
53+
54+
=cut

‎examples/color.pl6

+10
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,10 @@
1+
use v6;
2+
use Color;
3+
4+
my $white = Color.new(255, 255, 255);
5+
my $almost_black = Color.new('#111');
6+
7+
my $gray = $white / 2;
8+
say $gray.hex; # prints "#808080"
9+
10+
say $almost_black + 25; # prints "42, 42, 42"

‎lib/Color.pm6

+38
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,38 @@
1+
use v6;
2+
class class Color:version<1.001001> {
3+
has Int $.r = 0;
4+
has Int $.g = 0;
5+
has Int $.b = 0;
6+
has Int $.a = 255;
7+
8+
method new (Str $hex is copy) {
9+
$hex ~~ s/^ '#'//;
10+
$hex.chars == 3 and $hex ~~ s/(.)(.)(.)/$0$0$1$1$2$2/;
11+
my ( $r, $g, $b ) = map { :16($_) }, $hex.comb(/../);
12+
return self.bless(:$r, :$g, :$b);
13+
}
14+
};
15+
16+
multi infix:<+> (RGB $obj, Int $n) is export {
17+
RGB.new(
18+
r => $obj.r + $n,
19+
g => $obj.g + $n,
20+
b => $obj.b + $n
21+
);
22+
}
23+
24+
multi infix:<+> (Int $n, RGB $obj) is export {
25+
RGB.new(
26+
r => $obj.r + $n,
27+
g => $obj.g + $n,
28+
b => $obj.b + $n
29+
);
30+
}
31+
32+
multi infix:<+> (RGB $obj1, RGB $obj2) is export {
33+
RGB.new(
34+
r => $obj1.r + $obj2.r,
35+
g => $obj1.g + $obj2.g,
36+
b => $obj1.b + $obj2.b,
37+
);
38+
}

‎logotype/logo_32x32.png

1.36 KB
Loading

0 commit comments

Comments
 (0)