From dcb1102ccfb9ac27e1446d30de4e4715b2049317 Mon Sep 17 00:00:00 2001
From: Taddeus Kroes <taddeuskroes@gmail.com>
Date: Thu, 24 Jul 2014 11:46:54 +0200
Subject: [PATCH] Added tiny rgba optimization
---
color.ml | 4 ++++
1 file changed, 4 insertions(+)
diff --git a/color.ml b/color.ml
index 7df658f..0d61a8d 100644
--- a/color.ml
+++ b/color.ml
@@ -51,6 +51,10 @@ let rec short = function
| Function ("rgb", Nary (",", [r; g; 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
let transform = function
--
GitLab