0 1 1 633711852856672500 0 5 99 true true Shaded 090225_luong_a.ghx 633711747576457500 0 81 31 1 0 10 d5967b9f-e8ee-436b-a8ad-29fdcecf32d5 Curve CrvRight f29c6dd8-3158-4034-882c-0cac09b595ab false false 0 0 1 true 64 121 60 20 64 121 60 20 64 121 false true false ba016c72-b4c5-40a2-9527-d8fa4cf9eccd -1 d5967b9f-e8ee-436b-a8ad-29fdcecf32d5 Curve CrvLeft 9968d873-d7db-4b28-8d19-81251497f8de false false 0 0 1 true 64 161 60 20 64 161 60 20 64 161 false true false 7a35579a-20eb-40e1-8f59-564d51eaedac -1 57da07bd-ecab-415d-9d86-af36d7073abc Number Slider count c70a11eb-b5dd-41b0-aa1a-54171cb76583 true false 0 0 29.5 231 141 20 29.5 231 40 20 29.5 231 false true false 9 3 20 4 1 fb6aba99-fead-4e42-b5d8-c6de5ff90ea6 VB.NET Script ''' <your code> Dim DEG_TO_RAD As Double = 0.0174532925 Dim arrOut As Arraylist = New ArrayList() Dim chvWidth As Double = chvSize Dim chvHeight As Double = chvSize * 1.5 For n As Integer = 0 To PointsLeft.count() - 1 Dim pt0 As On3dPoint = New On2dPoint(0, 0) Dim pt1 As On3dPoint = New On2dPoint(chvWidth, 0) Dim pt2 As On3dPoint = New On2dPoint(chvWidth / 2, chvHeight) Dim rotPt As On3dPoint = pt0 Dim frameLeft As OnPlane = FrameFromTwoPoints(PointsLeft(n), PointsRight(n)) Dim frameRight As OnPlane = FrameFromTwoPoints(PointsRight(n), PointsLeft(n)) frameLeft.Rotate(arrRotationAngle(n) * DEG_TO_RAD, frameLeft.zaxis, frameLeft.PointAt(rotPt.x, rotPt.y, rotPt.z)) frameRight.Rotate(arrRotationAngle(n) * DEG_TO_RAD, frameRight.zaxis, frameRight.PointAt(rotPt.x, rotPt.y, rotPt.z)) Dim ptR0 As On3dPoint = frameLeft.PointAt(pt0.x, pt0.y, pt0.z) Dim ptR1 As On3dPoint = frameLeft.PointAt(pt1.x, pt1.y, pt1.z) Dim ptR2 As On3dPoint = frameLeft.PointAt(pt2.x, pt2.y, pt2.z) ''arrOut.Add(frameLeft) arrOut.Add(ptR0) arrOut.Add(ptR1) arrOut.Add(ptR2) Dim ptL0 As On3dPoint = frameRight.PointAt(pt0.x, pt0.y, pt0.z) Dim ptL1 As On3dPoint = frameRight.PointAt(pt1.x, pt1.y, pt1.z) Dim ptL2 As On3dPoint = frameRight.PointAt(pt2.x, pt2.y, pt2.z) ''arrOut.Add(frameRight) arrOut.Add(ptL0) arrOut.Add(ptL1) arrOut.Add(ptL2) Dim pl As OnCurve Next arrPts = arrOut ''' </your code> Function FrameFromTwoPoints (ByVal pt0 As On3dPoint, ByVal pt1 As On3dPoint)As OnPlane Dim ptTemp As On3dPoint = New On3dPoint(pt0.x, pt0.y, pt0.z + 10) ''Dim upVec As On3dVector = New On3dVector() Dim frame As OnPlane = New OnPlane() frame.CreateFromPoints(pt0, pt1, ptTemp) FrameFromTwoPoints = frame End Function Sub Translate (ByRef pt As On3dPoint, ByVal vec As On3dVector, ByVal dist As Double) vec.Unitize() vec = vec * dist Dim xForm As OnXform = New OnXform() xForm.Translation(vec) pt.Transform(xform) End Sub 0 VB f34fad49-38db-4bc8-81e1-f1a99029bbf6 true longest_list 4 PointsLeft PointsRight arrRotationAngle chvSize 1 arrPts 396 121 166 84 492 123 27 80 492 123 false true false PointsLeft 0c883013-5a31-49d4-93b0-9489c6f8c817 true true 1 1785062a-ac18-4472-8a61-1ee12a0ec61a 0 On3dPoint true 0 0 0 0 396 123 96 20 396 123 false true false PointsRight fedde183-d39e-4c3a-8580-9e8dfed20323 true true 1 6b0cd127-36b6-4459-ba63-84a5098f9080 0 On3dPoint true 0 0 0 0 396 143 96 20 396 143 false true false arrRotationAngle ff3f74da-8639-420a-aebb-b2861ee27cd2 true true 1 72e0ad6e-9939-4f23-88dd-ede003c03b9b 0 Double true 0 0 0 0 396 163 96 20 396 163 false true false chvSize 9025dd5b-39c9-47ce-a33b-4b8e1957a2b5 true false 1 cd422999-0c30-4187-a1ef-bfe1bf486755 0 Double true 0 0 0 0 396 183 96 20 396 183 false true false out 2d5a112a-ce38-49e8-8450-2e2d035baffc true false 0 0 0 0 0 0 0 519 123 43 40 519 123 false true false arrPts 8beb92d6-ca7e-47af-83b8-3abd2e1ecf9e true false 0 0 0 0 0 0 519 163 43 40 519 163 false true false 59e0b89a-e487-49f8-bab8-b5bab16be14c Panel Panel 1464dad6-283e-4bd1-b9ee-710e9ea35f51 true false 1 2d5a112a-ce38-49e8-8450-2e2d035baffc 0 Double click to edit panel content… true 1 false 623 39 150 212 625 40 146 210 623 39 false true false 2162e72e-72fc-4bf8-9459-d4d82fa8aa14 Divide Curve PtsRight b8697001-28fc-4573-9b42-705a7f3fc9cc false longest_list 236 138 70 73 258 140 27 69 258 140 false true false C 746f8298-27f8-40e8-bc60-59ae2293f9bf true false 1 f29c6dd8-3158-4034-882c-0cac09b595ab 0 0 false 0 0 0 0 236 140 22 23 236 140 false true false N 7f1e7733-917f-4e2c-acc4-c9cfdd2936c1 true false 1 c70a11eb-b5dd-41b0-aa1a-54171cb76583 0 1 0 0 0 0 236 163 22 23 236 163 false true false 10 K da37eb92-a0ba-403a-bf8a-a4528c3d6a51 true false 0 0 1 false 0 0 0 0 236 186 22 23 236 186 false true false false P 6b0cd127-36b6-4459-ba63-84a5098f9080 true false 0 0 0 0 0 0 0 285 140 21 23 285 140 false true false T 3d40ae36-c132-4010-91f4-803a0619ab1c true false 0 0 0 0 0 0 0 285 163 21 23 285 163 false true false t 374eecea-8bb5-4a9a-a2b2-47c2a70f6412 true false 0 0 0 0 0 0 0 285 186 21 23 285 186 false true false 2162e72e-72fc-4bf8-9459-d4d82fa8aa14 Divide Curve PtsLeft 06306f1b-fb73-4c6e-8059-0f8f7884653c false longest_list 236 59 70 64 258 61 27 60 258 61 false true false C 55de0bc3-725e-45ea-8500-09b07a51d9fe true false 1 9968d873-d7db-4b28-8d19-81251497f8de 0 0 false 0 0 0 0 236 61 22 20 236 61 false true false N dd741b95-55af-433e-a7dc-db430d368a52 true false 1 c70a11eb-b5dd-41b0-aa1a-54171cb76583 0 1 0 0 0 0 236 81 22 20 236 81 false true false 10 K b88d3059-fb70-4e33-a653-2e91d14c2ef0 true false 0 0 1 false 0 0 0 0 236 101 22 20 236 101 false true false false P 1785062a-ac18-4472-8a61-1ee12a0ec61a true false 0 0 0 0 0 0 0 285 61 21 20 285 61 false true false T abbac5b4-b67f-487f-8a66-d2bbf43cf13b true false 0 0 0 0 0 0 0 285 81 21 20 285 81 false true false t 7813e7d7-ba38-4987-a4b6-0107abfcd7ab true false 0 0 0 0 0 0 0 285 101 21 20 285 101 false true false 57da07bd-ecab-415d-9d86-af36d7073abc Number Slider size cd422999-0c30-4187-a1ef-bfe1bf486755 true false 0 0 32.5 272 141 20 32.5 272 33 20 32.5 272 false true false 20 0.5 20 4 1 bc984576-7aa6-491f-a91d-e444c33675a7 Graph Mapper Graph 72e0ad6e-9939-4f23-88dd-ede003c03b9b true false 1 693ab0b2-0a52-4a3e-a052-d1ff290c88d4 0 167 353 165 155 173 359 153 143 167 353 false true false false 0 1 -90 90 7026a6d2-9b94-4314-b6d3-6850eff942fe Bezier 0 0 0.69281047582626343 1 0.843137264251709 0.96503496170043945 1 0.14685314893722534 9445ca40-cc73-4861-a455-146308676855 Range Range 58117acf-8acf-489a-be6e-1f40188cef10 true longest_list 69.5 395 71 58 91.5 397 27 54 91.5 397 false true false D 20da0dcb-1514-42cf-aed1-f1fe65b8dbc9 true false 0 0 1 0 0 0 0 69.5 397 22 27 69.5 397 false true false 0 1 N 56d47f30-cdb8-43df-8d21-c55fdb3f13b5 true false 1 c70a11eb-b5dd-41b0-aa1a-54171cb76583 0 1 0 0 0 0 69.5 424 22 27 69.5 424 false true false 10 R 693ab0b2-0a52-4a3e-a052-d1ff290c88d4 true false 0 0 0 0 0 0 0 118.5 397 22 54 118.5 397 false true false