Subversion Repositories wimsdev

Rev

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

Rev 17944 Rev 18426
Line 13... Line 13...
13 
!reset slib_segments slib_texts slib_circles slib_disks
 13 
!reset slib_segments slib_texts slib_circles slib_disks
14 
!distribute item $wims_read_parm into slib_G,slib_text
 14 
!distribute item $wims_read_parm into slib_G,slib_text
15 
slib_doption=!item 3 to -1 of $wims_read_parm
 15 
slib_doption=!item 3 to -1 of $wims_read_parm
16 
slib_option=$slib_doption
 16 
slib_option=$slib_doption
17 
!default slib_color1=blue
 17 
!default slib_color1=blue
18 
!default slib_color2=green
 18 
!default slib_color2=lightgreen
19 
!default slib_color3=yellow
 19 
!default slib_color3=lightyellow
20 
slib_text=!declosing $slib_text
 20 
slib_text=!declosing $slib_text
21 
!if [ isin $slib_text
 21 
!if [ isin $slib_text
22 
  !distribute item $slib_text into slib_textp, slib_textm
 22 
  !distribute item $slib_text into slib_textp, slib_textm
23 
!else
 23 
!else
24 
  slib_textp=$slib_text
 24 
  slib_textp=$slib_text
Line 104... Line 104...
104 
      #on coupe les segments au milieu pour mettre un cercle et éventuellement du texte
 104 
      #on coupe les segments au milieu pour mettre un cercle et éventuellement du texte
105 
 
 105 
 
106 
      !if middle iswordof $slib_doption
 106 
      !if middle iswordof $slib_doption
107 
        slib_milieu_prov=!line $slib_j of $slib_milieu
 107 
        slib_milieu_prov=!line $slib_j of $slib_milieu
108 
        slib_disks=!append line disk $slib_milieu_prov,30,white to $slib_disk
 108 
        slib_disks=!append line disk $slib_milieu_prov,30,white to $slib_disk
109 
        slib_circles=!append line circle $slib_milieu_prov, 30,$slib_color3 to $slib_circles
 109 
        slib_circles=!append line fcircle $slib_milieu_prov, 30,$slib_color3 to $slib_circles
110 
        !if $slib_textm <> $empty
 110 
        !if $slib_textm <> $empty
111 
          slib_textk=!item $slib_j of $slib_textm
 111 
          slib_textk=!item $slib_j of $slib_textm
112 
          slib_milieu_prov1=!item 1 of $slib_milieu_prov
 112 
          slib_milieu_prov1=!item 1 of $slib_milieu_prov
113 
          slib_milieu_prov2=!item 2 of $slib_milieu_prov
 113 
          slib_milieu_prov2=!item 2 of $slib_milieu_prov
114 
          slib_milieu_prov=$[$slib_milieu_prov1-0.9], $[$slib_milieu_prov2+0.1]
 114 
          slib_milieu_prov=$[$slib_milieu_prov1-0.9], $[$slib_milieu_prov2+0.1]
Line 117... Line 117...
117 
      !endif
 117 
      !endif
118 
    !endif
 118 
    !endif
119 
  !next slib_j
 119 
  !next slib_j
120 
  !if point iswordof $slib_doption
 120 
  !if point iswordof $slib_doption
121 
    slib_disks=!append line disk $slib_position_prov,30,white to $slib_disks
 121 
    slib_disks=!append line disk $slib_position_prov,30,white to $slib_disks
122 
    slib_circles=!append line circle $slib_position_prov,30,$slib_color2 to $slib_circles
 122 
    slib_circles=!append line fcircle $slib_position_prov,30,$slib_color2 to $slib_circles
123 
  !endif
 123 
  !endif
124 
  !if $(slib_textp[$slib_k]) <> $empty
 124 
  !if $(slib_textp[$slib_k]) <> $empty
125 
    slib_position_prov1=!item 1 of $slib_position_prov
 125 
    slib_position_prov1=!item 1 of $slib_position_prov
126 
    slib_position_prov2=!item 2 of $slib_position_prov
 126 
    slib_position_prov2=!item 2 of $slib_position_prov
127 
    slib_position_prov=$[$slib_position_prov1-0.9], $[$slib_position_prov2+0.1]
 127 
    slib_position_prov=$[$slib_position_prov1-0.9], $[$slib_position_prov2+0.1]