Second Life Wiki - User contributions [en]

User:Abstract Alchemi

2010-01-30T02:52:27Z

Abstract Alchemi: Finished my progress!

==Scripts==
Out of some interest in [http://en.wikipedia.org/wiki/Base_(mathematics) Bases], I wanted to make something that could convert from [http://en.wikipedia.org/wiki/Decimal Base-10] to any other base. Here are my results!
==Base-N (1 < N < 67)==
<lsl>
string integertobase(integer base, integer int){
int = llAbs(int); if(base > 66||base < 1||base == 10) return "-1";
string code = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz";
string baseInteger;
while(int > base){
integer mod = int%base;
int = (integer)llList2String(llParseString2List((string)(int/base),["."],[]),0);
baseInteger += llGetSubString(code,mod,mod);
}
if(int != 0) baseInteger += llGetSubString(code,int,int); string str; integer i;
for(i = llStringLength(baseInteger)-1; i >= 0; i--) str += llGetSubString(baseInteger,i,i);
return str;
}

integer basetointeger(integer base, string src){
if(base > 66||base < 1||base == 10) return -1;
integer baseInteger; integer i;
string code = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz";
for(i = 0; i < llStringLength(src);i++){
if(llSubStringIndex(code,llGetSubString(src,i,i)) == -1) return -1;
baseInteger += llSubStringIndex(code,llGetSubString(src,i,i))*(integer)llPow(base,llAbs(i-llStringLength(src)+1));
}
return baseInteger;
}
</lsl>
{{skills
|Architect=
|Builder=*
|Machinima=
|Scenographer=
|Scripter=*
|SLogistician=
|Terraformer=
|}}

User:Abstract Alchemi

2010-01-22T04:41:28Z

Abstract Alchemi: Another minor issue fixed.

==Scripts==
Out of some interest in [http://en.wikipedia.org/wiki/Base_(mathematics) Bases], I wanted to make something that could convert from [http://en.wikipedia.org/wiki/Decimal Base-10] to any other base. I started off reading documentation on how to do so, and I decided i'd try just to convert from Base-23 to [http://en.wikipedia.org/wiki/Decimal Base-10]. Here are my results!
==Base-23 and [http://en.wikipedia.org/wiki/Decimal Base-10]==
<lsl>
string IntegerToBase23(integer int){
string code = "0123456789ABCDEFGHIJKLMNOPQRSTUVW";
string base23;
if(int < 23) return llGetSubString(code,int,int);
while(int > 23){
integer mod = int%23;
int = int/23;
base23 += llGetSubString(code,mod,mod);
}
if(int != 0) base23 += llGetSubString(code,int,int); string str; integer i;
for(i = llStringLength(base23)-1; i >= 0; i--) str += llGetSubString(base23,i,i);
return str;
}
integer Base23ToInteger(string src){
integer base23; integer i;
string code = "0123456789ABCDEFGHIJKLMNOPQRSTUVW";
for(i = 0; i < llStringLength(src);i++){
if(llSubStringIndex(code,llGetSubString(src,i,i)) == -1) return -1;
base23 += llSubStringIndex(code,llGetSubString(src,i,i))*(integer)llPow(23,llAbs(i-llStringLength(src)+1));
}
return base23;
}

default{
state_entry(){
integer num = 10;
llSay(0,(string)IntegerToBase23(num)+" == "+(string)Base23ToInteger(IntegerToBase23(num)));
}
}
</lsl>
{{skills
|Architect=
|Builder=*
|Machinima=
|Scenographer=
|Scripter=*
|SLogistician=
|Terraformer=
|}}

User:Abstract Alchemi

2010-01-22T04:30:05Z

Abstract Alchemi: Fixed, an error!

==Scripts==
Out of some interest in [http://en.wikipedia.org/wiki/Base_(mathematics) Bases], I wanted to make something that could convert from [http://en.wikipedia.org/wiki/Decimal Base-10] to any other bases. I started off reading documentation on how to do so, and I decided i'd try just to convert from Base-23 to [http://en.wikipedia.org/wiki/Decimal Base-10]. Here are my results!
==Base-23 and [http://en.wikipedia.org/wiki/Decimal Base-10]==
<lsl>
string IntegerToBase23(integer int){
string code = "0123456789ABCDEFGHIJKLMNOPQRSTUVW";
string base23;
if(int < 23) return llGetSubString(code,int,int);
while(int > 23){
integer mod = int%23;
int = int/23;
base23 += llGetSubString(code,mod,mod);
}
if(int != 0) base23 += llGetSubString(code,int,int); string str; integer i;
for(i = llStringLength(base23)-1; i >= 0; i--) str += llGetSubString(base23,i,i);
return str;
}
integer Base23ToInteger(string src){
integer base23; integer i;
string code = "0123456789ABCDEFGHIJKLMNOPQRSTUVW";
for(i = 0; i < llStringLength(src);i++){
if(llSubStringIndex(code,llGetSubString(src,i,i)) == -1) return -1;
base23 += llSubStringIndex(code,llGetSubString(src,i,i))*(integer)llPow(23,llAbs(i-llStringLength(src)+1));
}
return base23;
}

default{
state_entry(){
integer num = 10;
llSay(0,(string)IntegerToBase23(num)+" == "+(string)Base23ToInteger(IntegerToBase23(num)));
}
}
</lsl>
{{skills
|Architect=
|Builder=*
|Machinima=
|Scenographer=
|Scripter=*
|SLogistician=
|Terraformer=
|}}

User:Abstract Alchemi

2010-01-22T04:24:32Z

Abstract Alchemi: I wanted to post my script here, and expand on it later, and possiably post it in the LSL Portal when I get it more developed, but for now it goes here!

==Scripts==
Out of some interest in [http://en.wikipedia.org/wiki/Base_(mathematics) Bases], I wanted to make something that could convert from [http://en.wikipedia.org/wiki/Decimal Base-10] to any other bases. I started off reading documentation on how to do so, and I decided i'd try just to convert from Base-23 to [http://en.wikipedia.org/wiki/Decimal Base-10]. Here are my results!
==Base-23 and [http://en.wikipedia.org/wiki/Decimal Base-10]==
<lsl>
string IntegerToBase23(integer int){
string code = "0123456789ABCDEFGHIJKLMNOPQRSTUVW";
string base23;
if(int < 23) return llGetSubString(code,int-1,int-1);
while(int > 23){
integer mod = int%23;
int = int/23;
base23 += llGetSubString(code,mod,mod);
}
if(int != 0) base23 += llGetSubString(code,int,int); string str; integer i;
for(i = llStringLength(base23)-1; i >= 0; i--) str += llGetSubString(base23,i,i);
return str;
}
integer Base23ToInteger(string src){
integer base23; integer i;
string code = "0123456789ABCDEFGHIJKLMNOPQRSTUVW";
for(i = 0; i < llStringLength(src);i++){
if(llSubStringIndex(code,llGetSubString(src,i,i)) == -1) return -1;
base23 += llSubStringIndex(code,llGetSubString(src,i,i))*(integer)llPow(23,llAbs(i-llStringLength(src)+1));
}
return base23;
}

default{
state_entry(){
integer num = 10;
llSay(0,(string)IntegerToBase23(num)+" == "+(string)Base23ToInteger(IntegerToBase23(num)));
}
}
</lsl>
{{skills
|Architect=
|Builder=*
|Machinima=
|Scenographer=
|Scripter=*
|SLogistician=
|Terraformer=
|}}

User:Strife Onizuka

2010-01-21T04:08:34Z

Abstract Alchemi: /* Float {{LSL_VR|-Union-}} Integer */ I fixed a compiling error, added a ";" to the end of a returning function

<div style="float:right;"><videoflash>hTIsIjZCvHk</videoflash></div>{{RightToc|clear:right;}}
{| class="sortable" {{prettytable|style=float:right; clear:right; margin:0;}}
|- {{Hl2}}
! | Updates:
! class="unsortable" | Preview
{{/Grid|DMZ}}
{{/Grid|Agni}}
{{/Grid|Colo|strike=*}}
{{/Grid|Siva}}
{{/Grid|Durga}}
{{/Grid|Aditi}}
{{/Grid|Soma}}
{{/Grid|Ganga}}
{{/Grid|Uma}}
{{/Grid|Shakti}}
{{/Grid|Vaak}}
{{/Grid|Mohini}}
{{/Grid|Yami}}
{{/Grid|Nandi}}
{{/Grid|Mitra}}
{{/Grid|Radha}}
{{/Grid|Ravi}}
{{/Grid|Aruna}}
{{/Grid|Damballah}}
{{/Grid|Bharati}}
{{/Grid|Chandra}}
{{/Grid|Danu}}
{{/Grid|Parvati}}
{{/Grid|Skanda}}
|}

== About Strife ==

=== Synopses ===

Strife is an avid scripter, wiki author and SL forum denizen. Not content in selfish information gathering, he shares what he knows through various mediums, so that others may benefit and learn. He volunteers his time to work on many public projects which include: giving scripting advice, writing LSL documentation, providing and improving LSL scripts and libraries.

=== SL Status ===

Strife has relocated to the Boston area in search of work, if none can be found... the relocation will be temporary. The computer has been rebuilt from scratch with all new parts (but using the old HDD, I didn't trust the one Igor was proffering; I don't know why I let him talk me into a wired keyboard and mouse). I should be able to get in-world now, though I still need to buy a new video card, Intel isn't know for decent graphics chips.

Things were going well on the house painting front until I stepped off a fire escape and landed in the hospital with a broken leg and a fractured vertebra. No worries, I'm insured and am on great pain pills (but the itchiness is annoying and the novelty of hallucinations has worn off). As you can guess my house painting days are over, don't you just love it when life gives you a gentle nudge when it thinks you are going in the wrong direction? Anyway on the computer front, I'm almost finished building the new one, just need to order the CPU, the rest is already to assembled. After expenses, including the computer, I might just break even on this trip. *sigh*

=== Honors ===

Through his public works Strife became a pillar of the SL community.


Strife is a Hippo award winner, [http://blog.secondlife.com/2007/08/25/innovation-award-winners-announced/ awarded "Best Community Organizer" in the 2007 Linden Lab Innovation Awards], and here is [[Linden Lab Innovation Awards|his mention as a runner-up in the 2008 "Best Documentation" category:]] "Last year's winner, Strife Onizuka, continued to be insanely prolific, with thousands of edits over the past year.... Anyone learning LSL is almost certainly indebted to Strife's work in some way."

=== Own Words ===

I'm an immigrant from URU. Was in all 3 of it's beta's.

Wiki Gnome (causing drama isn't why I'm here).

I have a webpage but haven't updated it in a few months...

Wiki's are the way of the future when it comes to making documentation Ad-hoc but eventually become static as graffiti grows with popularity as a way of controlling it.

also contribute to some other wiki's
*[http://history.secondserver.net/index.php/Main_Page History Wiki]
*[http://www.AviSynth.org/BlindWanderer AviSynth:BlindWanderer]
*[http://en.wikipedia.org/wiki/User:BlindWanderer Wikipedia:BlindWanderer]

When it comes to writing I tend to go towards concise. A short accurate description is better then a long equally accurate description; less to get confused with, easier to find the important information (because it is ''all'' important).

{{Jira Reporter}}
{{skills
|Builder=*
|Scripter=*
|}}

== Scite/ESL ==
My config files: ''Comcast finally woke up and realized my account name was "mailerdaemon" and killed it so I'll be moving the files soon, sorry for the inconvenience.'' -- '''[[User:Strife_Onizuka|Strife]]''' <sup><small>([[User talk:Strife_Onizuka|talk]]|[[Special:Contributions/Strife_Onizuka|contribs]])</small></sup> 17:26, 24 March 2009 (UTC)
*[http://mailerdaemon.home.comcast.net/lsl.api lsl.api]
*[http://mailerdaemon.home.comcast.net/lsl.properties lsl.properties]
*[http://mailerdaemon.home.comcast.net/stripper.zip stripper.zip - Whitespace stripper]
*[http://mailerdaemon.home.comcast.net/clipboard.zip clipboard - copies text to clipboard]
*[http://mailerdaemon.home.comcast.net/patch.esl patch.esl - make lslint not choke on new keywords]
*[http://w-hat.com/lslint lslint]
*[http://gnuwin32.sourceforge.net/packages/indent.htm indent - code beautifier] (picks up where the whitespace stripper leaves off)
*[http://msdn.microsoft.com/vstudio/express/visualc/ MSVC Express]

==TightList==
See [[TightList]]

==Float {{LSL_VR|-Union-}} Integer==
<lsl>
integer fui(float a)//Mono Safe, LSO Safe, Doubles Unsupported, LSLEditor Unsafe
{//union float to integer
if((a)){//is it non zero?
integer b = (a < 0) << 31;//the sign, but later this variable is reused to store the shift
if((a = llFabs(a)) < 2.3509887016445750159374730744445e-38)//Denormalized range check & last stirde of normalized range
return b | (integer)(a / 1.4012984643248170709237295832899e-45);//the math overlaps; saves cpu time.
integer c = llFloor((llLog(a) / 0.69314718055994530941723212145818));//extremes will error towards extremes. following yuch corrects it.
return (0x7FFFFF & (integer)(a * (0x1000000 >> b))) | (((c + 126 + (b = ((integer)a - (3 <= (a /= (float)("0x1p"+(string)(c -= ((c >> 31) | 1)))))))) << 23 ) | b);
}//for grins, detect the sign on zero. it's not pretty but it works. the previous requires alot of unwinding to understand it.
return ((string)a == (string)(-0.0)) << 31;
}

float iuf(integer a)
{//union integer to float
return ((float)("0x1p"+(string)((a | !a) - 150))) * ((!!(a = (0xff & (a >> 23))) << 23) | ((a & 0x7fffff))) * (1 | (a >> 31));
}//will crash if the raw exponent == 0xff; reason for crash deviates from float standard; though a crash is warented.
</lsl>

As a specialized mode of transport, this is faster the [[Float2Hex]] and just as lossless.
<lsl>
string fuis(float a){//float union to base64ed integer
if(a){//is it non zero?
integer b = (a < 0) << 31;//the sign, but later this variable is reused to store the shift
if((a = llFabs(a)) < 2.3509887016445750159374730744445e-38)//Denormalized range check & last stirde of normalized range
b = b | (integer)(a / 1.4012984643248170709237295832899e-45);//the math overlaps; saves cpu time.
else
{
integer c = llFloor(llLog(a) / 0.69314718055994530941723212145818);//extremes will error towards extremes. following yuch corrects it.
b = (0x7FFFFF & (integer)(a * (0x1000000 >> b))) | (((c + 126 + (b = ((integer)a - (3 <= (a /= (float)("0x1p"+(string)(c -= (c == 128)))))))) << 23 ) | b);
}
return llGetSubString(llIntegerToBase64(b),0,5);
}//for grins, detect the sign on zero. it's not pretty but it works. the previous requires alot of unwinding to understand it.
if((string)a == (string)(0.0))
return "AAAAAA";
return "gAAAAA";
}

float siuf(string b)
{//base64ed integer union to float
integer a = llBase64ToInteger(b);
return ((float)("0x1p"+(string)((a | !a) - 150))) * ((!!(a = (0xff & (a >> 23))) << 23) | ((a & 0x7fffff))) * (1 | (a >> 31));
}//will crash if the raw exponent == 0xff; reason for crash deviates from float standard; though a crash is warented.
</lsl>

==Float Compare==
<lsl>integer FloatCompare(float a, float b, integer c)
{//compare floats and allow for a margin of error, requires fui().
if(a - b)//(c) Strife Onizuka 2006
{//they are not equal
//First we convert the floats to integer form, as they would be in memory;
integer a_i = fui(a);
integer b_i = fui(b);
integer a_e = (a_i >> 23) & 0xff;
integer b_e = (b_i >> 23) & 0xff;
if(!(a_e || b_e) || //to disable the +/- roll under support put a // just before the !
((a_i & 0x80000000) == (b_i & 0x80000000)))//sign match check
{//start by getting and testing the difference, this is what limits c
integer diff = a_e - b_e;//ugly is fast, basicly, it gets the mantissa, sets the sign on the mantisa,
if(diff >= -1 || diff <= 1)//shifts it depending on exponent, finaly executes the test.
if(llAbs(((((a_i & 0x7FFFFF) | (!!a_e << 23)) * ((a_i >> 31) | 1)) >> !~-diff) -
((((b_i & 0x7FFFFF) | (!!b_e << 23)) * ((b_i >> 31) | 1)) >> !~diff)) <= c)
jump out;
}
return (a > b) - (a < b);
}
@out;
return 0;
}</lsl>

==FUI2HexFloat ==
<lsl>
string FUI2HexFloat(integer b)
{//Dump FUI float-integer to a hex-float string
string c = "";
integer d = 0;
integer e = 0xff & (b >> 23);
string f = "0x"+(string)(!!e) + ".";
if(b & 0x80000000)
f = "-"+ f;
if(e ^ 127) c = "p" + (string)((e | !e) - 127);
if((e = 0xfffffe & (b << 1)))
{
while(!((e >> d) & 0xf))
d+=4;
while(d < 24)
{
c = llGetSubString(hexc, b = 0xf & (e >> d), b) + c;
d += 4;
}
}
return f + c;
}

string Float2Hex(float a)
{//Another way to do Float2Hex, i wrote this for the heck of it; not because it's a good idea.
return FUI2HexFloat(fui(a));
}
</lsl>

==BitCount==
<lsl>integer bitcount(integer n)
{//MIT Hackmem 169, modified to work in LSL
integer tmp = n - ((n >> 1) & 0x5B6DB6DB)//modified mask
- ((n >> 2) & 0x49249249);
return (((tmp + (tmp >> 3)) & 0xC71C71C7) % 63) - (n >> 31);
}</lsl>

==UnicodeIntegerToUTF8==
<lsl>string UnicodeIntegerToUTF8(integer input)//Mono Safe, LSLEditor Safe, LSO Incomplete
{//LSO allows for the older UTF-8 range, this function only supports the new UTF-16 range.
if(input > 0)
{
if(input <= 0x7FF)
{
if(input <= 0x7F)
return llBase64ToString(llIntegerToBase64(input << 24));
return llBase64ToString(llIntegerToBase64(0xC0800000 | ((input << 18) & 0x1F000000) | ((input << 16) & 0x3F0000)));
}
if(input <= 0xFFFF)
return llBase64ToString(llIntegerToBase64(0xE0808000 | ((input << 12) & 0x0F000000) | ((input << 10) & 0x3F0000) | ((input << 8) & 0x3F00)));
if(input <= 0x10FFFF)
return llBase64ToString(llIntegerToBase64(0xF0808080 | ((input << 06) & 0x0E000000) | ((input << 04) & 0x3F0000) | ((input << 2) & 0x3F00) | (input & 0x3F)));
}
return "";
}</lsl>
{{visl
|name=Strife Onizuka
|Greeters=
|Helpers=
|Instructors=
|Mentors=
|LSL=*
|i18n=
|l10n=
|SL4B=
|}}
[[Category:SL Certification Participant|{{PAGENAME}}]]

User:Abstract Alchemi

2010-01-11T00:26:02Z

Abstract Alchemi: Created page with '{{skills |Architect= |Builder=* |Machinima= |Scenographer= |Scripter=* |SLogistician= |Terraformer= |}}'

{{skills
|Architect=
|Builder=*
|Machinima=
|Scenographer=
|Scripter=*
|SLogistician=
|Terraformer=
|}}