How to combine three animations as the following example?
4
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 16 hours ago
Zarko
127k868167
asked 16 hours ago
chishimutojichishimutoji
9781321
add a comment |
4
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 16 hours ago
Zarko
127k868167
asked 16 hours ago
chishimutojichishimutoji
9781321
add a comment |
4
4
4
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 16 hours ago
Zarko
127k868167
asked 16 hours ago
chishimutojichishimutoji
9781321
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 16 hours ago
Zarko
127k868167
asked 16 hours ago
chishimutojichishimutoji
9781321
edited 16 hours ago
Zarko
127k868167
asked 16 hours ago
chishimutojichishimutoji
9781321
edited 16 hours ago
Zarko
127k868167
edited 16 hours ago
Zarko
127k868167
edited 16 hours ago
Zarko
127k868167
127k868167
asked 16 hours ago
chishimutojichishimutoji
9781321
asked 16 hours ago
chishimutojichishimutoji
9781321
asked 16 hours ago
chishimutojichishimutoji
9781321
9781321
add a comment |
add a comment |
2 Answers
2
active
oldest
votes
3
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 15 hours ago
HerbertHerbert
276k25419732
Animation is too slow so it takes much time to see the whole diagram.
– The Inventor of God
15 hours ago
1
go into the kitchen, get a cup of coffee and then relax while viewing the animation ...
– Herbert
15 hours ago
Yes, I see. I will try it.
– chishimutoji
15 hours ago
Now the animation is faster enough so I don't need to drink coffee.
– The Inventor of God
15 hours ago
add a comment |
3
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 16 hours ago
The Inventor of GodThe Inventor of God
4,90611142
The above code has many redundancies that we can refactor but I left it as it is right now.
– The Inventor of God
15 hours ago
Yes, both answers are wonderful. So I won't accept anything.. chuckle . Thank for your answer. :-)
– chishimutoji
15 hours ago
1
@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
14 hours 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
3
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 15 hours ago
HerbertHerbert
276k25419732
Animation is too slow so it takes much time to see the whole diagram.
– The Inventor of God
15 hours ago
1
go into the kitchen, get a cup of coffee and then relax while viewing the animation ...
– Herbert
15 hours ago
Yes, I see. I will try it.
– chishimutoji
15 hours ago
Now the animation is faster enough so I don't need to drink coffee.
– The Inventor of God
15 hours ago
add a comment |
3
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 15 hours ago
HerbertHerbert
276k25419732
Animation is too slow so it takes much time to see the whole diagram.
– The Inventor of God
15 hours ago
1
go into the kitchen, get a cup of coffee and then relax while viewing the animation ...
– Herbert
15 hours ago
Yes, I see. I will try it.
– chishimutoji
15 hours ago
Now the animation is faster enough so I don't need to drink coffee.
– The Inventor of God
15 hours ago
add a comment |
3
3
3
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 15 hours 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 15 hours ago
HerbertHerbert
276k25419732
edited 15 hours ago
answered 15 hours ago
HerbertHerbert
276k25419732
answered 15 hours ago
HerbertHerbert
276k25419732
answered 15 hours ago
HerbertHerbert
276k25419732
276k25419732
Animation is too slow so it takes much time to see the whole diagram.
– The Inventor of God
15 hours ago
1
go into the kitchen, get a cup of coffee and then relax while viewing the animation ...
– Herbert
15 hours ago
Yes, I see. I will try it.
– chishimutoji
15 hours ago
Now the animation is faster enough so I don't need to drink coffee.
– The Inventor of God
15 hours ago
add a comment |
Animation is too slow so it takes much time to see the whole diagram.
– The Inventor of God
15 hours ago
1
go into the kitchen, get a cup of coffee and then relax while viewing the animation ...
– Herbert
15 hours ago
Yes, I see. I will try it.
– chishimutoji
15 hours ago
Now the animation is faster enough so I don't need to drink coffee.
– The Inventor of God
15 hours ago
Animation is too slow so it takes much time to see the whole diagram.
– The Inventor of God
15 hours ago
Animation is too slow so it takes much time to see the whole diagram.
– The Inventor of God
15 hours ago
1
1
go into the kitchen, get a cup of coffee and then relax while viewing the animation ...
– Herbert
15 hours ago
go into the kitchen, get a cup of coffee and then relax while viewing the animation ...
– Herbert
15 hours ago
Yes, I see. I will try it.
– chishimutoji
15 hours ago
Yes, I see. I will try it.
– chishimutoji
15 hours ago
Now the animation is faster enough so I don't need to drink coffee.
– The Inventor of God
15 hours ago
Now the animation is faster enough so I don't need to drink coffee.
– The Inventor of God
15 hours ago
add a comment |
3
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 16 hours ago
The Inventor of GodThe Inventor of God
4,90611142
The above code has many redundancies that we can refactor but I left it as it is right now.
– The Inventor of God
15 hours ago
Yes, both answers are wonderful. So I won't accept anything.. chuckle . Thank for your answer. :-)
– chishimutoji
15 hours ago
1
@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
14 hours ago
add a comment |
3
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 16 hours ago
The Inventor of GodThe Inventor of God
4,90611142
The above code has many redundancies that we can refactor but I left it as it is right now.
– The Inventor of God
15 hours ago
Yes, both answers are wonderful. So I won't accept anything.. chuckle . Thank for your answer. :-)
– chishimutoji
15 hours ago
1
@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
14 hours ago
add a comment |
3
3
3
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 16 hours ago
The Inventor of GodThe Inventor of God
4,90611142
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 16 hours ago
The Inventor of GodThe Inventor of God
4,90611142
edited 14 hours ago
answered 16 hours ago
The Inventor of GodThe Inventor of God
4,90611142
answered 16 hours ago
The Inventor of GodThe Inventor of God
4,90611142
answered 16 hours ago
The Inventor of GodThe Inventor of God
4,90611142
4,90611142
The above code has many redundancies that we can refactor but I left it as it is right now.
– The Inventor of God
15 hours ago
Yes, both answers are wonderful. So I won't accept anything.. chuckle . Thank for your answer. :-)
– chishimutoji
15 hours ago
1
@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
14 hours 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
15 hours ago
Yes, both answers are wonderful. So I won't accept anything.. chuckle . Thank for your answer. :-)
– chishimutoji
15 hours ago
1
@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
14 hours ago
The above code has many redundancies that we can refactor but I left it as it is right now.
– The Inventor of God
15 hours ago
The above code has many redundancies that we can refactor but I left it as it is right now.
– The Inventor of God
15 hours ago
Yes, both answers are wonderful. So I won't accept anything.. chuckle . Thank for your answer. :-)
– chishimutoji
15 hours ago
Yes, both answers are wonderful. So I won't accept anything.. chuckle . Thank for your answer. :-)
– chishimutoji
15 hours ago
1
1
@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
14 hours 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
14 hours 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
