Raoul n k a écrit:je veux faire un film de construction; je sais produire les etapes mais pour ce qui concerne la bande dans laquelle les dessins vont rester, je bloque.merci de m'aider.
P.Fradin a écrit:C'est trop vague: est-ce un film *.avi ou *.mpeg?, est-ce un gif animé?, ou ... Et les étapes: ce sont des images, si oui quel est le format? Sinon, l'utilitaire convert d'ImageMagick est capable de transformer une suite d'images png (un autre) en gif animé et même en *.mpg je crois.
[
largeur:=3, hauteur:=3, dist:=1, nb:=4, dep:=0, LabelSize:=tiny, A:=3*i,
view(0,nb*largeur+(nb-1)*dist, -0.5, hauteur), Marges(0,0,0,0), size(16),
{premier dessin}
SaveAttr(), SaveWin(),
view(dep,dep+largeur, 0,hauteur), ChangeWinTo([-5.5-5.5*i,5.5+5.5*i]),
Drectangle(-5.5-5.5*i, 5.5-5.5*i,5.5+5.5*i,0.125),
LabelDot(A, "$M$", "NO",1), Droite(0,1), LabelDot(4, "$\cal D$","N"),
RestoreWin(), RestoreAttr(),
Arrows:=1,
Ligne( [dep+largeur+0.1+i*hauteur/2, dep+largeur+dist-0.1+i*hauteur/2],0),
Arrows:=0, Label(dep+largeur/2-i/4, "Etape 1"),
{deuxième dessin}
SaveAttr(), SaveWin(), Inc(dep,largeur+dist),
view(dep,dep+largeur, 0,hauteur), ChangeWinTo([-5.5-5.5*i,5.5+5.5*i]),
Drectangle(-5.5-5.5*i, 5.5-5.5*i,5.5+5.5*i,0.125),
LabelDot(A, "$M$", "NO",1), Droite(0,1), LabelDot(4, "$\cal D$","N"),
B:=-3, C:= 2, r1:=abs(B-A), r2:=abs(C-A), Cercle(B,r1), Cercle(C,r2), Point(B,C),
RestoreWin(), RestoreAttr(),
Arrows:=1,
Ligne( [dep+largeur+0.1+i*hauteur/2, dep+largeur+dist-0.1+i*hauteur/2],0),
Arrows:=0, Label(dep+largeur/2-i/4, "Etape 2"),
{troisième dessin}
SaveAttr(), SaveWin(), Inc(dep,largeur+dist),
view(dep,dep+largeur, 0,hauteur), ChangeWinTo([-5.5-5.5*i,5.5+5.5*i]),
Drectangle(-5.5-5.5*i, 5.5-5.5*i,5.5+5.5*i,0.125),
LabelDot(A, "$M$", "NO",1), Droite(0,1), LabelDot(4, "$\cal D$","N"),
B:=-3, C:= 2, r1:=abs(B-A), r2:=abs(C-A), Cercle(B,r1), Cercle(C,r2),
A':=sym(A,[0,1]), Droite(A,A'), Point(B,C,A'),
RestoreWin(), RestoreAttr(),
Arrows:=1,
Ligne( [dep+largeur+0.1+i*hauteur/2, dep+largeur+dist-0.1+i*hauteur/2],0),
Arrows:=0, Label(dep+largeur/2-i/4, "Etape 3"),
{quatrième dessin}
SaveAttr(), SaveWin(), Inc(dep,largeur+dist),
view(dep,dep+largeur, 0,hauteur), ChangeWinTo([-5.5-5.5*i,5.5+5.5*i]),
Drectangle(-5.5-5.5*i, 5.5-5.5*i,5.5+5.5*i,0.125), x:=Nil,
LabelDot(A, "$M$", "NO",1), Droite(0,1), LabelDot(4, "$\cal D$","N"),
A':=sym(A,[0,1]), Seg(A,A'), O:=(A+A')/2,
markseg(O,A,2,0.1,0.2), markseg(O,A',2,0.1,0.2), LabelDot(A', "$M'$", "SO",1),
angleD(O+1,O,A,0.15),
RestoreWin(), RestoreAttr(),
Label(dep+largeur/2-i/4, "Etape 4")
]
Revenir vers Questions - Réponses
Utilisateurs parcourant ce forum : Aucun utilisateur inscrit et 15 invités