Subversion Repositories wimsdev

Rev

Rev 8560 | Rev 12676 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 8560 Rev 11852
Line 26... Line 26...
26 
 slib_G=!declosing $slib_s
 26 
 slib_G=!declosing $slib_s
27 
!else
 27 
!else
28 
 
 28 
 
29 
slib_liste=
 29 
slib_liste=
30 
!for slib_i = 1 to $slib_n
 30 
!for slib_i = 1 to $slib_n
31 
    slib_liste1 =!values 1 for x=1 to $slib_s
 31 
    slib_liste1=!values 1 for x=1 to $slib_s
32 
    slib_liste0=!values 0 for x=1 to $[$slib_n-$slib_i-$slib_s]
 32 
    slib_liste0=!values 0 for x=1 to $[$slib_n-$slib_i-$slib_s]
33 
    slib_liste2 =!shuffle $slib_liste1,$slib_liste0
 33 
    slib_liste2=!shuffle $slib_liste1,$slib_liste0
34 
    slib_liste2=1,$slib_liste2
 34 
    slib_liste2=1,$slib_liste2
35 
    slib_liste2=!item 1 to $[$slib_n-$slib_i+1] of $slib_liste2
 35 
    slib_liste2=!item 1 to $[$slib_n-$slib_i+1] of $slib_liste2
36 
    slib_liste=!append item $slib_liste2 to $slib_liste
 36 
    slib_liste=!append item $slib_liste2 to $slib_liste
37 
!next slib_i
 37 
!next slib_i
38 
slib_liste=!nonempty items $slib_liste
 38 
slib_liste=!nonempty items $slib_liste
Line 64... Line 64...
64 
    slib_ligne= !line $slib_i of $slib_niveau1
 64 
    slib_ligne= !line $slib_i of $slib_niveau1
65 
    slib_test=0
 65 
    slib_test=0
66 
    slib_total =!replace internal , by + in $slib_ligne
 66 
    slib_total =!replace internal , by + in $slib_ligne
67 
    slib_total=$[$slib_total]
 67 
    slib_total=$[$slib_total]
68 
        !if $slib_total=1
 68 
        !if $slib_total=1
69 
                    slib_sign=$[-$slib_sign]
 69 
             slib_sign=$[-$slib_sign]
70 
        !endif
 70 
        !endif
71 
 
 71 
 
72 
    slib_dist= $[round($slib_width/$slib_total)]
 72 
    slib_dist= $[round($slib_width/$slib_total)]
73 
    !for slib_j = 1 to $slib_n
 73 
    !for slib_j = 1 to $slib_n
74 
        slib_pt=!item $slib_j of $slib_ligne
 74 
        slib_pt=!item $slib_j of $slib_ligne