Rev 13585 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed
Rev 13585 | Rev 17173 | ||
---|---|---|---|
Line 18... | Line 18... | ||
18 | !if NaN isin $slib_input |
18 | !if NaN isin $slib_input |
19 | !exit |
19 | !exit |
20 | !endif |
20 | !endif |
21 | slib_st=$[floor(ln($slib_input)/ln(60))] |
21 | slib_st=$[floor(ln($slib_input)/ln(60))] |
22 | slib_out=<table border="0"><tr> |
22 | slib_out=<table border="0"><tr> |
23 | slib_clou=<img src="gifs/numeration/clou.gif" alt="clou" |
23 | slib_clou=<img src="gifs/numeration/clou.gif" alt="clou"> |
24 | slib_chevron=<img src="gifs/numeration/chevron.gif" alt="chevron" |
24 | slib_chevron=<img src="gifs/numeration/chevron.gif" alt="chevron"> |
25 | !for slib_k=$(slib_st) to 0 step -1 |
25 | !for slib_k=$(slib_st) to 0 step -1 |
26 | slib_reste=$[$slib_input%(60^$slib_k)] |
26 | slib_reste=$[$slib_input%(60^$slib_k)] |
27 | slib_quo=$[($slib_input-$slib_reste)/(60^$slib_k)] |
27 | slib_quo=$[($slib_input-$slib_reste)/(60^$slib_k)] |
28 | slib_re2=$[$slib_quo%10] |
28 | slib_re2=$[$slib_quo%10] |
29 | slib_quo2=$[($slib_quo-$slib_re2)/10] |
29 | slib_quo2=$[($slib_quo-$slib_re2)/10] |