//////////////////////////////////////////////////////////
//   (C) Wizardry and Steamworks 2011, license: GPLv3   //
//////////////////////////////////////////////////////////
float wasBioLuminescence(float hours) {
    float sin = llSin(0.1*hours);
    if(sin>.5) return sin-.5;
    return sin;
}

default
{
    state_entry() {
        llSetPrimitiveParams([PRIM_GLOW, ALL_SIDES, wasBioLuminescence(llGetWallclock()/3600)]);
        llSetTimerEvent(3600);
    }
    timer() {
        llSetPrimitiveParams([PRIM_GLOW, ALL_SIDES, wasBioLuminescence(llGetWallclock()/3600)]);
    }
}