In[]:=
Manipulate[ϕ=GoldenRatio;vV={-ϕ^2,0,0};vW={ϕ^2,0,0};vA={0,ϕ^3,0};vB={-2,1,0};vB1={-ϕ^2/2+dif/ϕ,ϕ^3/2+dif,0};vB2={-ϕ^2/2+dif/ϕ,ϕ^3/2-3dif,0};vG={-dif/ϕ-mod2,1-dif+ϕmod2,0};vC={dif/ϕ+mod2,-1+dif-ϕmod2,0};vD={-mod1,-ϕ^3+ϕmod1,0};vE={0,-ϕ^3,0};vF={2,-1,0};vF1={ϕ^2/2-dif/ϕ,-ϕ^3/2-dif,0};vF2={ϕ^2/2-dif/ϕ,-ϕ^3/2+3dif,0};Hy=N[1+ϕ+ϕ/2];vH={mod1,ϕ^3-ϕmod1,0};r0={RGBColor[1,1,0.2],Polygon[{{0,1,0.02},{-1/ϕ,0,0.02},{0,-1,0.02},{1/ϕ,0,0.02}}]};r1=Translate[Polygon[{vA,vV,vE,vW}],{0,0,-0.01}];s={FaceForm[RGBColor[0.2,1,0.9],RGBColor[1,0,0.2]],Polygon[{vA,vB1,vB2,vC,vD,vE,vF1,vF2,vG,vH}]};r2=Translate[{If[GRT,r1,{}],If[RT,r0,{}],s},{0,0,flyϕ}];r3=Rotate[r2,Pi,{1,0,0}];r4=Rotate[Rotate[{r2,r3},Pi/2,{0,0,1}],Pi/2,{1,0,0}];r5=Rotate[Rotate[{r2,r3},Pi/2,{0,0,1}],Pi/2,{0,1,0}];c1=Rotate[{r2,r3,r4,r5},ArcTan[1/ϕ],{1,0,0}];rt=Table[Rotate[c1,i2Pi/5,{0,0,1}],{i,5}];Graphics3D[{rt},BoxedFalse,SphericalRegionTrue,ImageSize{400,400},ViewPoint{0,0,5},ViewAnglePi/14],{{mod1,0.5,"modify 1"},0,1},{{mod2,0.5,"modify 2"},0,0.9},{{fly,1,"slide components"},1,4.236},{{dif,0.2,"cut corner"},0,0.4,ImageSizeTiny,ControlPlacementLeft},{{GRT,False,"show GRT"},{True,False},ImageSizeTiny,ControlPlacementLeft},{{RT,False,"show RT"},{True,False},ImageSizeTiny,ControlPlacementLeft},TrackedSymbolsManipulate]
Out[]=
