Subversion Repositories wimsdev

Rev

Rev 7936 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 7936 Rev 13594
Line 1... Line 1...
1
!if $wims_read_parm!=slib_header
1
!if $wims_read_parm!=slib_header
2
 !goto proc
2
  !goto proc
3
!endif
3
!endif
4
 
4
 
5
slib_author=Yves, Noël
5
slib_author=Yves, Noël
6
slib_comment=
6
slib_comment=
7
!!exemple à changer ensuite mais sert de test.
7
!!exemple à changer ensuite mais sert de test.
Line 13... Line 13...
13
 
13
 
14
 
14
 
15
!set expsize=scriptsize
15
!set expsize=scriptsize
16
!default slib_size=0
16
!default slib_size=0
17
!if $slib_size>4
17
!if $slib_size>4
18
 !set slib_size=4
18
  !set slib_size=4
19
!endif
19
!endif
20
!if $slib_size>0
20
!if $slib_size>0
21
 !if $slib_size<2
21
  !if $slib_size<2
22
  !set size=large
22
    !set size=large
23
  !set expsize=scriptsize
-
 
24
 !else
-
 
25
  !if $slib_size<3
-
 
26
  !set size=Large
-
 
27
  !set expsize=scriptsize
23
    !set expsize=scriptsize
28
  !else
24
  !else
29
   !if $slib_size<4
25
    !if $slib_size<3
-
 
26
      !set size=Large
-
 
27
      !set expsize=scriptsize
-
 
28
    !else
-
 
29
      !if $slib_size<4
30
    !set size=huge
30
        !set size=huge
31
    !set expsize=large
31
        !set expsize=large
32
   !else
32
      !else
33
    !set size=Huge
33
        !set size=Huge
34
    !set expsize=Large
34
        !set expsize=Large
-
 
35
      !endif
35
   !endif
36
    !endif
36
  !endif
37
  !endif
37
 !endif
-
 
38
!endif
38
!endif
39
 
39
 
40
!set masse=!charcnt $slib_masse
40
!set masse=!charcnt $slib_masse
41
!set atom=!charcnt $slib_atom
41
!set atom=!charcnt $slib_atom
42
!set ind=!charcnt $slib_ind
42
!set ind=!charcnt $slib_ind
43
!set exp=!charcnt $slib_exp
43
!set exp=!charcnt $slib_exp
44
 !set undersc=_{
44
 !set undersc=_{
45
 
45
 
46
!if $slib_size >0
46
!if $slib_size >0
47
 !set slib_out={\$size\vphantom{I}}
47
  !set slib_out={\$size\vphantom{I}}
48
!else
48
!else
49
 !set slib_out=\,
49
  !set slib_out=\,
50
!endif
50
!endif
51
!if $atom>0
51
!if $atom>0
52
 !set slib_out=$slib_out$undersc
52
  !set slib_out=$slib_out$undersc
53
 !if $masse!=$atom and $masse>0
53
  !if $masse!=$atom and $masse>0
54
  !set diffma=!eval $masse-$atom
54
    !set diffma=!eval $masse-$atom
55
  !if $diffma=1
55
    !if $diffma=1
56
   !set slib_out=$slib_out\phantom{1}
56
      !set slib_out=$slib_out\phantom{1}
57
  !else
57
    !else
58
   !set slib_out=$slib_out\phantom{11}
58
      !set slib_out=$slib_out\phantom{11}
59
  !endif
59
    !endif
60
 !endif
60
  !endif
61
 !set slib_out=$slib_out$\$expsize{$slib_atom}}
61
  !set slib_out=$slib_out$\$expsize{$slib_atom}}
62
!endif
62
!endif
63
!if $masse>0
63
!if $masse>0
64
 !if $slib_size>2
64
  !if $slib_size>2
65
  !set slib_out=$slib_out^{\$expsize{$slib_masse}}
65
    !set slib_out=$slib_out^{\$expsize{$slib_masse}}
66
 !else
66
  !else
67
  !set slib_out=$slib_out^{$slib_masse}
67
    !set slib_out=$slib_out^{$slib_masse}
68
 !endif
68
  !endif
69
!endif
69
!endif
70
 
70
 
71
!if $slib_size >0
71
!if $slib_size >0
72
 !set slib_out=$slib_out{\$size{\mathrm{$slib_elem}}}
72
  !set slib_out=$slib_out{\$size{\mathrm{$slib_elem}}}
73
!else
73
!else
74
 !set slib_out=$slib_out\mathrm{$slib_elem}
74
  !set slib_out=$slib_out\mathrm{$slib_elem}
75
!endif
75
!endif
76
!if $ind>0
76
!if $ind>0
77
 !if $slib_size>2
77
  !if $slib_size>2
78
  !set slib_out=$slib_out$undersc\$expsize{$slib_ind}}
78
    !set slib_out=$slib_out$undersc\$expsize{$slib_ind}}
79
 !else
79
  !else
80
  !set slib_out=$slib_out$undersc$slib_ind}
80
    !set slib_out=$slib_out$undersc$slib_ind}
81
 !endif
81
  !endif
82
!endif
82
!endif
83
!if $exp>0
83
!if $exp>0
84
 !if $slib_size>2
84
  !if $slib_size>2
85
  !set slib_out=$slib_out^{\$expsize{$slib_exp}}
85
   !set slib_out=$slib_out^{\$expsize{$slib_exp}}
86
 !else
86
  !else
87
  !set slib_out=$slib_out^{$slib_exp}
87
   !set slib_out=$slib_out^{$slib_exp}
88
 !endif
88
  !endif
89
!endif
89
!endif