% TeXgraph version 1.93
% Fenetre Xmin Xmax Ymin Ymax Xscale Yscale
100#-4.99999999999999#4.99999999999999#-4.99999999999999#4.99999999999999#1.1#1.1##
% Marges gauche droite haut bas cadre gestion_couleur comptgraph
101#0#0#0#0#0#1#2##
% Affectation des Variables theta et phi
18##[theta:=0, phi:=1.5708, OriginalCoord(1)]##
18##InputMac("Animation.mac")##
% Déclaration des Variables Globales
15#Load#InputMac("PolyedresII.mac")##
15#angle1#1.38777878078145E-17##
15#angle2#6.98131700797731##
% Déclaration des Macros
16#aidePoly#Help("PolyedresII")##
16#MakeFrame#[{code pour dessiner la frame n° %1}
 Inc(angle2,pi/18),
 if (%1<=9) Or (%1>31) then Inc(angle1,3*deg)
 elif (%1>11) And (%1<=29) then Inc(angle1,-3*deg) fi,
 ReCalc(solide)
]
##
16#OnBeginAnim#[{exécutée au lancement de l'animation}

]##
16#OnEndAnim#[{exécutée à la fin de l'animation}

]##
16#Initialiser#[{valeurs par défaut de vos paramètres}
  angle1:=0, angle2:=0, ReCalc(solide)
]
##
16#Tempo#250##
16#NbFrames#40##
16#Nom#"/home/pfradin/.TeXgraph/facettecreuse"##
16#FacettesCreuses#[if %2=Nil then $ep:=0.25 else ep:=%2/2 fi,
MapBy(
[$A1:=Nil, $A2:=S[0,2],$A3:=S[1,2], $F:=Nil,
 $aux:= Map3D([ A1:=A2, A2:=A3, A3:=Z,
                if A1<>Nil then
                   $u:=normalize(A1-A2), $v:=normalize(A3-A2),
                   $ecart:=angle(u,v)/2,
                   $L:=ep/sin(ecart),
                   Insert(F,A2+L*normalize(u+v))
                fi
              ], $Z, [S[3,0],S[1,2]]),
 $compt:=0, $B:=Nil, Insert($interieur,[F,jump]),
 Map3D( [Inc(compt,1), $A:=B, B:=$Z,
         if A<>Nil then
            A,B,F[2*compt-1,2], F[2*compt-3,2],jump
         fi,
         ], Z, S),
 B,Copy(S,1,2),F[1,2],F[2*compt-1,2]
 ],
   S, %1, jump), %3:=interieur ]
##
% Déclaration des Eléments graphiques
% fond (Utilisateur)
18##[tMin:=-3.1079,tMax:=3.2963]##
14#fond#background(full, darkblue)
#-1##
% solide (Utilisateur)
18##[FillStyle:=1,FillColor:=5325567,tMin:=-5,tMax:=5]##
14#solide#[ H:=rot3d([0,-2,0,0],[0,5,vecI],angle1),
 C:=H[1,2], I:=H[3,2],
 poly:=rot3d(Archimede(9,C,I),[C,[0,5]-C],angle2),
  Build3D( [1+1.5*i, gold, FacettesCreuses(poly,0.1,S)],
           [1-i, Rgb(0.54,1,0.56)+0.7*i, S],
           [2, red, 8, [I,0,5]]
         ), Display3D()
]
#-1##
% Exemple (Utilisateur)
18##[IsVisible:=0,FillColor:=16777215,tMin:=-14.4873,tMax:=14.9402]##
14#Exemple#[
{Platon(<type>, <axe/centre>,<sommet> ,[Faces], [Aretes])
 polyèdres réguliers convexes

KeplerPoinsot(<type>, <axe/centre>,<sommet> ,[Faces], [Aretes])
 polyèdres réguliers non convexes

PrismeUnif( <axe>, <sommet>, <n>, [bases], [carres], [aretes]):
 prisme uniforme

AntiprismeUnif( <axe>, <sommet>, <n>, [bases], [triangles], [aretes]):
 prisme uniforme

Archimede(<type>, <axe/centre>, <sommet>, [Faces1],[Faces2],[Faces3],[Aretes]):
 solide d'Archimède (type entre 1 et 13)

PolyNC(<type>, <centre>, <sommet>,[Faces1],[Faces2],[Faces3],[Aretes]):
  polyèdre uniforme non-convexes à faces convexes (type entre 1 et 15)

Johnson(<type>, <axe/centre>, <sommet>, [Faces1],[Faces2],[Faces3],[Faces4],[Aretes]):
  solides de Johnson (type entre 1 et 92).

Pour avoir de l'aide taper dans la ligne de commande: aidePoly()}

1/0
]
#-1##