Subversion Repositories wimsdev

Rev

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

Rev 17173 Rev 17852
Line 9... Line 9...
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 
 [0,0,4,4;0,0,1,1;4,1,0,1;4,1,1,0],red,blue,,[1,3,2,green],html weight
10 
slib_require=pari
 10 
slib_require=pari
11 
!exit
 11 
!exit
12 
 
 12 
 
13 
:proc
 13 
:proc
14 
slib_color1=
 - 
 
15 
slib_color2=
 - 
 
16 
slib_names =
 14 
!reset slib_color1 slib_color2 slib_names slib_couleur
17 
!distribute item $wims_read_parm into slib_G,slib_color1,slib_color2,slib_names,slib_path,slib_option
 15 
!distribute item $wims_read_parm into slib_G,slib_color1,slib_color2,slib_names,slib_path,slib_option
18 
slib_path=!declosing $slib_path
 16 
slib_path=!declosing $slib_path
19 
slib_path=!translate internal  ;  to $\
 17 
slib_path=!translate internal  ;  to $\
20 
$ in $slib_path
 18 
$ in $slib_path
21 
slib_cnt_path=!linecnt $slib_path
 19 
slib_cnt_path=!linecnt $slib_path
Line 53... Line 51...
53 
!next slib_i
 51 
!next slib_i
54 
slib_dessin = xrange -1.5,1.5\
 52 
slib_dessin = xrange -1.5,1.5\
55 
yrange -1.5,1.5
 53 
yrange -1.5,1.5
56 
!for slib_i=1 to $slib_n
 54 
!for slib_i=1 to $slib_n
57 
  slib_name =!item $slib_i of $slib_names
 55 
  slib_name =!item $slib_i of $slib_names
- 
 
 56 
  !default slib_couleur=$slib_color1
- 
 
 57 
  slib_dessin=$slib_dessin\
- 
 
 58 
  disk $(slib_COS$slib_i),$(slib_SIN$slib_i), 6,$slib_couleur\
- 
 
 59 
  text black, $[1.3*$(slib_COS$slib_i)],$[1.3*$(slib_SIN$slib_i)], medium, $slib_name
- 
 
 60 
  !reset slib_couleur
58 
  !for slib_k=1 to $slib_cnt_path
 61 
  !for slib_k=1 to $slib_cnt_path
59 
    !!! vertex
 62 
    !!! vertex
60 
    !if $slib_i isitemof $(slib_path$slib_k) and $($(slib_path$slib_k)[3])=$empty
 63 
    !if $slib_i isitemof $(slib_path$slib_k) and $($(slib_path$slib_k)[3])=$empty
61 
      slib_couleur=$(slib_path_color$slib_k)
 64 
      slib_couleur=$(slib_path_color$slib_k)
62 
      !break
 65 
      !break
63 
    !endif
 66 
    !endif
64 
  !next
 67 
  !next
65 
  !default slib_couleur=$slib_color1
 - 
 
66 
  slib_dessin=$slib_dessin\
 - 
 
67 
  disk $(slib_COS$slib_i),$(slib_SIN$slib_i), 6,$slib_couleur\
 - 
 
68 
  text black, $[1.3*$(slib_COS$slib_i)],$[1.3*$(slib_SIN$slib_i)], medium, $slib_name
 - 
 
69 
  !reset slib_couleur
 - 
 
70 
  !if $slib_or=1
 68 
  !if $slib_or=1
71 
    !for slib_j=1 to $slib_i
 69 
    !for slib_j=1 to $slib_i
72 
      slib_r=!line $slib_i of $slib_G
 70 
      slib_r=!line $slib_i of $slib_G
73 
      slib_u=!item $slib_j of $slib_r
 71 
      slib_u=!item $slib_j of $slib_r
74 
      !if $slib_u>0
 72 
      !if $slib_u>0
75 
        slib_couleur=$slib_color2
 73 
        slib_couleur=$slib_color2
76 
        !for slib_k=1 to $slib_cnt_path
 74 
        !for slib_k=1 to $slib_cnt_path
77 
          !if $slib_i,$slib_j isin $(slib_path$slib_k) or $slib_j,$slib_i isin $(slib_path$slib_k)
 75 
          !if $slib_i,$slib_j isin $(slib_path$slib_k) or $slib_j,$slib_i isin $(slib_path$slib_k)
78 
            slib_couleur=$(slib_path_color$slib_k)
 76 
            slib_couleur=$(slib_path_color$slib_k)
79 
            !break
 77 
            !break
80 
          !endif
 78 
          !endif
81 
        !next slib_k
 79 
        !next slib_k
82 
        !if $slib_i<>$slib_j
 80 
        !if $slib_i<>$slib_j
83 
          slib_dessin=$slib_dessin\
 81 
          slib_dessin=$slib_dessin\
84 
segment $(slib_COS$slib_i),$(slib_SIN$slib_i),$(slib_COS$slib_j),$(slib_SIN$slib_j),$slib_couleur
 82 
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
 83 
          !if weight iswordof $slib_option
86 
            slib_dessin=$slib_dessin\
 84 
            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])
 85 
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
 86 
          !endif
89 
        !else
 87 
        !else
90 
          slib_dessin=$slib_dessin\
 88 
          slib_dessin=$slib_dessin\
91 
ellipse $[$(slib_COS$slib_i)*1.25],$[$(slib_SIN$slib_i)*1.25], 0.5,0.5,$slib_couleur
 89 
ellipse $[$(slib_COS$slib_i)*1.25],$[$(slib_SIN$slib_i)*1.25], 0.5,0.5,$slib_couleur
92 
        !endif
 90 
        !endif
Line 113... Line 111...
113 
ellipse $[$(slib_COS$slib_i)*1.25],$[$(slib_SIN$slib_i)*1.25], 0.5,0.5,$slib_couleur
 111 
ellipse $[$(slib_COS$slib_i)*1.25],$[$(slib_SIN$slib_i)*1.25], 0.5,0.5,$slib_couleur
114 
        !endif
 112 
        !endif
115 
      !endif
 113 
      !endif
116 
    !next slib_j
 114 
    !next slib_j
117 
  !endif
 115 
  !endif
- 
 
 116 
  !reset slib_couleur
118 
!next slib_i
 117 
!next slib_i
119 
 
 118 
 
120 
slib_out= $slib_dessin
 119 
slib_out= $slib_dessin
121 
 
 120 
 
122 
!if url iswordof $slib_option or html iswordof $slib_option
 121 
!if url iswordof $slib_option or html iswordof $slib_option