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]