TeXgraph# {version 1.95-beta-10} Cmd [Fenetre(-7.5+5*i,7.5-5*i,1+i), Marges(0,0,0,0), Border(0)]; [OriginalCoord(1),IdMatrix()]; [theta:=0.5236, phi:=1.0472, IdMatrix3D(), ModelView(ortho)]; [GrayScale(0), ComptGraph:=14]; Var A = -4-0.5*i; B = 4+0.5*i; pos1 = -1000; pos2 = -1000; mu = 32; alpha = 21; pos3 = -1000; beta = 21; pos4 = -1000; pos5 = -1000; lambda = 32; pos6 = -1000; clr = 255; instrumentsDessinver = 0.2; numA = 1; numB = 1; numC = 1; numD = 1; numE = 1; Include "instrumentsDessin.mac"; "MacrosAnim.mac"; "Animation.mac"; Mac MakeFrame = [{code pour dessiner la frame n° %1} if %1>1 And %1<=34 then pos1:=A, pos2:=A+0.25*(mu+1)+(i*(mu+1))/32, Inc(mu,1), ReCalc(regle1, crayon1, segAB) elif %1>35 And %1<=39 then pos1:=-1000, pos2:=-1000, ReCalc(regle1, crayon1) elif %1>40 And %1<=61 then pos3:=A, Inc(alpha,1), ReCalc(compasA) elif %1>62 And %1<=83 then pos3:=-1000, pos4:=B, Inc(beta,1), ReCalc(compasA,compasB) elif %1>84 And %1<=85 then pos4:=-1000, ReCalc(compasB) elif %1>86 And %1<=118 then pos5:=-0.5+4*i, pos6:=-0.5+4*i+lambda/32-0.25*lambda*i, Inc(lambda,1), ReCalc(regle2, crayon2, medAB) elif %1>119 And %1<=123 then pos5:=-1000, pos6:=-1000, ReCalc(regle2, crayon2) elif %1>124 And %1<=130 then clr:=red, ReCalc(fin) fi ]; OnBeginAnim = [{exécutée au lancement de l'animation} ]; OnEndAnim = [{exécutée à la fin de l'animation} ]; Initialiser = [{valeurs par défaut de vos paramètres} pos1:=-1000, pos2:=-1000, pos3:=-1000, pos4:=-1000, pos5:=-1000, mu:=-1, alpha:=0, beta:=0, lambda:=0, clr:=white, ReCalc() ]; Tempo = 100; NbFrames = 130; Nom = "D:\Logiciels_de_geometrie\TeXgraph1.94\TeXgraph\mediatrice"; Cmd [Color:=12632256,IsVisible:=0,DotScale:=1+i]; Graph objet1 = Grille(0,0.25+0.25*i); Cmd [Color:=0]; Graph objet2 = Axes(0,1+i,2+2*i); Cmd [IsVisible:=1,tMin:=-5,tMax:=5]; Graph depart = [ Width:=8, DotStyle:=cross, LabelDot(A,"A","S",1), LabelDot(B,"B","S",1), ]; Cmd [tMin:=-7.5,tMax:=7.5]; Graph fin = [ Width:=8, Color:=clr, angleD(-0.5+4*i,0,4+0.5*i,0.25), markseg(A,(A+B)/2,2,0.1,0.25), markseg((A+B)/2,B,2,0.1,0.25) ]; Cmd [tMin:=-5.5,tMax:=5.5]; Graph regle1 = [ regle(pos1,[dir:=8+i, fond:=violet, long:=9]) ]; Graph crayon1 = [ if mu>=0 And mu<=33 then crayon(pos2,[dir:=1+i, mine:=black]) else crayon(-1000,[dir:=1+i, mine:=black]) fi ]; Graph segAB = [ Width:=8, if mu>=0 And mu<=31 then Seg(A,A+0.25*mu+i*mu/32) elif mu>31 then Seg(A,B) fi ]; Graph compasA = [ Width:=8, LineStyle:=dashed, Color:=forestgreen, compas(pos3,[dir:=exp(-i*pi*(1/3-alpha/30)), mine:=forestgreen, long:=5]), if alpha>0 then Arc(A+exp(-i*pi*1/3),A,A+exp(-i*pi*(1/3-alpha/30)),5) fi, ]; Cmd [tMin:=-7.5,tMax:=7.5]; Graph compasB = [ Width:=8, LineStyle:=dashed, Color:=navy, compas(pos4,[dir:=-exp(-i*pi*(1/3-beta/30)), mine:=navy, long:=5]), if beta>0 then Arc(B-exp(-i*pi*1/3),B,B-exp(-i*pi*(1/3-beta/30)),5) fi, ]; Graph regle2 = [ regle(pos5, [dir:=0.5-4*i, long:=8, fond:=violet]) ]; Graph crayon2 = [ Width:=8, Color:=red, if lambda>=0 And lambda<=33 then crayon(pos6, [dir:=1-i, long:=3, mine:=red]) else crayon(-1000,[dir:=1-i, mine:=red, long:=3]) fi, ]; Graph medAB = [ Width:=8, Color:=red, if lambda>=0 And lambda<=31 then Seg(-0.5+4*i, -0.5+4*i+lambda/32-0.25*lambda*i) else Seg(-0.5+4*i, 0.5-4*i) fi ];