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