0 2 1 634692254788392637 0 8 66 cd271e38-d6af-4e02-a5d7-7c3d26620346 100;150;0;0 100;0;150;0 Shaded 2012_04_05-icosa.ghx 634688326464137098 0 -305 -332 1.95312488 0 3 57da07bd-ecab-415d-9d86-af36d7073abc Number Slider Number Slider S Numeric slider for single values 0dce2169-6c30-4589-8c1d-28f563448b66 false 0 172.697 294.024 172 294 140 20 16.537 0 22 3 0 1 079bd9bd-54a0-41d4-98af-db999015f63d VB Script Dim pi, R, H1, H2, Z1, Z2, H, Cx, Cy As Double Dim po(11) As Point3d pi = 4 * System.Math.atan(1) R = (S / 2) / System.Math.Sin(pi / 5) H = System.Math.Cos(pi / 5) * R H1 = System.Math.Sqrt(S * S - R * R) H2 = System.Math.Sqrt((H + R) * (H + R) - H * H) Z2 = (H2 - H1) / 2 Z1 = Z2 + H1 Cx = R * System.Math.Cos(pi / 10) Cy = R * System.Math.Sin(pi / 10) po(0) = New Point3d(0, 0, Z1) po(1) = New Point3d(0, R, Z2) po(2) = New point3d(Cx, Cy, Z2) po(3) = New point3d(S / 2, -H, Z2) po(4) = New point3d(-S / 2, -H, Z2) po(5) = New point3d(-Cx, Cy, Z2) po(6) = New point3d(0, -R, -Z2) po(7) = New point3d(-Cx, -Cy, -Z2) po(8) = New point3d(-S / 2, H, -Z2) po(9) = New point3d(S / 2, H, -Z2) po(10) = New point3d(Cx, -Cy, -Z2) po(11) = New point3d(0, 0, -Z1) V = po 0 VB Script Icosahedron A VB.NET scriptable component 20f6e228-a832-4567-8389-898708b52f54 359 300 327 253 75 93 2 2 84fa917c-1ed8-4db3-8be1-7bdc4a6495a2 84fa917c-1ed8-4db3-8be1-7bdc4a6495a2 3ede854e-c753-40eb-84cb-b48008f14fd4 8ec86459-bf01-4409-baee-174d0d2b13d0 O O Script Variable O 6df952b4-4f2f-4d71-9a4b-571dbcbb9f6b true 1 0de747cb-ddd4-4786-b0cc-235ed05424f4 e1937b56-b1da-4c12-8bd8-e34ee81746ef true true 338 277.25 329 255 15 44 S S Script Variable S 4b581717-b190-4843-a219-8bcea5d6178a true 1 0dce2169-6c30-4589-8c1d-28f563448b66 8e991e99-5fb8-41e1-928d-1bba8fb9f7d7 true true 338 321.75 329 299 15 45 out out Print, Reflect and Error streams 4df497a9-6957-4114-b070-ea7c1f7ae1c1 false 0 387 277.25 374 255 26 44 V V Output parameter V 7bbde250-c22f-4f39-80f9-faa1dcd17625 false 0 387 321.75 374 299 26 45 fbac3e32-f100-4292-8692-77240a42fd1a Point Point Pt Represents a collection of 3D Points 0de747cb-ddd4-4786-b0cc-235ed05424f4 true false 0 1 278.24 277.6 253 267 50 20 12 31 31