Subversion Repositories wimsdev

!if $wims_read_parm!=slib_header
  !goto proc
!endif
slib_title=Patron d'un polyèdre en 3D
slib_author=Bernadette, Perrin-Riou
slib_parms=3\
,nom d'un polyèdre (en anglais comme dans la base dans wims)\
,arbre couvrant le définissant\
size=200,option as words: size=(vertical size) html show=[] id=\
,liste de paramètres pour le déploiement en 3D entre 0 et 1

slib_out=description comme des objets off en 3D, puis envoi à slib/geo3D/3Dviewer.\
  L'arbre couvrant peut être trouvé par la slib geo2D/polynet puis geo2D/polyspantree
slib_comment=Preliminary version (syntaxe can change),

slib_example=cube,[3,1,6,6,1,6],size=500 html show=[,AA,FF],[0,1/5,2/5,3/5,4/5,1]\
tetrahedron,[4,1,1,4],size=500 html show=[,AA,FF],[0,1/5,2/5,3/5,4/5,1]\
dodecahedron,[8,6,7,1,10,9,2,9,11,11,12,12],bondcolor=red id=1 show=[,AA,FF],[0,1/5,2/5,3/5,4/5,1]

!exit

:proc
!reset slib_id slib_parmt slib_out slib_pouroff
!set wims_multiexec=$wims_multiexec pari
!distribute items $wims_read_parm into slib_polname,slib_spantree,slib_optionX,slib_parmt
!set slib_parmt=!declosing $slib_parmt

!set slib_parmtcnt=!itemcnt $slib_parmt
!set slib_spantree=!declosing $slib_spantree
!set slib_pol=!record 0 of data/polyedre_off/$(slib_polname).off
!if $slib_header_deploiement=
  !readproc gp/deploiement.gp
  !set slib_deploiment=!exec pari $slib_header_deploiement
!endif
!reset slib_outfin

!readproc slib/geo2D/polyoff

!set slib_patron=!exec pari m=adjacence(ff); f2=projection_standard(ff,xyz);couv=[$slib_spantree]; W=etale(couv,ff,f2[1],matsize(xyz)[1])

!set slib_W1=!exec pari W[1]
!set slib_W2=!exec pari W[2]

!set slib_pouroff=!exec pari matconcat(W[2]~)
!reset slib_tmpcoord
!for slib_jj=1 to $slib_parmtcnt
  !set slib_tmp=!exec pari W3=etale3D(couv,ff,W[3],#xyz~,f2[2],$[($(slib_parmt[$slib_jj]))^(1/2)]); M=round(100*matconcat(vector(#W3,i,W3[i]~))~)/100.; M
  !set slib_taille=!exec pari [#M~,#W[2]]
  !set slib_tmpcoord=!append item [$slib_taille;$slib_tmp] to $slib_tmpcoord
!next
!readproc slib/geo3D/3Dviewer [$slib_tmpcoord;$slib_pouroff],$slib_optionX animstep=$slib_parmtcnt
$slib_out