Subversion Repositories wimsdev

Rev

Details | Last modification | View Log | RSS feed

Rev Author Line No. Line
18600 bpr 1
!if $wims_read_parm!=slib_header
2
  !goto proc
3
!endif
4
slib_title=Polygone tangentiel
5
slib_author=Bernadette, Perrin-Riou
6
slib_parms=3\
7
,vecteur des angles\
8
0.01,eps\
9
size=600 color=[black,white] depl=[1,0,0] option (mots) : size= color=[] html/url depl=
10
 
11
fill depl= type= alt
12
 
13
slib_out=dessin d'un polygone hyperbolique tangenciel ou code ou url selon les cas \
14
  associé à la suite des angles internes.
15
 
16
slib_comment=in progress
17
 
18
slib_example=[2*Pi/8,2*Pi/8,2*Pi/10,2*Pi/10,2*Pi/10,2*Pi/12,2*Pi/5],html color=blue\
19
[2*Pi/8,2*Pi/8,2*Pi/10,2*Pi/10,2*Pi/10,2*Pi/12,2*Pi/5],html depl=[cos(Pi/4)+I*sin(Pi/4),0,0]\
20
[2*Pi/8,2*Pi/8,2*Pi/10,2*Pi/10,2*Pi/10,2*Pi/12,2*Pi/5],html depl=[1,0.5,1]
21
 
22
!exit
23
:proc
24
 
25
!reset slib_hyppolygon,slib_Test slib_type slib_bound slib_size slib_color slib_dessin slib_dessin1 slib_dessin2 slib_dessin3 slib_depl slib_fill
26
!distribute items $wims_read_parm into slib_data,slib_option
27
!set slib_depl=!getopt depl in $slib_option
28
!set slib_size=!getopt size in $slib_option
29
slib_color=!getopt color in $slib_option
30
!default slib_color=black
31
!set slib_size=!declosing $slib_size
32
!set slib_gpprog=hyppolygon
33
!set wims_multiexec=$wims_multiexec pari
34
!reset slib_header_hyptiling
35
!if $(slib_header_$slib_gpprog)=
36
  !readproc gp/$slib_gpprog.gp
37
  !set slib_hyppolygon=!exec pari tikz=0;$(slib_header_$slib_gpprog);
38
!endif
39
!default slib_depl=1,0,0
40
!set slib_hyppolygon=!exec pari wwww=apply(x->mob([$slib_depl],x),tangentiel($slib_data,1));default(realprecision,3);wwww
41
!set slib_hyppolygon=!exec pari wwww=vector(#wwww,i,[real(wwww[i]),imag(wwww[i])]);concat(wwww)
42
 
43
!default slib_size=300,300
44
slib_dessin=xrange -1,1\
45
yrange -1,1\
46
circles black, 0,0,1\
47
hyppolygon $slib_color,$slib_hyppolygon
48
!if url iswordof $slib_option or html iswordof $slib_option
49
  !set insdraw_size=$slib_size,$slib_size
50
  !insdraw $slib_dessin
51
  !set slib_out=$ins_url
52
  !if html iswordof $slib_option
53
    !if alt iswordof $slib_option
54
      !set slib_alt=[$slib_pqr]
55
    !else
56
      !reset slib_alt
57
    !endif
58
    !set slib_out=<img src="$ins_url" alt="$slib_alt">
59
  !else
60
    !set slib_out=$slib_out,$insdraw_size
61
  !endif
62
!endif
63
slib_out=!exec canvasdraw size $slib_size,$slib_size\
64
$slib_dessin