fix crash when copy'ing latent plugins
[ardour.git] / libs / canvas / colors.cc
index 76b51d584fa9995c4b5c7ffdad99ea0cb2bd74a5..7a108e7f85a36bd4aad3380478df053f9a0228f3 100644 (file)
 #include <stdint.h>
 #include <cfloat>
 
+#include "pbd/convert.h"
+#include "pbd/failed_constructor.h"
+#include "pbd/locale_guard.h"
+
 #include "canvas/colors.h"
 #include "canvas/colorspace.h"
 
@@ -31,6 +35,12 @@ using namespace ArdourCanvas;
 using std::max;
 using std::min;
 
+ArdourCanvas::Color
+change_alpha (Color c, double a)
+{
+       return ((c & ~0xff) | (lrintf (a*255.0) & 0xff));
+}
+
 void
 ArdourCanvas::color_to_hsv (Color color, double& h, double& s, double& v)
 {
@@ -45,9 +55,9 @@ ArdourCanvas::color_to_hsva (Color color, double& h, double& s, double& v, doubl
        double cmax;
        double cmin;
        double delta;
-       
+
        color_to_rgba (color, r, g, b, a);
-       
+
        if (r > g) {
                cmax = max (r, b);
        } else {
@@ -66,12 +76,12 @@ ArdourCanvas::color_to_hsva (Color color, double& h, double& s, double& v, doubl
 
        if (cmax == 0) {
                // r = g = b == 0 ... v is undefined, s = 0
-               s = 0.0;  
+               s = 0.0;
                h = 0.0;
                return;
        }
 
-       if (delta != 0.0) {     
+       if (delta != 0.0) {
                if (cmax == r) {
                        h = fmod ((g - b)/delta, 6.0);
                } else if (cmax == g) {
@@ -79,9 +89,9 @@ ArdourCanvas::color_to_hsva (Color color, double& h, double& s, double& v, doubl
                } else {
                        h = ((r - g)/delta) + 4;
                }
-               
+
                h *= 60.0;
-               
+
                if (h < 0.0) {
                        /* negative values are legal but confusing, because
                           they alias positive values.
@@ -125,7 +135,7 @@ ArdourCanvas::hsva_to_color (double h, double s, double v, double a)
                return rgba_to_color (x + m, m, c + m, a);
         } else if (h >= 300.0 && h < 360.0) {
                return rgba_to_color (c + m, m, x + m, a);
-        } 
+        }
        return rgba_to_color (m, m, m, a);
 }
 
@@ -162,8 +172,8 @@ ArdourCanvas::rgba_to_color (double r, double g, double b, double a)
 }
 
 // Inverse of sRGB "gamma" function.
-static inline double 
-inv_gam_sRGB (double c) 
+static inline double
+inv_gam_sRGB (double c)
 {
         if (c <= 0.04045) {
                 return c/12.92;
@@ -173,8 +183,8 @@ inv_gam_sRGB (double c)
 }
 
 // sRGB "gamma" function
-static inline int 
-gam_sRGB(double v) 
+static inline int
+gam_sRGB(double v)
 {
         if (v <= 0.0031308) {
                 v *= 12.92;
@@ -184,7 +194,7 @@ gam_sRGB(double v)
         return int (v*255+.5);
 }
 
-static double 
+static double
 luminance (uint32_t c)
 {
         // sRGB luminance(Y) values
@@ -195,9 +205,9 @@ luminance (uint32_t c)
         double r, g, b, a;
 
         ArdourCanvas::color_to_rgba (c, r, g, b, a);
-        
+
         return (gam_sRGB (rY*inv_gam_sRGB(r) + gY*inv_gam_sRGB(g) + bY*inv_gam_sRGB(b))) / 255.0;
-}    
+}
 
 uint32_t
 ArdourCanvas::contrasting_text_color (uint32_t c)
@@ -216,7 +226,7 @@ HSV::HSV ()
        : h (0.0)
        , s (1.0)
        , v (1.0)
-       , a (1.0) 
+       , a (1.0)
 {
 }
 
@@ -224,7 +234,7 @@ HSV::HSV (double hh, double ss, double vv, double aa)
        : h (hh)
        , s (ss)
        , v (vv)
-       , a (aa) 
+       , a (aa)
 {
        if (h < 0.0) {
                /* normalize negative hue values into positive range */
@@ -249,6 +259,7 @@ HSV::HSV (const std::string& str)
 string
 HSV::to_string () const
 {
+       PBD::LocaleGuard lg;
        stringstream ss;
        ss << h << ' ';
        ss << s << ' ';
@@ -331,12 +342,12 @@ HSV
 HSV::shade (double factor) const
 {
        HSV hsv (*this);
-       
+
        /* algorithm derived from a google palette website
           and analysis of their color palettes.
 
-          basic rule: to make a color darker, increase its saturation 
-          until it reaches 88%, but then additionally reduce value/lightness 
+          basic rule: to make a color darker, increase its saturation
+          until it reaches 88%, but then additionally reduce value/lightness
           by a larger amount.
 
           invert rule to make a color lighter.
@@ -345,12 +356,12 @@ HSV::shade (double factor) const
        if (factor > 1.0) {
                if (s < 88) {
                        hsv.v += (hsv.v * (factor * 10.0));
-               } 
+               }
                hsv.s *= factor;
        } else {
                if (s < 88) {
                        hsv.v -= (hsv.v * (factor * 10.0));
-               } 
+               }
                hsv.s *= factor;
        }
 
@@ -410,13 +421,13 @@ HSV::distance (const HSV& other) const
        if (is_gray() && other.is_gray()) {
                /* human color perception of achromatics generates about 450
                   distinct colors. By contrast, CIE94 could give a maximal
-                  perceptual distance of sqrt ((360^2) + 1 + 1) = 360. The 450 
+                  perceptual distance of sqrt ((360^2) + 1 + 1) = 360. The 450
                   are not evenly spread (Webers Law), so lets use 360 as an
                   approximation of the number of distinct achromatics.
-                  
+
                   So, scale up the achromatic difference to give about
                   a maximal distance between v = 1.0 and v = 0.0 of 360.
-                  
+
                   A difference of about 0.0055 will generate a return value of
                   2, which is roughly the limit of human perceptual
                   discrimination for chromatics.
@@ -434,7 +445,7 @@ HSV::distance (const HSV& other) const
        double sL, sA, sB;
        double oL, oA, oB;
        double r, g, b, alpha;  // Careful, "a" is a field of this
-       Color c; 
+       Color c;
 
        c = hsva_to_color (h, s, v, a);
        color_to_rgba (c, r, g, b, alpha);
@@ -448,7 +459,7 @@ HSV::distance (const HSV& other) const
 
        const double whtL = 1.0;
        const double whtC = 1.0;
-       const double whtH = 1.0;  
+       const double whtH = 1.0;
 
        const double xC1 = sqrt ((sA * sA) + (sB * oB));
        const double xC2 = sqrt ((oA * oA) + (oB * oB));
@@ -457,7 +468,7 @@ HSV::distance (const HSV& other) const
        const double xDE = sqrt (((sL - oL) * (sL - oL))
                                 + ((sA - oA) * (sA - oA))
                                 + ((sB - oB) * (sB - oB)));
-       
+
        double xDH;
 
        if (sqrt (xDE) > (sqrt (abs (xDL)) + sqrt (abs (xDC)))) {
@@ -472,7 +483,7 @@ HSV::distance (const HSV& other) const
        xDL /= whtL;
        xDC /= whtC * xSC;
        xDH /= whtH * xSH;
-       
+
        return sqrt ((xDL * xDL) + (xDC * xDC) + (xDH * xDH));
 }
 
@@ -516,3 +527,142 @@ HSV::print (std::ostream& o) const
 
 
 std::ostream& operator<<(std::ostream& o, const ArdourCanvas::HSV& hsv) { hsv.print (o); return o; }
+
+HSV
+HSV::mod (SVAModifier const & svam)
+{
+       return svam (*this);
+}
+
+SVAModifier::SVAModifier (string const &str)
+       : type (Add)
+       , _s (0)
+       , _v (0)
+       , _a (0)
+{
+       from_string (str);
+}
+
+void
+SVAModifier::from_string (string const & str)
+{
+       char op;
+       stringstream ss (str);
+       string mod;
+
+       ss >> op;
+
+       switch (op) {
+       case '*':
+               type = Multiply;
+               /* no-op values for multiply */
+               _s = 1.0;
+               _v = 1.0;
+               _a = 1.0;
+               break;
+       case '+':
+               type = Add;
+               /* no-op values for add */
+               _s = 0.0;
+               _v = 0.0;
+               _a = 0.0;
+               break;
+       case '=':
+               type = Assign;
+               /* this will avoid assignment in operator() (see below) */
+               _s = -1.0;
+               _v = -1.0;
+               _a = -1.0;
+               break;
+       default:
+               throw failed_constructor ();
+       }
+
+       string::size_type pos;
+
+       while (ss) {
+               ss >> mod;
+               if ((pos = mod.find ("alpha:")) != string::npos) {
+                       _a = PBD::atof (mod.substr (pos+6));
+               } else if ((pos = mod.find ("saturate:")) != string::npos) {
+                       _s = PBD::atof (mod.substr (pos+9));
+               } else if ((pos = mod.find ("darkness:")) != string::npos) {
+                       _v = PBD::atof (mod.substr (pos+9));
+               } else {
+                       throw failed_constructor ();
+               }
+       }
+}
+
+string
+SVAModifier::to_string () const
+{
+       PBD::LocaleGuard lg;
+       stringstream ss;
+
+       switch (type) {
+       case Add:
+               ss << '+';
+               break;
+       case Multiply:
+               ss << '*';
+               break;
+       case Assign:
+               ss << '=';
+               break;
+       }
+
+       if (_s >= 0.0) {
+               ss << " saturate:" << _s;
+       }
+
+       if (_v >= 0.0) {
+               ss << " darker:" << _v;
+       }
+
+       if (_a >= 0.0) {
+               ss << " alpha:" << _a;
+       }
+
+       return ss.str();
+}
+
+HSV
+SVAModifier::operator () (HSV& hsv)  const
+{
+       HSV r (hsv);
+
+       switch (type) {
+       case Add:
+               r.s += _s;
+               r.v += _v;
+               r.a += _a;
+               break;
+       case Multiply:
+               r.s *= _s;
+               r.v *= _v;
+               r.a *= _a;
+               break;
+       case Assign:
+               if (_s >= 0.0) {
+                       r.s = _s;
+               }
+               if (_v >= 0.) {
+                       r.v = _v;
+               }
+               if (_a >= 0.0) {
+                       r.a = _a;
+               }
+               break;
+       }
+
+       return r;
+}
+
+ArdourCanvas::Color
+ArdourCanvas::color_at_alpha (ArdourCanvas::Color c, double a)
+{
+       double r, g, b, unused;
+       color_to_rgba (c, r, g, b, unused);
+       return rgba_to_color( r,g,b, a );
+}