added raden launch
This commit is contained in:
48
library/lib_num_to_str.ks
Normal file
48
library/lib_num_to_str.ks
Normal file
@@ -0,0 +1,48 @@
|
||||
// lib_num_to_str.ks can be used to to format a number in a string of constant length for use in a display.
|
||||
// Copyright © 2015,2023 KSLib team
|
||||
// Lic. MIT
|
||||
@LAZYGLOBAL off.
|
||||
@CLOBBERBUILTINS off.
|
||||
|
||||
function num_to_str {
|
||||
parameter
|
||||
number, //input number
|
||||
ip, //number of digits before the decimal point.
|
||||
dp. //number of decimal places
|
||||
|
||||
local string is "".
|
||||
local padder is "".
|
||||
local absNumber is abs(number).
|
||||
local index is ip-1.
|
||||
local firstNum is false.
|
||||
until firstNum or index = 0 { // stop adding spacers when the first number is found
|
||||
if mod(floor(absNumber/10^index),10) = 0 {
|
||||
set padder to padder +" ".
|
||||
}
|
||||
else {
|
||||
set firstNum to true.
|
||||
}
|
||||
set index to index-1.
|
||||
}.
|
||||
if dp = 0 {
|
||||
set string to string +round(absNumber).
|
||||
}.
|
||||
else {
|
||||
// set index to index-1.
|
||||
set string to string +floor(absNumber).
|
||||
set index to -1.
|
||||
set string to string +".".
|
||||
until index = -dp {
|
||||
set string to string +mod(floor(absNumber/10^index),10).
|
||||
set index to index-1.
|
||||
}.
|
||||
set string to string + mod(round(absNumber/10^index),10).
|
||||
}.
|
||||
if number < 0 {
|
||||
set string to padder +"-" +string.
|
||||
}
|
||||
else {
|
||||
set string to padder +" " +string.
|
||||
}.
|
||||
return string.
|
||||
}.
|
||||
Reference in New Issue
Block a user