Progress Bar

This is a script to create very useful and realistic looking progress or health bars. They are suitable for creating quick, direct and visual feedback to a user without resorting to exotic dedicated prim displays.

License

<lsl> //===================================================// // Progress Bar v1 // // "September 24 2009", "04:24:00 GMT-0" // // Copyright (C) 2009, Nexii Malthus (cc-by) // // http://creativecommons.org/licenses/by/3.0/ // //===================================================// </lsl>

Function

Progress Bars Function <lsl> string Bars( float Cur, integer Bars, list Charset ){

   // Input    = 0.0 to 1.0
   // Bars     = char length of progress bar
   // Charset  = [Blank,<Shades>,Solid];
   integer Shades = llGetListLength(Charset)-1;
           Cur *= Bars;
   integer Solids  = llFloor( Cur );
   integer Shade   = llRound( (Cur-Solids)*Shades );
   integer Blanks  = Bars - Solids - 1;
   string str;
   while( Solids-- >0 ) str += llList2String( Charset, -1 );
   if( Blanks >= 0 ) str += llList2String( Charset, Shade );
   while( Blanks-- >0 ) str += llList2String( Charset, 0 );
   return str; }

</lsl>

Some possible character sets <lsl> // Bars list Charset_Shade = [" ","░","▒","▓","█"];// Too rough list Charset_LeftRight = [" ","▏","▎","▍","▌","▋","▊","▉","█"];// Works Best list Charset_UpDown = [" ","▁","▂","▃","▄","▅","▆","▇","█"];// Good as single-bar progress bar list Charset_Central = [" ","❘","❙","❚","█"];// Too steppy list Charset_Braille = ["⠀","⠁","⠃","⠇","⠏","⠟","⠿"];

// Random Single-char list Charset_Box = ["□","▧","▨","▩","■"]; list Charset_Circle = ["○","◔","◑","◕","●"]; list Charset_Boxes = [" ","▝","▐","▟","█"]; list Charset_Dice = ["⚀","⚁","⚂","⚃","⚄","⚅"];// Hard to perceive detail list Charset_Tone = ["˩","˨","˧","˦","˥"];

// Directional list Charset_Arrow1 = ["↑","↗","→","↘","↓","↙","←","↖"]; list Charset_Arrow2 = ["⇑","⇗","⇒","⇘","⇓","⇙","⇐","⇖"]; list Charset_Arrow3 = ["⬆","⬈","➨","⬊","⬇","⬋","⬅","⬉"]; </lsl>

Simple Test

<lsl> list Charset_LeftRight = [" ","▏","▎","▍","▌","▋","▊","▉","█"];

string Bars( float Cur, integer Bars, list Charset ){

   // Input    = 0.0 to 1.0
   // Bars     = char length of progress bar
   // Charset  = [Blank,<Shades>,Solid];
   integer Shades = llGetListLength(Charset)-1;
           Cur *= Bars;
   integer Solids  = llFloor( Cur );
   integer Shade   = llRound( (Cur-Solids)*Shades );
   integer Blanks  = Bars - Solids - 1;
   string str;
   while( Solids-- >0 ) str += llList2String( Charset, -1 );
   if( Blanks >= 0 ) str += llList2String( Charset, Shade );
   while( Blanks-- >0 ) str += llList2String( Charset, 0 );
   return str; }

default {

   touch_start( integer d ){
       float Input;
       integer Length = 10;
       
       for( Input = 0.0; Input < 1.0; Input += 0.02 ){
           string Text = "▕"+Bars( Input, Length, Charset_LeftRight )+"▏";
           llSetText( Text, <0,0,0>, 1.0 );
           llSleep( 0.1 );
       }
   }

} </lsl>

Full Test Script

<lsl> string cleanF( float F ){// Clean a float for debug output

   string S = (string)F;
   while( llGetSubString( S, -1, -1 ) == "0" )// Clear zeroes
      S = llGetSubString( S, 0, -2 );
   if( llGetSubString( S, -1, -1 ) == "." )// Cut dot if lone
       S = llGetSubString( S, 0, -2 ); 
   return S; }

float fCub_I( float t, float b, float c, float d ){

   return c * llPow( t/d, 3 ) + b;}

float fCirc_I( float t, float b, float c, float d ){

   return c * ( 1 - llSqrt( 1 - ( t /= d ) * t ) ) + b;}

float fExpo_IO( float t, float b, float c, float d ){

   if( ( t /= d / 2 ) < 1 )
       return c / 2 * llPow( 2, 10 * ( t - 1 ) ) + b;
   return c / 2 * ( -llPow( 2 , -10 * --t ) + 2 ) + b;}

list Charset_Shade = [" ","░","▒","▓","█"]; list Charset_LeftRight = [" ","▏","▎","▍","▌","▋","▊","▉","█"]; list Charset_UpDown = [" ","▁","▂","▃","▄","▅","▆","▇","█"]; list Charset_Central = [" ","❘","❙","❚","█"]; list Charset_Box = ["□","▧","▨","▩","■"]; list Charset_Circle = ["○","◔","◑","◕","●"]; list Charset_Boxes = [" ","▝","▐","▟","█"]; list Charset_Dice = ["⚀","⚁","⚂","⚃","⚄","⚅"]; list Charset_Braille = ["⠀","⠁","⠃","⠇","⠏","⠟","⠿"];

string Bars( float Cur, integer Bars, list Charset ){

   // Input    = 0.0 to 1.0
   // Bars     = char length of progress bar
   // Charset  = [Blank,<Shades>,Solid];
   integer Shades = llGetListLength(Charset)-1;
           Cur *= Bars;
   integer Solids  = llFloor( Cur );
   integer Shade   = llRound( (Cur-Solids)*Shades );
   integer Blanks  = Bars - Solids - 1;
   string str;
   while( Solids-- >0 ) str += llList2String( Charset, -1 );
   if( Blanks >= 0 ) str += llList2String( Charset, Shade );
   while( Blanks-- >0 ) str += llList2String( Charset, 0 );
   return str; }

float Energy = 40.0; float EnergyCap = 100.0;

float Dir = 1;