Vocabulary
colors.hsl

Inputs
coloran object


Outputs
hslaan object


Definition

GENERIC: >hsla ( color -- hsla )


Methods







M: rgba >hsla
>rgba-components [
3 load-locals -2 get-local -1 get-local 0 get-local min
min load-local
-3 get-local -2 get-local -1 get-local max max
load-local -1 get-local 0 get-local + 2 / load-local
-1 get-local -2 get-local - load-local 0 get-local zero?
[ 0.0 0.0 ] -2 get-local -6 get-local -5 get-local -4
get-local 0 get-local -1 get-local -3 get-local [
7 load-locals -6 get-local dup -5 get-local =
-4 get-local -3 get-local -2 get-local [
3 load-locals drop -2 get-local -1 get-local -
0 get-local / -2 get-local -1 get-local <
6.0 0.0 ? + 3 drop-locals
] curry curry curry
-4 get-local -3 get-local -5 get-local -2 get-local
[
4 load-locals dup -3 get-local =
-2 get-local -1 get-local 0 get-local [
3 load-locals drop
-2 get-local -1 get-local - 0 get-local /
2.0 + 3 drop-locals
] curry curry curry
-2 get-local -1 get-local -3 get-local 0
get-local [
4 load-locals dup -3 get-local =
-2 get-local -1 get-local 0 get-local [
3 load-locals drop
-2 get-local -1 get-local -
0 get-local / 4.0 + 3 drop-locals
] curry curry curry [ no-case ] if
4 drop-locals
] curry curry curry curry if 4 drop-locals
] curry curry curry curry if 6.0 /
-1 get-local 0.5 >
-2 get-local -6 get-local 0 get-local [
3 load-locals -2 get-local 2 -1 get-local -
0 get-local - / 3 drop-locals
] curry curry curry
-2 get-local -6 get-local 0 get-local [
3 load-locals
-2 get-local -1 get-local 0 get-local + /
3 drop-locals
] curry curry curry if 7 drop-locals
] curry curry curry curry curry curry curry if
-1 get-local 7 drop-locals
] dip <hsla> ;