Skip to content

M
mincss
Commit dcb1102c authored by Taddeüs Kroes's avatar Taddeüs Kroes
Browse files
Options

Added tiny rgba optimization

parent b3315224
Show whitespace changes
Inline Side-by-side
Showing with 4 additions and 0 deletions
color.ml
View file @ dcb1102c
...@@ -51,6 +51,10 @@ let rec short = function ...@@ -51,6 +51,10 @@ let rec short = function
| Function ("rgb", Nary (",", [r; g; b])) -> | Function ("rgb", Nary (",", [r; g; b])) ->
Function ("rgb", Nary (",", [clip r; clip g; clip b])) Function ("rgb", Nary (",", [clip r; clip g; clip b]))
(* rgba(r,g,b,1.0) -> rgb(r,g,b) *)
| Function ("rgba", Nary (",", [r; g; b; Number (1., None)])) ->
short (Function ("rgb", Nary (",", [r; g; b])))
| v -> v | v -> v
let transform = function let transform = function
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment