lslscripts/XS Pet Robot/XS Robot/Nut and Bolt Toolbox/xs coloring plug-in.lsl

// :CATEGORY:XSPet
// :NAME:XS Pet Robot
// :AUTHOR:FerdFrederix
// :KEYWORDS:Pet,XS,breed,breedable,companion,Ozimal,Meeroo,Amaretto,critter,Fennux,Pets
// :CREATED:2013-09-06
// :EDITED:2014-05-18
// :ID:988
// :NUM:1614
// :REV:0.52
// :WORLD:SecondLife,OpenSim
// :DESCRIPTION:
// XSPet xs coloring plug in ( identical in egg, crate and cup )
// :CODE:


integer LINK_COLOR1_GET = 101;       // to xs_egg color plugin.
integer LINK_COLOR2_GET = 102;       // to xs_egg color plugin.
integer LINK_COLOR1_PUT = 103;       // to xs_egg color plugin.
integer LINK_COLOR2_PUT = 104;       // to xs_egg color plugin.

// vector values of all known system colors
list sysColorsVector;
// names of all known system colors
list sysColorsName;


string HTML2SysColorBestMatch(vector userColor)
{

    // place holder for the system color to match

    // start with a large variance and narrow down
    float variance = 2.0;
    float test;
    integer index;

    integer count = llGetListLength(sysColorsVector);
    integer i;
    for (i=0;i<count;i++)
    {
        test = llVecMag(userColor - llList2Vector(sysColorsVector, i));
        if (test < variance)
        {
            variance = test;
            index = i;
        }
    }

    return llList2String(sysColorsName, index);
}



default
{
	state_entry()
	{
        sysColorsVector= [<0.941176,0.972549,1.000000>,<0.980392,0.921569,0.843137>,<0.000000,1.000000,1.000000>,<0.498039,1.000000,0.831373>,<0.941176,1.000000,1.000000>,<0.960784,0.960784,0.862745>,<1.000000,0.894118,0.768627>,<0.000000,0.000000,0.000000>,<1.000000,0.921569,0.803922>,<0.000000,0.000000,1.000000>]
            +[<0.541176,0.168627,0.886275>,<0.647059,0.164706,0.164706>,<0.870588,0.721569,0.529412>,<0.372549,0.619608,0.627451>,<0.498039,1.000000,0.000000>,<0.823529,0.411765,0.117647>,<1.000000,0.498039,0.313725>,<0.392157,0.584314,0.929412>,<1.000000,0.972549,0.862745>,<0.862745,0.078431,0.235294>]
            +[<0.000000,1.000000,1.000000>,<0.000000,0.000000,0.545098>,<0.000000,0.545098,0.545098>,<0.721569,0.525490,0.043137>,<0.662745,0.662745,0.662745>,<0.000000,0.392157,0.000000>,<0.741176,0.717647,0.419608>,<0.545098,0.000000,0.545098>,<0.333333,0.419608,0.184314>,<1.000000,0.549020,0.000000>]
            +[<0.600000,0.196078,0.800000>,<0.545098,0.000000,0.000000>,<0.913725,0.588235,0.478431>,<0.560784,0.737255,0.545098>,<0.282353,0.239216,0.545098>,<0.184314,0.309804,0.309804>,<0.000000,0.807843,0.819608>,<0.580392,0.000000,0.827451>,<1.000000,0.078431,0.576471>,<0.000000,0.749020,1.000000>]
            +[<0.411765,0.411765,0.411765>,<0.117647,0.564706,1.000000>,<0.698039,0.133333,0.133333>,<1.000000,0.980392,0.941176>,<0.133333,0.545098,0.133333>,<1.000000,0.000000,1.000000>,<0.862745,0.862745,0.862745>,<0.972549,0.972549,1.000000>,<1.000000,0.843137,0.000000>,<0.854902,0.647059,0.125490>]
            +[<0.501961,0.501961,0.501961>,<0.000000,0.501961,0.000000>,<0.678431,1.000000,0.184314>,<0.941176,1.000000,0.941176>,<1.000000,0.411765,0.705882>,<0.803922,0.360784,0.360784>,<0.294118,0.000000,0.509804>,<1.000000,1.000000,0.941176>,<0.941176,0.901961,0.549020>,<0.901961,0.901961,0.980392>]
            +[<1.000000,0.941176,0.960784>,<0.486275,0.988235,0.000000>,<1.000000,0.980392,0.803922>,<0.678431,0.847059,0.901961>,<0.941176,0.501961,0.501961>,<0.878431,1.000000,1.000000>,<0.980392,0.980392,0.823529>,<0.827451,0.827451,0.827451>,<0.564706,0.933333,0.564706>,<1.000000,0.713725,0.756863>]
            +[<1.000000,0.627451,0.478431>,<0.125490,0.698039,0.666667>,<0.529412,0.807843,0.980392>,<0.466667,0.533333,0.600000>,<0.690196,0.768627,0.870588>,<1.000000,1.000000,0.878431>,<0.000000,1.000000,0.000000>,<0.196078,0.803922,0.196078>,<0.980392,0.941176,0.901961>,<1.000000,0.000000,1.000000>]
            +[<0.501961,0.000000,0.000000>,<0.400000,0.803922,0.666667>,<0.000000,0.000000,0.803922>,<0.729412,0.333333,0.827451>,<0.576471,0.439216,0.858824>,<0.235294,0.701961,0.443137>,<0.482353,0.407843,0.933333>,<0.000000,0.980392,0.603922>,<0.282353,0.819608,0.800000>,<0.780392,0.082353,0.521569>]
            +[<0.098039,0.098039,0.439216>,<0.960784,1.000000,0.980392>,<1.000000,0.894118,0.882353>,<1.000000,0.894118,0.709804>,<1.000000,0.870588,0.678431>,<0.000000,0.000000,0.501961>,<0.992157,0.960784,0.901961>,<0.501961,0.501961,0.000000>,<0.419608,0.556863,0.137255>,<1.000000,0.647059,0.000000>]
            +[<1.000000,0.270588,0.000000>,<0.854902,0.439216,0.839216>,<0.933333,0.909804,0.666667>,<0.596078,0.984314,0.596078>,<0.686275,0.933333,0.933333>,<0.858824,0.439216,0.576471>,<1.000000,0.937255,0.835294>,<1.000000,0.854902,0.725490>,<0.803922,0.521569,0.247059>,<1.000000,0.752941,0.796078>]
            +[<0.866667,0.627451,0.866667>,<0.690196,0.878431,0.901961>,<0.501961,0.000000,0.501961>,<1.000000,0.000000,0.000000>,<0.737255,0.560784,0.560784>,<0.254902,0.411765,0.882353>,<0.545098,0.270588,0.074510>,<0.980392,0.501961,0.447059>,<0.956863,0.643137,0.376471>,<0.180392,0.545098,0.341176>]
            +[<1.000000,0.960784,0.933333>,<0.627451,0.321569,0.176471>,<0.752941,0.752941,0.752941>,<0.529412,0.807843,0.921569>,<0.415686,0.352941,0.803922>,<0.439216,0.501961,0.564706>,<1.000000,0.980392,0.980392>,<0.000000,1.000000,0.498039>,<0.274510,0.509804,0.705882>,<0.823529,0.705882,0.549020>]
            +[<0.000000,0.501961,0.501961>,<0.847059,0.749020,0.847059>,<1.000000,0.388235,0.278431>,<1.000000,1.000000,1.000000>,<0.250980,0.878431,0.815686>,<0.933333,0.509804,0.933333>,<0.960784,0.870588,0.701961>,<1.000000,1.000000,1.000000>,<0.960784,0.960784,0.960784>,<1.000000,1.000000,0.000000>]
            +[<0.603922,0.803922,0.196078>];

        sysColorsName= ["AliceBlue","AntiqueWhite","Aqua","Aquamarine","Azure","Beige","Bisque","Black","BlanchedAlmond","Blue"]
            +["BlueViolet","Brown","BurlyWood","CadetBlue","Chartreuse","Chocolate","Coral","CornflowerBlue","Cornsilk","Crimson"]
            +["Cyan","DarkBlue","DarkCyan","DarkGoldenrod","DarkGray","DarkGreen","DarkKhaki","DarkMagenta","DarkOliveGreen","DarkOrange"]
            +["DarkOrchid","DarkRed","DarkSalmon","DarkSeaGreen","DarkSlateBlue","DarkSlateGray","DarkTurquoise","DarkViolet","DeepPink","DeepSkyBlue"]
            +["DimGray","DodgerBlue","Firebrick","FloralWhite","ForestGreen","Fuchsia","Gainsboro","GhostWhite","Gold","Goldenrod"]
            +["Gray","Green","GreenYellow","Honeydew","HotPink","IndianRed","Indigo","Ivory","Khaki","Lavender"]
            +["LavenderBlush","LawnGreen","LemonChiffon","LightBlue","LightCoral","LightCyan","LightGoldenrodYellow","LightGray","LightGreen","LightPink"]
            +["LightSalmon","LightSeaGreen","LightSkyBlue","LightSlateGray","LightSteelBlue","LightYellow","Lime","LimeGreen","Linen","Magenta"]
            +["Maroon","MediumAquamarine","MediumBlue","MediumOrchid","MediumPurple","MediumSeaGreen","MediumSlateBlue","MediumSpringGreen","MediumTurquoise","MediumVioletRed"]
            +["MidnightBlue","MintCream","MistyRose","Moccasin","NavajoWhite","Navy","OldLace","Olive","OliveDrab","Orange"]
            +["OrangeRed","Orchid","PaleGoldenrod","PaleGreen","PaleTurquoise","PaleVioletRed","PapayaWhip","PeachPuff","Peru","Pink"]
            +["Plum","PowderBlue","Purple","Red","RosyBrown","RoyalBlue","SaddleBrown","Salmon","SandyBrown","SeaGreen"]
            +["SeaShell","Sienna","Silver","SkyBlue","SlateBlue","SlateGray","Snow","SpringGreen","SteelBlue","Tan"]
            +["Teal","Thistle","Tomato","White","Turquoise","Violet","Wheat","White","WhiteSmoke","Yellow"]
            +["YellowGreen"];


    }

    link_message(integer sender_number, integer number, string message, key id)
    {
        if (number == LINK_COLOR1_GET)
        {
            llMessageLinked(LINK_SET,LINK_COLOR1_PUT,HTML2SysColorBestMatch((vector) message),"");
        } else if (number == LINK_COLOR2_GET)
        {
            llMessageLinked(LINK_SET,LINK_COLOR2_PUT,HTML2SysColorBestMatch((vector) message),"");
        }
    }

}