% TeXgraph version 1.94 beta-4 % Fenetre Xmin Xmax Ymin Ymax Xscale Yscale 100#-6#7#-7#6#0.84615384615384#0.84615384615384## % Marges gauche droite haut bas cadre gestion_couleur comptgraph 101#0#0#0#0#0#1#2## % Affectation des Variables theta et phi et type de perspective 18##[theta:=6.8068, phi:=7.3304,OriginalCoord(1),IdMatrix(),IdMatrix3D(),ModelView(central),DistCam(20)]## 18##InputMac("Animation.mac")## % Déclaration des Variables Globales % Déclaration des Macros 16#MakeFrame#[{code pour dessiner la frame n° %1} Inc(theta,pi/18), Inc(phi,pi/18), ReCalc() ]## 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} theta:=30*deg, phi:=60*deg ]## 16#Tempo#250## 16#NbFrames#36## 16#Nom#"/home/pfradin/.TeXgraph/cone"## % Déclaration des Eléments graphiques % fond (Utilisateur) 18##[tMin:=-5.9883,tMax:=6.6891]## 14#fond#background(full,CplColor(gold))#-1## % objet1 (Utilisateur) 18##[FillStyle:=1,tMin:=-5,tMax:=5]## 14#objet1#[NbPoints:=100, C:=curve2Cone( [cos(2*t)*exp(i*t)*5,-3], -pi,pi,[0,0],-1), t:=-pi, $tpas:=2*pi/(NbPoints-1), L:= for k from 1 to NbPoints do [cos(2*t)*exp(i*t)*5,-3], Inc(t,tpas) od, Build3D( [1,gold+0.7*i,C], {[2,red,8,L], [2,red,8,hom3d(L,[0,0],-1)]} [2,0,1,C] ), Display3D() ]#-1##