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