How to combine three animations as the following example?
5
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.
Finally,
documentclass[pstricks,border=15pt]{standalone}
usepackage{pstricks-add,pst-eucl}%
begin{document}
%%
deffigone{%
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=MarkHashh]{A}{N}
pstSegmentMark[SegmentSymbol=MarkHashhh]{M}{N}
psset{fillstyle=solid}
pstMarkAngle[fillcolor=green]{N}{M}{A}{}
pstMarkAngle[fillcolor=blue]{A}{N}{M}{}
pspolygon[fillcolor=green,opacity=.3](A)(M)(N)}%
deffigonee#1{%
pstRotation[RotAngle=#1]{I}{A,M,N}[a,m,n]
psset{fillstyle=solid}
pstMarkAngle[fillcolor=green]{n}{m}{a}{}
pstMarkAngle[fillcolor=blue]{a}{n}{m}{}
pspolygon[linecolor=red,fillcolor=green,opacity=.3](a)(m)(n)}%
deffigtwo#1{%
pstMiddleAB{a}{n}{I1}
pstRotation[RotAngle=#1]{I1}{a,m,n}[a1,m1,n1]
pstSegmentMark[SegmentSymbol=pstslash]{a1}{m1}
pstSegmentMark[SegmentSymbol=MarkHashhh]{n1}{m1}
psset{fillstyle=solid}
pstMarkAngle[fillcolor=green]{n1}{m1}{a1}{}
pspolygon[linecolor=red,fillcolor=green,opacity=.3](a1)(m1)(n1)}%
%%
multido{i=0+-3}{61}{%
begin{pspicture}[showgrid](0,-3)(8,4)
figone
figonee{i}
end{pspicture}%
}
multido{i=0+3}{61}{%
begin{pspicture}[showgrid](0,-3)(8,4)
figone
figonee{-180}
figtwo{i}
end{pspicture}%
}
multido{i=0+-3}{61}{%
begin{pspicture}[showgrid](0,-3)(8,4)
figone
figonee{-180}
figtwo{180}
pstMiddleAB{a}{m}{I2}
pstRotation[RotAngle=i]{I2}{a,m,n}[a2,m2,n2]
pstSegmentMark[SegmentSymbol=MarkHashh]{a2}{n2}
pstSegmentMark[SegmentSymbol=MarkHashhh]{n2}{m2}
psset{fillstyle=solid}
pstMarkAngle[fillcolor=blue]{a2}{n2}{m2}{}
pspolygon[linecolor=red,fillcolor=green,opacity=.3](a2)(m2)(n2)
end{pspicture}%
}
end{document}
pstricks
asked yesterday
chishimutojichishimutoji
9831321
add a comment |
5
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.
Finally,
documentclass[pstricks,border=15pt]{standalone}
usepackage{pstricks-add,pst-eucl}%
begin{document}
%%
deffigone{%
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=MarkHashh]{A}{N}
pstSegmentMark[SegmentSymbol=MarkHashhh]{M}{N}
psset{fillstyle=solid}
pstMarkAngle[fillcolor=green]{N}{M}{A}{}
pstMarkAngle[fillcolor=blue]{A}{N}{M}{}
pspolygon[fillcolor=green,opacity=.3](A)(M)(N)}%
deffigonee#1{%
pstRotation[RotAngle=#1]{I}{A,M,N}[a,m,n]
psset{fillstyle=solid}
pstMarkAngle[fillcolor=green]{n}{m}{a}{}
pstMarkAngle[fillcolor=blue]{a}{n}{m}{}
pspolygon[linecolor=red,fillcolor=green,opacity=.3](a)(m)(n)}%
deffigtwo#1{%
pstMiddleAB{a}{n}{I1}
pstRotation[RotAngle=#1]{I1}{a,m,n}[a1,m1,n1]
pstSegmentMark[SegmentSymbol=pstslash]{a1}{m1}
pstSegmentMark[SegmentSymbol=MarkHashhh]{n1}{m1}
psset{fillstyle=solid}
pstMarkAngle[fillcolor=green]{n1}{m1}{a1}{}
pspolygon[linecolor=red,fillcolor=green,opacity=.3](a1)(m1)(n1)}%
%%
multido{i=0+-3}{61}{%
begin{pspicture}[showgrid](0,-3)(8,4)
figone
figonee{i}
end{pspicture}%
}
multido{i=0+3}{61}{%
begin{pspicture}[showgrid](0,-3)(8,4)
figone
figonee{-180}
figtwo{i}
end{pspicture}%
}
multido{i=0+-3}{61}{%
begin{pspicture}[showgrid](0,-3)(8,4)
figone
figonee{-180}
figtwo{180}
pstMiddleAB{a}{m}{I2}
pstRotation[RotAngle=i]{I2}{a,m,n}[a2,m2,n2]
pstSegmentMark[SegmentSymbol=MarkHashh]{a2}{n2}
pstSegmentMark[SegmentSymbol=MarkHashhh]{n2}{m2}
psset{fillstyle=solid}
pstMarkAngle[fillcolor=blue]{a2}{n2}{m2}{}
pspolygon[linecolor=red,fillcolor=green,opacity=.3](a2)(m2)(n2)
end{pspicture}%
}
end{document}
pstricks
asked yesterday
chishimutojichishimutoji
9831321
you should mark the current rotation point (fix point)
– Herbert
12 hours ago
@Herbert I do not understand what you say, I don't see problem as the given video. Can you give me a sample? ...
– chishimutoji
12 hours ago
only for your first rotation the rotation point is marked by ///. The // is missing for the following triangles, or least a dot.
– Herbert
11 hours ago
@Herbert Done, I think so ...
– chishimutoji
9 hours ago
yes, looks good now
– Herbert
9 hours ago
add a comment |
5
5
5
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.
Finally,
documentclass[pstricks,border=15pt]{standalone}
usepackage{pstricks-add,pst-eucl}%
begin{document}
%%
deffigone{%
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=MarkHashh]{A}{N}
pstSegmentMark[SegmentSymbol=MarkHashhh]{M}{N}
psset{fillstyle=solid}
pstMarkAngle[fillcolor=green]{N}{M}{A}{}
pstMarkAngle[fillcolor=blue]{A}{N}{M}{}
pspolygon[fillcolor=green,opacity=.3](A)(M)(N)}%
deffigonee#1{%
pstRotation[RotAngle=#1]{I}{A,M,N}[a,m,n]
psset{fillstyle=solid}
pstMarkAngle[fillcolor=green]{n}{m}{a}{}
pstMarkAngle[fillcolor=blue]{a}{n}{m}{}
pspolygon[linecolor=red,fillcolor=green,opacity=.3](a)(m)(n)}%
deffigtwo#1{%
pstMiddleAB{a}{n}{I1}
pstRotation[RotAngle=#1]{I1}{a,m,n}[a1,m1,n1]
pstSegmentMark[SegmentSymbol=pstslash]{a1}{m1}
pstSegmentMark[SegmentSymbol=MarkHashhh]{n1}{m1}
psset{fillstyle=solid}
pstMarkAngle[fillcolor=green]{n1}{m1}{a1}{}
pspolygon[linecolor=red,fillcolor=green,opacity=.3](a1)(m1)(n1)}%
%%
multido{i=0+-3}{61}{%
begin{pspicture}[showgrid](0,-3)(8,4)
figone
figonee{i}
end{pspicture}%
}
multido{i=0+3}{61}{%
begin{pspicture}[showgrid](0,-3)(8,4)
figone
figonee{-180}
figtwo{i}
end{pspicture}%
}
multido{i=0+-3}{61}{%
begin{pspicture}[showgrid](0,-3)(8,4)
figone
figonee{-180}
figtwo{180}
pstMiddleAB{a}{m}{I2}
pstRotation[RotAngle=i]{I2}{a,m,n}[a2,m2,n2]
pstSegmentMark[SegmentSymbol=MarkHashh]{a2}{n2}
pstSegmentMark[SegmentSymbol=MarkHashhh]{n2}{m2}
psset{fillstyle=solid}
pstMarkAngle[fillcolor=blue]{a2}{n2}{m2}{}
pspolygon[linecolor=red,fillcolor=green,opacity=.3](a2)(m2)(n2)
end{pspicture}%
}
end{document}
pstricks
asked yesterday
chishimutojichishimutoji
9831321
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.
Finally,
documentclass[pstricks,border=15pt]{standalone}
usepackage{pstricks-add,pst-eucl}%
begin{document}
%%
deffigone{%
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=MarkHashh]{A}{N}
pstSegmentMark[SegmentSymbol=MarkHashhh]{M}{N}
psset{fillstyle=solid}
pstMarkAngle[fillcolor=green]{N}{M}{A}{}
pstMarkAngle[fillcolor=blue]{A}{N}{M}{}
pspolygon[fillcolor=green,opacity=.3](A)(M)(N)}%
deffigonee#1{%
pstRotation[RotAngle=#1]{I}{A,M,N}[a,m,n]
psset{fillstyle=solid}
pstMarkAngle[fillcolor=green]{n}{m}{a}{}
pstMarkAngle[fillcolor=blue]{a}{n}{m}{}
pspolygon[linecolor=red,fillcolor=green,opacity=.3](a)(m)(n)}%
deffigtwo#1{%
pstMiddleAB{a}{n}{I1}
pstRotation[RotAngle=#1]{I1}{a,m,n}[a1,m1,n1]
pstSegmentMark[SegmentSymbol=pstslash]{a1}{m1}
pstSegmentMark[SegmentSymbol=MarkHashhh]{n1}{m1}
psset{fillstyle=solid}
pstMarkAngle[fillcolor=green]{n1}{m1}{a1}{}
pspolygon[linecolor=red,fillcolor=green,opacity=.3](a1)(m1)(n1)}%
%%
multido{i=0+-3}{61}{%
begin{pspicture}[showgrid](0,-3)(8,4)
figone
figonee{i}
end{pspicture}%
}
multido{i=0+3}{61}{%
begin{pspicture}[showgrid](0,-3)(8,4)
figone
figonee{-180}
figtwo{i}
end{pspicture}%
}
multido{i=0+-3}{61}{%
begin{pspicture}[showgrid](0,-3)(8,4)
figone
figonee{-180}
figtwo{180}
pstMiddleAB{a}{m}{I2}
pstRotation[RotAngle=i]{I2}{a,m,n}[a2,m2,n2]
pstSegmentMark[SegmentSymbol=MarkHashh]{a2}{n2}
pstSegmentMark[SegmentSymbol=MarkHashhh]{n2}{m2}
psset{fillstyle=solid}
pstMarkAngle[fillcolor=blue]{a2}{n2}{m2}{}
pspolygon[linecolor=red,fillcolor=green,opacity=.3](a2)(m2)(n2)
end{pspicture}%
}
end{document}
pstricks
pstricks
asked yesterday
chishimutojichishimutoji
9831321
asked yesterday
chishimutojichishimutoji
9831321
edited 9 hours ago
chishimutoji
asked yesterday
chishimutojichishimutoji
9831321
asked yesterday
chishimutojichishimutoji
9831321
asked yesterday
chishimutojichishimutoji
9831321
9831321
you should mark the current rotation point (fix point)
– Herbert
12 hours ago
@Herbert I do not understand what you say, I don't see problem as the given video. Can you give me a sample? ...
– chishimutoji
12 hours ago
only for your first rotation the rotation point is marked by ///. The // is missing for the following triangles, or least a dot.
– Herbert
11 hours ago
@Herbert Done, I think so ...
– chishimutoji
9 hours ago
yes, looks good now
– Herbert
9 hours ago
add a comment |
you should mark the current rotation point (fix point)
– Herbert
12 hours ago
@Herbert I do not understand what you say, I don't see problem as the given video. Can you give me a sample? ...
– chishimutoji
12 hours ago
only for your first rotation the rotation point is marked by ///. The // is missing for the following triangles, or least a dot.
– Herbert
11 hours ago
@Herbert Done, I think so ...
– chishimutoji
9 hours ago
yes, looks good now
– Herbert
9 hours ago
you should mark the current rotation point (fix point)
– Herbert
12 hours ago
you should mark the current rotation point (fix point)
– Herbert
12 hours ago
@Herbert I do not understand what you say, I don't see problem as the given video. Can you give me a sample? ...
– chishimutoji
12 hours ago
@Herbert I do not understand what you say, I don't see problem as the given video. Can you give me a sample? ...
– chishimutoji
12 hours ago
only for your first rotation the rotation point is marked by ///. The // is missing for the following triangles, or least a dot.
– Herbert
11 hours ago
only for your first rotation the rotation point is marked by ///. The // is missing for the following triangles, or least a dot.
– Herbert
11 hours ago
@Herbert Done, I think so ...
– chishimutoji
9 hours ago
@Herbert Done, I think so ...
– chishimutoji
9 hours ago
yes, looks good now
– Herbert
9 hours ago
yes, looks good now
– Herbert
9 hours ago
add a comment |
2 Answers
2
active
oldest
votes
4
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 yesterday
HerbertHerbert
276k25419732
Animation is too slow so it takes much time to see the whole diagram.
– The Inventor of God
yesterday
1
go into the kitchen, get a cup of coffee and then relax while viewing the animation ...
– Herbert
yesterday
Yes, I see. I will try it.
– chishimutoji
yesterday
Now the animation is faster enough so I don't need to drink coffee.
– The Inventor of God
yesterday
add a comment |
4
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 yesterday
The Inventor of GodThe Inventor of God
4,91611142
The above code has many redundancies that we can refactor but I left it as it is right now.
– The Inventor of God
yesterday
Yes, both answers are wonderful. So I won't accept anything.. chuckle . Thank for your answer. :-)
– chishimutoji
yesterday
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
yesterday
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
4
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 yesterday
HerbertHerbert
276k25419732
Animation is too slow so it takes much time to see the whole diagram.
– The Inventor of God
yesterday
1
go into the kitchen, get a cup of coffee and then relax while viewing the animation ...
– Herbert
yesterday
Yes, I see. I will try it.
– chishimutoji
yesterday
Now the animation is faster enough so I don't need to drink coffee.
– The Inventor of God
yesterday
add a comment |
4
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 yesterday
HerbertHerbert
276k25419732
Animation is too slow so it takes much time to see the whole diagram.
– The Inventor of God
yesterday
1
go into the kitchen, get a cup of coffee and then relax while viewing the animation ...
– Herbert
yesterday
Yes, I see. I will try it.
– chishimutoji
yesterday
Now the animation is faster enough so I don't need to drink coffee.
– The Inventor of God
yesterday
add a comment |
4
4
4
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 yesterday
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 yesterday
HerbertHerbert
276k25419732
edited yesterday
answered yesterday
HerbertHerbert
276k25419732
answered yesterday
HerbertHerbert
276k25419732
answered yesterday
HerbertHerbert
276k25419732
276k25419732
Animation is too slow so it takes much time to see the whole diagram.
– The Inventor of God
yesterday
1
go into the kitchen, get a cup of coffee and then relax while viewing the animation ...
– Herbert
yesterday
Yes, I see. I will try it.
– chishimutoji
yesterday
Now the animation is faster enough so I don't need to drink coffee.
– The Inventor of God
yesterday
add a comment |
Animation is too slow so it takes much time to see the whole diagram.
– The Inventor of God
yesterday
1
go into the kitchen, get a cup of coffee and then relax while viewing the animation ...
– Herbert
yesterday
Yes, I see. I will try it.
– chishimutoji
yesterday
Now the animation is faster enough so I don't need to drink coffee.
– The Inventor of God
yesterday
Animation is too slow so it takes much time to see the whole diagram.
– The Inventor of God
yesterday
Animation is too slow so it takes much time to see the whole diagram.
– The Inventor of God
yesterday
1
1
go into the kitchen, get a cup of coffee and then relax while viewing the animation ...
– Herbert
yesterday
go into the kitchen, get a cup of coffee and then relax while viewing the animation ...
– Herbert
yesterday
Yes, I see. I will try it.
– chishimutoji
yesterday
Yes, I see. I will try it.
– chishimutoji
yesterday
Now the animation is faster enough so I don't need to drink coffee.
– The Inventor of God
yesterday
Now the animation is faster enough so I don't need to drink coffee.
– The Inventor of God
yesterday
add a comment |
4
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 yesterday
The Inventor of GodThe Inventor of God
4,91611142
The above code has many redundancies that we can refactor but I left it as it is right now.
– The Inventor of God
yesterday
Yes, both answers are wonderful. So I won't accept anything.. chuckle . Thank for your answer. :-)
– chishimutoji
yesterday
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
yesterday
add a comment |
4
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 yesterday
The Inventor of GodThe Inventor of God
4,91611142
The above code has many redundancies that we can refactor but I left it as it is right now.
– The Inventor of God
yesterday
Yes, both answers are wonderful. So I won't accept anything.. chuckle . Thank for your answer. :-)
– chishimutoji
yesterday
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
yesterday
add a comment |
4
4
4
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 yesterday
The Inventor of GodThe Inventor of God
4,91611142
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 yesterday
The Inventor of GodThe Inventor of God
4,91611142
edited yesterday
answered yesterday
The Inventor of GodThe Inventor of God
4,91611142
answered yesterday
The Inventor of GodThe Inventor of God
4,91611142
answered yesterday
The Inventor of GodThe Inventor of God
4,91611142
4,91611142
The above code has many redundancies that we can refactor but I left it as it is right now.
– The Inventor of God
yesterday
Yes, both answers are wonderful. So I won't accept anything.. chuckle . Thank for your answer. :-)
– chishimutoji
yesterday
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
yesterday
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
yesterday
Yes, both answers are wonderful. So I won't accept anything.. chuckle . Thank for your answer. :-)
– chishimutoji
yesterday
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
yesterday
The above code has many redundancies that we can refactor but I left it as it is right now.
– The Inventor of God
yesterday
The above code has many redundancies that we can refactor but I left it as it is right now.
– The Inventor of God
yesterday
Yes, both answers are wonderful. So I won't accept anything.. chuckle . Thank for your answer. :-)
– chishimutoji
yesterday
Yes, both answers are wonderful. So I won't accept anything.. chuckle . Thank for your answer. :-)
– chishimutoji
yesterday
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
yesterday
@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
yesterday
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
you should mark the current rotation point (fix point)
– Herbert
12 hours ago
@Herbert I do not understand what you say, I don't see problem as the given video. Can you give me a sample? ...
– chishimutoji
12 hours ago
only for your first rotation the rotation point is marked by ///. The // is missing for the following triangles, or least a dot.
– Herbert
11 hours ago
@Herbert Done, I think so ...
– chishimutoji
9 hours ago
yes, looks good now
– Herbert
9 hours ago