Subversion Repositories wimsdev

Rev

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]