How to combine three animations as the following example?How to make the following recursive macro work?How to combine and simplify the following PostScript operators?TikZ - How to draw the followingHow does one draw the following graph?LaTeX Trellis Diagrams for STBCsHow to recreate the following diagram?How to draw closed path if used the following code:How to combine two animations with a single loop?How to use eofill in the following case?How to use linestyle=dashed in the following case?
Could solar power be utilized and substitute coal in the 19th Century
What (else) happened July 1st 1858 in London?
MAXDOP Settings for SQL Server 2014
Remove Expired Scratch Orgs From VSCode
What is this type of notehead called?
Is there a conventional notation or name for the slip angle?
How can Trident be so inexpensive? Will it orbit Triton or just do a (slow) flyby?
Find last 3 digits of this monster number
How do I extrude a face to a single vertex
Drawing ramified coverings with tikz
Proof of Lemma: Every nonzero integer can be written as a product of primes
Indicating multiple different modes of speech (fantasy language or telepathy)
Bob has never been a M before
Why did the EU agree to delay the Brexit deadline?
Is possible to search in vim history?
Is it possible to use .desktop files to open local pdf files on specific pages with a browser?
A Permanent Norse Presence in America
Is it possible to have a strip of cold climate in the middle of a planet?
THT: What is a squared annular “ring”?
Is a model fitted to data or is data fitted to a model?
Do the concepts of IP address and network interface not belong to the same layer?
Journal losing indexing services
Gibbs free energy in standard state vs. equilibrium
Diode in opposite direction?
How to combine three animations as the following example?
How to make the following recursive macro work?How to combine and simplify the following PostScript operators?TikZ - How to draw the followingHow does one draw the following graph?LaTeX Trellis Diagrams for STBCsHow to recreate the following diagram?How to draw closed path if used the following code:How to combine two animations with a single loop?How to use eofill in the following case?How to use linestyle=dashed in the following case?
5
EX1:
documentclass[pstricks,border=15pt]standalone
usepackagepstricks-add,pst-eucl%
begindocument
foreach i in 0,-1,-2,...,-180%
beginpspicture[showgrid](0,-3)(8,4)
pnodes(3,3)A(1,-1)B(7,-1)C
pssetPointSymbol=none,PointName=none
pstMiddleAB[PosAngle=135]ABM
pstMiddleABACN
pstMiddleABMNI
pstSegmentMark[SegmentSymbol=pstslash]AM
pstSegmentMark[SegmentSymbol=MarkHash]AN
pstSegmentMark[SegmentSymbol=MarkHashh]MN
pstMarkAngle[fillstyle=solid,fillcolor=green]NMA
pstMarkAngle[fillstyle=solid,fillcolor=blue]ANM
pspolygon(A)(M)(N)
pstRotation[RotAngle=i]IA,M,N[a,m,n]%%%%<<--
pstMarkAngle[fillstyle=solid,fillcolor=green]nma
pstMarkAngle[fillstyle=solid,fillcolor=blue]anm
pspolygon[linecolor=red](a)(m)(n)
endpspicture
enddocument
EX2:
documentclass[pstricks,border=15pt]standalone
usepackagepstricks-add,pst-eucl%
begindocument
foreach i in 0,1,2,...,180%
beginpspicture[showgrid](0,-3)(8,4)
pnodes(3,3)A(1,-1)B(7,-1)C
pssetPointSymbol=none,PointName=none
pstMiddleAB[PosAngle=135]ABM
pstMiddleABACN
pstMiddleABMNI
pstRotation[RotAngle=-180]IA,M,N[a,m,n]%%%%<<--
pstMarkAngle[fillstyle=solid,fillcolor=green]nma
pstMarkAngle[fillstyle=solid,fillcolor=blue]anm
pspolygon[linecolor=red](a)(m)(n)
pstMiddleABanI1
pstRotation[RotAngle=i]I1a,m,n[a1,m1,n1]%%%%<<--
pstSegmentMark[SegmentSymbol=pstslash]a1m1
pstSegmentMark[SegmentSymbol=MarkHashhh]n1m1
pstMarkAngle[fillstyle=solid,fillcolor=green]n1m1a1
%pstMarkAngle[fillstyle=solid,fillcolor=blue]anm
pspolygon[linecolor=red](a1)(m1)(n1)
endpspicture
enddocument
EX3:
documentclass[pstricks,border=15pt]standalone
usepackagepstricks-add,pst-eucl%
begindocument
foreach i in 0,-1,-2,...,-180%
beginpspicture[showgrid](0,-3)(8,4)
pnodes(3,3)A(1,-1)B(7,-1)C
pssetPointSymbol=none,PointName=none
pstMiddleAB[PosAngle=135]ABM
pstMiddleABACN
pstMiddleABMNI
pstRotation[RotAngle=-180]IA,M,N[a,m,n]%%%%<<--
pstMarkAngle[fillstyle=solid,fillcolor=green]nma
pstMarkAngle[fillstyle=solid,fillcolor=blue]anm
pspolygon[linecolor=red](a)(m)(n)
pstMiddleABamI2
pstRotation[RotAngle=i]I2a,m,n[a2,m2,n2]%%%%<<--
pstSegmentMark[SegmentSymbol=MarkHashh]a2m2
pstSegmentMark[SegmentSymbol=MarkHashhh]n2m2
pstMarkAngle[fillstyle=solid,fillcolor=blue]a2n2m2
pspolygon[linecolor=red](a2)(m2)(n2)
endpspicture
enddocument
Question:
See this video.
Finally,
documentclass[pstricks,border=15pt]standalone
usepackagepstricks-add,pst-eucl%
begindocument
%%
deffigone%
pnodes(3,3)A(1,-1)B(7,-1)C
pssetPointSymbol=none,PointName=none
pstMiddleAB[PosAngle=135]ABM
pstMiddleABACN
pstMiddleABMNI
pstSegmentMark[SegmentSymbol=pstslash]AM
pstSegmentMark[SegmentSymbol=MarkHashh]AN
pstSegmentMark[SegmentSymbol=MarkHashhh]MN
pssetfillstyle=solid
pstMarkAngle[fillcolor=green]NMA
pstMarkAngle[fillcolor=blue]ANM
pspolygon[fillcolor=green,opacity=.3](A)(M)(N)%
deffigonee#1%
pstRotation[RotAngle=#1]IA,M,N[a,m,n]
pssetfillstyle=solid
pstMarkAngle[fillcolor=green]nma
pstMarkAngle[fillcolor=blue]anm
pspolygon[linecolor=red,fillcolor=green,opacity=.3](a)(m)(n)%
deffigtwo#1%
pstMiddleABanI1
pstRotation[RotAngle=#1]I1a,m,n[a1,m1,n1]
pstSegmentMark[SegmentSymbol=pstslash]a1m1
pstSegmentMark[SegmentSymbol=MarkHashhh]n1m1
pssetfillstyle=solid
pstMarkAngle[fillcolor=green]n1m1a1
pspolygon[linecolor=red,fillcolor=green,opacity=.3](a1)(m1)(n1)%
%%
multidoi=0+-361%
beginpspicture[showgrid](0,-3)(8,4)
figone
figoneei
endpspicture%
multidoi=0+361%
beginpspicture[showgrid](0,-3)(8,4)
figone
figonee-180
figtwoi
endpspicture%
multidoi=0+-361%
beginpspicture[showgrid](0,-3)(8,4)
figone
figonee-180
figtwo180
pstMiddleABamI2
pstRotation[RotAngle=i]I2a,m,n[a2,m2,n2]
pstSegmentMark[SegmentSymbol=MarkHashh]a2n2
pstSegmentMark[SegmentSymbol=MarkHashhh]n2m2
pssetfillstyle=solid
pstMarkAngle[fillcolor=blue]a2n2m2
pspolygon[linecolor=red,fillcolor=green,opacity=.3](a2)(m2)(n2)
endpspicture%
enddocument
pstricks
asked Mar 16 at 7:44
chishimutojichishimutoji
7331323
add a comment |
5
EX1:
documentclass[pstricks,border=15pt]standalone
usepackagepstricks-add,pst-eucl%
begindocument
foreach i in 0,-1,-2,...,-180%
beginpspicture[showgrid](0,-3)(8,4)
pnodes(3,3)A(1,-1)B(7,-1)C
pssetPointSymbol=none,PointName=none
pstMiddleAB[PosAngle=135]ABM
pstMiddleABACN
pstMiddleABMNI
pstSegmentMark[SegmentSymbol=pstslash]AM
pstSegmentMark[SegmentSymbol=MarkHash]AN
pstSegmentMark[SegmentSymbol=MarkHashh]MN
pstMarkAngle[fillstyle=solid,fillcolor=green]NMA
pstMarkAngle[fillstyle=solid,fillcolor=blue]ANM
pspolygon(A)(M)(N)
pstRotation[RotAngle=i]IA,M,N[a,m,n]%%%%<<--
pstMarkAngle[fillstyle=solid,fillcolor=green]nma
pstMarkAngle[fillstyle=solid,fillcolor=blue]anm
pspolygon[linecolor=red](a)(m)(n)
endpspicture
enddocument
EX2:
documentclass[pstricks,border=15pt]standalone
usepackagepstricks-add,pst-eucl%
begindocument
foreach i in 0,1,2,...,180%
beginpspicture[showgrid](0,-3)(8,4)
pnodes(3,3)A(1,-1)B(7,-1)C
pssetPointSymbol=none,PointName=none
pstMiddleAB[PosAngle=135]ABM
pstMiddleABACN
pstMiddleABMNI
pstRotation[RotAngle=-180]IA,M,N[a,m,n]%%%%<<--
pstMarkAngle[fillstyle=solid,fillcolor=green]nma
pstMarkAngle[fillstyle=solid,fillcolor=blue]anm
pspolygon[linecolor=red](a)(m)(n)
pstMiddleABanI1
pstRotation[RotAngle=i]I1a,m,n[a1,m1,n1]%%%%<<--
pstSegmentMark[SegmentSymbol=pstslash]a1m1
pstSegmentMark[SegmentSymbol=MarkHashhh]n1m1
pstMarkAngle[fillstyle=solid,fillcolor=green]n1m1a1
%pstMarkAngle[fillstyle=solid,fillcolor=blue]anm
pspolygon[linecolor=red](a1)(m1)(n1)
endpspicture
enddocument
EX3:
documentclass[pstricks,border=15pt]standalone
usepackagepstricks-add,pst-eucl%
begindocument
foreach i in 0,-1,-2,...,-180%
beginpspicture[showgrid](0,-3)(8,4)
pnodes(3,3)A(1,-1)B(7,-1)C
pssetPointSymbol=none,PointName=none
pstMiddleAB[PosAngle=135]ABM
pstMiddleABACN
pstMiddleABMNI
pstRotation[RotAngle=-180]IA,M,N[a,m,n]%%%%<<--
pstMarkAngle[fillstyle=solid,fillcolor=green]nma
pstMarkAngle[fillstyle=solid,fillcolor=blue]anm
pspolygon[linecolor=red](a)(m)(n)
pstMiddleABamI2
pstRotation[RotAngle=i]I2a,m,n[a2,m2,n2]%%%%<<--
pstSegmentMark[SegmentSymbol=MarkHashh]a2m2
pstSegmentMark[SegmentSymbol=MarkHashhh]n2m2
pstMarkAngle[fillstyle=solid,fillcolor=blue]a2n2m2
pspolygon[linecolor=red](a2)(m2)(n2)
endpspicture
enddocument
Question:
See this video.
Finally,
documentclass[pstricks,border=15pt]standalone
usepackagepstricks-add,pst-eucl%
begindocument
%%
deffigone%
pnodes(3,3)A(1,-1)B(7,-1)C
pssetPointSymbol=none,PointName=none
pstMiddleAB[PosAngle=135]ABM
pstMiddleABACN
pstMiddleABMNI
pstSegmentMark[SegmentSymbol=pstslash]AM
pstSegmentMark[SegmentSymbol=MarkHashh]AN
pstSegmentMark[SegmentSymbol=MarkHashhh]MN
pssetfillstyle=solid
pstMarkAngle[fillcolor=green]NMA
pstMarkAngle[fillcolor=blue]ANM
pspolygon[fillcolor=green,opacity=.3](A)(M)(N)%
deffigonee#1%
pstRotation[RotAngle=#1]IA,M,N[a,m,n]
pssetfillstyle=solid
pstMarkAngle[fillcolor=green]nma
pstMarkAngle[fillcolor=blue]anm
pspolygon[linecolor=red,fillcolor=green,opacity=.3](a)(m)(n)%
deffigtwo#1%
pstMiddleABanI1
pstRotation[RotAngle=#1]I1a,m,n[a1,m1,n1]
pstSegmentMark[SegmentSymbol=pstslash]a1m1
pstSegmentMark[SegmentSymbol=MarkHashhh]n1m1
pssetfillstyle=solid
pstMarkAngle[fillcolor=green]n1m1a1
pspolygon[linecolor=red,fillcolor=green,opacity=.3](a1)(m1)(n1)%
%%
multidoi=0+-361%
beginpspicture[showgrid](0,-3)(8,4)
figone
figoneei
endpspicture%
multidoi=0+361%
beginpspicture[showgrid](0,-3)(8,4)
figone
figonee-180
figtwoi
endpspicture%
multidoi=0+-361%
beginpspicture[showgrid](0,-3)(8,4)
figone
figonee-180
figtwo180
pstMiddleABamI2
pstRotation[RotAngle=i]I2a,m,n[a2,m2,n2]
pstSegmentMark[SegmentSymbol=MarkHashh]a2n2
pstSegmentMark[SegmentSymbol=MarkHashhh]n2m2
pssetfillstyle=solid
pstMarkAngle[fillcolor=blue]a2n2m2
pspolygon[linecolor=red,fillcolor=green,opacity=.3](a2)(m2)(n2)
endpspicture%
enddocument
pstricks
asked Mar 16 at 7:44
chishimutojichishimutoji
7331323
you should mark the current rotation point (fix point)
– Herbert
Mar 17 at 10:42
@Herbert I do not understand what you say, I don't see problem as the given video. Can you give me a sample? ...
– chishimutoji
Mar 17 at 10:55
only for your first rotation the rotation point is marked by ///. The // is missing for the following triangles, or least a dot.
– Herbert
Mar 17 at 11:41
@Herbert Done, I think so ...
– chishimutoji
Mar 17 at 14:21
yes, looks good now
– Herbert
Mar 17 at 14:34
add a comment |
5
5
5
1
EX1:
documentclass[pstricks,border=15pt]standalone
usepackagepstricks-add,pst-eucl%
begindocument
foreach i in 0,-1,-2,...,-180%
beginpspicture[showgrid](0,-3)(8,4)
pnodes(3,3)A(1,-1)B(7,-1)C
pssetPointSymbol=none,PointName=none
pstMiddleAB[PosAngle=135]ABM
pstMiddleABACN
pstMiddleABMNI
pstSegmentMark[SegmentSymbol=pstslash]AM
pstSegmentMark[SegmentSymbol=MarkHash]AN
pstSegmentMark[SegmentSymbol=MarkHashh]MN
pstMarkAngle[fillstyle=solid,fillcolor=green]NMA
pstMarkAngle[fillstyle=solid,fillcolor=blue]ANM
pspolygon(A)(M)(N)
pstRotation[RotAngle=i]IA,M,N[a,m,n]%%%%<<--
pstMarkAngle[fillstyle=solid,fillcolor=green]nma
pstMarkAngle[fillstyle=solid,fillcolor=blue]anm
pspolygon[linecolor=red](a)(m)(n)
endpspicture
enddocument
EX2:
documentclass[pstricks,border=15pt]standalone
usepackagepstricks-add,pst-eucl%
begindocument
foreach i in 0,1,2,...,180%
beginpspicture[showgrid](0,-3)(8,4)
pnodes(3,3)A(1,-1)B(7,-1)C
pssetPointSymbol=none,PointName=none
pstMiddleAB[PosAngle=135]ABM
pstMiddleABACN
pstMiddleABMNI
pstRotation[RotAngle=-180]IA,M,N[a,m,n]%%%%<<--
pstMarkAngle[fillstyle=solid,fillcolor=green]nma
pstMarkAngle[fillstyle=solid,fillcolor=blue]anm
pspolygon[linecolor=red](a)(m)(n)
pstMiddleABanI1
pstRotation[RotAngle=i]I1a,m,n[a1,m1,n1]%%%%<<--
pstSegmentMark[SegmentSymbol=pstslash]a1m1
pstSegmentMark[SegmentSymbol=MarkHashhh]n1m1
pstMarkAngle[fillstyle=solid,fillcolor=green]n1m1a1
%pstMarkAngle[fillstyle=solid,fillcolor=blue]anm
pspolygon[linecolor=red](a1)(m1)(n1)
endpspicture
enddocument
EX3:
documentclass[pstricks,border=15pt]standalone
usepackagepstricks-add,pst-eucl%
begindocument
foreach i in 0,-1,-2,...,-180%
beginpspicture[showgrid](0,-3)(8,4)
pnodes(3,3)A(1,-1)B(7,-1)C
pssetPointSymbol=none,PointName=none
pstMiddleAB[PosAngle=135]ABM
pstMiddleABACN
pstMiddleABMNI
pstRotation[RotAngle=-180]IA,M,N[a,m,n]%%%%<<--
pstMarkAngle[fillstyle=solid,fillcolor=green]nma
pstMarkAngle[fillstyle=solid,fillcolor=blue]anm
pspolygon[linecolor=red](a)(m)(n)
pstMiddleABamI2
pstRotation[RotAngle=i]I2a,m,n[a2,m2,n2]%%%%<<--
pstSegmentMark[SegmentSymbol=MarkHashh]a2m2
pstSegmentMark[SegmentSymbol=MarkHashhh]n2m2
pstMarkAngle[fillstyle=solid,fillcolor=blue]a2n2m2
pspolygon[linecolor=red](a2)(m2)(n2)
endpspicture
enddocument
Question:
See this video.
Finally,
documentclass[pstricks,border=15pt]standalone
usepackagepstricks-add,pst-eucl%
begindocument
%%
deffigone%
pnodes(3,3)A(1,-1)B(7,-1)C
pssetPointSymbol=none,PointName=none
pstMiddleAB[PosAngle=135]ABM
pstMiddleABACN
pstMiddleABMNI
pstSegmentMark[SegmentSymbol=pstslash]AM
pstSegmentMark[SegmentSymbol=MarkHashh]AN
pstSegmentMark[SegmentSymbol=MarkHashhh]MN
pssetfillstyle=solid
pstMarkAngle[fillcolor=green]NMA
pstMarkAngle[fillcolor=blue]ANM
pspolygon[fillcolor=green,opacity=.3](A)(M)(N)%
deffigonee#1%
pstRotation[RotAngle=#1]IA,M,N[a,m,n]
pssetfillstyle=solid
pstMarkAngle[fillcolor=green]nma
pstMarkAngle[fillcolor=blue]anm
pspolygon[linecolor=red,fillcolor=green,opacity=.3](a)(m)(n)%
deffigtwo#1%
pstMiddleABanI1
pstRotation[RotAngle=#1]I1a,m,n[a1,m1,n1]
pstSegmentMark[SegmentSymbol=pstslash]a1m1
pstSegmentMark[SegmentSymbol=MarkHashhh]n1m1
pssetfillstyle=solid
pstMarkAngle[fillcolor=green]n1m1a1
pspolygon[linecolor=red,fillcolor=green,opacity=.3](a1)(m1)(n1)%
%%
multidoi=0+-361%
beginpspicture[showgrid](0,-3)(8,4)
figone
figoneei
endpspicture%
multidoi=0+361%
beginpspicture[showgrid](0,-3)(8,4)
figone
figonee-180
figtwoi
endpspicture%
multidoi=0+-361%
beginpspicture[showgrid](0,-3)(8,4)
figone
figonee-180
figtwo180
pstMiddleABamI2
pstRotation[RotAngle=i]I2a,m,n[a2,m2,n2]
pstSegmentMark[SegmentSymbol=MarkHashh]a2n2
pstSegmentMark[SegmentSymbol=MarkHashhh]n2m2
pssetfillstyle=solid
pstMarkAngle[fillcolor=blue]a2n2m2
pspolygon[linecolor=red,fillcolor=green,opacity=.3](a2)(m2)(n2)
endpspicture%
enddocument
pstricks
asked Mar 16 at 7:44
chishimutojichishimutoji
7331323
EX1:
documentclass[pstricks,border=15pt]standalone
usepackagepstricks-add,pst-eucl%
begindocument
foreach i in 0,-1,-2,...,-180%
beginpspicture[showgrid](0,-3)(8,4)
pnodes(3,3)A(1,-1)B(7,-1)C
pssetPointSymbol=none,PointName=none
pstMiddleAB[PosAngle=135]ABM
pstMiddleABACN
pstMiddleABMNI
pstSegmentMark[SegmentSymbol=pstslash]AM
pstSegmentMark[SegmentSymbol=MarkHash]AN
pstSegmentMark[SegmentSymbol=MarkHashh]MN
pstMarkAngle[fillstyle=solid,fillcolor=green]NMA
pstMarkAngle[fillstyle=solid,fillcolor=blue]ANM
pspolygon(A)(M)(N)
pstRotation[RotAngle=i]IA,M,N[a,m,n]%%%%<<--
pstMarkAngle[fillstyle=solid,fillcolor=green]nma
pstMarkAngle[fillstyle=solid,fillcolor=blue]anm
pspolygon[linecolor=red](a)(m)(n)
endpspicture
enddocument
EX2:
documentclass[pstricks,border=15pt]standalone
usepackagepstricks-add,pst-eucl%
begindocument
foreach i in 0,1,2,...,180%
beginpspicture[showgrid](0,-3)(8,4)
pnodes(3,3)A(1,-1)B(7,-1)C
pssetPointSymbol=none,PointName=none
pstMiddleAB[PosAngle=135]ABM
pstMiddleABACN
pstMiddleABMNI
pstRotation[RotAngle=-180]IA,M,N[a,m,n]%%%%<<--
pstMarkAngle[fillstyle=solid,fillcolor=green]nma
pstMarkAngle[fillstyle=solid,fillcolor=blue]anm
pspolygon[linecolor=red](a)(m)(n)
pstMiddleABanI1
pstRotation[RotAngle=i]I1a,m,n[a1,m1,n1]%%%%<<--
pstSegmentMark[SegmentSymbol=pstslash]a1m1
pstSegmentMark[SegmentSymbol=MarkHashhh]n1m1
pstMarkAngle[fillstyle=solid,fillcolor=green]n1m1a1
%pstMarkAngle[fillstyle=solid,fillcolor=blue]anm
pspolygon[linecolor=red](a1)(m1)(n1)
endpspicture
enddocument
EX3:
documentclass[pstricks,border=15pt]standalone
usepackagepstricks-add,pst-eucl%
begindocument
foreach i in 0,-1,-2,...,-180%
beginpspicture[showgrid](0,-3)(8,4)
pnodes(3,3)A(1,-1)B(7,-1)C
pssetPointSymbol=none,PointName=none
pstMiddleAB[PosAngle=135]ABM
pstMiddleABACN
pstMiddleABMNI
pstRotation[RotAngle=-180]IA,M,N[a,m,n]%%%%<<--
pstMarkAngle[fillstyle=solid,fillcolor=green]nma
pstMarkAngle[fillstyle=solid,fillcolor=blue]anm
pspolygon[linecolor=red](a)(m)(n)
pstMiddleABamI2
pstRotation[RotAngle=i]I2a,m,n[a2,m2,n2]%%%%<<--
pstSegmentMark[SegmentSymbol=MarkHashh]a2m2
pstSegmentMark[SegmentSymbol=MarkHashhh]n2m2
pstMarkAngle[fillstyle=solid,fillcolor=blue]a2n2m2
pspolygon[linecolor=red](a2)(m2)(n2)
endpspicture
enddocument
Question:
See this video.
Finally,
documentclass[pstricks,border=15pt]standalone
usepackagepstricks-add,pst-eucl%
begindocument
%%
deffigone%
pnodes(3,3)A(1,-1)B(7,-1)C
pssetPointSymbol=none,PointName=none
pstMiddleAB[PosAngle=135]ABM
pstMiddleABACN
pstMiddleABMNI
pstSegmentMark[SegmentSymbol=pstslash]AM
pstSegmentMark[SegmentSymbol=MarkHashh]AN
pstSegmentMark[SegmentSymbol=MarkHashhh]MN
pssetfillstyle=solid
pstMarkAngle[fillcolor=green]NMA
pstMarkAngle[fillcolor=blue]ANM
pspolygon[fillcolor=green,opacity=.3](A)(M)(N)%
deffigonee#1%
pstRotation[RotAngle=#1]IA,M,N[a,m,n]
pssetfillstyle=solid
pstMarkAngle[fillcolor=green]nma
pstMarkAngle[fillcolor=blue]anm
pspolygon[linecolor=red,fillcolor=green,opacity=.3](a)(m)(n)%
deffigtwo#1%
pstMiddleABanI1
pstRotation[RotAngle=#1]I1a,m,n[a1,m1,n1]
pstSegmentMark[SegmentSymbol=pstslash]a1m1
pstSegmentMark[SegmentSymbol=MarkHashhh]n1m1
pssetfillstyle=solid
pstMarkAngle[fillcolor=green]n1m1a1
pspolygon[linecolor=red,fillcolor=green,opacity=.3](a1)(m1)(n1)%
%%
multidoi=0+-361%
beginpspicture[showgrid](0,-3)(8,4)
figone
figoneei
endpspicture%
multidoi=0+361%
beginpspicture[showgrid](0,-3)(8,4)
figone
figonee-180
figtwoi
endpspicture%
multidoi=0+-361%
beginpspicture[showgrid](0,-3)(8,4)
figone
figonee-180
figtwo180
pstMiddleABamI2
pstRotation[RotAngle=i]I2a,m,n[a2,m2,n2]
pstSegmentMark[SegmentSymbol=MarkHashh]a2n2
pstSegmentMark[SegmentSymbol=MarkHashhh]n2m2
pssetfillstyle=solid
pstMarkAngle[fillcolor=blue]a2n2m2
pspolygon[linecolor=red,fillcolor=green,opacity=.3](a2)(m2)(n2)
endpspicture%
enddocument
pstricks
pstricks
asked Mar 16 at 7:44
chishimutojichishimutoji
7331323
asked Mar 16 at 7:44
chishimutojichishimutoji
7331323
edited Mar 17 at 14:20
chishimutoji
asked Mar 16 at 7:44
chishimutojichishimutoji
7331323
asked Mar 16 at 7:44
chishimutojichishimutoji
7331323
asked Mar 16 at 7:44
chishimutojichishimutoji
7331323
7331323
you should mark the current rotation point (fix point)
– Herbert
Mar 17 at 10:42
@Herbert I do not understand what you say, I don't see problem as the given video. Can you give me a sample? ...
– chishimutoji
Mar 17 at 10:55
only for your first rotation the rotation point is marked by ///. The // is missing for the following triangles, or least a dot.
– Herbert
Mar 17 at 11:41
@Herbert Done, I think so ...
– chishimutoji
Mar 17 at 14:21
yes, looks good now
– Herbert
Mar 17 at 14:34
add a comment |
you should mark the current rotation point (fix point)
– Herbert
Mar 17 at 10:42
@Herbert I do not understand what you say, I don't see problem as the given video. Can you give me a sample? ...
– chishimutoji
Mar 17 at 10:55
only for your first rotation the rotation point is marked by ///. The // is missing for the following triangles, or least a dot.
– Herbert
Mar 17 at 11:41
@Herbert Done, I think so ...
– chishimutoji
Mar 17 at 14:21
yes, looks good now
– Herbert
Mar 17 at 14:34
you should mark the current rotation point (fix point)
– Herbert
Mar 17 at 10:42
you should mark the current rotation point (fix point)
– Herbert
Mar 17 at 10:42
@Herbert I do not understand what you say, I don't see problem as the given video. Can you give me a sample? ...
– chishimutoji
Mar 17 at 10:55
@Herbert I do not understand what you say, I don't see problem as the given video. Can you give me a sample? ...
– chishimutoji
Mar 17 at 10:55
only for your first rotation the rotation point is marked by ///. The // is missing for the following triangles, or least a dot.
– Herbert
Mar 17 at 11:41
only for your first rotation the rotation point is marked by ///. The // is missing for the following triangles, or least a dot.
– Herbert
Mar 17 at 11:41
@Herbert Done, I think so ...
– chishimutoji
Mar 17 at 14:21
@Herbert Done, I think so ...
– chishimutoji
Mar 17 at 14:21
yes, looks good now
– Herbert
Mar 17 at 14:34
yes, looks good now
– Herbert
Mar 17 at 14:34
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
usepackagepstricks-add,pst-eucl%
begindocument
multidoi=0+360%
beginpspicture[showgrid](0,-3)(8,4)
pnodes(3,3)A(1,-1)B(7,-1)C
pssetPointSymbol=none,PointName=none
pstMiddleAB[PosAngle=135]ABM
pstMiddleABACN
pstMiddleABMNI
pstSegmentMark[SegmentSymbol=pstslash]AM
pstSegmentMark[SegmentSymbol=MarkHash]AN
pstSegmentMark[SegmentSymbol=MarkHashh]MN
pstMarkAngle[fillstyle=solid,fillcolor=green]NMA
pstMarkAngle[fillstyle=solid,fillcolor=blue]ANM
pspolygon(A)(M)(N)
pstRotation[RotAngle=i]IA,M,N[a,m,n]%%%%<<--
pstMarkAngle[fillstyle=solid,fillcolor=green]nma
pstMarkAngle[fillstyle=solid,fillcolor=blue]anm
pspolygon[linecolor=red](a)(m)(n)
endpspicture%
multidoi=0+360%
beginpspicture[showgrid](0,-3)(8,4)
pnodes(3,3)A(1,-1)B(7,-1)C
pssetPointSymbol=none,PointName=none
pstMiddleAB[PosAngle=135]ABM
pstMiddleABACN
pstMiddleABMNI
pstSegmentMark[SegmentSymbol=pstslash]AM
pstSegmentMark[SegmentSymbol=MarkHash]AN
pstSegmentMark[SegmentSymbol=MarkHashh]MN
pstMarkAngle[fillstyle=solid,fillcolor=green]NMA
pstMarkAngle[fillstyle=solid,fillcolor=blue]ANM
pspolygon(A)(M)(N)
pstRotation[RotAngle=180]IA,M,N[a,m,n]%%%%<<--
pstMarkAngle[fillstyle=solid,fillcolor=green]nma
pstMarkAngle[fillstyle=solid,fillcolor=blue]anm
pspolygon[linecolor=red](a)(m)(n)
% ------------------ end ex1 --------------------------
pstRotation[RotAngle=-180]IA,M,N[a,m,n]%%%%<<--
pstMarkAngle[fillstyle=solid,fillcolor=green]nma
pstMarkAngle[fillstyle=solid,fillcolor=blue]anm
pspolygon[linecolor=red](a)(m)(n)
pstMiddleABanI1
pstRotation[RotAngle=i]I1a,m,n[a1,m1,n1]%%%%<<--
pstSegmentMark[SegmentSymbol=pstslash]a1m1
pstSegmentMark[SegmentSymbol=MarkHashhh]n1m1
pstMarkAngle[fillstyle=solid,fillcolor=green]n1m1a1
%pstMarkAngle[fillstyle=solid,fillcolor=blue]anm
pspolygon[linecolor=red](a1)(m1)(n1)
endpspicture%
multidoi=0+361%
beginpspicture[showgrid](0,-3)(8,4)
pnodes(3,3)A(1,-1)B(7,-1)C
pssetPointSymbol=none,PointName=none
pstMiddleAB[PosAngle=135]ABM
pstMiddleABACN
pstMiddleABMNI
pstSegmentMark[SegmentSymbol=pstslash]AM
pstSegmentMark[SegmentSymbol=MarkHash]AN
pstSegmentMark[SegmentSymbol=MarkHashh]MN
pstMarkAngle[fillstyle=solid,fillcolor=green]NMA
pstMarkAngle[fillstyle=solid,fillcolor=blue]ANM
pspolygon(A)(M)(N)
pstRotation[RotAngle=180]IA,M,N[a,m,n]%%%%<<--
pstMarkAngle[fillstyle=solid,fillcolor=green]nma
pstMarkAngle[fillstyle=solid,fillcolor=blue]anm
pspolygon[linecolor=red](a)(m)(n)
% ------------------ end ex1 --------------------------
pstRotation[RotAngle=-180]IA,M,N[a,m,n]%%%%<<--
pstMarkAngle[fillstyle=solid,fillcolor=green]nma
pstMarkAngle[fillstyle=solid,fillcolor=blue]anm
pspolygon[linecolor=red](a)(m)(n)
pstMiddleABanI1
pstRotation[RotAngle=180]I1a,m,n[a1,m1,n1]%%%%<<--
pstSegmentMark[SegmentSymbol=pstslash]a1m1
pstSegmentMark[SegmentSymbol=MarkHashhh]n1m1
pstMarkAngle[fillstyle=solid,fillcolor=green]n1m1a1
%pstMarkAngle[fillstyle=solid,fillcolor=blue]anm
pspolygon[linecolor=red](a1)(m1)(n1)
% ------------------ end ex2 --------------------------
pstRotation[RotAngle=-180]IA,M,N[a,m,n]%%%%<<--
pstMarkAngle[fillstyle=solid,fillcolor=green]nma
pstMarkAngle[fillstyle=solid,fillcolor=blue]anm
pspolygon[linecolor=red](a)(m)(n)
pstMiddleABamI2
pstRotation[RotAngle=i]I2a,m,n[a2,m2,n2]%%%%<<--
pstSegmentMark[SegmentSymbol=MarkHashh]a2m2
pstSegmentMark[SegmentSymbol=MarkHashhh]n2m2
pstMarkAngle[fillstyle=solid,fillcolor=blue]a2n2m2
pspolygon[linecolor=red](a2)(m2)(n2)
endpspicture%
enddocument
There are a lot of duplicate commands which can be deleted. I leave it to you!
answered Mar 16 at 8:31
HerbertHerbert
276k25419733
Animation is too slow so it takes much time to see the whole diagram.
– The Inventor of God
Mar 16 at 8:38
1
go into the kitchen, get a cup of coffee and then relax while viewing the animation ...
– Herbert
Mar 16 at 8:42
Yes, I see. I will try it.
– chishimutoji
Mar 16 at 8:46
Now the animation is faster enough so I don't need to drink coffee.
– The Inventor of God
Mar 16 at 8:47
add a comment |
4
documentclass[pstricks,border=12pt,12pt]standalone
usepackagepstricks-add,pst-eucl%
deffirst#1%
pnodes(3,3)A(1,-1)B(7,-1)C
pssetPointSymbol=none,PointName=none
pstMiddleAB[PosAngle=135]ABM
pstMiddleABACN
pstMiddleABMNI
pstSegmentMark[SegmentSymbol=pstslash]AM
pstSegmentMark[SegmentSymbol=MarkHash]AN
pstSegmentMark[SegmentSymbol=MarkHashh]MN
pstMarkAngle[fillstyle=solid,fillcolor=green]NMA
pstMarkAngle[fillstyle=solid,fillcolor=blue]ANM
pspolygon(A)(M)(N)
pstRotation[RotAngle=#1]IA,M,N[a,m,n]%%%%<<--
pstMarkAngle[fillstyle=solid,fillcolor=green]nma
pstMarkAngle[fillstyle=solid,fillcolor=blue]anm
pspolygon[linecolor=red](a)(m)(n)
defsecond#1%
pnodes(3,3)A(1,-1)B(7,-1)C
pssetPointSymbol=none,PointName=none
pstMiddleAB[PosAngle=135]ABM
pstMiddleABACN
pstMiddleABMNI
pstRotation[RotAngle=-180]IA,M,N[a,m,n]%%%%<<--
pstMarkAngle[fillstyle=solid,fillcolor=green]nma
pstMarkAngle[fillstyle=solid,fillcolor=blue]anm
pspolygon[linecolor=red](a)(m)(n)
pstMiddleABanI1
pstRotation[RotAngle=#1]I1a,m,n[a1,m1,n1]%%%%<<--
pstSegmentMark[SegmentSymbol=pstslash]a1m1
pstSegmentMark[SegmentSymbol=MarkHashhh]n1m1
pstMarkAngle[fillstyle=solid,fillcolor=green]n1m1a1
%pstMarkAngle[fillstyle=solid,fillcolor=blue]anm
pspolygon[linecolor=red](a1)(m1)(n1)
defthird#1
pnodes(3,3)A(1,-1)B(7,-1)C
pssetPointSymbol=none,PointName=none
pstMiddleAB[PosAngle=135]ABM
pstMiddleABACN
pstMiddleABMNI
pstRotation[RotAngle=-180]IA,M,N[a,m,n]%%%%<<--
pstMarkAngle[fillstyle=solid,fillcolor=green]nma
pstMarkAngle[fillstyle=solid,fillcolor=blue]anm
pspolygon[linecolor=red](a)(m)(n)
pstMiddleABamI2
pstRotation[RotAngle=#1]I2a,m,n[a2,m2,n2]%%%%<<--
pstSegmentMark[SegmentSymbol=MarkHashh]a2m2
pstSegmentMark[SegmentSymbol=MarkHashhh]n2m2
pstMarkAngle[fillstyle=solid,fillcolor=blue]a2n2m2
pspolygon[linecolor=red](a2)(m2)(n2)
begindocument
foreach i in 0,-10,...,-180%
beginpspicture[showgrid](0,-3)(8,4)
firsti
endpspicture
foreach i in 0,-10,...,-180%
beginpspicture[showgrid](0,-3)(8,4)
first0
secondi
endpspicture
foreach i in 0,-10,...,-180%
beginpspicture[showgrid](0,-3)(8,4)
first0
second-180
thirdi
endpspicture
enddocument
answered Mar 16 at 8:05
The Inventor of GodThe Inventor of God
4,98611142
The above code has many redundancies that we can refactor but I left it as it is right now.
– The Inventor of God
Mar 16 at 8:27
Yes, both answers are wonderful. So I won't accept anything.. chuckle . Thank for your answer. :-)
– chishimutoji
Mar 16 at 8:49
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
Mar 16 at 9:22
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
usepackagepstricks-add,pst-eucl%
begindocument
multidoi=0+360%
beginpspicture[showgrid](0,-3)(8,4)
pnodes(3,3)A(1,-1)B(7,-1)C
pssetPointSymbol=none,PointName=none
pstMiddleAB[PosAngle=135]ABM
pstMiddleABACN
pstMiddleABMNI
pstSegmentMark[SegmentSymbol=pstslash]AM
pstSegmentMark[SegmentSymbol=MarkHash]AN
pstSegmentMark[SegmentSymbol=MarkHashh]MN
pstMarkAngle[fillstyle=solid,fillcolor=green]NMA
pstMarkAngle[fillstyle=solid,fillcolor=blue]ANM
pspolygon(A)(M)(N)
pstRotation[RotAngle=i]IA,M,N[a,m,n]%%%%<<--
pstMarkAngle[fillstyle=solid,fillcolor=green]nma
pstMarkAngle[fillstyle=solid,fillcolor=blue]anm
pspolygon[linecolor=red](a)(m)(n)
endpspicture%
multidoi=0+360%
beginpspicture[showgrid](0,-3)(8,4)
pnodes(3,3)A(1,-1)B(7,-1)C
pssetPointSymbol=none,PointName=none
pstMiddleAB[PosAngle=135]ABM
pstMiddleABACN
pstMiddleABMNI
pstSegmentMark[SegmentSymbol=pstslash]AM
pstSegmentMark[SegmentSymbol=MarkHash]AN
pstSegmentMark[SegmentSymbol=MarkHashh]MN
pstMarkAngle[fillstyle=solid,fillcolor=green]NMA
pstMarkAngle[fillstyle=solid,fillcolor=blue]ANM
pspolygon(A)(M)(N)
pstRotation[RotAngle=180]IA,M,N[a,m,n]%%%%<<--
pstMarkAngle[fillstyle=solid,fillcolor=green]nma
pstMarkAngle[fillstyle=solid,fillcolor=blue]anm
pspolygon[linecolor=red](a)(m)(n)
% ------------------ end ex1 --------------------------
pstRotation[RotAngle=-180]IA,M,N[a,m,n]%%%%<<--
pstMarkAngle[fillstyle=solid,fillcolor=green]nma
pstMarkAngle[fillstyle=solid,fillcolor=blue]anm
pspolygon[linecolor=red](a)(m)(n)
pstMiddleABanI1
pstRotation[RotAngle=i]I1a,m,n[a1,m1,n1]%%%%<<--
pstSegmentMark[SegmentSymbol=pstslash]a1m1
pstSegmentMark[SegmentSymbol=MarkHashhh]n1m1
pstMarkAngle[fillstyle=solid,fillcolor=green]n1m1a1
%pstMarkAngle[fillstyle=solid,fillcolor=blue]anm
pspolygon[linecolor=red](a1)(m1)(n1)
endpspicture%
multidoi=0+361%
beginpspicture[showgrid](0,-3)(8,4)
pnodes(3,3)A(1,-1)B(7,-1)C
pssetPointSymbol=none,PointName=none
pstMiddleAB[PosAngle=135]ABM
pstMiddleABACN
pstMiddleABMNI
pstSegmentMark[SegmentSymbol=pstslash]AM
pstSegmentMark[SegmentSymbol=MarkHash]AN
pstSegmentMark[SegmentSymbol=MarkHashh]MN
pstMarkAngle[fillstyle=solid,fillcolor=green]NMA
pstMarkAngle[fillstyle=solid,fillcolor=blue]ANM
pspolygon(A)(M)(N)
pstRotation[RotAngle=180]IA,M,N[a,m,n]%%%%<<--
pstMarkAngle[fillstyle=solid,fillcolor=green]nma
pstMarkAngle[fillstyle=solid,fillcolor=blue]anm
pspolygon[linecolor=red](a)(m)(n)
% ------------------ end ex1 --------------------------
pstRotation[RotAngle=-180]IA,M,N[a,m,n]%%%%<<--
pstMarkAngle[fillstyle=solid,fillcolor=green]nma
pstMarkAngle[fillstyle=solid,fillcolor=blue]anm
pspolygon[linecolor=red](a)(m)(n)
pstMiddleABanI1
pstRotation[RotAngle=180]I1a,m,n[a1,m1,n1]%%%%<<--
pstSegmentMark[SegmentSymbol=pstslash]a1m1
pstSegmentMark[SegmentSymbol=MarkHashhh]n1m1
pstMarkAngle[fillstyle=solid,fillcolor=green]n1m1a1
%pstMarkAngle[fillstyle=solid,fillcolor=blue]anm
pspolygon[linecolor=red](a1)(m1)(n1)
% ------------------ end ex2 --------------------------
pstRotation[RotAngle=-180]IA,M,N[a,m,n]%%%%<<--
pstMarkAngle[fillstyle=solid,fillcolor=green]nma
pstMarkAngle[fillstyle=solid,fillcolor=blue]anm
pspolygon[linecolor=red](a)(m)(n)
pstMiddleABamI2
pstRotation[RotAngle=i]I2a,m,n[a2,m2,n2]%%%%<<--
pstSegmentMark[SegmentSymbol=MarkHashh]a2m2
pstSegmentMark[SegmentSymbol=MarkHashhh]n2m2
pstMarkAngle[fillstyle=solid,fillcolor=blue]a2n2m2
pspolygon[linecolor=red](a2)(m2)(n2)
endpspicture%
enddocument
There are a lot of duplicate commands which can be deleted. I leave it to you!
answered Mar 16 at 8:31
HerbertHerbert
276k25419733
Animation is too slow so it takes much time to see the whole diagram.
– The Inventor of God
Mar 16 at 8:38
1
go into the kitchen, get a cup of coffee and then relax while viewing the animation ...
– Herbert
Mar 16 at 8:42
Yes, I see. I will try it.
– chishimutoji
Mar 16 at 8:46
Now the animation is faster enough so I don't need to drink coffee.
– The Inventor of God
Mar 16 at 8:47
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
usepackagepstricks-add,pst-eucl%
begindocument
multidoi=0+360%
beginpspicture[showgrid](0,-3)(8,4)
pnodes(3,3)A(1,-1)B(7,-1)C
pssetPointSymbol=none,PointName=none
pstMiddleAB[PosAngle=135]ABM
pstMiddleABACN
pstMiddleABMNI
pstSegmentMark[SegmentSymbol=pstslash]AM
pstSegmentMark[SegmentSymbol=MarkHash]AN
pstSegmentMark[SegmentSymbol=MarkHashh]MN
pstMarkAngle[fillstyle=solid,fillcolor=green]NMA
pstMarkAngle[fillstyle=solid,fillcolor=blue]ANM
pspolygon(A)(M)(N)
pstRotation[RotAngle=i]IA,M,N[a,m,n]%%%%<<--
pstMarkAngle[fillstyle=solid,fillcolor=green]nma
pstMarkAngle[fillstyle=solid,fillcolor=blue]anm
pspolygon[linecolor=red](a)(m)(n)
endpspicture%
multidoi=0+360%
beginpspicture[showgrid](0,-3)(8,4)
pnodes(3,3)A(1,-1)B(7,-1)C
pssetPointSymbol=none,PointName=none
pstMiddleAB[PosAngle=135]ABM
pstMiddleABACN
pstMiddleABMNI
pstSegmentMark[SegmentSymbol=pstslash]AM
pstSegmentMark[SegmentSymbol=MarkHash]AN
pstSegmentMark[SegmentSymbol=MarkHashh]MN
pstMarkAngle[fillstyle=solid,fillcolor=green]NMA
pstMarkAngle[fillstyle=solid,fillcolor=blue]ANM
pspolygon(A)(M)(N)
pstRotation[RotAngle=180]IA,M,N[a,m,n]%%%%<<--
pstMarkAngle[fillstyle=solid,fillcolor=green]nma
pstMarkAngle[fillstyle=solid,fillcolor=blue]anm
pspolygon[linecolor=red](a)(m)(n)
% ------------------ end ex1 --------------------------
pstRotation[RotAngle=-180]IA,M,N[a,m,n]%%%%<<--
pstMarkAngle[fillstyle=solid,fillcolor=green]nma
pstMarkAngle[fillstyle=solid,fillcolor=blue]anm
pspolygon[linecolor=red](a)(m)(n)
pstMiddleABanI1
pstRotation[RotAngle=i]I1a,m,n[a1,m1,n1]%%%%<<--
pstSegmentMark[SegmentSymbol=pstslash]a1m1
pstSegmentMark[SegmentSymbol=MarkHashhh]n1m1
pstMarkAngle[fillstyle=solid,fillcolor=green]n1m1a1
%pstMarkAngle[fillstyle=solid,fillcolor=blue]anm
pspolygon[linecolor=red](a1)(m1)(n1)
endpspicture%
multidoi=0+361%
beginpspicture[showgrid](0,-3)(8,4)
pnodes(3,3)A(1,-1)B(7,-1)C
pssetPointSymbol=none,PointName=none
pstMiddleAB[PosAngle=135]ABM
pstMiddleABACN
pstMiddleABMNI
pstSegmentMark[SegmentSymbol=pstslash]AM
pstSegmentMark[SegmentSymbol=MarkHash]AN
pstSegmentMark[SegmentSymbol=MarkHashh]MN
pstMarkAngle[fillstyle=solid,fillcolor=green]NMA
pstMarkAngle[fillstyle=solid,fillcolor=blue]ANM
pspolygon(A)(M)(N)
pstRotation[RotAngle=180]IA,M,N[a,m,n]%%%%<<--
pstMarkAngle[fillstyle=solid,fillcolor=green]nma
pstMarkAngle[fillstyle=solid,fillcolor=blue]anm
pspolygon[linecolor=red](a)(m)(n)
% ------------------ end ex1 --------------------------
pstRotation[RotAngle=-180]IA,M,N[a,m,n]%%%%<<--
pstMarkAngle[fillstyle=solid,fillcolor=green]nma
pstMarkAngle[fillstyle=solid,fillcolor=blue]anm
pspolygon[linecolor=red](a)(m)(n)
pstMiddleABanI1
pstRotation[RotAngle=180]I1a,m,n[a1,m1,n1]%%%%<<--
pstSegmentMark[SegmentSymbol=pstslash]a1m1
pstSegmentMark[SegmentSymbol=MarkHashhh]n1m1
pstMarkAngle[fillstyle=solid,fillcolor=green]n1m1a1
%pstMarkAngle[fillstyle=solid,fillcolor=blue]anm
pspolygon[linecolor=red](a1)(m1)(n1)
% ------------------ end ex2 --------------------------
pstRotation[RotAngle=-180]IA,M,N[a,m,n]%%%%<<--
pstMarkAngle[fillstyle=solid,fillcolor=green]nma
pstMarkAngle[fillstyle=solid,fillcolor=blue]anm
pspolygon[linecolor=red](a)(m)(n)
pstMiddleABamI2
pstRotation[RotAngle=i]I2a,m,n[a2,m2,n2]%%%%<<--
pstSegmentMark[SegmentSymbol=MarkHashh]a2m2
pstSegmentMark[SegmentSymbol=MarkHashhh]n2m2
pstMarkAngle[fillstyle=solid,fillcolor=blue]a2n2m2
pspolygon[linecolor=red](a2)(m2)(n2)
endpspicture%
enddocument
There are a lot of duplicate commands which can be deleted. I leave it to you!
answered Mar 16 at 8:31
HerbertHerbert
276k25419733
Animation is too slow so it takes much time to see the whole diagram.
– The Inventor of God
Mar 16 at 8:38
1
go into the kitchen, get a cup of coffee and then relax while viewing the animation ...
– Herbert
Mar 16 at 8:42
Yes, I see. I will try it.
– chishimutoji
Mar 16 at 8:46
Now the animation is faster enough so I don't need to drink coffee.
– The Inventor of God
Mar 16 at 8:47
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
usepackagepstricks-add,pst-eucl%
begindocument
multidoi=0+360%
beginpspicture[showgrid](0,-3)(8,4)
pnodes(3,3)A(1,-1)B(7,-1)C
pssetPointSymbol=none,PointName=none
pstMiddleAB[PosAngle=135]ABM
pstMiddleABACN
pstMiddleABMNI
pstSegmentMark[SegmentSymbol=pstslash]AM
pstSegmentMark[SegmentSymbol=MarkHash]AN
pstSegmentMark[SegmentSymbol=MarkHashh]MN
pstMarkAngle[fillstyle=solid,fillcolor=green]NMA
pstMarkAngle[fillstyle=solid,fillcolor=blue]ANM
pspolygon(A)(M)(N)
pstRotation[RotAngle=i]IA,M,N[a,m,n]%%%%<<--
pstMarkAngle[fillstyle=solid,fillcolor=green]nma
pstMarkAngle[fillstyle=solid,fillcolor=blue]anm
pspolygon[linecolor=red](a)(m)(n)
endpspicture%
multidoi=0+360%
beginpspicture[showgrid](0,-3)(8,4)
pnodes(3,3)A(1,-1)B(7,-1)C
pssetPointSymbol=none,PointName=none
pstMiddleAB[PosAngle=135]ABM
pstMiddleABACN
pstMiddleABMNI
pstSegmentMark[SegmentSymbol=pstslash]AM
pstSegmentMark[SegmentSymbol=MarkHash]AN
pstSegmentMark[SegmentSymbol=MarkHashh]MN
pstMarkAngle[fillstyle=solid,fillcolor=green]NMA
pstMarkAngle[fillstyle=solid,fillcolor=blue]ANM
pspolygon(A)(M)(N)
pstRotation[RotAngle=180]IA,M,N[a,m,n]%%%%<<--
pstMarkAngle[fillstyle=solid,fillcolor=green]nma
pstMarkAngle[fillstyle=solid,fillcolor=blue]anm
pspolygon[linecolor=red](a)(m)(n)
% ------------------ end ex1 --------------------------
pstRotation[RotAngle=-180]IA,M,N[a,m,n]%%%%<<--
pstMarkAngle[fillstyle=solid,fillcolor=green]nma
pstMarkAngle[fillstyle=solid,fillcolor=blue]anm
pspolygon[linecolor=red](a)(m)(n)
pstMiddleABanI1
pstRotation[RotAngle=i]I1a,m,n[a1,m1,n1]%%%%<<--
pstSegmentMark[SegmentSymbol=pstslash]a1m1
pstSegmentMark[SegmentSymbol=MarkHashhh]n1m1
pstMarkAngle[fillstyle=solid,fillcolor=green]n1m1a1
%pstMarkAngle[fillstyle=solid,fillcolor=blue]anm
pspolygon[linecolor=red](a1)(m1)(n1)
endpspicture%
multidoi=0+361%
beginpspicture[showgrid](0,-3)(8,4)
pnodes(3,3)A(1,-1)B(7,-1)C
pssetPointSymbol=none,PointName=none
pstMiddleAB[PosAngle=135]ABM
pstMiddleABACN
pstMiddleABMNI
pstSegmentMark[SegmentSymbol=pstslash]AM
pstSegmentMark[SegmentSymbol=MarkHash]AN
pstSegmentMark[SegmentSymbol=MarkHashh]MN
pstMarkAngle[fillstyle=solid,fillcolor=green]NMA
pstMarkAngle[fillstyle=solid,fillcolor=blue]ANM
pspolygon(A)(M)(N)
pstRotation[RotAngle=180]IA,M,N[a,m,n]%%%%<<--
pstMarkAngle[fillstyle=solid,fillcolor=green]nma
pstMarkAngle[fillstyle=solid,fillcolor=blue]anm
pspolygon[linecolor=red](a)(m)(n)
% ------------------ end ex1 --------------------------
pstRotation[RotAngle=-180]IA,M,N[a,m,n]%%%%<<--
pstMarkAngle[fillstyle=solid,fillcolor=green]nma
pstMarkAngle[fillstyle=solid,fillcolor=blue]anm
pspolygon[linecolor=red](a)(m)(n)
pstMiddleABanI1
pstRotation[RotAngle=180]I1a,m,n[a1,m1,n1]%%%%<<--
pstSegmentMark[SegmentSymbol=pstslash]a1m1
pstSegmentMark[SegmentSymbol=MarkHashhh]n1m1
pstMarkAngle[fillstyle=solid,fillcolor=green]n1m1a1
%pstMarkAngle[fillstyle=solid,fillcolor=blue]anm
pspolygon[linecolor=red](a1)(m1)(n1)
% ------------------ end ex2 --------------------------
pstRotation[RotAngle=-180]IA,M,N[a,m,n]%%%%<<--
pstMarkAngle[fillstyle=solid,fillcolor=green]nma
pstMarkAngle[fillstyle=solid,fillcolor=blue]anm
pspolygon[linecolor=red](a)(m)(n)
pstMiddleABamI2
pstRotation[RotAngle=i]I2a,m,n[a2,m2,n2]%%%%<<--
pstSegmentMark[SegmentSymbol=MarkHashh]a2m2
pstSegmentMark[SegmentSymbol=MarkHashhh]n2m2
pstMarkAngle[fillstyle=solid,fillcolor=blue]a2n2m2
pspolygon[linecolor=red](a2)(m2)(n2)
endpspicture%
enddocument
There are a lot of duplicate commands which can be deleted. I leave it to you!
answered Mar 16 at 8:31
HerbertHerbert
276k25419733
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
usepackagepstricks-add,pst-eucl%
begindocument
multidoi=0+360%
beginpspicture[showgrid](0,-3)(8,4)
pnodes(3,3)A(1,-1)B(7,-1)C
pssetPointSymbol=none,PointName=none
pstMiddleAB[PosAngle=135]ABM
pstMiddleABACN
pstMiddleABMNI
pstSegmentMark[SegmentSymbol=pstslash]AM
pstSegmentMark[SegmentSymbol=MarkHash]AN
pstSegmentMark[SegmentSymbol=MarkHashh]MN
pstMarkAngle[fillstyle=solid,fillcolor=green]NMA
pstMarkAngle[fillstyle=solid,fillcolor=blue]ANM
pspolygon(A)(M)(N)
pstRotation[RotAngle=i]IA,M,N[a,m,n]%%%%<<--
pstMarkAngle[fillstyle=solid,fillcolor=green]nma
pstMarkAngle[fillstyle=solid,fillcolor=blue]anm
pspolygon[linecolor=red](a)(m)(n)
endpspicture%
multidoi=0+360%
beginpspicture[showgrid](0,-3)(8,4)
pnodes(3,3)A(1,-1)B(7,-1)C
pssetPointSymbol=none,PointName=none
pstMiddleAB[PosAngle=135]ABM
pstMiddleABACN
pstMiddleABMNI
pstSegmentMark[SegmentSymbol=pstslash]AM
pstSegmentMark[SegmentSymbol=MarkHash]AN
pstSegmentMark[SegmentSymbol=MarkHashh]MN
pstMarkAngle[fillstyle=solid,fillcolor=green]NMA
pstMarkAngle[fillstyle=solid,fillcolor=blue]ANM
pspolygon(A)(M)(N)
pstRotation[RotAngle=180]IA,M,N[a,m,n]%%%%<<--
pstMarkAngle[fillstyle=solid,fillcolor=green]nma
pstMarkAngle[fillstyle=solid,fillcolor=blue]anm
pspolygon[linecolor=red](a)(m)(n)
% ------------------ end ex1 --------------------------
pstRotation[RotAngle=-180]IA,M,N[a,m,n]%%%%<<--
pstMarkAngle[fillstyle=solid,fillcolor=green]nma
pstMarkAngle[fillstyle=solid,fillcolor=blue]anm
pspolygon[linecolor=red](a)(m)(n)
pstMiddleABanI1
pstRotation[RotAngle=i]I1a,m,n[a1,m1,n1]%%%%<<--
pstSegmentMark[SegmentSymbol=pstslash]a1m1
pstSegmentMark[SegmentSymbol=MarkHashhh]n1m1
pstMarkAngle[fillstyle=solid,fillcolor=green]n1m1a1
%pstMarkAngle[fillstyle=solid,fillcolor=blue]anm
pspolygon[linecolor=red](a1)(m1)(n1)
endpspicture%
multidoi=0+361%
beginpspicture[showgrid](0,-3)(8,4)
pnodes(3,3)A(1,-1)B(7,-1)C
pssetPointSymbol=none,PointName=none
pstMiddleAB[PosAngle=135]ABM
pstMiddleABACN
pstMiddleABMNI
pstSegmentMark[SegmentSymbol=pstslash]AM
pstSegmentMark[SegmentSymbol=MarkHash]AN
pstSegmentMark[SegmentSymbol=MarkHashh]MN
pstMarkAngle[fillstyle=solid,fillcolor=green]NMA
pstMarkAngle[fillstyle=solid,fillcolor=blue]ANM
pspolygon(A)(M)(N)
pstRotation[RotAngle=180]IA,M,N[a,m,n]%%%%<<--
pstMarkAngle[fillstyle=solid,fillcolor=green]nma
pstMarkAngle[fillstyle=solid,fillcolor=blue]anm
pspolygon[linecolor=red](a)(m)(n)
% ------------------ end ex1 --------------------------
pstRotation[RotAngle=-180]IA,M,N[a,m,n]%%%%<<--
pstMarkAngle[fillstyle=solid,fillcolor=green]nma
pstMarkAngle[fillstyle=solid,fillcolor=blue]anm
pspolygon[linecolor=red](a)(m)(n)
pstMiddleABanI1
pstRotation[RotAngle=180]I1a,m,n[a1,m1,n1]%%%%<<--
pstSegmentMark[SegmentSymbol=pstslash]a1m1
pstSegmentMark[SegmentSymbol=MarkHashhh]n1m1
pstMarkAngle[fillstyle=solid,fillcolor=green]n1m1a1
%pstMarkAngle[fillstyle=solid,fillcolor=blue]anm
pspolygon[linecolor=red](a1)(m1)(n1)
% ------------------ end ex2 --------------------------
pstRotation[RotAngle=-180]IA,M,N[a,m,n]%%%%<<--
pstMarkAngle[fillstyle=solid,fillcolor=green]nma
pstMarkAngle[fillstyle=solid,fillcolor=blue]anm
pspolygon[linecolor=red](a)(m)(n)
pstMiddleABamI2
pstRotation[RotAngle=i]I2a,m,n[a2,m2,n2]%%%%<<--
pstSegmentMark[SegmentSymbol=MarkHashh]a2m2
pstSegmentMark[SegmentSymbol=MarkHashhh]n2m2
pstMarkAngle[fillstyle=solid,fillcolor=blue]a2n2m2
pspolygon[linecolor=red](a2)(m2)(n2)
endpspicture%
enddocument
There are a lot of duplicate commands which can be deleted. I leave it to you!
answered Mar 16 at 8:31
HerbertHerbert
276k25419733
edited Mar 16 at 8:45
answered Mar 16 at 8:31
HerbertHerbert
276k25419733
answered Mar 16 at 8:31
HerbertHerbert
276k25419733
answered Mar 16 at 8:31
HerbertHerbert
276k25419733
276k25419733
Animation is too slow so it takes much time to see the whole diagram.
– The Inventor of God
Mar 16 at 8:38
1
go into the kitchen, get a cup of coffee and then relax while viewing the animation ...
– Herbert
Mar 16 at 8:42
Yes, I see. I will try it.
– chishimutoji
Mar 16 at 8:46
Now the animation is faster enough so I don't need to drink coffee.
– The Inventor of God
Mar 16 at 8:47
add a comment |
Animation is too slow so it takes much time to see the whole diagram.
– The Inventor of God
Mar 16 at 8:38
1
go into the kitchen, get a cup of coffee and then relax while viewing the animation ...
– Herbert
Mar 16 at 8:42
Yes, I see. I will try it.
– chishimutoji
Mar 16 at 8:46
Now the animation is faster enough so I don't need to drink coffee.
– The Inventor of God
Mar 16 at 8:47
Animation is too slow so it takes much time to see the whole diagram.
– The Inventor of God
Mar 16 at 8:38
Animation is too slow so it takes much time to see the whole diagram.
– The Inventor of God
Mar 16 at 8:38
1
1
go into the kitchen, get a cup of coffee and then relax while viewing the animation ...
– Herbert
Mar 16 at 8:42
go into the kitchen, get a cup of coffee and then relax while viewing the animation ...
– Herbert
Mar 16 at 8:42
Yes, I see. I will try it.
– chishimutoji
Mar 16 at 8:46
Yes, I see. I will try it.
– chishimutoji
Mar 16 at 8:46
Now the animation is faster enough so I don't need to drink coffee.
– The Inventor of God
Mar 16 at 8:47
Now the animation is faster enough so I don't need to drink coffee.
– The Inventor of God
Mar 16 at 8:47
add a comment |
4
documentclass[pstricks,border=12pt,12pt]standalone
usepackagepstricks-add,pst-eucl%
deffirst#1%
pnodes(3,3)A(1,-1)B(7,-1)C
pssetPointSymbol=none,PointName=none
pstMiddleAB[PosAngle=135]ABM
pstMiddleABACN
pstMiddleABMNI
pstSegmentMark[SegmentSymbol=pstslash]AM
pstSegmentMark[SegmentSymbol=MarkHash]AN
pstSegmentMark[SegmentSymbol=MarkHashh]MN
pstMarkAngle[fillstyle=solid,fillcolor=green]NMA
pstMarkAngle[fillstyle=solid,fillcolor=blue]ANM
pspolygon(A)(M)(N)
pstRotation[RotAngle=#1]IA,M,N[a,m,n]%%%%<<--
pstMarkAngle[fillstyle=solid,fillcolor=green]nma
pstMarkAngle[fillstyle=solid,fillcolor=blue]anm
pspolygon[linecolor=red](a)(m)(n)
defsecond#1%
pnodes(3,3)A(1,-1)B(7,-1)C
pssetPointSymbol=none,PointName=none
pstMiddleAB[PosAngle=135]ABM
pstMiddleABACN
pstMiddleABMNI
pstRotation[RotAngle=-180]IA,M,N[a,m,n]%%%%<<--
pstMarkAngle[fillstyle=solid,fillcolor=green]nma
pstMarkAngle[fillstyle=solid,fillcolor=blue]anm
pspolygon[linecolor=red](a)(m)(n)
pstMiddleABanI1
pstRotation[RotAngle=#1]I1a,m,n[a1,m1,n1]%%%%<<--
pstSegmentMark[SegmentSymbol=pstslash]a1m1
pstSegmentMark[SegmentSymbol=MarkHashhh]n1m1
pstMarkAngle[fillstyle=solid,fillcolor=green]n1m1a1
%pstMarkAngle[fillstyle=solid,fillcolor=blue]anm
pspolygon[linecolor=red](a1)(m1)(n1)
defthird#1
pnodes(3,3)A(1,-1)B(7,-1)C
pssetPointSymbol=none,PointName=none
pstMiddleAB[PosAngle=135]ABM
pstMiddleABACN
pstMiddleABMNI
pstRotation[RotAngle=-180]IA,M,N[a,m,n]%%%%<<--
pstMarkAngle[fillstyle=solid,fillcolor=green]nma
pstMarkAngle[fillstyle=solid,fillcolor=blue]anm
pspolygon[linecolor=red](a)(m)(n)
pstMiddleABamI2
pstRotation[RotAngle=#1]I2a,m,n[a2,m2,n2]%%%%<<--
pstSegmentMark[SegmentSymbol=MarkHashh]a2m2
pstSegmentMark[SegmentSymbol=MarkHashhh]n2m2
pstMarkAngle[fillstyle=solid,fillcolor=blue]a2n2m2
pspolygon[linecolor=red](a2)(m2)(n2)
begindocument
foreach i in 0,-10,...,-180%
beginpspicture[showgrid](0,-3)(8,4)
firsti
endpspicture
foreach i in 0,-10,...,-180%
beginpspicture[showgrid](0,-3)(8,4)
first0
secondi
endpspicture
foreach i in 0,-10,...,-180%
beginpspicture[showgrid](0,-3)(8,4)
first0
second-180
thirdi
endpspicture
enddocument
answered Mar 16 at 8:05
The Inventor of GodThe Inventor of God
4,98611142
The above code has many redundancies that we can refactor but I left it as it is right now.
– The Inventor of God
Mar 16 at 8:27
Yes, both answers are wonderful. So I won't accept anything.. chuckle . Thank for your answer. :-)
– chishimutoji
Mar 16 at 8:49
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
Mar 16 at 9:22
add a comment |
4
documentclass[pstricks,border=12pt,12pt]standalone
usepackagepstricks-add,pst-eucl%
deffirst#1%
pnodes(3,3)A(1,-1)B(7,-1)C
pssetPointSymbol=none,PointName=none
pstMiddleAB[PosAngle=135]ABM
pstMiddleABACN
pstMiddleABMNI
pstSegmentMark[SegmentSymbol=pstslash]AM
pstSegmentMark[SegmentSymbol=MarkHash]AN
pstSegmentMark[SegmentSymbol=MarkHashh]MN
pstMarkAngle[fillstyle=solid,fillcolor=green]NMA
pstMarkAngle[fillstyle=solid,fillcolor=blue]ANM
pspolygon(A)(M)(N)
pstRotation[RotAngle=#1]IA,M,N[a,m,n]%%%%<<--
pstMarkAngle[fillstyle=solid,fillcolor=green]nma
pstMarkAngle[fillstyle=solid,fillcolor=blue]anm
pspolygon[linecolor=red](a)(m)(n)
defsecond#1%
pnodes(3,3)A(1,-1)B(7,-1)C
pssetPointSymbol=none,PointName=none
pstMiddleAB[PosAngle=135]ABM
pstMiddleABACN
pstMiddleABMNI
pstRotation[RotAngle=-180]IA,M,N[a,m,n]%%%%<<--
pstMarkAngle[fillstyle=solid,fillcolor=green]nma
pstMarkAngle[fillstyle=solid,fillcolor=blue]anm
pspolygon[linecolor=red](a)(m)(n)
pstMiddleABanI1
pstRotation[RotAngle=#1]I1a,m,n[a1,m1,n1]%%%%<<--
pstSegmentMark[SegmentSymbol=pstslash]a1m1
pstSegmentMark[SegmentSymbol=MarkHashhh]n1m1
pstMarkAngle[fillstyle=solid,fillcolor=green]n1m1a1
%pstMarkAngle[fillstyle=solid,fillcolor=blue]anm
pspolygon[linecolor=red](a1)(m1)(n1)
defthird#1
pnodes(3,3)A(1,-1)B(7,-1)C
pssetPointSymbol=none,PointName=none
pstMiddleAB[PosAngle=135]ABM
pstMiddleABACN
pstMiddleABMNI
pstRotation[RotAngle=-180]IA,M,N[a,m,n]%%%%<<--
pstMarkAngle[fillstyle=solid,fillcolor=green]nma
pstMarkAngle[fillstyle=solid,fillcolor=blue]anm
pspolygon[linecolor=red](a)(m)(n)
pstMiddleABamI2
pstRotation[RotAngle=#1]I2a,m,n[a2,m2,n2]%%%%<<--
pstSegmentMark[SegmentSymbol=MarkHashh]a2m2
pstSegmentMark[SegmentSymbol=MarkHashhh]n2m2
pstMarkAngle[fillstyle=solid,fillcolor=blue]a2n2m2
pspolygon[linecolor=red](a2)(m2)(n2)
begindocument
foreach i in 0,-10,...,-180%
beginpspicture[showgrid](0,-3)(8,4)
firsti
endpspicture
foreach i in 0,-10,...,-180%
beginpspicture[showgrid](0,-3)(8,4)
first0
secondi
endpspicture
foreach i in 0,-10,...,-180%
beginpspicture[showgrid](0,-3)(8,4)
first0
second-180
thirdi
endpspicture
enddocument
answered Mar 16 at 8:05
The Inventor of GodThe Inventor of God
4,98611142
The above code has many redundancies that we can refactor but I left it as it is right now.
– The Inventor of God
Mar 16 at 8:27
Yes, both answers are wonderful. So I won't accept anything.. chuckle . Thank for your answer. :-)
– chishimutoji
Mar 16 at 8:49
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
Mar 16 at 9:22
add a comment |
4
4
4
documentclass[pstricks,border=12pt,12pt]standalone
usepackagepstricks-add,pst-eucl%
deffirst#1%
pnodes(3,3)A(1,-1)B(7,-1)C
pssetPointSymbol=none,PointName=none
pstMiddleAB[PosAngle=135]ABM
pstMiddleABACN
pstMiddleABMNI
pstSegmentMark[SegmentSymbol=pstslash]AM
pstSegmentMark[SegmentSymbol=MarkHash]AN
pstSegmentMark[SegmentSymbol=MarkHashh]MN
pstMarkAngle[fillstyle=solid,fillcolor=green]NMA
pstMarkAngle[fillstyle=solid,fillcolor=blue]ANM
pspolygon(A)(M)(N)
pstRotation[RotAngle=#1]IA,M,N[a,m,n]%%%%<<--
pstMarkAngle[fillstyle=solid,fillcolor=green]nma
pstMarkAngle[fillstyle=solid,fillcolor=blue]anm
pspolygon[linecolor=red](a)(m)(n)
defsecond#1%
pnodes(3,3)A(1,-1)B(7,-1)C
pssetPointSymbol=none,PointName=none
pstMiddleAB[PosAngle=135]ABM
pstMiddleABACN
pstMiddleABMNI
pstRotation[RotAngle=-180]IA,M,N[a,m,n]%%%%<<--
pstMarkAngle[fillstyle=solid,fillcolor=green]nma
pstMarkAngle[fillstyle=solid,fillcolor=blue]anm
pspolygon[linecolor=red](a)(m)(n)
pstMiddleABanI1
pstRotation[RotAngle=#1]I1a,m,n[a1,m1,n1]%%%%<<--
pstSegmentMark[SegmentSymbol=pstslash]a1m1
pstSegmentMark[SegmentSymbol=MarkHashhh]n1m1
pstMarkAngle[fillstyle=solid,fillcolor=green]n1m1a1
%pstMarkAngle[fillstyle=solid,fillcolor=blue]anm
pspolygon[linecolor=red](a1)(m1)(n1)
defthird#1
pnodes(3,3)A(1,-1)B(7,-1)C
pssetPointSymbol=none,PointName=none
pstMiddleAB[PosAngle=135]ABM
pstMiddleABACN
pstMiddleABMNI
pstRotation[RotAngle=-180]IA,M,N[a,m,n]%%%%<<--
pstMarkAngle[fillstyle=solid,fillcolor=green]nma
pstMarkAngle[fillstyle=solid,fillcolor=blue]anm
pspolygon[linecolor=red](a)(m)(n)
pstMiddleABamI2
pstRotation[RotAngle=#1]I2a,m,n[a2,m2,n2]%%%%<<--
pstSegmentMark[SegmentSymbol=MarkHashh]a2m2
pstSegmentMark[SegmentSymbol=MarkHashhh]n2m2
pstMarkAngle[fillstyle=solid,fillcolor=blue]a2n2m2
pspolygon[linecolor=red](a2)(m2)(n2)
begindocument
foreach i in 0,-10,...,-180%
beginpspicture[showgrid](0,-3)(8,4)
firsti
endpspicture
foreach i in 0,-10,...,-180%
beginpspicture[showgrid](0,-3)(8,4)
first0
secondi
endpspicture
foreach i in 0,-10,...,-180%
beginpspicture[showgrid](0,-3)(8,4)
first0
second-180
thirdi
endpspicture
enddocument
answered Mar 16 at 8:05
The Inventor of GodThe Inventor of God
4,98611142
documentclass[pstricks,border=12pt,12pt]standalone
usepackagepstricks-add,pst-eucl%
deffirst#1%
pnodes(3,3)A(1,-1)B(7,-1)C
pssetPointSymbol=none,PointName=none
pstMiddleAB[PosAngle=135]ABM
pstMiddleABACN
pstMiddleABMNI
pstSegmentMark[SegmentSymbol=pstslash]AM
pstSegmentMark[SegmentSymbol=MarkHash]AN
pstSegmentMark[SegmentSymbol=MarkHashh]MN
pstMarkAngle[fillstyle=solid,fillcolor=green]NMA
pstMarkAngle[fillstyle=solid,fillcolor=blue]ANM
pspolygon(A)(M)(N)
pstRotation[RotAngle=#1]IA,M,N[a,m,n]%%%%<<--
pstMarkAngle[fillstyle=solid,fillcolor=green]nma
pstMarkAngle[fillstyle=solid,fillcolor=blue]anm
pspolygon[linecolor=red](a)(m)(n)
defsecond#1%
pnodes(3,3)A(1,-1)B(7,-1)C
pssetPointSymbol=none,PointName=none
pstMiddleAB[PosAngle=135]ABM
pstMiddleABACN
pstMiddleABMNI
pstRotation[RotAngle=-180]IA,M,N[a,m,n]%%%%<<--
pstMarkAngle[fillstyle=solid,fillcolor=green]nma
pstMarkAngle[fillstyle=solid,fillcolor=blue]anm
pspolygon[linecolor=red](a)(m)(n)
pstMiddleABanI1
pstRotation[RotAngle=#1]I1a,m,n[a1,m1,n1]%%%%<<--
pstSegmentMark[SegmentSymbol=pstslash]a1m1
pstSegmentMark[SegmentSymbol=MarkHashhh]n1m1
pstMarkAngle[fillstyle=solid,fillcolor=green]n1m1a1
%pstMarkAngle[fillstyle=solid,fillcolor=blue]anm
pspolygon[linecolor=red](a1)(m1)(n1)
defthird#1
pnodes(3,3)A(1,-1)B(7,-1)C
pssetPointSymbol=none,PointName=none
pstMiddleAB[PosAngle=135]ABM
pstMiddleABACN
pstMiddleABMNI
pstRotation[RotAngle=-180]IA,M,N[a,m,n]%%%%<<--
pstMarkAngle[fillstyle=solid,fillcolor=green]nma
pstMarkAngle[fillstyle=solid,fillcolor=blue]anm
pspolygon[linecolor=red](a)(m)(n)
pstMiddleABamI2
pstRotation[RotAngle=#1]I2a,m,n[a2,m2,n2]%%%%<<--
pstSegmentMark[SegmentSymbol=MarkHashh]a2m2
pstSegmentMark[SegmentSymbol=MarkHashhh]n2m2
pstMarkAngle[fillstyle=solid,fillcolor=blue]a2n2m2
pspolygon[linecolor=red](a2)(m2)(n2)
begindocument
foreach i in 0,-10,...,-180%
beginpspicture[showgrid](0,-3)(8,4)
firsti
endpspicture
foreach i in 0,-10,...,-180%
beginpspicture[showgrid](0,-3)(8,4)
first0
secondi
endpspicture
foreach i in 0,-10,...,-180%
beginpspicture[showgrid](0,-3)(8,4)
first0
second-180
thirdi
endpspicture
enddocument
answered Mar 16 at 8:05
The Inventor of GodThe Inventor of God
4,98611142
edited Mar 16 at 9:12
answered Mar 16 at 8:05
The Inventor of GodThe Inventor of God
4,98611142
answered Mar 16 at 8:05
The Inventor of GodThe Inventor of God
4,98611142
answered Mar 16 at 8:05
The Inventor of GodThe Inventor of God
4,98611142
4,98611142
The above code has many redundancies that we can refactor but I left it as it is right now.
– The Inventor of God
Mar 16 at 8:27
Yes, both answers are wonderful. So I won't accept anything.. chuckle . Thank for your answer. :-)
– chishimutoji
Mar 16 at 8:49
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
Mar 16 at 9:22
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
Mar 16 at 8:27
Yes, both answers are wonderful. So I won't accept anything.. chuckle . Thank for your answer. :-)
– chishimutoji
Mar 16 at 8:49
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
Mar 16 at 9:22
The above code has many redundancies that we can refactor but I left it as it is right now.
– The Inventor of God
Mar 16 at 8:27
The above code has many redundancies that we can refactor but I left it as it is right now.
– The Inventor of God
Mar 16 at 8:27
Yes, both answers are wonderful. So I won't accept anything.. chuckle . Thank for your answer. :-)
– chishimutoji
Mar 16 at 8:49
Yes, both answers are wonderful. So I won't accept anything.. chuckle . Thank for your answer. :-)
– chishimutoji
Mar 16 at 8:49
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
Mar 16 at 9:22
@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
Mar 16 at 9:22
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
Mar 17 at 10:42
@Herbert I do not understand what you say, I don't see problem as the given video. Can you give me a sample? ...
– chishimutoji
Mar 17 at 10:55
only for your first rotation the rotation point is marked by ///. The // is missing for the following triangles, or least a dot.
– Herbert
Mar 17 at 11:41
@Herbert Done, I think so ...
– chishimutoji
Mar 17 at 14:21
yes, looks good now
– Herbert
Mar 17 at 14:34