% TeXgraph version 1.94 beta-2 % Fenetre Xmin Xmax Ymin Ymax Xscale Yscale 100#-5#5#-5#5#1#1## % Marges gauche droite haut bas cadre gestion_couleur comptgraph 101#0.5#0.5#0.5#0.5#0#1#1## % Affectation des Variables theta et phi et type de perspective 18##[theta:=-1.4927, phi:=0.6225,OriginalCoord(1),IdMatrix(),IdMatrix3D(),ModelView(central),DistCam(20)]## % Déclaration des Variables Globales 15#load#InputMac("PolyedresII.mac")## % Déclaration des Macros 16#FacettesCreuses#[if %2=Nil then $ep:=0.25 else ep:=%2/2 fi, MapBy( {parcourt par facette} [$A1:=Nil, $A2:=S[0,2],$A3:=S[1,2], $F:=Nil, {on construit dans F la liste des sommets intérieurs, le sommet en face de A2 est sur la bissectrice intérieure de l'angle (A1A2A3) à une distance de L} $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, 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) ] ## % Déclaration des Eléments graphiques % objet1 (Utilisateur) 14#objet1#[ {Cet exemple nécessite la chargemeent de PolyedresII.mac, ainsi que la définition de la macro FacettesCreuses. Ceci est fait dans le fichier source ci-joint} background(full, lightskyblue), poly:=Archimede(6, [0,0],[4,0]), FillColor:=gold, FillStyle:=full, DrawPolyNC(FacettesCreuses(poly,0.5),1) ] #-1##