Subversion Repositories wimsdev

Rev

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

Rev 8560 Rev 12676
Line 42... Line 42...
42 
slib_liste =
 42 
slib_liste =
43 
slib_cnt = 0
 43 
slib_cnt = 0
44 
slib_matrix=
 44 
slib_matrix=
45 
slib_out=
 45 
slib_out=
46 
!for slib_i in $slib_point
 46 
!for slib_i in $slib_point
47 
    !if $slib_i notin $slib_liste
 47 
  !if $slib_i notin $slib_liste
48 
        !read slib/graph/connexcomponent [$slib_HH], $slib_i
 48 
    !read slib/graph/connexcomponent [$slib_HH], $slib_i
49 
        slib_liste = !append item $slib_out to $slib_liste
 49 
    slib_liste = !append item $slib_out to $slib_liste
50 
        slib_matrix = !append line $slib_out to $slib_matrix
 50 
    slib_matrix = !append line $slib_out to $slib_matrix
51 
        !advance slib_cnt
 51 
    !advance slib_cnt
52 
        slib_out=
 52 
    slib_out=
53 
    !endif
 53 
  !endif
54 
!next slib_i
 54 
!next slib_i
55 
slib_point2 = !listcomplement of $slib_liste in $slib_vertex
 55 
slib_point2 = !listcomplement of $slib_liste in $slib_vertex
56 
 
 56 
 
57 
!for slib_i in $slib_point2
 57 
!for slib_i in $slib_point2
58 
    !if $slib_i notin $slib_liste
 58 
  !if $slib_i notin $slib_liste
59 
        !read slib/graph/connexcomponent [$slib_HH], $slib_i
 59 
    !read slib/graph/connexcomponent [$slib_HH], $slib_i
60 
        slib_liste = !append item $slib_out to $slib_liste
 60 
    slib_liste = !append item $slib_out to $slib_liste
61 
        slib_matrix = !append line $slib_out to $slib_matrix
 61 
    slib_matrix = !append line $slib_out to $slib_matrix
62 
        !advance slib_cnt
 62 
    !advance slib_cnt
63 
    !endif
 63 
  !endif
64 
!next slib_i
 64 
!next slib_i
65 
 
 65 
 
66 
 
 66 
 
67 
slib_dessin = xrange -1.5,1.5\
 67 
slib_dessin = xrange -1.5,1.5\
68 
yrange -1.5,1.5
 68 
yrange -1.5,1.5
69 
!for slib_i=1 to $slib_cnt
 69 
!for slib_i=1 to $slib_cnt
70 
    slib_color$slib_i= !declosing $(slib_color$slib_i)
 70 
  slib_color$slib_i= !declosing $(slib_color$slib_i)
71 
    slib_h=!line $slib_i of $slib_matrix
 71 
  slib_h=!line $slib_i of $slib_matrix
72 
    !for slib_k in $slib_h
 72 
  !for slib_k in $slib_h
73 
        slib_name =!item $slib_k of $slib_names
 73 
    slib_name =!item $slib_k of $slib_names
74 
        slib_dessin=$slib_dessin\
 74 
    slib_dessin=$slib_dessin\
75 
        disk cos(2*pi*$slib_k/$slib_n ),sin(2*pi*$slib_k/$slib_n ), 6,$(slib_color$slib_i)\
 75 
      disk cos(2*pi*$slib_k/$slib_n ),sin(2*pi*$slib_k/$slib_n ), 6,$(slib_color$slib_i)\
76 
    text black, 1.3*cos(2*pi*$slib_k/$slib_n ),1.3*sin(2*pi*$slib_k/$slib_n ), medium ,$slib_name
 76 
      text black, 1.3*cos(2*pi*$slib_k/$slib_n ),1.3*sin(2*pi*$slib_k/$slib_n ), medium ,$slib_name
77 
    slib_r=!line $slib_k of $slib_H
 77 
    slib_r=!line $slib_k of $slib_H
78 
        !if $slib_or=1
 78 
    !if $slib_or=1
79 
            !for slib_j   in $slib_h
 79 
      !for slib_j   in $slib_h
80 
                slib_u=!item $slib_j of $slib_r
 80 
        slib_u=!item $slib_j of $slib_r
81 
                !if $slib_u=1
 81 
        !if $slib_u=1
82 
                    !if $slib_k<>$slib_j
 82 
          !if $slib_k<>$slib_j
83 
                        slib_dessin=$slib_dessin\
 83 
            slib_dessin=$slib_dessin\
84 
segment cos(2*pi*$slib_k/$slib_n),sin(2*pi*$slib_k/$slib_n), cos(2*pi*$slib_j/$slib_n ),sin(2*pi*$slib_j/$slib_n ),$(slib_color$slib_i)
 84 
segment cos(2*pi*$slib_k/$slib_n),sin(2*pi*$slib_k/$slib_n), cos(2*pi*$slib_j/$slib_n ),sin(2*pi*$slib_j/$slib_n ),$(slib_color$slib_i)
85 
                    !else
 85 
          !else
86 
                        slib_dessin=$slib_dessin\
 86 
            slib_dessin=$slib_dessin\
87 
ellipse cos(2*pi*$slib_i/$slib_n )*1.25,sin(2*pi*$slib_i/$slib_n )*1.25, 0.5,0.5,$(slib_color$slib_i)
 87 
ellipse cos(2*pi*$slib_i/$slib_n )*1.25,sin(2*pi*$slib_i/$slib_n )*1.25, 0.5,0.5,$(slib_color$slib_i)
88 
                    !endif
 88 
          !endif
89 
                !endif
 89 
        !endif
90 
            !next slib_j
 90 
      !next slib_j
91 
        !else
 91 
    !else
92 
            !for slib_j=1 to $slib_n
 92 
      !for slib_j=1 to $slib_n
93 
                slib_r=!line $slib_k of $slib_H
 93 
        slib_r=!line $slib_k of $slib_H
94 
                slib_u=!item $slib_j of $slib_r
 94 
        slib_u=!item $slib_j of $slib_r
95 
                !if $slib_u=1
 95 
        !if $slib_u=1
96 
                    !if $slib_k<>$slib_j
 96 
          !if $slib_k<>$slib_j
97 
                        slib_dessin=$slib_dessin\
 97 
            slib_dessin=$slib_dessin\
98 
arrow $[cos(2*pi*$slib_k/$slib_n )],$[sin(2*pi*$slib_k/$slib_n)], $[(cos(2*pi*$slib_k/$slib_n )-cos(2*pi*$slib_j/$slib_n ))/2+cos(2*pi*$slib_j/$slib_n )],$[(sin(2*pi*$slib_k/$slib_n )-sin(2*pi*$slib_j/$slib_n ))/2+sin(2*pi*$slib_j/$slib_n )],10,$(slib_color$slib_i)\
 98 
arrow $[cos(2*pi*$slib_k/$slib_n )],$[sin(2*pi*$slib_k/$slib_n)], $[(cos(2*pi*$slib_k/$slib_n )-cos(2*pi*$slib_j/$slib_n ))/2+cos(2*pi*$slib_j/$slib_n )],$[(sin(2*pi*$slib_k/$slib_n )-sin(2*pi*$slib_j/$slib_n ))/2+sin(2*pi*$slib_j/$slib_n )],10,$(slib_color$slib_i)\
99 
segment cos(2*pi*$slib_k/$slib_n ),sin(2*pi*$slib_k/$slib_n ),cos(2*pi*$slib_j/$slib_n ),sin(2*pi*$slib_j/$slib_n ),$(slib_color$slib_i)
 99 
segment cos(2*pi*$slib_k/$slib_n ),sin(2*pi*$slib_k/$slib_n ),cos(2*pi*$slib_j/$slib_n ),sin(2*pi*$slib_j/$slib_n ),$(slib_color$slib_i)
100 
                    !else
 100 
          !else
101 
                        slib_dessin=$slib_dessin\
 101 
            slib_dessin=$slib_dessin\
102 
ellipse cos(2*pi*$slib_k/$slib_n )*1.25,sin(2*pi*$slib_k/$slib_n )*1.25, 0.5,0.5,$(slib_color$slib_i)
 102 
ellipse cos(2*pi*$slib_k/$slib_n )*1.25,sin(2*pi*$slib_k/$slib_n )*1.25, 0.5,0.5,$(slib_color$slib_i)
103 
                    !endif
 - 
 
104 
                !endif
 103 
          !endif
105 
            !next slib_j
 - 
 
106 
        !endif
 104 
        !endif
- 
 
 105 
      !next slib_j
- 
 
 106 
    !endif
107 
    !next slib_k
 107 
  !next slib_k
108 
!next slib_i
 108 
!next slib_i
109 
 
 109 
 
110 
 
 110 
 
111 
slib_out= $slib_dessin
 111 
slib_out= $slib_dessin
112 
 
 112 
 
113 
!if url iswordof $slib_option or html iswordof $slib_option
 113 
!if url iswordof $slib_option or html iswordof $slib_option
114 
  insdraw_size=250,250
 114 
  insdraw_size=250,250
115 
  !insdraw $slib_out
 115 
  !insdraw $slib_out
116 
  slib_out=$ins_url
 116 
  slib_out=$ins_url
117 
 !if html iswordof $slib_option
 117 
  !if html iswordof $slib_option
118 
    slib_out=<img src="$ins_url" alt=""/>
 118 
    slib_out=<img src="$ins_url" alt=""/>
119 
 !else
 119 
  !else
120 
    slib_out=$slib_out,$insdraw_size
 120 
    slib_out=$slib_out,$insdraw_size
121 
 !endif
 121 
  !endif
122 
!endif
 122 
!endif