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 |