Subversion Repositories wimsdev

Rev

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

Rev 12685 Rev 12769
Line 3... Line 3...
3 
!endif
 3 
!endif
4 
 
 4 
 
5 
slib_author=Bernadette, Perrin-Riou
 5 
slib_author=Bernadette, Perrin-Riou
6 
slib_example=[0,0,1;0,0,1;1,1,0],red,blue, [A,B,C],[1,3,green;3,2,purple],html\
 6 
slib_example=[0,0,1;0,0,1;1,1,0],red,blue, [A,B,C],[1,3,green;3,2,purple],html\
7 
 [0,0,1,1;0,0,1,1;1,1,0,1;1,1,1,0],red,blue,,[1,3,2,green]\
 7 
 [0,0,1,1;0,0,1,1;1,1,0,1;1,1,1,0],red,blue,,[1,3,2,green]\
8 
 [0,0,1,1;0,0,1,1;1,1,0,1;1,1,1,0],red,blue,,[1,3,2,green],html
 8 
 [0,0,1,1;0,0,1,1;1,1,0,1;1,1,1,0],red,blue,,[1,3,2,green],html\
- 
 
 9 
 [0,0,4,4;0,0,1,1;4,1,0,1;4,1,1,0],red,blue,,[1,3,2,green],html weight
9 
slib_require=pari
 10 
slib_require=pari
10 
!exit
 11 
!exit
11 
 
 12 
 
12 
:proc
 13 
:proc
13 
slib_color1=
 14 
slib_color1=
14 
slib_color2=
 15 
slib_color2=
15 
slib_names =
 16 
slib_names =
16 
!distribute item $wims_read_parm into slib_G,slib_color1,slib_color2,slib_names,slib_path,slib_option
 17 
!distribute item $wims_read_parm into slib_G,slib_color1,slib_color2,slib_names,slib_path,slib_option
17 
slib_path=!declosing $slib_path
 18 
slib_path=!declosing $slib_path
18 
slib_path = !translate internal  ;  to $\
 19 
slib_path=!translate internal  ;  to $\
19 
$ in $slib_path
 20 
$ in $slib_path
20 
slib_cnt_path=!linecnt $slib_path
 21 
slib_cnt_path=!linecnt $slib_path
21 
!for slib_i =1 to $slib_cnt_path
 22 
!for slib_i=1 to $slib_cnt_path
22 
  slib_path_prov= !line $slib_i of $slib_path
 23 
  slib_path_prov= !line $slib_i of $slib_path
23 
  slib_path_color$slib_i= !item -1 of $slib_path_prov
 24 
  slib_path_color$slib_i= !item -1 of $slib_path_prov
24 
  slib_path_color$slib_i= !declosing $(slib_path_color$slib_i)
 25 
  slib_path_color$slib_i= !declosing $(slib_path_color$slib_i)
25 
  slib_path$slib_i=!item 1 to -2 of $slib_path_prov
 26 
  slib_path$slib_i=!item 1 to -2 of $slib_path_prov
26 
  slib_path$slib_i = !nospace $(slib_path$slib_i)
 27 
  slib_path$slib_i=!nospace $(slib_path$slib_i)
27 
!next slib_i
 28 
!next slib_i
28 
 
 29 
 
29 
slib_G=!declosing $slib_G
 30 
slib_G=!declosing $slib_G
30 
 
 31 
 
31 
slib_G=!translate internal  ;  to $\
 32 
slib_G=!translate internal  ;  to $\
Line 68... Line 69...
68 
  !reset slib_couleur
 69 
  !reset slib_couleur
69 
  !if $slib_or=1
 70 
  !if $slib_or=1
70 
    !for slib_j=1 to $slib_i
 71 
    !for slib_j=1 to $slib_i
71 
      slib_r=!line $slib_i of $slib_G
 72 
      slib_r=!line $slib_i of $slib_G
72 
      slib_u=!item $slib_j of $slib_r
 73 
      slib_u=!item $slib_j of $slib_r
73 
      !if $slib_u=1
 74 
      !if $slib_u>0
74 
        slib_couleur=$slib_color2
 75 
        slib_couleur=$slib_color2
75 
        !for slib_k=1 to $slib_cnt_path
 76 
        !for slib_k=1 to $slib_cnt_path
76 
          !if $slib_i,$slib_j isin $(slib_path$slib_k) or $slib_j,$slib_i isin $(slib_path$slib_k)
 77 
          !if $slib_i,$slib_j isin $(slib_path$slib_k) or $slib_j,$slib_i isin $(slib_path$slib_k)
77 
            slib_couleur=$(slib_path_color$slib_k)
 78 
            slib_couleur=$(slib_path_color$slib_k)
78 
            !break
 79 
            !break
79 
          !endif
 80 
          !endif
80 
        !next slib_k
 81 
        !next slib_k
81 
        !if $slib_i<>$slib_j
 82 
        !if $slib_i<>$slib_j
82 
          slib_dessin=$slib_dessin\
 83 
          slib_dessin=$slib_dessin\
83 
segment $(slib_COS$slib_i),$(slib_SIN$slib_i),$(slib_COS$slib_j),$(slib_SIN$slib_j),$slib_couleur
 84 
segment $(slib_COS$slib_i),$(slib_SIN$slib_i),$(slib_COS$slib_j),$(slib_SIN$slib_j),$slib_couleur
- 
 
 85 
          !if weight iswordof $slib_option
- 
 
 86 
            slib_dessin=$slib_dessin\
- 
 
 87 
text black, $[(2*$(slib_COS$slib_i)+$(slib_COS$slib_j))/3],$[(2*$(slib_SIN$slib_i)+$(slib_SIN$slib_j))/3],medium,$(slib_GG[$slib_i;$slib_j])
- 
 
 88 
          !endif
84 
        !else
 89 
        !else
85 
          slib_dessin=$slib_dessin\
 90 
          slib_dessin=$slib_dessin\
86 
ellipse $[$(slib_COS$slib_i)*1.25],$[$(slib_SIN$slib_i)*1.25], 0.5,0.5,$slib_couleur
 91 
ellipse $[$(slib_COS$slib_i)*1.25],$[$(slib_SIN$slib_i)*1.25], 0.5,0.5,$slib_couleur
87 
        !endif
 92 
        !endif
88 
      !endif
 93 
      !endif
89 
    !next slib_j
 94 
    !next slib_j
90 
  !else
 95 
  !else
91 
    !for slib_j=1 to $slib_n
 96 
    !for slib_j=1 to $slib_n
92 
      slib_r=!line $slib_i of $slib_G
 97 
      slib_r=!line $slib_i of $slib_G
93 
      slib_u=!item $slib_j of $slib_r
 98 
      slib_u=!item $slib_j of $slib_r
94 
      !if $slib_u=1
 99 
      !if $slib_u>0
95 
        slib_couleur=$slib_color2
 100 
        slib_couleur=$slib_color2
96 
        !for slib_k=1 to $slib_cnt_path
 101 
        !for slib_k=1 to $slib_cnt_path
97 
          !if $slib_i,$slib_j isin $(slib_path$slib_k) or $slib_j,$slib_i isin $(slib_path$slib_k)
 102 
          !if $slib_i,$slib_j isin $(slib_path$slib_k) or $slib_j,$slib_i isin $(slib_path$slib_k)
98 
            slib_couleur=$(slib_path_color$slib_k)
 103 
            slib_couleur=$(slib_path_color$slib_k)
99 
            !break
 104 
            !break