marchのBLOG

「／3 A」とかやると文字の変わる箱を作った。
余計なコードやデバッグ用のコードが残っているが、自分メモとして。
大半はパクリ。
フォントは東雲なんでとりあえず安心。

string texture;
float x;
float y;
float u;
float v;
integer xmax = 16;
integer ymax = 16;

integer LHandle;
integer CHANNEL = 3;
//--------
//see  http : // wiki.secondlife.com/wiki/XTEA_Strong_Encryption_Implementation
//--------
//Function: ord
//Returns the index of an ASCII character
integer ord(string chr)
{
    string ASCII = "                                 !\"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\\]^_`abcdefghijklmnopqrstuvwxyz{|}~";
    if(llStringLength(chr) != 1) return -1;
    if(chr == " ") return 32;
    return llSubStringIndex(ASCII, chr);
}

//Function:  DWord2Hex
//Converts a dword containted in a LSL integer to hexadecimal format.       
string DWord2Hex(integer m){
   
    string result;
    integer i = 0;
    integer index = 0;
   
    //Define character string [0-F] for use in building the hex.
    string characters = "0123456789ABCDEF";  
   
    //Step through 8 times, for a total of 32 bits, 8 nibbles, and 8 hexadecimal digits.
    for (i = 0; i < 8; i++){
        //Get a nibble by right-shifting and masking off 4 bits.
        index  = (m >> (i * 4)) & 0xF;
        //Grab character from the characters string at index position and add it to the result string.
        result = llInsertString(result, 0, llGetSubString(characters,index,index));
    }
   
    return result;
}

integer initialize()
{
    LHandle = llListen(CHANNEL, "", NULL_KEY, "");
    llListenControl(LHandle, TRUE);
    llSleep(0.5);
    llOwnerSay("listen start. ch=" + (string)CHANNEL);
    return 0;
}
vector ascii2pos(integer code)
{
    integer x;
    integer y;
    vector pos;
    //
    x = code % xmax;
    if(x > xmax || x < 0)
    {
        x = 0;
    }
    pos.x = (1.0 / xmax) * ((xmax / 2) - x - 0.5);
    pos.x *= (-1);
    //
    y = code / xmax;    //xmax is. NOT ymax.
    if(y > ymax || y < 0)
    {
        y = 0;
    }
    pos.y = (1.0 / ymax) * ((ymax / 2) - y - 0.5);
    //pos.y *= (-1);
    //
    return pos;
}

vector setAsciiTexture(integer code)
{
    vector pos = ascii2pos(code);
    llOffsetTexture(pos.x, pos.y, ALL_SIDES);
    llOwnerSay("setAsciiTexture " + (string)pos);
    //
    u = 1.0 / xmax;
    v = 1.0 / ymax;
    llScaleTexture(u, v, ALL_SIDES);      // kakudai
    return pos;
}

default
{
    state_entry()
    {
        //x = (1.0 / xmax) * -3.5;
        //y = (1.0 / ymax) * 6.5;
        //u = 1.0 / xmax;
        //v = 1.0 / ymax;
        //llOffsetTexture(x, y, ALL_SIDES);
        //llScaleTexture(u, v, ALL_SIDES);      // kakudai
        //llOwnerSay("x=" + (string)x + ",y=" + (string)y + ",u=" + (string)u + ",v=" + (string)v);
        //
        initialize();
    }
    listen(integer channel, string name, key id, string message)
    {
        string oneStr = llGetSubString(message, 0, 0);
        llOwnerSay("[" + oneStr + "] is " + (string)ord(oneStr) + ". 0x" + DWord2Hex(ord(oneStr)) + ".");
        llOwnerSay("[" + oneStr + "] is " + (string)ord(oneStr) + ". 0x" + DWord2Hex(ord(oneStr)) + ".");
        integer a = ord(oneStr);
        integer pos_x = a % 16;
        integer pos_y = a / 16;
        llOwnerSay((string)a + "=(" + (string)pos_x + "," + (string)pos_y +")");
        //
        llOwnerSay((string)ascii2pos(a));
        setAsciiTexture(a);
    }
}