Google Charts

From Second Life Wiki

This script allows you to take an existing list of values and represent it as a chart using Google's Chart API. The example here takes a list of visitors per hour and represents it as a bar chart. The simpleEncoding method provided by Google has been converted to LSL script.

Example

string simpleEncode(list values, float min, float max) 
{
    string text = "";
    float range = 244 / (min - max);//4 * 61
    integer index = llGetListLength(values);
 
    while(index)
    {
        integer type = llGetListEntryType(values, --index);
        if(type == TYPE_FLOAT || type == TYPE_INTEGER)
            text = llGetSubString(llIntegerToBase64((integer)(range * (min - llList2Float(values, index)))), 4, 4) + text;
        else
            text = "_" + text;
    }
    return text;
}
 
string cleanup(float value)
{
    string str = (string)value;
    if(value >= 10.0)
        return llGetSubString(str, 0, -8);
    integer i = -1;
    while(llGetSubString(str, i, i) == "0") --i;
    if(llGetSubString(str, i, i) == ".") --i;
    return llGetSubString(str, 0, i);
}
 
string chartUrl(list values, list captions, integer yDivisions)
{
    integer min = llFloor(llListStatistics(LIST_STAT_MIN, values));
    integer max = llCeil(llListStatistics(LIST_STAT_MAX, values));
    string url = "http://chart.apis.google.com/chart"
               + "?chs=200x125"
               + "&chd=s:" + simpleEncode(values, min, max)
               + "&cht=lc"
               + "&chxt=x,y"
               + "&chxl=0:";
    integer i = ~llGetListLength(captions);
    while(++i)
        url += "|" + llEscapeURL(llList2String(captions, i));
    url += "|1:";
    ++yDivisions;
    float range = max - min;
    for(i = 0; i <= yDivisions; ++i)
        url += "|" + cleanup(((i * range) / yDivisions) + min);
    return url;
}
 
default
{
    state_entry()
    {
        llSay(0, chartUrl([8,8,3,2,1,5,3,2,2,3,1,4,6,3,4,7,5,6,5,5,4,5,5,6,4], ["4AM", "4PM", "4AM"], 0));
    }
 
    touch_start(integer total_number)
    {
        llSay(0, chartUrl([8,8,3,2,1,5,3,2,2,3,1,4,6,3,4,7,5,6,5,5,4,5,5,6,4], ["4AM", "4PM", "4AM"], 0));
    }
}