How to combine three animations as the following example?
3
EX1:
documentclass[pstricks,border=15pt]{standalone}
usepackage{pstricks-add,pst-eucl}%
begin{document}
foreach i in {0,-1,-2,...,-180}{%
begin{pspicture}[showgrid](0,-3)(8,4)
pnodes(3,3){A}(1,-1){B}(7,-1){C}
psset{PointSymbol=none,PointName=none}
pstMiddleAB[PosAngle=135]{A}{B}{M}
pstMiddleAB{A}{C}{N}
pstMiddleAB{M}{N}{I}
pstSegmentMark[SegmentSymbol=pstslash]{A}{M}
pstSegmentMark[SegmentSymbol=MarkHash]{A}{N}
pstSegmentMark[SegmentSymbol=MarkHashh]{M}{N}
pstMarkAngle[fillstyle=solid,fillcolor=green]{N}{M}{A}{}
pstMarkAngle[fillstyle=solid,fillcolor=blue]{A}{N}{M}{}
pspolygon(A)(M)(N)
pstRotation[RotAngle=i]{I}{A,M,N}[a,m,n]%%%%<<--
pstMarkAngle[fillstyle=solid,fillcolor=green]{n}{m}{a}{}
pstMarkAngle[fillstyle=solid,fillcolor=blue]{a}{n}{m}{}
pspolygon[linecolor=red](a)(m)(n)
end{pspicture}
}
end{document}
EX2:
documentclass[pstricks,border=15pt]{standalone}
usepackage{pstricks-add,pst-eucl}%
begin{document}
foreach i in {0,1,2,...,180}{%
begin{pspicture}[showgrid](0,-3)(8,4)
pnodes(3,3){A}(1,-1){B}(7,-1){C}
psset{PointSymbol=none,PointName=none}
pstMiddleAB[PosAngle=135]{A}{B}{M}
pstMiddleAB{A}{C}{N}
pstMiddleAB{M}{N}{I}
pstRotation[RotAngle=-180]{I}{A,M,N}[a,m,n]%%%%<<--
pstMarkAngle[fillstyle=solid,fillcolor=green]{n}{m}{a}{}
pstMarkAngle[fillstyle=solid,fillcolor=blue]{a}{n}{m}{}
pspolygon[linecolor=red](a)(m)(n)
pstMiddleAB{a}{n}{I1}
pstRotation[RotAngle=i]{I1}{a,m,n}[a1,m1,n1]%%%%<<--
pstSegmentMark[SegmentSymbol=pstslash]{a1}{m1}
pstSegmentMark[SegmentSymbol=MarkHashhh]{n1}{m1}
pstMarkAngle[fillstyle=solid,fillcolor=green]{n1}{m1}{a1}{}
%pstMarkAngle[fillstyle=solid,fillcolor=blue]{a}{n}{m}{}
pspolygon[linecolor=red](a1)(m1)(n1)
end{pspicture}
}
end{document}
EX3:
documentclass[pstricks,border=15pt]{standalone}
usepackage{pstricks-add,pst-eucl}%
begin{document}
foreach i in {0,-1,-2,...,-180}{%
begin{pspicture}[showgrid](0,-3)(8,4)
pnodes(3,3){A}(1,-1){B}(7,-1){C}
psset{PointSymbol=none,PointName=none}
pstMiddleAB[PosAngle=135]{A}{B}{M}
pstMiddleAB{A}{C}{N}
pstMiddleAB{M}{N}{I}
pstRotation[RotAngle=-180]{I}{A,M,N}[a,m,n]%%%%<<--
pstMarkAngle[fillstyle=solid,fillcolor=green]{n}{m}{a}{}
pstMarkAngle[fillstyle=solid,fillcolor=blue]{a}{n}{m}{}
pspolygon[linecolor=red](a)(m)(n)
pstMiddleAB{a}{m}{I2}
pstRotation[RotAngle=i]{I2}{a,m,n}[a2,m2,n2]%%%%<<--
pstSegmentMark[SegmentSymbol=MarkHashh]{a2}{m2}
pstSegmentMark[SegmentSymbol=MarkHashhh]{n2}{m2}
pstMarkAngle[fillstyle=solid,fillcolor=blue]{a2}{n2}{m2}{}
pspolygon[linecolor=red](a2)(m2)(n2)
end{pspicture}
}
end{document}
Question:
See this video.
pstricks
edited 1 hour ago
Zarko
127k868167
asked 1 hour ago
chishimutojichishimutoji
9681321
add a comment |
3
EX1:
documentclass[pstricks,border=15pt]{standalone}
usepackage{pstricks-add,pst-eucl}%
begin{document}
foreach i in {0,-1,-2,...,-180}{%
begin{pspicture}[showgrid](0,-3)(8,4)
pnodes(3,3){A}(1,-1){B}(7,-1){C}
psset{PointSymbol=none,PointName=none}
pstMiddleAB[PosAngle=135]{A}{B}{M}
pstMiddleAB{A}{C}{N}
pstMiddleAB{M}{N}{I}
pstSegmentMark[SegmentSymbol=pstslash]{A}{M}
pstSegmentMark[SegmentSymbol=MarkHash]{A}{N}
pstSegmentMark[SegmentSymbol=MarkHashh]{M}{N}
pstMarkAngle[fillstyle=solid,fillcolor=green]{N}{M}{A}{}
pstMarkAngle[fillstyle=solid,fillcolor=blue]{A}{N}{M}{}
pspolygon(A)(M)(N)
pstRotation[RotAngle=i]{I}{A,M,N}[a,m,n]%%%%<<--
pstMarkAngle[fillstyle=solid,fillcolor=green]{n}{m}{a}{}
pstMarkAngle[fillstyle=solid,fillcolor=blue]{a}{n}{m}{}
pspolygon[linecolor=red](a)(m)(n)
end{pspicture}
}
end{document}
EX2:
documentclass[pstricks,border=15pt]{standalone}
usepackage{pstricks-add,pst-eucl}%
begin{document}
foreach i in {0,1,2,...,180}{%
begin{pspicture}[showgrid](0,-3)(8,4)
pnodes(3,3){A}(1,-1){B}(7,-1){C}
psset{PointSymbol=none,PointName=none}
pstMiddleAB[PosAngle=135]{A}{B}{M}
pstMiddleAB{A}{C}{N}
pstMiddleAB{M}{N}{I}
pstRotation[RotAngle=-180]{I}{A,M,N}[a,m,n]%%%%<<--
pstMarkAngle[fillstyle=solid,fillcolor=green]{n}{m}{a}{}
pstMarkAngle[fillstyle=solid,fillcolor=blue]{a}{n}{m}{}
pspolygon[linecolor=red](a)(m)(n)
pstMiddleAB{a}{n}{I1}
pstRotation[RotAngle=i]{I1}{a,m,n}[a1,m1,n1]%%%%<<--
pstSegmentMark[SegmentSymbol=pstslash]{a1}{m1}
pstSegmentMark[SegmentSymbol=MarkHashhh]{n1}{m1}
pstMarkAngle[fillstyle=solid,fillcolor=green]{n1}{m1}{a1}{}
%pstMarkAngle[fillstyle=solid,fillcolor=blue]{a}{n}{m}{}
pspolygon[linecolor=red](a1)(m1)(n1)
end{pspicture}
}
end{document}
EX3:
documentclass[pstricks,border=15pt]{standalone}
usepackage{pstricks-add,pst-eucl}%
begin{document}
foreach i in {0,-1,-2,...,-180}{%
begin{pspicture}[showgrid](0,-3)(8,4)
pnodes(3,3){A}(1,-1){B}(7,-1){C}
psset{PointSymbol=none,PointName=none}
pstMiddleAB[PosAngle=135]{A}{B}{M}
pstMiddleAB{A}{C}{N}
pstMiddleAB{M}{N}{I}
pstRotation[RotAngle=-180]{I}{A,M,N}[a,m,n]%%%%<<--
pstMarkAngle[fillstyle=solid,fillcolor=green]{n}{m}{a}{}
pstMarkAngle[fillstyle=solid,fillcolor=blue]{a}{n}{m}{}
pspolygon[linecolor=red](a)(m)(n)
pstMiddleAB{a}{m}{I2}
pstRotation[RotAngle=i]{I2}{a,m,n}[a2,m2,n2]%%%%<<--
pstSegmentMark[SegmentSymbol=MarkHashh]{a2}{m2}
pstSegmentMark[SegmentSymbol=MarkHashhh]{n2}{m2}
pstMarkAngle[fillstyle=solid,fillcolor=blue]{a2}{n2}{m2}{}
pspolygon[linecolor=red](a2)(m2)(n2)
end{pspicture}
}
end{document}
Question:
See this video.
pstricks
edited 1 hour ago
Zarko
127k868167
asked 1 hour ago
chishimutojichishimutoji
9681321
@TheInventorofGod The left triangle is lost.
– chishimutoji
1 hour ago
add a comment |
3
3
3
1
EX1:
documentclass[pstricks,border=15pt]{standalone}
usepackage{pstricks-add,pst-eucl}%
begin{document}
foreach i in {0,-1,-2,...,-180}{%
begin{pspicture}[showgrid](0,-3)(8,4)
pnodes(3,3){A}(1,-1){B}(7,-1){C}
psset{PointSymbol=none,PointName=none}
pstMiddleAB[PosAngle=135]{A}{B}{M}
pstMiddleAB{A}{C}{N}
pstMiddleAB{M}{N}{I}
pstSegmentMark[SegmentSymbol=pstslash]{A}{M}
pstSegmentMark[SegmentSymbol=MarkHash]{A}{N}
pstSegmentMark[SegmentSymbol=MarkHashh]{M}{N}
pstMarkAngle[fillstyle=solid,fillcolor=green]{N}{M}{A}{}
pstMarkAngle[fillstyle=solid,fillcolor=blue]{A}{N}{M}{}
pspolygon(A)(M)(N)
pstRotation[RotAngle=i]{I}{A,M,N}[a,m,n]%%%%<<--
pstMarkAngle[fillstyle=solid,fillcolor=green]{n}{m}{a}{}
pstMarkAngle[fillstyle=solid,fillcolor=blue]{a}{n}{m}{}
pspolygon[linecolor=red](a)(m)(n)
end{pspicture}
}
end{document}
EX2:
documentclass[pstricks,border=15pt]{standalone}
usepackage{pstricks-add,pst-eucl}%
begin{document}
foreach i in {0,1,2,...,180}{%
begin{pspicture}[showgrid](0,-3)(8,4)
pnodes(3,3){A}(1,-1){B}(7,-1){C}
psset{PointSymbol=none,PointName=none}
pstMiddleAB[PosAngle=135]{A}{B}{M}
pstMiddleAB{A}{C}{N}
pstMiddleAB{M}{N}{I}
pstRotation[RotAngle=-180]{I}{A,M,N}[a,m,n]%%%%<<--
pstMarkAngle[fillstyle=solid,fillcolor=green]{n}{m}{a}{}
pstMarkAngle[fillstyle=solid,fillcolor=blue]{a}{n}{m}{}
pspolygon[linecolor=red](a)(m)(n)
pstMiddleAB{a}{n}{I1}
pstRotation[RotAngle=i]{I1}{a,m,n}[a1,m1,n1]%%%%<<--
pstSegmentMark[SegmentSymbol=pstslash]{a1}{m1}
pstSegmentMark[SegmentSymbol=MarkHashhh]{n1}{m1}
pstMarkAngle[fillstyle=solid,fillcolor=green]{n1}{m1}{a1}{}
%pstMarkAngle[fillstyle=solid,fillcolor=blue]{a}{n}{m}{}
pspolygon[linecolor=red](a1)(m1)(n1)
end{pspicture}
}
end{document}
EX3:
documentclass[pstricks,border=15pt]{standalone}
usepackage{pstricks-add,pst-eucl}%
begin{document}
foreach i in {0,-1,-2,...,-180}{%
begin{pspicture}[showgrid](0,-3)(8,4)
pnodes(3,3){A}(1,-1){B}(7,-1){C}
psset{PointSymbol=none,PointName=none}
pstMiddleAB[PosAngle=135]{A}{B}{M}
pstMiddleAB{A}{C}{N}
pstMiddleAB{M}{N}{I}
pstRotation[RotAngle=-180]{I}{A,M,N}[a,m,n]%%%%<<--
pstMarkAngle[fillstyle=solid,fillcolor=green]{n}{m}{a}{}
pstMarkAngle[fillstyle=solid,fillcolor=blue]{a}{n}{m}{}
pspolygon[linecolor=red](a)(m)(n)
pstMiddleAB{a}{m}{I2}
pstRotation[RotAngle=i]{I2}{a,m,n}[a2,m2,n2]%%%%<<--
pstSegmentMark[SegmentSymbol=MarkHashh]{a2}{m2}
pstSegmentMark[SegmentSymbol=MarkHashhh]{n2}{m2}
pstMarkAngle[fillstyle=solid,fillcolor=blue]{a2}{n2}{m2}{}
pspolygon[linecolor=red](a2)(m2)(n2)
end{pspicture}
}
end{document}
Question:
See this video.
pstricks
edited 1 hour ago
Zarko
127k868167
asked 1 hour ago
chishimutojichishimutoji
9681321
EX1:
documentclass[pstricks,border=15pt]{standalone}
usepackage{pstricks-add,pst-eucl}%
begin{document}
foreach i in {0,-1,-2,...,-180}{%
begin{pspicture}[showgrid](0,-3)(8,4)
pnodes(3,3){A}(1,-1){B}(7,-1){C}
psset{PointSymbol=none,PointName=none}
pstMiddleAB[PosAngle=135]{A}{B}{M}
pstMiddleAB{A}{C}{N}
pstMiddleAB{M}{N}{I}
pstSegmentMark[SegmentSymbol=pstslash]{A}{M}
pstSegmentMark[SegmentSymbol=MarkHash]{A}{N}
pstSegmentMark[SegmentSymbol=MarkHashh]{M}{N}
pstMarkAngle[fillstyle=solid,fillcolor=green]{N}{M}{A}{}
pstMarkAngle[fillstyle=solid,fillcolor=blue]{A}{N}{M}{}
pspolygon(A)(M)(N)
pstRotation[RotAngle=i]{I}{A,M,N}[a,m,n]%%%%<<--
pstMarkAngle[fillstyle=solid,fillcolor=green]{n}{m}{a}{}
pstMarkAngle[fillstyle=solid,fillcolor=blue]{a}{n}{m}{}
pspolygon[linecolor=red](a)(m)(n)
end{pspicture}
}
end{document}
EX2:
documentclass[pstricks,border=15pt]{standalone}
usepackage{pstricks-add,pst-eucl}%
begin{document}
foreach i in {0,1,2,...,180}{%
begin{pspicture}[showgrid](0,-3)(8,4)
pnodes(3,3){A}(1,-1){B}(7,-1){C}
psset{PointSymbol=none,PointName=none}
pstMiddleAB[PosAngle=135]{A}{B}{M}
pstMiddleAB{A}{C}{N}
pstMiddleAB{M}{N}{I}
pstRotation[RotAngle=-180]{I}{A,M,N}[a,m,n]%%%%<<--
pstMarkAngle[fillstyle=solid,fillcolor=green]{n}{m}{a}{}
pstMarkAngle[fillstyle=solid,fillcolor=blue]{a}{n}{m}{}
pspolygon[linecolor=red](a)(m)(n)
pstMiddleAB{a}{n}{I1}
pstRotation[RotAngle=i]{I1}{a,m,n}[a1,m1,n1]%%%%<<--
pstSegmentMark[SegmentSymbol=pstslash]{a1}{m1}
pstSegmentMark[SegmentSymbol=MarkHashhh]{n1}{m1}
pstMarkAngle[fillstyle=solid,fillcolor=green]{n1}{m1}{a1}{}
%pstMarkAngle[fillstyle=solid,fillcolor=blue]{a}{n}{m}{}
pspolygon[linecolor=red](a1)(m1)(n1)
end{pspicture}
}
end{document}
EX3:
documentclass[pstricks,border=15pt]{standalone}
usepackage{pstricks-add,pst-eucl}%
begin{document}
foreach i in {0,-1,-2,...,-180}{%
begin{pspicture}[showgrid](0,-3)(8,4)
pnodes(3,3){A}(1,-1){B}(7,-1){C}
psset{PointSymbol=none,PointName=none}
pstMiddleAB[PosAngle=135]{A}{B}{M}
pstMiddleAB{A}{C}{N}
pstMiddleAB{M}{N}{I}
pstRotation[RotAngle=-180]{I}{A,M,N}[a,m,n]%%%%<<--
pstMarkAngle[fillstyle=solid,fillcolor=green]{n}{m}{a}{}
pstMarkAngle[fillstyle=solid,fillcolor=blue]{a}{n}{m}{}
pspolygon[linecolor=red](a)(m)(n)
pstMiddleAB{a}{m}{I2}
pstRotation[RotAngle=i]{I2}{a,m,n}[a2,m2,n2]%%%%<<--
pstSegmentMark[SegmentSymbol=MarkHashh]{a2}{m2}
pstSegmentMark[SegmentSymbol=MarkHashhh]{n2}{m2}
pstMarkAngle[fillstyle=solid,fillcolor=blue]{a2}{n2}{m2}{}
pspolygon[linecolor=red](a2)(m2)(n2)
end{pspicture}
}
end{document}
Question:
See this video.
pstricks
pstricks
edited 1 hour ago
Zarko
127k868167
asked 1 hour ago
chishimutojichishimutoji
9681321
edited 1 hour ago
Zarko
127k868167
asked 1 hour ago
chishimutojichishimutoji
9681321
edited 1 hour ago
Zarko
127k868167
edited 1 hour ago
Zarko
127k868167
edited 1 hour ago
Zarko
127k868167
127k868167
asked 1 hour ago
chishimutojichishimutoji
9681321
asked 1 hour ago
chishimutojichishimutoji
9681321
asked 1 hour ago
chishimutojichishimutoji
9681321
9681321
@TheInventorofGod The left triangle is lost.
– chishimutoji
1 hour ago
add a comment |
@TheInventorofGod The left triangle is lost.
– chishimutoji
1 hour ago
@TheInventorofGod The left triangle is lost.
– chishimutoji
1 hour ago
@TheInventorofGod The left triangle is lost.
– chishimutoji
1 hour ago
add a comment |
2 Answers
2
active
oldest
votes
2
ex2 also needs the last image (180°) from ex1 and ex3 also needs the last images from ex1 and ex2:
documentclass[pstricks,border=15pt]{standalone}
usepackage{pstricks-add,pst-eucl}%
begin{document}
multido{i=0+3}{60}{%
begin{pspicture}[showgrid](0,-3)(8,4)
pnodes(3,3){A}(1,-1){B}(7,-1){C}
psset{PointSymbol=none,PointName=none}
pstMiddleAB[PosAngle=135]{A}{B}{M}
pstMiddleAB{A}{C}{N}
pstMiddleAB{M}{N}{I}
pstSegmentMark[SegmentSymbol=pstslash]{A}{M}
pstSegmentMark[SegmentSymbol=MarkHash]{A}{N}
pstSegmentMark[SegmentSymbol=MarkHashh]{M}{N}
pstMarkAngle[fillstyle=solid,fillcolor=green]{N}{M}{A}{}
pstMarkAngle[fillstyle=solid,fillcolor=blue]{A}{N}{M}{}
pspolygon(A)(M)(N)
pstRotation[RotAngle=i]{I}{A,M,N}[a,m,n]%%%%<<--
pstMarkAngle[fillstyle=solid,fillcolor=green]{n}{m}{a}{}
pstMarkAngle[fillstyle=solid,fillcolor=blue]{a}{n}{m}{}
pspolygon[linecolor=red](a)(m)(n)
end{pspicture}%
}
multido{i=0+3}{60}{%
begin{pspicture}[showgrid](0,-3)(8,4)
pnodes(3,3){A}(1,-1){B}(7,-1){C}
psset{PointSymbol=none,PointName=none}
pstMiddleAB[PosAngle=135]{A}{B}{M}
pstMiddleAB{A}{C}{N}
pstMiddleAB{M}{N}{I}
pstSegmentMark[SegmentSymbol=pstslash]{A}{M}
pstSegmentMark[SegmentSymbol=MarkHash]{A}{N}
pstSegmentMark[SegmentSymbol=MarkHashh]{M}{N}
pstMarkAngle[fillstyle=solid,fillcolor=green]{N}{M}{A}{}
pstMarkAngle[fillstyle=solid,fillcolor=blue]{A}{N}{M}{}
pspolygon(A)(M)(N)
pstRotation[RotAngle=180]{I}{A,M,N}[a,m,n]%%%%<<--
pstMarkAngle[fillstyle=solid,fillcolor=green]{n}{m}{a}{}
pstMarkAngle[fillstyle=solid,fillcolor=blue]{a}{n}{m}{}
pspolygon[linecolor=red](a)(m)(n)
% ------------------ end ex1 --------------------------
pstRotation[RotAngle=-180]{I}{A,M,N}[a,m,n]%%%%<<--
pstMarkAngle[fillstyle=solid,fillcolor=green]{n}{m}{a}{}
pstMarkAngle[fillstyle=solid,fillcolor=blue]{a}{n}{m}{}
pspolygon[linecolor=red](a)(m)(n)
pstMiddleAB{a}{n}{I1}
pstRotation[RotAngle=i]{I1}{a,m,n}[a1,m1,n1]%%%%<<--
pstSegmentMark[SegmentSymbol=pstslash]{a1}{m1}
pstSegmentMark[SegmentSymbol=MarkHashhh]{n1}{m1}
pstMarkAngle[fillstyle=solid,fillcolor=green]{n1}{m1}{a1}{}
%pstMarkAngle[fillstyle=solid,fillcolor=blue]{a}{n}{m}{}
pspolygon[linecolor=red](a1)(m1)(n1)
end{pspicture}%
}
multido{i=0+3}{61}{%
begin{pspicture}[showgrid](0,-3)(8,4)
pnodes(3,3){A}(1,-1){B}(7,-1){C}
psset{PointSymbol=none,PointName=none}
pstMiddleAB[PosAngle=135]{A}{B}{M}
pstMiddleAB{A}{C}{N}
pstMiddleAB{M}{N}{I}
pstSegmentMark[SegmentSymbol=pstslash]{A}{M}
pstSegmentMark[SegmentSymbol=MarkHash]{A}{N}
pstSegmentMark[SegmentSymbol=MarkHashh]{M}{N}
pstMarkAngle[fillstyle=solid,fillcolor=green]{N}{M}{A}{}
pstMarkAngle[fillstyle=solid,fillcolor=blue]{A}{N}{M}{}
pspolygon(A)(M)(N)
pstRotation[RotAngle=180]{I}{A,M,N}[a,m,n]%%%%<<--
pstMarkAngle[fillstyle=solid,fillcolor=green]{n}{m}{a}{}
pstMarkAngle[fillstyle=solid,fillcolor=blue]{a}{n}{m}{}
pspolygon[linecolor=red](a)(m)(n)
% ------------------ end ex1 --------------------------
pstRotation[RotAngle=-180]{I}{A,M,N}[a,m,n]%%%%<<--
pstMarkAngle[fillstyle=solid,fillcolor=green]{n}{m}{a}{}
pstMarkAngle[fillstyle=solid,fillcolor=blue]{a}{n}{m}{}
pspolygon[linecolor=red](a)(m)(n)
pstMiddleAB{a}{n}{I1}
pstRotation[RotAngle=180]{I1}{a,m,n}[a1,m1,n1]%%%%<<--
pstSegmentMark[SegmentSymbol=pstslash]{a1}{m1}
pstSegmentMark[SegmentSymbol=MarkHashhh]{n1}{m1}
pstMarkAngle[fillstyle=solid,fillcolor=green]{n1}{m1}{a1}{}
%pstMarkAngle[fillstyle=solid,fillcolor=blue]{a}{n}{m}{}
pspolygon[linecolor=red](a1)(m1)(n1)
% ------------------ end ex2 --------------------------
pstRotation[RotAngle=-180]{I}{A,M,N}[a,m,n]%%%%<<--
pstMarkAngle[fillstyle=solid,fillcolor=green]{n}{m}{a}{}
pstMarkAngle[fillstyle=solid,fillcolor=blue]{a}{n}{m}{}
pspolygon[linecolor=red](a)(m)(n)
pstMiddleAB{a}{m}{I2}
pstRotation[RotAngle=i]{I2}{a,m,n}[a2,m2,n2]%%%%<<--
pstSegmentMark[SegmentSymbol=MarkHashh]{a2}{m2}
pstSegmentMark[SegmentSymbol=MarkHashhh]{n2}{m2}
pstMarkAngle[fillstyle=solid,fillcolor=blue]{a2}{n2}{m2}{}
pspolygon[linecolor=red](a2)(m2)(n2)
end{pspicture}%
}
end{document}
There are a lot of duplicate commands which can be deleted. I leave it to you!
answered 1 hour ago
HerbertHerbert
276k25419732
Animation is too slow so it takes much time to see the whole diagram.
– The Inventor of God
53 mins ago
1
go into the kitchen, get a cup of coffee and then relax while viewing the animation ...
– Herbert
49 mins ago
Yes, I see. I will try it.
– chishimutoji
45 mins ago
Now the animation is faster enough so I don't need to drink coffee.
– The Inventor of God
44 mins ago
add a comment |
2
documentclass[pstricks,border=12pt,12pt]{standalone}
usepackage{pstricks-add,pst-eucl}%
deffirst#1{%
pnodes(3,3){A}(1,-1){B}(7,-1){C}
psset{PointSymbol=none,PointName=none}
pstMiddleAB[PosAngle=135]{A}{B}{M}
pstMiddleAB{A}{C}{N}
pstMiddleAB{M}{N}{I}
pstSegmentMark[SegmentSymbol=pstslash]{A}{M}
pstSegmentMark[SegmentSymbol=MarkHash]{A}{N}
pstSegmentMark[SegmentSymbol=MarkHashh]{M}{N}
pstMarkAngle[fillstyle=solid,fillcolor=green]{N}{M}{A}{}
pstMarkAngle[fillstyle=solid,fillcolor=blue]{A}{N}{M}{}
pspolygon(A)(M)(N)
pstRotation[RotAngle=#1]{I}{A,M,N}[a,m,n]%%%%<<--
pstMarkAngle[fillstyle=solid,fillcolor=green]{n}{m}{a}{}
pstMarkAngle[fillstyle=solid,fillcolor=blue]{a}{n}{m}{}
pspolygon[linecolor=red](a)(m)(n)}
defsecond#1{%
pnodes(3,3){A}(1,-1){B}(7,-1){C}
psset{PointSymbol=none,PointName=none}
pstMiddleAB[PosAngle=135]{A}{B}{M}
pstMiddleAB{A}{C}{N}
pstMiddleAB{M}{N}{I}
pstRotation[RotAngle=-180]{I}{A,M,N}[a,m,n]%%%%<<--
pstMarkAngle[fillstyle=solid,fillcolor=green]{n}{m}{a}{}
pstMarkAngle[fillstyle=solid,fillcolor=blue]{a}{n}{m}{}
pspolygon[linecolor=red](a)(m)(n)
pstMiddleAB{a}{n}{I1}
pstRotation[RotAngle=#1]{I1}{a,m,n}[a1,m1,n1]%%%%<<--
pstSegmentMark[SegmentSymbol=pstslash]{a1}{m1}
pstSegmentMark[SegmentSymbol=MarkHashhh]{n1}{m1}
pstMarkAngle[fillstyle=solid,fillcolor=green]{n1}{m1}{a1}{}
%pstMarkAngle[fillstyle=solid,fillcolor=blue]{a}{n}{m}{}
pspolygon[linecolor=red](a1)(m1)(n1)}
defthird#1{
pnodes(3,3){A}(1,-1){B}(7,-1){C}
psset{PointSymbol=none,PointName=none}
pstMiddleAB[PosAngle=135]{A}{B}{M}
pstMiddleAB{A}{C}{N}
pstMiddleAB{M}{N}{I}
pstRotation[RotAngle=-180]{I}{A,M,N}[a,m,n]%%%%<<--
pstMarkAngle[fillstyle=solid,fillcolor=green]{n}{m}{a}{}
pstMarkAngle[fillstyle=solid,fillcolor=blue]{a}{n}{m}{}
pspolygon[linecolor=red](a)(m)(n)
pstMiddleAB{a}{m}{I2}
pstRotation[RotAngle=#1]{I2}{a,m,n}[a2,m2,n2]%%%%<<--
pstSegmentMark[SegmentSymbol=MarkHashh]{a2}{m2}
pstSegmentMark[SegmentSymbol=MarkHashhh]{n2}{m2}
pstMarkAngle[fillstyle=solid,fillcolor=blue]{a2}{n2}{m2}{}
pspolygon[linecolor=red](a2)(m2)(n2)}
begin{document}
foreach i in {0,-10,...,-180}{%
begin{pspicture}[showgrid](0,-3)(8,4)
first{i}
end{pspicture}}
foreach i in {0,-10,...,-180}{%
begin{pspicture}[showgrid](0,-3)(8,4)
first{0}
second{i}
end{pspicture}}
foreach i in {0,-10,...,-180}{%
begin{pspicture}[showgrid](0,-3)(8,4)
first{0}
second{-180}
third{i}
end{pspicture}}
end{document}
answered 1 hour ago
The Inventor of GodThe Inventor of God
4,86611142
The above code has many redundancies that we can refactor but I left it as it is right now.
– The Inventor of God
1 hour ago
Yes, both answers are wonderful. So I won't accept anything.. chuckle . Thank for your answer. :-)
– chishimutoji
42 mins ago
@chishimutoji: Your next job is to comparefirst,second, andthirdand refactor them to remove the unnecessary redundancies. DRY = Don't Repeat Yourself because redundancies don't reflect perfectionism. :-)
– The Inventor of God
9 mins ago
add a comment |
Your Answer
StackExchange.ready(function() {
var channelOptions = {
tags: "".split(" "),
id: "85"
};
initTagRenderer("".split(" "), "".split(" "), channelOptions);
StackExchange.using("externalEditor", function() {
// Have to fire editor after snippets, if snippets enabled
if (StackExchange.settings.snippets.snippetsEnabled) {
StackExchange.using("snippets", function() {
createEditor();
});
}
else {
createEditor();
}
});
function createEditor() {
StackExchange.prepareEditor({
heartbeatType: 'answer',
autoActivateHeartbeat: false,
convertImagesToLinks: false,
noModals: true,
showLowRepImageUploadWarning: true,
reputationToPostImages: null,
bindNavPrevention: true,
postfix: "",
imageUploader: {
brandingHtml: "Powered by u003ca class="icon-imgur-white" href="https://imgur.com/"u003eu003c/au003e",
contentPolicyHtml: "User contributions licensed under u003ca href="https://creativecommons.org/licenses/by-sa/3.0/"u003ecc by-sa 3.0 with attribution requiredu003c/au003e u003ca href="https://stackoverflow.com/legal/content-policy"u003e(content policy)u003c/au003e",
allowUrls: true
},
onDemand: true,
discardSelector: ".discard-answer"
,immediatelyShowMarkdownHelp:true
});
}
});
draft saved
draft discarded
Sign up or log in
StackExchange.ready(function () {
StackExchange.helpers.onClickDraftSave('#login-link');
});
Sign up using Google
Sign up using Facebook
Sign up using Email and Password
Post as a guest
Required, but never shown
StackExchange.ready(
function () {
StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2ftex.stackexchange.com%2fquestions%2f479751%2fhow-to-combine-three-animations-as-the-following-example%23new-answer', 'question_page');
}
);
Post as a guest
Required, but never shown
2 Answers
2
active
oldest
votes
2 Answers
2
active
oldest
votes
active
oldest
votes
active
oldest
votes
2
ex2 also needs the last image (180°) from ex1 and ex3 also needs the last images from ex1 and ex2:
documentclass[pstricks,border=15pt]{standalone}
usepackage{pstricks-add,pst-eucl}%
begin{document}
multido{i=0+3}{60}{%
begin{pspicture}[showgrid](0,-3)(8,4)
pnodes(3,3){A}(1,-1){B}(7,-1){C}
psset{PointSymbol=none,PointName=none}
pstMiddleAB[PosAngle=135]{A}{B}{M}
pstMiddleAB{A}{C}{N}
pstMiddleAB{M}{N}{I}
pstSegmentMark[SegmentSymbol=pstslash]{A}{M}
pstSegmentMark[SegmentSymbol=MarkHash]{A}{N}
pstSegmentMark[SegmentSymbol=MarkHashh]{M}{N}
pstMarkAngle[fillstyle=solid,fillcolor=green]{N}{M}{A}{}
pstMarkAngle[fillstyle=solid,fillcolor=blue]{A}{N}{M}{}
pspolygon(A)(M)(N)
pstRotation[RotAngle=i]{I}{A,M,N}[a,m,n]%%%%<<--
pstMarkAngle[fillstyle=solid,fillcolor=green]{n}{m}{a}{}
pstMarkAngle[fillstyle=solid,fillcolor=blue]{a}{n}{m}{}
pspolygon[linecolor=red](a)(m)(n)
end{pspicture}%
}
multido{i=0+3}{60}{%
begin{pspicture}[showgrid](0,-3)(8,4)
pnodes(3,3){A}(1,-1){B}(7,-1){C}
psset{PointSymbol=none,PointName=none}
pstMiddleAB[PosAngle=135]{A}{B}{M}
pstMiddleAB{A}{C}{N}
pstMiddleAB{M}{N}{I}
pstSegmentMark[SegmentSymbol=pstslash]{A}{M}
pstSegmentMark[SegmentSymbol=MarkHash]{A}{N}
pstSegmentMark[SegmentSymbol=MarkHashh]{M}{N}
pstMarkAngle[fillstyle=solid,fillcolor=green]{N}{M}{A}{}
pstMarkAngle[fillstyle=solid,fillcolor=blue]{A}{N}{M}{}
pspolygon(A)(M)(N)
pstRotation[RotAngle=180]{I}{A,M,N}[a,m,n]%%%%<<--
pstMarkAngle[fillstyle=solid,fillcolor=green]{n}{m}{a}{}
pstMarkAngle[fillstyle=solid,fillcolor=blue]{a}{n}{m}{}
pspolygon[linecolor=red](a)(m)(n)
% ------------------ end ex1 --------------------------
pstRotation[RotAngle=-180]{I}{A,M,N}[a,m,n]%%%%<<--
pstMarkAngle[fillstyle=solid,fillcolor=green]{n}{m}{a}{}
pstMarkAngle[fillstyle=solid,fillcolor=blue]{a}{n}{m}{}
pspolygon[linecolor=red](a)(m)(n)
pstMiddleAB{a}{n}{I1}
pstRotation[RotAngle=i]{I1}{a,m,n}[a1,m1,n1]%%%%<<--
pstSegmentMark[SegmentSymbol=pstslash]{a1}{m1}
pstSegmentMark[SegmentSymbol=MarkHashhh]{n1}{m1}
pstMarkAngle[fillstyle=solid,fillcolor=green]{n1}{m1}{a1}{}
%pstMarkAngle[fillstyle=solid,fillcolor=blue]{a}{n}{m}{}
pspolygon[linecolor=red](a1)(m1)(n1)
end{pspicture}%
}
multido{i=0+3}{61}{%
begin{pspicture}[showgrid](0,-3)(8,4)
pnodes(3,3){A}(1,-1){B}(7,-1){C}
psset{PointSymbol=none,PointName=none}
pstMiddleAB[PosAngle=135]{A}{B}{M}
pstMiddleAB{A}{C}{N}
pstMiddleAB{M}{N}{I}
pstSegmentMark[SegmentSymbol=pstslash]{A}{M}
pstSegmentMark[SegmentSymbol=MarkHash]{A}{N}
pstSegmentMark[SegmentSymbol=MarkHashh]{M}{N}
pstMarkAngle[fillstyle=solid,fillcolor=green]{N}{M}{A}{}
pstMarkAngle[fillstyle=solid,fillcolor=blue]{A}{N}{M}{}
pspolygon(A)(M)(N)
pstRotation[RotAngle=180]{I}{A,M,N}[a,m,n]%%%%<<--
pstMarkAngle[fillstyle=solid,fillcolor=green]{n}{m}{a}{}
pstMarkAngle[fillstyle=solid,fillcolor=blue]{a}{n}{m}{}
pspolygon[linecolor=red](a)(m)(n)
% ------------------ end ex1 --------------------------
pstRotation[RotAngle=-180]{I}{A,M,N}[a,m,n]%%%%<<--
pstMarkAngle[fillstyle=solid,fillcolor=green]{n}{m}{a}{}
pstMarkAngle[fillstyle=solid,fillcolor=blue]{a}{n}{m}{}
pspolygon[linecolor=red](a)(m)(n)
pstMiddleAB{a}{n}{I1}
pstRotation[RotAngle=180]{I1}{a,m,n}[a1,m1,n1]%%%%<<--
pstSegmentMark[SegmentSymbol=pstslash]{a1}{m1}
pstSegmentMark[SegmentSymbol=MarkHashhh]{n1}{m1}
pstMarkAngle[fillstyle=solid,fillcolor=green]{n1}{m1}{a1}{}
%pstMarkAngle[fillstyle=solid,fillcolor=blue]{a}{n}{m}{}
pspolygon[linecolor=red](a1)(m1)(n1)
% ------------------ end ex2 --------------------------
pstRotation[RotAngle=-180]{I}{A,M,N}[a,m,n]%%%%<<--
pstMarkAngle[fillstyle=solid,fillcolor=green]{n}{m}{a}{}
pstMarkAngle[fillstyle=solid,fillcolor=blue]{a}{n}{m}{}
pspolygon[linecolor=red](a)(m)(n)
pstMiddleAB{a}{m}{I2}
pstRotation[RotAngle=i]{I2}{a,m,n}[a2,m2,n2]%%%%<<--
pstSegmentMark[SegmentSymbol=MarkHashh]{a2}{m2}
pstSegmentMark[SegmentSymbol=MarkHashhh]{n2}{m2}
pstMarkAngle[fillstyle=solid,fillcolor=blue]{a2}{n2}{m2}{}
pspolygon[linecolor=red](a2)(m2)(n2)
end{pspicture}%
}
end{document}
There are a lot of duplicate commands which can be deleted. I leave it to you!
answered 1 hour ago
HerbertHerbert
276k25419732
Animation is too slow so it takes much time to see the whole diagram.
– The Inventor of God
53 mins ago
1
go into the kitchen, get a cup of coffee and then relax while viewing the animation ...
– Herbert
49 mins ago
Yes, I see. I will try it.
– chishimutoji
45 mins ago
Now the animation is faster enough so I don't need to drink coffee.
– The Inventor of God
44 mins ago
add a comment |
2
ex2 also needs the last image (180°) from ex1 and ex3 also needs the last images from ex1 and ex2:
documentclass[pstricks,border=15pt]{standalone}
usepackage{pstricks-add,pst-eucl}%
begin{document}
multido{i=0+3}{60}{%
begin{pspicture}[showgrid](0,-3)(8,4)
pnodes(3,3){A}(1,-1){B}(7,-1){C}
psset{PointSymbol=none,PointName=none}
pstMiddleAB[PosAngle=135]{A}{B}{M}
pstMiddleAB{A}{C}{N}
pstMiddleAB{M}{N}{I}
pstSegmentMark[SegmentSymbol=pstslash]{A}{M}
pstSegmentMark[SegmentSymbol=MarkHash]{A}{N}
pstSegmentMark[SegmentSymbol=MarkHashh]{M}{N}
pstMarkAngle[fillstyle=solid,fillcolor=green]{N}{M}{A}{}
pstMarkAngle[fillstyle=solid,fillcolor=blue]{A}{N}{M}{}
pspolygon(A)(M)(N)
pstRotation[RotAngle=i]{I}{A,M,N}[a,m,n]%%%%<<--
pstMarkAngle[fillstyle=solid,fillcolor=green]{n}{m}{a}{}
pstMarkAngle[fillstyle=solid,fillcolor=blue]{a}{n}{m}{}
pspolygon[linecolor=red](a)(m)(n)
end{pspicture}%
}
multido{i=0+3}{60}{%
begin{pspicture}[showgrid](0,-3)(8,4)
pnodes(3,3){A}(1,-1){B}(7,-1){C}
psset{PointSymbol=none,PointName=none}
pstMiddleAB[PosAngle=135]{A}{B}{M}
pstMiddleAB{A}{C}{N}
pstMiddleAB{M}{N}{I}
pstSegmentMark[SegmentSymbol=pstslash]{A}{M}
pstSegmentMark[SegmentSymbol=MarkHash]{A}{N}
pstSegmentMark[SegmentSymbol=MarkHashh]{M}{N}
pstMarkAngle[fillstyle=solid,fillcolor=green]{N}{M}{A}{}
pstMarkAngle[fillstyle=solid,fillcolor=blue]{A}{N}{M}{}
pspolygon(A)(M)(N)
pstRotation[RotAngle=180]{I}{A,M,N}[a,m,n]%%%%<<--
pstMarkAngle[fillstyle=solid,fillcolor=green]{n}{m}{a}{}
pstMarkAngle[fillstyle=solid,fillcolor=blue]{a}{n}{m}{}
pspolygon[linecolor=red](a)(m)(n)
% ------------------ end ex1 --------------------------
pstRotation[RotAngle=-180]{I}{A,M,N}[a,m,n]%%%%<<--
pstMarkAngle[fillstyle=solid,fillcolor=green]{n}{m}{a}{}
pstMarkAngle[fillstyle=solid,fillcolor=blue]{a}{n}{m}{}
pspolygon[linecolor=red](a)(m)(n)
pstMiddleAB{a}{n}{I1}
pstRotation[RotAngle=i]{I1}{a,m,n}[a1,m1,n1]%%%%<<--
pstSegmentMark[SegmentSymbol=pstslash]{a1}{m1}
pstSegmentMark[SegmentSymbol=MarkHashhh]{n1}{m1}
pstMarkAngle[fillstyle=solid,fillcolor=green]{n1}{m1}{a1}{}
%pstMarkAngle[fillstyle=solid,fillcolor=blue]{a}{n}{m}{}
pspolygon[linecolor=red](a1)(m1)(n1)
end{pspicture}%
}
multido{i=0+3}{61}{%
begin{pspicture}[showgrid](0,-3)(8,4)
pnodes(3,3){A}(1,-1){B}(7,-1){C}
psset{PointSymbol=none,PointName=none}
pstMiddleAB[PosAngle=135]{A}{B}{M}
pstMiddleAB{A}{C}{N}
pstMiddleAB{M}{N}{I}
pstSegmentMark[SegmentSymbol=pstslash]{A}{M}
pstSegmentMark[SegmentSymbol=MarkHash]{A}{N}
pstSegmentMark[SegmentSymbol=MarkHashh]{M}{N}
pstMarkAngle[fillstyle=solid,fillcolor=green]{N}{M}{A}{}
pstMarkAngle[fillstyle=solid,fillcolor=blue]{A}{N}{M}{}
pspolygon(A)(M)(N)
pstRotation[RotAngle=180]{I}{A,M,N}[a,m,n]%%%%<<--
pstMarkAngle[fillstyle=solid,fillcolor=green]{n}{m}{a}{}
pstMarkAngle[fillstyle=solid,fillcolor=blue]{a}{n}{m}{}
pspolygon[linecolor=red](a)(m)(n)
% ------------------ end ex1 --------------------------
pstRotation[RotAngle=-180]{I}{A,M,N}[a,m,n]%%%%<<--
pstMarkAngle[fillstyle=solid,fillcolor=green]{n}{m}{a}{}
pstMarkAngle[fillstyle=solid,fillcolor=blue]{a}{n}{m}{}
pspolygon[linecolor=red](a)(m)(n)
pstMiddleAB{a}{n}{I1}
pstRotation[RotAngle=180]{I1}{a,m,n}[a1,m1,n1]%%%%<<--
pstSegmentMark[SegmentSymbol=pstslash]{a1}{m1}
pstSegmentMark[SegmentSymbol=MarkHashhh]{n1}{m1}
pstMarkAngle[fillstyle=solid,fillcolor=green]{n1}{m1}{a1}{}
%pstMarkAngle[fillstyle=solid,fillcolor=blue]{a}{n}{m}{}
pspolygon[linecolor=red](a1)(m1)(n1)
% ------------------ end ex2 --------------------------
pstRotation[RotAngle=-180]{I}{A,M,N}[a,m,n]%%%%<<--
pstMarkAngle[fillstyle=solid,fillcolor=green]{n}{m}{a}{}
pstMarkAngle[fillstyle=solid,fillcolor=blue]{a}{n}{m}{}
pspolygon[linecolor=red](a)(m)(n)
pstMiddleAB{a}{m}{I2}
pstRotation[RotAngle=i]{I2}{a,m,n}[a2,m2,n2]%%%%<<--
pstSegmentMark[SegmentSymbol=MarkHashh]{a2}{m2}
pstSegmentMark[SegmentSymbol=MarkHashhh]{n2}{m2}
pstMarkAngle[fillstyle=solid,fillcolor=blue]{a2}{n2}{m2}{}
pspolygon[linecolor=red](a2)(m2)(n2)
end{pspicture}%
}
end{document}
There are a lot of duplicate commands which can be deleted. I leave it to you!
answered 1 hour ago
HerbertHerbert
276k25419732
Animation is too slow so it takes much time to see the whole diagram.
– The Inventor of God
53 mins ago
1
go into the kitchen, get a cup of coffee and then relax while viewing the animation ...
– Herbert
49 mins ago
Yes, I see. I will try it.
– chishimutoji
45 mins ago
Now the animation is faster enough so I don't need to drink coffee.
– The Inventor of God
44 mins ago
add a comment |
2
2
2
ex2 also needs the last image (180°) from ex1 and ex3 also needs the last images from ex1 and ex2:
documentclass[pstricks,border=15pt]{standalone}
usepackage{pstricks-add,pst-eucl}%
begin{document}
multido{i=0+3}{60}{%
begin{pspicture}[showgrid](0,-3)(8,4)
pnodes(3,3){A}(1,-1){B}(7,-1){C}
psset{PointSymbol=none,PointName=none}
pstMiddleAB[PosAngle=135]{A}{B}{M}
pstMiddleAB{A}{C}{N}
pstMiddleAB{M}{N}{I}
pstSegmentMark[SegmentSymbol=pstslash]{A}{M}
pstSegmentMark[SegmentSymbol=MarkHash]{A}{N}
pstSegmentMark[SegmentSymbol=MarkHashh]{M}{N}
pstMarkAngle[fillstyle=solid,fillcolor=green]{N}{M}{A}{}
pstMarkAngle[fillstyle=solid,fillcolor=blue]{A}{N}{M}{}
pspolygon(A)(M)(N)
pstRotation[RotAngle=i]{I}{A,M,N}[a,m,n]%%%%<<--
pstMarkAngle[fillstyle=solid,fillcolor=green]{n}{m}{a}{}
pstMarkAngle[fillstyle=solid,fillcolor=blue]{a}{n}{m}{}
pspolygon[linecolor=red](a)(m)(n)
end{pspicture}%
}
multido{i=0+3}{60}{%
begin{pspicture}[showgrid](0,-3)(8,4)
pnodes(3,3){A}(1,-1){B}(7,-1){C}
psset{PointSymbol=none,PointName=none}
pstMiddleAB[PosAngle=135]{A}{B}{M}
pstMiddleAB{A}{C}{N}
pstMiddleAB{M}{N}{I}
pstSegmentMark[SegmentSymbol=pstslash]{A}{M}
pstSegmentMark[SegmentSymbol=MarkHash]{A}{N}
pstSegmentMark[SegmentSymbol=MarkHashh]{M}{N}
pstMarkAngle[fillstyle=solid,fillcolor=green]{N}{M}{A}{}
pstMarkAngle[fillstyle=solid,fillcolor=blue]{A}{N}{M}{}
pspolygon(A)(M)(N)
pstRotation[RotAngle=180]{I}{A,M,N}[a,m,n]%%%%<<--
pstMarkAngle[fillstyle=solid,fillcolor=green]{n}{m}{a}{}
pstMarkAngle[fillstyle=solid,fillcolor=blue]{a}{n}{m}{}
pspolygon[linecolor=red](a)(m)(n)
% ------------------ end ex1 --------------------------
pstRotation[RotAngle=-180]{I}{A,M,N}[a,m,n]%%%%<<--
pstMarkAngle[fillstyle=solid,fillcolor=green]{n}{m}{a}{}
pstMarkAngle[fillstyle=solid,fillcolor=blue]{a}{n}{m}{}
pspolygon[linecolor=red](a)(m)(n)
pstMiddleAB{a}{n}{I1}
pstRotation[RotAngle=i]{I1}{a,m,n}[a1,m1,n1]%%%%<<--
pstSegmentMark[SegmentSymbol=pstslash]{a1}{m1}
pstSegmentMark[SegmentSymbol=MarkHashhh]{n1}{m1}
pstMarkAngle[fillstyle=solid,fillcolor=green]{n1}{m1}{a1}{}
%pstMarkAngle[fillstyle=solid,fillcolor=blue]{a}{n}{m}{}
pspolygon[linecolor=red](a1)(m1)(n1)
end{pspicture}%
}
multido{i=0+3}{61}{%
begin{pspicture}[showgrid](0,-3)(8,4)
pnodes(3,3){A}(1,-1){B}(7,-1){C}
psset{PointSymbol=none,PointName=none}
pstMiddleAB[PosAngle=135]{A}{B}{M}
pstMiddleAB{A}{C}{N}
pstMiddleAB{M}{N}{I}
pstSegmentMark[SegmentSymbol=pstslash]{A}{M}
pstSegmentMark[SegmentSymbol=MarkHash]{A}{N}
pstSegmentMark[SegmentSymbol=MarkHashh]{M}{N}
pstMarkAngle[fillstyle=solid,fillcolor=green]{N}{M}{A}{}
pstMarkAngle[fillstyle=solid,fillcolor=blue]{A}{N}{M}{}
pspolygon(A)(M)(N)
pstRotation[RotAngle=180]{I}{A,M,N}[a,m,n]%%%%<<--
pstMarkAngle[fillstyle=solid,fillcolor=green]{n}{m}{a}{}
pstMarkAngle[fillstyle=solid,fillcolor=blue]{a}{n}{m}{}
pspolygon[linecolor=red](a)(m)(n)
% ------------------ end ex1 --------------------------
pstRotation[RotAngle=-180]{I}{A,M,N}[a,m,n]%%%%<<--
pstMarkAngle[fillstyle=solid,fillcolor=green]{n}{m}{a}{}
pstMarkAngle[fillstyle=solid,fillcolor=blue]{a}{n}{m}{}
pspolygon[linecolor=red](a)(m)(n)
pstMiddleAB{a}{n}{I1}
pstRotation[RotAngle=180]{I1}{a,m,n}[a1,m1,n1]%%%%<<--
pstSegmentMark[SegmentSymbol=pstslash]{a1}{m1}
pstSegmentMark[SegmentSymbol=MarkHashhh]{n1}{m1}
pstMarkAngle[fillstyle=solid,fillcolor=green]{n1}{m1}{a1}{}
%pstMarkAngle[fillstyle=solid,fillcolor=blue]{a}{n}{m}{}
pspolygon[linecolor=red](a1)(m1)(n1)
% ------------------ end ex2 --------------------------
pstRotation[RotAngle=-180]{I}{A,M,N}[a,m,n]%%%%<<--
pstMarkAngle[fillstyle=solid,fillcolor=green]{n}{m}{a}{}
pstMarkAngle[fillstyle=solid,fillcolor=blue]{a}{n}{m}{}
pspolygon[linecolor=red](a)(m)(n)
pstMiddleAB{a}{m}{I2}
pstRotation[RotAngle=i]{I2}{a,m,n}[a2,m2,n2]%%%%<<--
pstSegmentMark[SegmentSymbol=MarkHashh]{a2}{m2}
pstSegmentMark[SegmentSymbol=MarkHashhh]{n2}{m2}
pstMarkAngle[fillstyle=solid,fillcolor=blue]{a2}{n2}{m2}{}
pspolygon[linecolor=red](a2)(m2)(n2)
end{pspicture}%
}
end{document}
There are a lot of duplicate commands which can be deleted. I leave it to you!
answered 1 hour ago
HerbertHerbert
276k25419732
ex2 also needs the last image (180°) from ex1 and ex3 also needs the last images from ex1 and ex2:
documentclass[pstricks,border=15pt]{standalone}
usepackage{pstricks-add,pst-eucl}%
begin{document}
multido{i=0+3}{60}{%
begin{pspicture}[showgrid](0,-3)(8,4)
pnodes(3,3){A}(1,-1){B}(7,-1){C}
psset{PointSymbol=none,PointName=none}
pstMiddleAB[PosAngle=135]{A}{B}{M}
pstMiddleAB{A}{C}{N}
pstMiddleAB{M}{N}{I}
pstSegmentMark[SegmentSymbol=pstslash]{A}{M}
pstSegmentMark[SegmentSymbol=MarkHash]{A}{N}
pstSegmentMark[SegmentSymbol=MarkHashh]{M}{N}
pstMarkAngle[fillstyle=solid,fillcolor=green]{N}{M}{A}{}
pstMarkAngle[fillstyle=solid,fillcolor=blue]{A}{N}{M}{}
pspolygon(A)(M)(N)
pstRotation[RotAngle=i]{I}{A,M,N}[a,m,n]%%%%<<--
pstMarkAngle[fillstyle=solid,fillcolor=green]{n}{m}{a}{}
pstMarkAngle[fillstyle=solid,fillcolor=blue]{a}{n}{m}{}
pspolygon[linecolor=red](a)(m)(n)
end{pspicture}%
}
multido{i=0+3}{60}{%
begin{pspicture}[showgrid](0,-3)(8,4)
pnodes(3,3){A}(1,-1){B}(7,-1){C}
psset{PointSymbol=none,PointName=none}
pstMiddleAB[PosAngle=135]{A}{B}{M}
pstMiddleAB{A}{C}{N}
pstMiddleAB{M}{N}{I}
pstSegmentMark[SegmentSymbol=pstslash]{A}{M}
pstSegmentMark[SegmentSymbol=MarkHash]{A}{N}
pstSegmentMark[SegmentSymbol=MarkHashh]{M}{N}
pstMarkAngle[fillstyle=solid,fillcolor=green]{N}{M}{A}{}
pstMarkAngle[fillstyle=solid,fillcolor=blue]{A}{N}{M}{}
pspolygon(A)(M)(N)
pstRotation[RotAngle=180]{I}{A,M,N}[a,m,n]%%%%<<--
pstMarkAngle[fillstyle=solid,fillcolor=green]{n}{m}{a}{}
pstMarkAngle[fillstyle=solid,fillcolor=blue]{a}{n}{m}{}
pspolygon[linecolor=red](a)(m)(n)
% ------------------ end ex1 --------------------------
pstRotation[RotAngle=-180]{I}{A,M,N}[a,m,n]%%%%<<--
pstMarkAngle[fillstyle=solid,fillcolor=green]{n}{m}{a}{}
pstMarkAngle[fillstyle=solid,fillcolor=blue]{a}{n}{m}{}
pspolygon[linecolor=red](a)(m)(n)
pstMiddleAB{a}{n}{I1}
pstRotation[RotAngle=i]{I1}{a,m,n}[a1,m1,n1]%%%%<<--
pstSegmentMark[SegmentSymbol=pstslash]{a1}{m1}
pstSegmentMark[SegmentSymbol=MarkHashhh]{n1}{m1}
pstMarkAngle[fillstyle=solid,fillcolor=green]{n1}{m1}{a1}{}
%pstMarkAngle[fillstyle=solid,fillcolor=blue]{a}{n}{m}{}
pspolygon[linecolor=red](a1)(m1)(n1)
end{pspicture}%
}
multido{i=0+3}{61}{%
begin{pspicture}[showgrid](0,-3)(8,4)
pnodes(3,3){A}(1,-1){B}(7,-1){C}
psset{PointSymbol=none,PointName=none}
pstMiddleAB[PosAngle=135]{A}{B}{M}
pstMiddleAB{A}{C}{N}
pstMiddleAB{M}{N}{I}
pstSegmentMark[SegmentSymbol=pstslash]{A}{M}
pstSegmentMark[SegmentSymbol=MarkHash]{A}{N}
pstSegmentMark[SegmentSymbol=MarkHashh]{M}{N}
pstMarkAngle[fillstyle=solid,fillcolor=green]{N}{M}{A}{}
pstMarkAngle[fillstyle=solid,fillcolor=blue]{A}{N}{M}{}
pspolygon(A)(M)(N)
pstRotation[RotAngle=180]{I}{A,M,N}[a,m,n]%%%%<<--
pstMarkAngle[fillstyle=solid,fillcolor=green]{n}{m}{a}{}
pstMarkAngle[fillstyle=solid,fillcolor=blue]{a}{n}{m}{}
pspolygon[linecolor=red](a)(m)(n)
% ------------------ end ex1 --------------------------
pstRotation[RotAngle=-180]{I}{A,M,N}[a,m,n]%%%%<<--
pstMarkAngle[fillstyle=solid,fillcolor=green]{n}{m}{a}{}
pstMarkAngle[fillstyle=solid,fillcolor=blue]{a}{n}{m}{}
pspolygon[linecolor=red](a)(m)(n)
pstMiddleAB{a}{n}{I1}
pstRotation[RotAngle=180]{I1}{a,m,n}[a1,m1,n1]%%%%<<--
pstSegmentMark[SegmentSymbol=pstslash]{a1}{m1}
pstSegmentMark[SegmentSymbol=MarkHashhh]{n1}{m1}
pstMarkAngle[fillstyle=solid,fillcolor=green]{n1}{m1}{a1}{}
%pstMarkAngle[fillstyle=solid,fillcolor=blue]{a}{n}{m}{}
pspolygon[linecolor=red](a1)(m1)(n1)
% ------------------ end ex2 --------------------------
pstRotation[RotAngle=-180]{I}{A,M,N}[a,m,n]%%%%<<--
pstMarkAngle[fillstyle=solid,fillcolor=green]{n}{m}{a}{}
pstMarkAngle[fillstyle=solid,fillcolor=blue]{a}{n}{m}{}
pspolygon[linecolor=red](a)(m)(n)
pstMiddleAB{a}{m}{I2}
pstRotation[RotAngle=i]{I2}{a,m,n}[a2,m2,n2]%%%%<<--
pstSegmentMark[SegmentSymbol=MarkHashh]{a2}{m2}
pstSegmentMark[SegmentSymbol=MarkHashhh]{n2}{m2}
pstMarkAngle[fillstyle=solid,fillcolor=blue]{a2}{n2}{m2}{}
pspolygon[linecolor=red](a2)(m2)(n2)
end{pspicture}%
}
end{document}
There are a lot of duplicate commands which can be deleted. I leave it to you!
answered 1 hour ago
HerbertHerbert
276k25419732
edited 46 mins ago
answered 1 hour ago
HerbertHerbert
276k25419732
answered 1 hour ago
HerbertHerbert
276k25419732
answered 1 hour ago
HerbertHerbert
276k25419732
276k25419732
Animation is too slow so it takes much time to see the whole diagram.
– The Inventor of God
53 mins ago
1
go into the kitchen, get a cup of coffee and then relax while viewing the animation ...
– Herbert
49 mins ago
Yes, I see. I will try it.
– chishimutoji
45 mins ago
Now the animation is faster enough so I don't need to drink coffee.
– The Inventor of God
44 mins ago
add a comment |
Animation is too slow so it takes much time to see the whole diagram.
– The Inventor of God
53 mins ago
1
go into the kitchen, get a cup of coffee and then relax while viewing the animation ...
– Herbert
49 mins ago
Yes, I see. I will try it.
– chishimutoji
45 mins ago
Now the animation is faster enough so I don't need to drink coffee.
– The Inventor of God
44 mins ago
Animation is too slow so it takes much time to see the whole diagram.
– The Inventor of God
53 mins ago
Animation is too slow so it takes much time to see the whole diagram.
– The Inventor of God
53 mins ago
1
1
go into the kitchen, get a cup of coffee and then relax while viewing the animation ...
– Herbert
49 mins ago
go into the kitchen, get a cup of coffee and then relax while viewing the animation ...
– Herbert
49 mins ago
Yes, I see. I will try it.
– chishimutoji
45 mins ago
Yes, I see. I will try it.
– chishimutoji
45 mins ago
Now the animation is faster enough so I don't need to drink coffee.
– The Inventor of God
44 mins ago
Now the animation is faster enough so I don't need to drink coffee.
– The Inventor of God
44 mins ago
add a comment |
2
documentclass[pstricks,border=12pt,12pt]{standalone}
usepackage{pstricks-add,pst-eucl}%
deffirst#1{%
pnodes(3,3){A}(1,-1){B}(7,-1){C}
psset{PointSymbol=none,PointName=none}
pstMiddleAB[PosAngle=135]{A}{B}{M}
pstMiddleAB{A}{C}{N}
pstMiddleAB{M}{N}{I}
pstSegmentMark[SegmentSymbol=pstslash]{A}{M}
pstSegmentMark[SegmentSymbol=MarkHash]{A}{N}
pstSegmentMark[SegmentSymbol=MarkHashh]{M}{N}
pstMarkAngle[fillstyle=solid,fillcolor=green]{N}{M}{A}{}
pstMarkAngle[fillstyle=solid,fillcolor=blue]{A}{N}{M}{}
pspolygon(A)(M)(N)
pstRotation[RotAngle=#1]{I}{A,M,N}[a,m,n]%%%%<<--
pstMarkAngle[fillstyle=solid,fillcolor=green]{n}{m}{a}{}
pstMarkAngle[fillstyle=solid,fillcolor=blue]{a}{n}{m}{}
pspolygon[linecolor=red](a)(m)(n)}
defsecond#1{%
pnodes(3,3){A}(1,-1){B}(7,-1){C}
psset{PointSymbol=none,PointName=none}
pstMiddleAB[PosAngle=135]{A}{B}{M}
pstMiddleAB{A}{C}{N}
pstMiddleAB{M}{N}{I}
pstRotation[RotAngle=-180]{I}{A,M,N}[a,m,n]%%%%<<--
pstMarkAngle[fillstyle=solid,fillcolor=green]{n}{m}{a}{}
pstMarkAngle[fillstyle=solid,fillcolor=blue]{a}{n}{m}{}
pspolygon[linecolor=red](a)(m)(n)
pstMiddleAB{a}{n}{I1}
pstRotation[RotAngle=#1]{I1}{a,m,n}[a1,m1,n1]%%%%<<--
pstSegmentMark[SegmentSymbol=pstslash]{a1}{m1}
pstSegmentMark[SegmentSymbol=MarkHashhh]{n1}{m1}
pstMarkAngle[fillstyle=solid,fillcolor=green]{n1}{m1}{a1}{}
%pstMarkAngle[fillstyle=solid,fillcolor=blue]{a}{n}{m}{}
pspolygon[linecolor=red](a1)(m1)(n1)}
defthird#1{
pnodes(3,3){A}(1,-1){B}(7,-1){C}
psset{PointSymbol=none,PointName=none}
pstMiddleAB[PosAngle=135]{A}{B}{M}
pstMiddleAB{A}{C}{N}
pstMiddleAB{M}{N}{I}
pstRotation[RotAngle=-180]{I}{A,M,N}[a,m,n]%%%%<<--
pstMarkAngle[fillstyle=solid,fillcolor=green]{n}{m}{a}{}
pstMarkAngle[fillstyle=solid,fillcolor=blue]{a}{n}{m}{}
pspolygon[linecolor=red](a)(m)(n)
pstMiddleAB{a}{m}{I2}
pstRotation[RotAngle=#1]{I2}{a,m,n}[a2,m2,n2]%%%%<<--
pstSegmentMark[SegmentSymbol=MarkHashh]{a2}{m2}
pstSegmentMark[SegmentSymbol=MarkHashhh]{n2}{m2}
pstMarkAngle[fillstyle=solid,fillcolor=blue]{a2}{n2}{m2}{}
pspolygon[linecolor=red](a2)(m2)(n2)}
begin{document}
foreach i in {0,-10,...,-180}{%
begin{pspicture}[showgrid](0,-3)(8,4)
first{i}
end{pspicture}}
foreach i in {0,-10,...,-180}{%
begin{pspicture}[showgrid](0,-3)(8,4)
first{0}
second{i}
end{pspicture}}
foreach i in {0,-10,...,-180}{%
begin{pspicture}[showgrid](0,-3)(8,4)
first{0}
second{-180}
third{i}
end{pspicture}}
end{document}
answered 1 hour ago
The Inventor of GodThe Inventor of God
4,86611142
The above code has many redundancies that we can refactor but I left it as it is right now.
– The Inventor of God
1 hour ago
Yes, both answers are wonderful. So I won't accept anything.. chuckle . Thank for your answer. :-)
– chishimutoji
42 mins ago
@chishimutoji: Your next job is to comparefirst,second, andthirdand refactor them to remove the unnecessary redundancies. DRY = Don't Repeat Yourself because redundancies don't reflect perfectionism. :-)
– The Inventor of God
9 mins ago
add a comment |
2
documentclass[pstricks,border=12pt,12pt]{standalone}
usepackage{pstricks-add,pst-eucl}%
deffirst#1{%
pnodes(3,3){A}(1,-1){B}(7,-1){C}
psset{PointSymbol=none,PointName=none}
pstMiddleAB[PosAngle=135]{A}{B}{M}
pstMiddleAB{A}{C}{N}
pstMiddleAB{M}{N}{I}
pstSegmentMark[SegmentSymbol=pstslash]{A}{M}
pstSegmentMark[SegmentSymbol=MarkHash]{A}{N}
pstSegmentMark[SegmentSymbol=MarkHashh]{M}{N}
pstMarkAngle[fillstyle=solid,fillcolor=green]{N}{M}{A}{}
pstMarkAngle[fillstyle=solid,fillcolor=blue]{A}{N}{M}{}
pspolygon(A)(M)(N)
pstRotation[RotAngle=#1]{I}{A,M,N}[a,m,n]%%%%<<--
pstMarkAngle[fillstyle=solid,fillcolor=green]{n}{m}{a}{}
pstMarkAngle[fillstyle=solid,fillcolor=blue]{a}{n}{m}{}
pspolygon[linecolor=red](a)(m)(n)}
defsecond#1{%
pnodes(3,3){A}(1,-1){B}(7,-1){C}
psset{PointSymbol=none,PointName=none}
pstMiddleAB[PosAngle=135]{A}{B}{M}
pstMiddleAB{A}{C}{N}
pstMiddleAB{M}{N}{I}
pstRotation[RotAngle=-180]{I}{A,M,N}[a,m,n]%%%%<<--
pstMarkAngle[fillstyle=solid,fillcolor=green]{n}{m}{a}{}
pstMarkAngle[fillstyle=solid,fillcolor=blue]{a}{n}{m}{}
pspolygon[linecolor=red](a)(m)(n)
pstMiddleAB{a}{n}{I1}
pstRotation[RotAngle=#1]{I1}{a,m,n}[a1,m1,n1]%%%%<<--
pstSegmentMark[SegmentSymbol=pstslash]{a1}{m1}
pstSegmentMark[SegmentSymbol=MarkHashhh]{n1}{m1}
pstMarkAngle[fillstyle=solid,fillcolor=green]{n1}{m1}{a1}{}
%pstMarkAngle[fillstyle=solid,fillcolor=blue]{a}{n}{m}{}
pspolygon[linecolor=red](a1)(m1)(n1)}
defthird#1{
pnodes(3,3){A}(1,-1){B}(7,-1){C}
psset{PointSymbol=none,PointName=none}
pstMiddleAB[PosAngle=135]{A}{B}{M}
pstMiddleAB{A}{C}{N}
pstMiddleAB{M}{N}{I}
pstRotation[RotAngle=-180]{I}{A,M,N}[a,m,n]%%%%<<--
pstMarkAngle[fillstyle=solid,fillcolor=green]{n}{m}{a}{}
pstMarkAngle[fillstyle=solid,fillcolor=blue]{a}{n}{m}{}
pspolygon[linecolor=red](a)(m)(n)
pstMiddleAB{a}{m}{I2}
pstRotation[RotAngle=#1]{I2}{a,m,n}[a2,m2,n2]%%%%<<--
pstSegmentMark[SegmentSymbol=MarkHashh]{a2}{m2}
pstSegmentMark[SegmentSymbol=MarkHashhh]{n2}{m2}
pstMarkAngle[fillstyle=solid,fillcolor=blue]{a2}{n2}{m2}{}
pspolygon[linecolor=red](a2)(m2)(n2)}
begin{document}
foreach i in {0,-10,...,-180}{%
begin{pspicture}[showgrid](0,-3)(8,4)
first{i}
end{pspicture}}
foreach i in {0,-10,...,-180}{%
begin{pspicture}[showgrid](0,-3)(8,4)
first{0}
second{i}
end{pspicture}}
foreach i in {0,-10,...,-180}{%
begin{pspicture}[showgrid](0,-3)(8,4)
first{0}
second{-180}
third{i}
end{pspicture}}
end{document}
answered 1 hour ago
The Inventor of GodThe Inventor of God
4,86611142
The above code has many redundancies that we can refactor but I left it as it is right now.
– The Inventor of God
1 hour ago
Yes, both answers are wonderful. So I won't accept anything.. chuckle . Thank for your answer. :-)
– chishimutoji
42 mins ago
@chishimutoji: Your next job is to comparefirst,second, andthirdand refactor them to remove the unnecessary redundancies. DRY = Don't Repeat Yourself because redundancies don't reflect perfectionism. :-)
– The Inventor of God
9 mins ago
add a comment |
2
2
2
documentclass[pstricks,border=12pt,12pt]{standalone}
usepackage{pstricks-add,pst-eucl}%
deffirst#1{%
pnodes(3,3){A}(1,-1){B}(7,-1){C}
psset{PointSymbol=none,PointName=none}
pstMiddleAB[PosAngle=135]{A}{B}{M}
pstMiddleAB{A}{C}{N}
pstMiddleAB{M}{N}{I}
pstSegmentMark[SegmentSymbol=pstslash]{A}{M}
pstSegmentMark[SegmentSymbol=MarkHash]{A}{N}
pstSegmentMark[SegmentSymbol=MarkHashh]{M}{N}
pstMarkAngle[fillstyle=solid,fillcolor=green]{N}{M}{A}{}
pstMarkAngle[fillstyle=solid,fillcolor=blue]{A}{N}{M}{}
pspolygon(A)(M)(N)
pstRotation[RotAngle=#1]{I}{A,M,N}[a,m,n]%%%%<<--
pstMarkAngle[fillstyle=solid,fillcolor=green]{n}{m}{a}{}
pstMarkAngle[fillstyle=solid,fillcolor=blue]{a}{n}{m}{}
pspolygon[linecolor=red](a)(m)(n)}
defsecond#1{%
pnodes(3,3){A}(1,-1){B}(7,-1){C}
psset{PointSymbol=none,PointName=none}
pstMiddleAB[PosAngle=135]{A}{B}{M}
pstMiddleAB{A}{C}{N}
pstMiddleAB{M}{N}{I}
pstRotation[RotAngle=-180]{I}{A,M,N}[a,m,n]%%%%<<--
pstMarkAngle[fillstyle=solid,fillcolor=green]{n}{m}{a}{}
pstMarkAngle[fillstyle=solid,fillcolor=blue]{a}{n}{m}{}
pspolygon[linecolor=red](a)(m)(n)
pstMiddleAB{a}{n}{I1}
pstRotation[RotAngle=#1]{I1}{a,m,n}[a1,m1,n1]%%%%<<--
pstSegmentMark[SegmentSymbol=pstslash]{a1}{m1}
pstSegmentMark[SegmentSymbol=MarkHashhh]{n1}{m1}
pstMarkAngle[fillstyle=solid,fillcolor=green]{n1}{m1}{a1}{}
%pstMarkAngle[fillstyle=solid,fillcolor=blue]{a}{n}{m}{}
pspolygon[linecolor=red](a1)(m1)(n1)}
defthird#1{
pnodes(3,3){A}(1,-1){B}(7,-1){C}
psset{PointSymbol=none,PointName=none}
pstMiddleAB[PosAngle=135]{A}{B}{M}
pstMiddleAB{A}{C}{N}
pstMiddleAB{M}{N}{I}
pstRotation[RotAngle=-180]{I}{A,M,N}[a,m,n]%%%%<<--
pstMarkAngle[fillstyle=solid,fillcolor=green]{n}{m}{a}{}
pstMarkAngle[fillstyle=solid,fillcolor=blue]{a}{n}{m}{}
pspolygon[linecolor=red](a)(m)(n)
pstMiddleAB{a}{m}{I2}
pstRotation[RotAngle=#1]{I2}{a,m,n}[a2,m2,n2]%%%%<<--
pstSegmentMark[SegmentSymbol=MarkHashh]{a2}{m2}
pstSegmentMark[SegmentSymbol=MarkHashhh]{n2}{m2}
pstMarkAngle[fillstyle=solid,fillcolor=blue]{a2}{n2}{m2}{}
pspolygon[linecolor=red](a2)(m2)(n2)}
begin{document}
foreach i in {0,-10,...,-180}{%
begin{pspicture}[showgrid](0,-3)(8,4)
first{i}
end{pspicture}}
foreach i in {0,-10,...,-180}{%
begin{pspicture}[showgrid](0,-3)(8,4)
first{0}
second{i}
end{pspicture}}
foreach i in {0,-10,...,-180}{%
begin{pspicture}[showgrid](0,-3)(8,4)
first{0}
second{-180}
third{i}
end{pspicture}}
end{document}
answered 1 hour ago
The Inventor of GodThe Inventor of God
4,86611142
documentclass[pstricks,border=12pt,12pt]{standalone}
usepackage{pstricks-add,pst-eucl}%
deffirst#1{%
pnodes(3,3){A}(1,-1){B}(7,-1){C}
psset{PointSymbol=none,PointName=none}
pstMiddleAB[PosAngle=135]{A}{B}{M}
pstMiddleAB{A}{C}{N}
pstMiddleAB{M}{N}{I}
pstSegmentMark[SegmentSymbol=pstslash]{A}{M}
pstSegmentMark[SegmentSymbol=MarkHash]{A}{N}
pstSegmentMark[SegmentSymbol=MarkHashh]{M}{N}
pstMarkAngle[fillstyle=solid,fillcolor=green]{N}{M}{A}{}
pstMarkAngle[fillstyle=solid,fillcolor=blue]{A}{N}{M}{}
pspolygon(A)(M)(N)
pstRotation[RotAngle=#1]{I}{A,M,N}[a,m,n]%%%%<<--
pstMarkAngle[fillstyle=solid,fillcolor=green]{n}{m}{a}{}
pstMarkAngle[fillstyle=solid,fillcolor=blue]{a}{n}{m}{}
pspolygon[linecolor=red](a)(m)(n)}
defsecond#1{%
pnodes(3,3){A}(1,-1){B}(7,-1){C}
psset{PointSymbol=none,PointName=none}
pstMiddleAB[PosAngle=135]{A}{B}{M}
pstMiddleAB{A}{C}{N}
pstMiddleAB{M}{N}{I}
pstRotation[RotAngle=-180]{I}{A,M,N}[a,m,n]%%%%<<--
pstMarkAngle[fillstyle=solid,fillcolor=green]{n}{m}{a}{}
pstMarkAngle[fillstyle=solid,fillcolor=blue]{a}{n}{m}{}
pspolygon[linecolor=red](a)(m)(n)
pstMiddleAB{a}{n}{I1}
pstRotation[RotAngle=#1]{I1}{a,m,n}[a1,m1,n1]%%%%<<--
pstSegmentMark[SegmentSymbol=pstslash]{a1}{m1}
pstSegmentMark[SegmentSymbol=MarkHashhh]{n1}{m1}
pstMarkAngle[fillstyle=solid,fillcolor=green]{n1}{m1}{a1}{}
%pstMarkAngle[fillstyle=solid,fillcolor=blue]{a}{n}{m}{}
pspolygon[linecolor=red](a1)(m1)(n1)}
defthird#1{
pnodes(3,3){A}(1,-1){B}(7,-1){C}
psset{PointSymbol=none,PointName=none}
pstMiddleAB[PosAngle=135]{A}{B}{M}
pstMiddleAB{A}{C}{N}
pstMiddleAB{M}{N}{I}
pstRotation[RotAngle=-180]{I}{A,M,N}[a,m,n]%%%%<<--
pstMarkAngle[fillstyle=solid,fillcolor=green]{n}{m}{a}{}
pstMarkAngle[fillstyle=solid,fillcolor=blue]{a}{n}{m}{}
pspolygon[linecolor=red](a)(m)(n)
pstMiddleAB{a}{m}{I2}
pstRotation[RotAngle=#1]{I2}{a,m,n}[a2,m2,n2]%%%%<<--
pstSegmentMark[SegmentSymbol=MarkHashh]{a2}{m2}
pstSegmentMark[SegmentSymbol=MarkHashhh]{n2}{m2}
pstMarkAngle[fillstyle=solid,fillcolor=blue]{a2}{n2}{m2}{}
pspolygon[linecolor=red](a2)(m2)(n2)}
begin{document}
foreach i in {0,-10,...,-180}{%
begin{pspicture}[showgrid](0,-3)(8,4)
first{i}
end{pspicture}}
foreach i in {0,-10,...,-180}{%
begin{pspicture}[showgrid](0,-3)(8,4)
first{0}
second{i}
end{pspicture}}
foreach i in {0,-10,...,-180}{%
begin{pspicture}[showgrid](0,-3)(8,4)
first{0}
second{-180}
third{i}
end{pspicture}}
end{document}
answered 1 hour ago
The Inventor of GodThe Inventor of God
4,86611142
edited 19 mins ago
answered 1 hour ago
The Inventor of GodThe Inventor of God
4,86611142
answered 1 hour ago
The Inventor of GodThe Inventor of God
4,86611142
answered 1 hour ago
The Inventor of GodThe Inventor of God
4,86611142
4,86611142
The above code has many redundancies that we can refactor but I left it as it is right now.
– The Inventor of God
1 hour ago
Yes, both answers are wonderful. So I won't accept anything.. chuckle . Thank for your answer. :-)
– chishimutoji
42 mins ago
@chishimutoji: Your next job is to comparefirst,second, andthirdand refactor them to remove the unnecessary redundancies. DRY = Don't Repeat Yourself because redundancies don't reflect perfectionism. :-)
– The Inventor of God
9 mins ago
add a comment |
The above code has many redundancies that we can refactor but I left it as it is right now.
– The Inventor of God
1 hour ago
Yes, both answers are wonderful. So I won't accept anything.. chuckle . Thank for your answer. :-)
– chishimutoji
42 mins ago
@chishimutoji: Your next job is to comparefirst,second, andthirdand refactor them to remove the unnecessary redundancies. DRY = Don't Repeat Yourself because redundancies don't reflect perfectionism. :-)
– The Inventor of God
9 mins ago
The above code has many redundancies that we can refactor but I left it as it is right now.
– The Inventor of God
1 hour ago
The above code has many redundancies that we can refactor but I left it as it is right now.
– The Inventor of God
1 hour ago
Yes, both answers are wonderful. So I won't accept anything.. chuckle . Thank for your answer. :-)
– chishimutoji
42 mins ago
Yes, both answers are wonderful. So I won't accept anything.. chuckle . Thank for your answer. :-)
– chishimutoji
42 mins ago
@chishimutoji: Your next job is to compare
first, second, and third and refactor them to remove the unnecessary redundancies. DRY = Don't Repeat Yourself because redundancies don't reflect perfectionism. :-)– The Inventor of God
9 mins ago
@chishimutoji: Your next job is to compare
first, second, and third and refactor them to remove the unnecessary redundancies. DRY = Don't Repeat Yourself because redundancies don't reflect perfectionism. :-)– The Inventor of God
9 mins ago
add a comment |
draft saved
draft discarded
Thanks for contributing an answer to TeX - LaTeX Stack Exchange!
- Please be sure to answer the question. Provide details and share your research!
But avoid …
- Asking for help, clarification, or responding to other answers.
- Making statements based on opinion; back them up with references or personal experience.
To learn more, see our tips on writing great answers.
draft saved
draft discarded
Sign up or log in
StackExchange.ready(function () {
StackExchange.helpers.onClickDraftSave('#login-link');
});
Sign up using Google
Sign up using Facebook
Sign up using Email and Password
Post as a guest
Required, but never shown
StackExchange.ready(
function () {
StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2ftex.stackexchange.com%2fquestions%2f479751%2fhow-to-combine-three-animations-as-the-following-example%23new-answer', 'question_page');
}
);
Post as a guest
Required, but never shown
Sign up or log in
StackExchange.ready(function () {
StackExchange.helpers.onClickDraftSave('#login-link');
});
Sign up using Google
Sign up using Facebook
Sign up using Email and Password
Post as a guest
Required, but never shown
Sign up or log in
StackExchange.ready(function () {
StackExchange.helpers.onClickDraftSave('#login-link');
});
Sign up using Google
Sign up using Facebook
Sign up using Email and Password
Post as a guest
Required, but never shown
Sign up or log in
StackExchange.ready(function () {
StackExchange.helpers.onClickDraftSave('#login-link');
});
Sign up using Google
Sign up using Facebook
Sign up using Email and Password
Sign up using Google
Sign up using Facebook
Sign up using Email and Password
Post as a guest
Required, but never shown
Required, but never shown
Required, but never shown
Required, but never shown
Required, but never shown
Required, but never shown
Required, but never shown
Required, but never shown
Required, but never shown
@TheInventorofGod The left triangle is lost.
– chishimutoji
1 hour ago