Subversion Repositories wimsdev

Rev

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

Rev 17790 Rev 17955
Line 9... Line 9...
9
70,2,10,,point html
9
70,2,10,,point html
10
 
10
 
11
!exit
11
!exit
12
 
12
 
13
:proc
13
:proc
14
 
-
 
-
 
14
!reset slib_segments slib_dessin
15
!distribute item $wims_read_parm into slib_N,slib_s,slib_h,slib_text
15
!distribute item $wims_read_parm into slib_N,slib_s,slib_h,slib_text
16
slib_option = !item 5 to -1 of $wims_read_parm
16
slib_option = !item 5 to -1 of $wims_read_parm
17
!default slib_s=5
17
!default slib_s=5
18
!default slib_h=8
18
!default slib_h=8
19
!default slib_color1=blue
19
!default slib_color1=blue
Line 52... Line 52...
52
      !if perfect iswordof of $slib_option or $slib_c=1
52
      !if perfect iswordof of $slib_option or $slib_c=1
53
        slib_a=!item 1 to $slib_s of $slib_choix1
53
        slib_a=!item 1 to $slib_s of $slib_choix1
54
      !else
54
      !else
55
        slib_a=!shuffle $slib_choix
55
        slib_a=!shuffle $slib_choix
56
        slib_a=!item 1 to $slib_s of $slib_a
56
        slib_a=!item 1 to $slib_s of $slib_a
57
      !endif
57
      !endif
58
      slib_Li=
58
      slib_Li=
59
      !for slib_j=1 to $slib_s
59
      !for slib_j=1 to $slib_s
60
        slib_b=!item $slib_j of $slib_a
60
        slib_b=!item $slib_j of $slib_a
61
        !if $slib_b <> 0
61
        !if $slib_b <> 0
62
          #creation d'un fils
62
          #creation d'un fils
Line 93... Line 93...
93
!next slib_k
93
!next slib_k
94
 
94
 
95
#Trace du dessin
95
#Trace du dessin
96
!set slib_xrange=$[-$slib_s*$slib_width1/2],$[$slib_s*$slib_width1/2]
96
!set slib_xrange=$[-$slib_s*$slib_width1/2],$[$slib_s*$slib_width1/2]
97
!set slib_yrange=$[-$slib_sizey-0.5],-0.5
97
!set slib_yrange=$[-$slib_sizey-0.5],-0.5
98
slib_dessin=xrange $slib_xrange\
-
 
99
yrange $slib_yrange\
-
 
100
linewidth 2
-
 
101
slib_cnt=!linecnt $slib_G
98
slib_cnt=!linecnt $slib_G
102
 
-
 
103
!for slib_k= 1 to $slib_cnt
99
!for slib_k=1 to $slib_cnt
104
  slib_u =!line $slib_k of $slib_G
100
  slib_u=!line $slib_k of $slib_G
105
  slib_i=!item 1 of $slib_u
101
  slib_i=!item 1 of $slib_u
106
  slib_position_prov=!line $slib_k of $slib_position
102
  slib_position_prov=!line $slib_k of $slib_position
107
  !for slib_j in $slib_u
103
  !for slib_j in $slib_u
108
    !if $slib_j notsametext sentinelle
104
    !if $slib_j notsametext sentinelle
109
      #trace de la droite
105
      #trace de la droite
110
      slib_position_prov1=!line $slib_j of $slib_position
106
      slib_position_prov1=!line $slib_j of $slib_position
111
      slib_dessin = !append line segment $slib_position_prov,$slib_position_prov1, $slib_color1\
107
      slib_segments=!append item $slib_position_prov,$slib_position_prov1 to $slib_segments
112
       to $slib_dessin
-
 
113
      #on coupe les segments au milieu pour mettre un cercle et éventuellement du texte
108
      #on coupe les segments au milieu pour mettre un cercle et éventuellement du texte
114
      !if middle iswordof $slib_option
109
      !if middle iswordof $slib_option
115
        slib_milieu_prov=!line $slib_j of $slib_milieu
110
        slib_milieu_prov=!line $slib_j of $slib_milieu
116
        slib_dessin = !append line disk $slib_milieu_prov,30,white\
111
        slib_dessin = !append line disk $slib_milieu_prov,30,white\
117
circle $slib_milieu_prov, 30,$slib_color3 to $slib_dessin
112
circle $slib_milieu_prov, 30,$slib_color3 to $slib_dessin
Line 125... Line 120...
125
  !if $slib_text <> $empty
120
  !if $slib_text <> $empty
126
    slib_textk=!item $slib_k of $slib_text
121
    slib_textk=!item $slib_k of $slib_text
127
    slib_dessin =!append line text black,$slib_position_prov, medium,$slib_textk to $slib_dessin
122
    slib_dessin =!append line text black,$slib_position_prov, medium,$slib_textk to $slib_dessin
128
  !endif
123
  !endif
129
!next slib_k
124
!next slib_k
-
 
125
slib_dessin=xrange $slib_xrange\
-
 
126
yrange $slib_yrange\
-
 
127
linewidth 2\
-
 
128
segments $slib_color1,$slib_segments\
130
 
129
$slib_dessin
131
slib_out=$slib_dessin
130
slib_out=$slib_dessin
132
 
-
 
133
!if url iswordof $slib_option or html iswordof $slib_option
131
!if url iswordof $slib_option or html iswordof $slib_option
134
  !set slib_tmp=400
132
  !set slib_tmp=400
135
  !set insdraw_size=$slib_tmp,$[($(slib_yrange[2])-($(slib_yrange[1])))/($(slib_xrange[2])-($(slib_xrange[1])))*$slib_tmp*$slib_height]
133
  !set insdraw_size=$slib_tmp,$[($(slib_yrange[2])-($(slib_yrange[1])))/($(slib_xrange[2])-($(slib_xrange[1])))*$slib_tmp*$slib_height]
136
  !set insdraw_size=$[min(1500,($(slib_xrange[2])-($(slib_xrange[1])))/($(slib_yrange[2])-($(slib_yrange[1])))*$slib_tmp)],$slib_tmp
134
  !set insdraw_size=$[min(1500,($(slib_xrange[2])-($(slib_xrange[1])))/($(slib_yrange[2])-($(slib_yrange[1])))*$slib_tmp)],$slib_tmp
137
 
-
 
138
!insdraw $slib_out
135
!insdraw $slib_out
139
  slib_out=$ins_url
136
  slib_out=$ins_url
140
  !if html iswordof $slib_option
137
  !if html iswordof $slib_option
141
    slib_out=<img src="$ins_url" alt="">
138
    slib_out=<img src="$ins_url" alt="">
142
  !else
139
  !else