Subversion Repositories wimsdev

!if $wims_read_parm!=slib_header

  !goto proc

!endif

slib_title=Polygone tangentiel

slib_author=Bernadette, Perrin-Riou

slib_parms=3\

,vecteur des angles\

0.01,eps\

size=600 color=[black,white] depl=[1,0,0] option (mots) : size= color=[] html/url depl=

fill depl= type= alt

slib_out=dessin d'un polygone hyperbolique tangenciel ou code ou url selon les cas \

  associé à la suite des angles internes.

slib_comment=in progress

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\

[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]\

[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]

!exit

:proc

!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

!distribute items $wims_read_parm into slib_data,slib_option

!set slib_depl=!getopt depl in $slib_option

!set slib_size=!getopt size in $slib_option

slib_color=!getopt color in $slib_option

!default slib_color=black

!set slib_size=!declosing $slib_size

!set slib_gpprog=hyppolygon

!set wims_multiexec=$wims_multiexec pari

!reset slib_header_hyptiling

!if $(slib_header_$slib_gpprog)=

  !readproc gp/$slib_gpprog.gp

  !set slib_hyppolygon=!exec pari tikz=0;$(slib_header_$slib_gpprog);

!endif

!default slib_depl=1,0,0

!set slib_hyppolygon=!exec pari wwww=apply(x->mob([$slib_depl],x),tangentiel($slib_data,1));default(realprecision,3);wwww

!set slib_hyppolygon=!exec pari wwww=vector(#wwww,i,[real(wwww[i]),imag(wwww[i])]);concat(wwww)

!default slib_size=300,300

slib_dessin=xrange -1,1\

yrange -1,1\

circles black, 0,0,1\

hyppolygon $slib_color,$slib_hyppolygon

!if url iswordof $slib_option or html iswordof $slib_option

  !set insdraw_size=$slib_size,$slib_size

  !insdraw $slib_dessin

  !set slib_out=$ins_url

  !if html iswordof $slib_option

    !if alt iswordof $slib_option

      !set slib_alt=[$slib_pqr]

    !else

      !reset slib_alt

    !endif

    !set slib_out=<img src="$ins_url" alt="$slib_alt">

  !else

    !set slib_out=$slib_out,$insdraw_size

  !endif

!endif

slib_out=!exec canvasdraw size $slib_size,$slib_size\

$slib_dessin