, Visual C#


- 6


DesigningLine(-D, -1, B, -X * c2, 1 - y2, X * s2)

DesigningLine(-D, -1, -B, -X * c2, 1 - y2, -X * s2)

DesigningLine(-C, -1, -A, -X * c1, 1 - y2, -X * s1)

DesigningLine(-R, -1, 0, -C, -1, A)

DesigningLine(-C, -1, A, -D, -1, B)

DesigningLine(-D, -1, B, -D, -1, -B)

DesigningLine(-D, -1, -B, -C, -1, -A)

DesigningLine(-C, -1, -A, -R, -1, 0)

' (Icosahedron):

Icosahedron_first = NumLines + 1

R = 2 / (2 * CSng(Sqrt(1 - 2 * c1)) + _

CSng(Sqrt(3 / 4 * (2 - 2 * c1) - _

2 * c2 - c2 * c2 - 1)))

S = R * CSng(Sqrt(2 - 2 * c1))

H = 1 - CSng(Sqrt(S * S - R * R))

A = R * s1 : B = R * s2

C = R * c1 : D = R * c2

DesigningLine(R, H, 0, C, H, A)

DesigningLine(C, H, A, D, H, B)

DesigningLine(D, H, B, D, H, -B)

DesigningLine(D, H, -B, C, H, -A)

DesigningLine(C, H, -A, R, H, 0)

DesigningLine(R, H, 0, 0, 1, 0)

DesigningLine(C, H, A, 0, 1, 0)

DesigningLine(D, H, B, 0, 1, 0)

DesigningLine(D, H, -B, 0, 1, 0)

DesigningLine(C, H, -A, 0, 1, 0)

DesigningLine(-R, -H, 0, -C, -H, A)

DesigningLine(-C, -H, A, -D, -H, B)

DesigningLine(-D, -H, B, -D, -H, -B)

DesigningLine(-D, -H, -B, -C, -H, -A)

DesigningLine(-C, -H, -A, -R, -H, 0)

DesigningLine(-R, -H, 0, 0, -1, 0)

DesigningLine(-C, -H, A, 0, -1, 0)

DesigningLine(-D, -H, B, 0, -1, 0)

DesigningLine(-D, -H, -B, 0, -1, 0)

DesigningLine(-C, -H, -A, 0, -1, 0)

DesigningLine(R, H, 0, -D, -H, B)

DesigningLine(R, H, 0, -D, -H, -B)

DesigningLine(C, H, A, -D, -H, B)

DesigningLine(C, H, A, -C, -H, A)

DesigningLine(D, H, B, -C, -H, A)

DesigningLine(D, H, B, -R, -H, 0)

DesigningLine(D, H, -B, -R, -H, 0)

DesigningLine(D, H, -B, -C, -H, -A)

DesigningLine(C, H, -A, -C, -H, -A)