HSV colors Icosahedron
Setup
varphi = (1+sqrt(5))/2
A1 = (0, 1, varphi)
A2 = (0, -1, -varphi)
A3 = (0, 1, -varphi)
A4 = (0, -1, varphi)
A5 = (1, varphi, 0)
A6 = (-1, -varphi, 0)
A7 =(-1, varphi, 0)
A8 =(1, -varphi, 0)
A9 = (varphi, 0 , 1)
A10 = (-varphi, 0 , -1)
A11 = (varphi, 0 , -1)
A12 = (-varphi, 0 , 1)
# Centre
T1 = Polygon(A1, A5, A7)
T2 = Polygon(A1, A5, A9)
T3 = Polygon(A9, A5, A11)
T4 = Polygon(A9, A11, A8)
T5 = Polygon(A8, A11, A2)
T6 = Polygon(A8, A6, A2)
T7 = Polygon(A6, A2, A10)
T8 = Polygon(A10, A6, A12)
T9 = Polygon(A12, A10, A7)
T10 = Polygon(A12, A7, A1)
# Top
T11 = Polygon(A4, A1, A12)
T12 = Polygon(A4, A12, A6)
T13 = Polygon(A4, A6, A8)
T14 = Polygon(A4, A8, A9)
T15 = Polygon(A4, A9, A1)
# Bottom
T16 = Polygon(A3, A5, A7)
T17 = Polygon(A3, A7, A10)
T18 = Polygon(A3, A10, A2)
T19 = Polygon(A3, A5, A11)
T20 = Polygon(A3, A11, A2)
Colors
Execute(Zip("SetDynamicColor(T"+i+", "+i+"/20, 1, 1, 1)", i, 1...20))