Subversion Repositories wimsdev

!if $wims_read_parm!=slib_header
 !goto proc
!endif

slib_author=Yves, Noël
slib_comment=
!!exemple à changer ensuite mais sert de test.
slib_example=12,6,C,2
!exit

:proc
!distribute items $wims_read_parm into slib_masse,slib_atom,slib_elem,slib_exp,slib_ind,slib_size


!set expsize=scriptsize
!default slib_size=0
!if $slib_size>4
 !set slib_size=4
!endif
!if $slib_size>0
 !if $slib_size<2
  !set size=large
  !set expsize=scriptsize
 !else
  !if $slib_size<3
  !set size=Large
  !set expsize=scriptsize
  !else
   !if $slib_size<4
    !set size=huge
    !set expsize=large
   !else
    !set size=Huge
    !set expsize=Large
   !endif
  !endif
 !endif
!endif

!set masse=!charcnt $slib_masse
!set atom=!charcnt $slib_atom
!set ind=!charcnt $slib_ind
!set exp=!charcnt $slib_exp
 !set undersc=_{

!if $slib_size >0
 !set slib_out={\$size\vphantom{I}}
!else
 !set slib_out=\,
!endif
!if $atom>0
 !set slib_out=$slib_out$undersc
 !if $masse!=$atom and $masse>0
  !set diffma=!eval $masse-$atom
  !if $diffma=1
   !set slib_out=$slib_out\phantom{1}
  !else
   !set slib_out=$slib_out\phantom{11}
  !endif
 !endif
 !set slib_out=$slib_out$\$expsize{$slib_atom}}
!endif
!if $masse>0
 !if $slib_size>2
  !set slib_out=$slib_out^{\$expsize{$slib_masse}}
 !else
  !set slib_out=$slib_out^{$slib_masse}
 !endif
!endif

!if $slib_size >0
 !set slib_out=$slib_out{\$size{\mathrm{$slib_elem}}}
!else
 !set slib_out=$slib_out\mathrm{$slib_elem}
!endif
!if $ind>0
 !if $slib_size>2
  !set slib_out=$slib_out$undersc\$expsize{$slib_ind}}
 !else
  !set slib_out=$slib_out$undersc$slib_ind}
 !endif
!endif
!if $exp>0
 !if $slib_size>2
  !set slib_out=$slib_out^{\$expsize{$slib_exp}}
 !else
  !set slib_out=$slib_out^{$slib_exp}
 !endif
!endif