-
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