Subversion Repositories wimsdev

Rev

Rev 17173 | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
8560 bpr 1
!if $wims_read_parm!=slib_header
13587 bpr 2
  !goto proc
20 reyssat 3
!endif
4158 bpr 4
 
4351 bpr 5
slib_author=Bernadette, Perrin-Riou
4172 bpr 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]\
12769 bpr 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
7692 bpr 10
slib_require=pari
20 reyssat 11
!exit
12
 
13
:proc
17852 bpr 14
!reset slib_color1 slib_color2 slib_names slib_couleur
12684 bpr 15
!distribute item $wims_read_parm into slib_G,slib_color1,slib_color2,slib_names,slib_path,slib_option
20 reyssat 16
slib_path=!declosing $slib_path
12769 bpr 17
slib_path=!translate internal  ;  to $\
20 reyssat 18
$ in $slib_path
19
slib_cnt_path=!linecnt $slib_path
12769 bpr 20
!for slib_i=1 to $slib_cnt_path
12676 bpr 21
  slib_path_prov= !line $slib_i of $slib_path
22
  slib_path_color$slib_i= !item -1 of $slib_path_prov
23
  slib_path_color$slib_i= !declosing $(slib_path_color$slib_i)
24
  slib_path$slib_i=!item 1 to -2 of $slib_path_prov
12769 bpr 25
  slib_path$slib_i=!nospace $(slib_path$slib_i)
7692 bpr 26
!next slib_i
12684 bpr 27
 
20 reyssat 28
slib_G=!declosing $slib_G
29
 
8560 bpr 30
slib_G=!translate internal  ;  to $\
20 reyssat 31
$  in $slib_G
32
 
8560 bpr 33
slib_GG=!translate internal $\
20 reyssat 34
$  to ; in $slib_G
35
 
36
 
7692 bpr 37
slib_or=!exec pari Mat([$slib_GG])==Mat([$slib_GG])~
20 reyssat 38
 
39
slib_names=!declosing $slib_names
40
slib_color1=!declosing $slib_color1
41
slib_color2=!declosing $slib_color2
42
slib_n=!line 1 of $slib_G
43
slib_n=!itemcnt $slib_n
44
!default slib_color1=blue
45
!default slib_color2=blue
8560 bpr 46
!default slib_names=!values slib_i for slib_i=1 to $slib_n
20 reyssat 47
 
48
!for slib_i =1 to $slib_n
12676 bpr 49
  slib_COS$slib_i=$[cos(2*pi*$slib_i/$slib_n)]
50
  slib_SIN$slib_i=$[sin(2*pi*$slib_i/$slib_n)]
20 reyssat 51
!next slib_i
52
slib_dessin = xrange -1.5,1.5\
53
yrange -1.5,1.5
7692 bpr 54
!for slib_i=1 to $slib_n
12676 bpr 55
  slib_name =!item $slib_i of $slib_names
17852 bpr 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
12684 bpr 61
  !for slib_k=1 to $slib_cnt_path
12685 bpr 62
    !!! vertex
63
    !if $slib_i isitemof $(slib_path$slib_k) and $($(slib_path$slib_k)[3])=$empty
12684 bpr 64
      slib_couleur=$(slib_path_color$slib_k)
65
      !break
66
    !endif
67
  !next
12676 bpr 68
  !if $slib_or=1
69
    !for slib_j=1 to $slib_i
70
      slib_r=!line $slib_i of $slib_G
71
      slib_u=!item $slib_j of $slib_r
12769 bpr 72
      !if $slib_u>0
12676 bpr 73
        slib_couleur=$slib_color2
74
        !for slib_k=1 to $slib_cnt_path
75
          !if $slib_i,$slib_j isin $(slib_path$slib_k) or $slib_j,$slib_i isin $(slib_path$slib_k)
76
            slib_couleur=$(slib_path_color$slib_k)
77
            !break
78
          !endif
79
        !next slib_k
80
        !if $slib_i<>$slib_j
81
          slib_dessin=$slib_dessin\
8560 bpr 82
segment $(slib_COS$slib_i),$(slib_SIN$slib_i),$(slib_COS$slib_j),$(slib_SIN$slib_j),$slib_couleur
12769 bpr 83
          !if weight iswordof $slib_option
84
            slib_dessin=$slib_dessin\
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])
86
          !endif
12676 bpr 87
        !else
88
          slib_dessin=$slib_dessin\
20 reyssat 89
ellipse $[$(slib_COS$slib_i)*1.25],$[$(slib_SIN$slib_i)*1.25], 0.5,0.5,$slib_couleur
12676 bpr 90
        !endif
91
      !endif
92
    !next slib_j
93
  !else
94
    !for slib_j=1 to $slib_n
95
      slib_r=!line $slib_i of $slib_G
96
      slib_u=!item $slib_j of $slib_r
12769 bpr 97
      !if $slib_u>0
12676 bpr 98
        slib_couleur=$slib_color2
99
        !for slib_k=1 to $slib_cnt_path
100
          !if $slib_i,$slib_j isin $(slib_path$slib_k) or $slib_j,$slib_i isin $(slib_path$slib_k)
101
            slib_couleur=$(slib_path_color$slib_k)
102
            !break
103
          !endif
104
        !next slib_k
105
        !if $slib_i<>$slib_j
106
          slib_dessin=$slib_dessin\
20 reyssat 107
arrow $(slib_COS$slib_i),$(slib_SIN$slib_i), $[($(slib_COS$slib_i)-$(slib_COS$slib_j))/2+$(slib_COS$slib_j)],$[($(slib_SIN$slib_i)-$(slib_SIN$slib_j))/2+$(slib_SIN$slib_j)],10,$slib_color2\
8584 bpr 108
segment $(slib_COS$slib_i),$(slib_SIN$slib_i),$[$(slib_COS$slib_j)],$(slib_SIN$slib_j),$slib_couleur
12676 bpr 109
        !else
110
          slib_dessin=$slib_dessin\
20 reyssat 111
ellipse $[$(slib_COS$slib_i)*1.25],$[$(slib_SIN$slib_i)*1.25], 0.5,0.5,$slib_couleur
12676 bpr 112
        !endif
113
      !endif
114
    !next slib_j
115
  !endif
17852 bpr 116
  !reset slib_couleur
7692 bpr 117
!next slib_i
20 reyssat 118
 
119
slib_out= $slib_dessin
120
 
4172 bpr 121
!if url iswordof $slib_option or html iswordof $slib_option
122
  insdraw_size=250,250
123
  !insdraw $slib_out
124
  slib_out=$ins_url
12676 bpr 125
  !if html iswordof $slib_option
17173 bpr 126
    slib_out=<img src="$ins_url" alt="">
12676 bpr 127
  !else
4908 bpr 128
    slib_out=$slib_out,$insdraw_size
12676 bpr 129
  !endif
4172 bpr 130
!endif