0 1 1 633612254148437500 0 5 70 true true Shaded multipleAtt.ghx 633612240025468750 0 8 8 0.8 0 9 57da07bd-ecab-415d-9d86-af36d7073abc Number Slider Attractor Force b0cd3801-59e4-413e-bf5f-95a79e49eab4 true false 0 0 40.95001 219.0625 203.3 20 40.95001 219.0625 86 20 40.95001 219.0625 false true false 14.028778106633688 -50 50 4 0 fbac3e32-f100-4292-8692-77240a42fd1a Point AttractorPoints 35e8a4a5-3d84-4cb3-8544-31709fd06e58 true false 0 0 4 41.6875 166.5 93 20 41.6875 166.5 93 20 41.6875 166.5 false true false ec98a00e-faf1-4f9e-b35c-f5c04b44fd32 -1 0 0 point_object d2479abb-fe5c-4961-9633-be874187603f -1 0 0 point_object 3bd25d24-3def-46af-b6a0-efcc111b1201 -1 0 0 point_object 234571e2-f2bd-4654-90b0-f6b4c41e2d0e -1 0 0 point_object 57da07bd-ecab-415d-9d86-af36d7073abc Number Slider Treshold 791b26cc-4e53-4f5e-8d01-837e4b659810 true false 0 0 39.95001 195.0625 205.3 20 39.95001 195.0625 56 20 39.95001 195.0625 false true false 200 0 200 4 0 fb6aba99-fead-4e42-b5d8-c6de5ff90ea6 VB.NET Script AttManager e2ad4f89-5e0c-4539-af93-915631326bf8 false longest_list ''' <your code> ''' <released, of course, under the Creative Commons Attribution-Noncommercial-Share Alike 3.0 Licence.> Dim dist As New List(Of On3dPoint), d As Double Dim _lines As New List (Of OnLine), l As OnLine Dim _lines2 As New List (Of OnLine) Dim pt As On3dPoint, at As On3dPoint Dim _points As New List (Of On3dPoint) Dim _points2 As new List (of On3dPoint) Dim v As New On3dVector For Each pt In srfPT 'for each attractor check agains all surface points Dim k As Integer k = 0 Dim vlist As New List (Of On3dVector) For Each at In attPT 'for each surface point caclulate the distance to the attractor d = pt.DistanceTo(at) 'if the distance < treshold then calculate the deformation total for each point If (d < treshold) Then k += 1 l = New OnLine(pt, at) _lines.Add(l) v = l.Direction() : v.Reverse() v = v * force / l.Length() v.Set((v.x + pt.x), (v.y + pt.y), (v.z + pt.z)) l = New OnLine(new On3dPoint(v), pt) _lines2.Add(l) pt = (l.from()) vlist.Add(l.from()) End If Next 'add deformations Dim sum As New On3dPoint If k > 1 Then Dim i As Integer i = 0 For Each v In vlist dist.Add(v) sum += New On3dPoint(v) i += 1 Next sum /= i 'dist.Add(attPt.Count) _points.Add(sum) Else _points.Add(pt) End If Next A = _lines2 lines = _points2 points = _points out3 = dist ''' </your code> 4 srfPT attPT treshold force 5 A lines points out3 out4 323.95 133.8 123 124 376.95 135.8 27 120 376.95 135.8 false true false srfPT 22ed7473-7c3d-4223-9385-056557eaf411 true true 1 d690eec9-0d51-4210-8636-f887d8ae8b2f 0 On3dPoint true 0 0 0 0 323.95 135.8 53 30 323.95 135.8 false true false attPT 486ef04b-e200-4458-9b7c-e021498126ff true true 1 35e8a4a5-3d84-4cb3-8544-31709fd06e58 0 On3dPoint true 0 0 0 0 323.95 165.8 53 30 323.95 165.8 false true false treshold fbd91028-5294-4b1b-8ca5-e050e3c2ee7c true false 1 791b26cc-4e53-4f5e-8d01-837e4b659810 0 Double true 0 0 0 0 323.95 195.8 53 30 323.95 195.8 false true false force 6c1a74ff-d504-4d89-a1bd-905bed818a37 true false 1 b0cd3801-59e4-413e-bf5f-95a79e49eab4 0 Double true 0 0 0 0 323.95 225.8 53 30 323.95 225.8 false true false out 46cb6293-a927-4a04-951d-9382c67875c3 true false 0 0 0 0 0 0 0 403.95 135.8 43 20 403.95 135.8 false true false A e412cf24-6504-45b9-b961-0dcb0cfec667 true false 0 0 0 0 0 0 403.95 155.8 43 20 403.95 155.8 false true false lines 88260711-f841-4e19-97a6-c6417cfadcec true false 0 0 0 0 0 0 403.95 175.8 43 20 403.95 175.8 false true false points acd4caff-3b4c-490a-b60e-36008f0272c9 true false 0 0 0 0 0 0 403.95 195.8 43 20 403.95 195.8 false true false out3 6ddf1e7b-6cb0-42c8-803f-6954009077b3 true false 0 0 0 0 0 0 403.95 215.8 43 20 403.95 215.8 false true false out4 34a70719-60e9-40d9-922d-23b4f21684ca true false 0 0 0 0 0 0 403.95 235.8 43 20 403.95 235.8 false true false 99f1e47c-978d-468f-bb3d-a3df44552a8e Grid Rectangular RecGrid 37a49b05-761b-4050-ba4f-e85043a4f436 true longest_list 452.25 38.20001 71 84 473.25 40.20001 27 80 473.25 40.20001 false true false P b95b08fa-afca-43b8-a12a-b20a0172fe2c true false 0 0 1 0 0 0 0 452.25 40.20001 21 20 452.25 40.20001 false true false 0 0 0 1 0 0 0 1 0 X 1486e17b-d84c-4414-85ab-10506691f3a2 true false 1 0ac8a78e-5d46-49c7-9ffe-4b2fcde4d01a 0 1 0 0 0 0 452.25 60.20001 21 20 452.25 60.20001 false true false 5 Y ef251c3e-6512-4835-9405-0f045fd37ef9 true false 1 0ac8a78e-5d46-49c7-9ffe-4b2fcde4d01a 0 1 0 0 0 0 452.25 80.20001 21 20 452.25 80.20001 false true false 5 S b5e55e9b-d158-4c8a-ae95-3352d54719a6 true false 1 a31fa747-6cc6-4b4f-b33b-72be7f0b3c3c 0 1 0 0 0 0 452.25 100.2 21 20 452.25 100.2 false true false 1 G d690eec9-0d51-4210-8636-f887d8ae8b2f true false 0 0 0 0 0 0 0 500.25 40.20001 23 26.66667 500.25 40.20001 false true false C 43a1885e-5ffb-4d56-8b9e-77f7284ffcab true false 0 0 0 false 0 0 0 0 500.25 67.20001 23 26.66667 500.25 67.20001 false true false M da06f9da-4aec-4b24-ab0c-8ae5b042082a false false 0 0 0 0 0 0 0 500.25 93.20001 23 26.66667 500.25 93.20001 false true false 57da07bd-ecab-415d-9d86-af36d7073abc Number Slider Slider 0ac8a78e-5d46-49c7-9ffe-4b2fcde4d01a true false 0 0 39.54999 68.60001 343.5 20 39.54999 68.60001 41 20 39.54999 68.60001 false true false 10 0 100 4 1 57da07bd-ecab-415d-9d86-af36d7073abc Number Slider Slider a31fa747-6cc6-4b4f-b33b-72be7f0b3c3c true false 0 0 41.25 98.60001 342.1 20 41.25 98.60001 41 20 41.25 98.60001 false true false 2.9772329246935203 0 100 4 0 28061aae-04fb-4cb5-ac45-16f3b66bc0a4 Center Box Box 2c8fdb52-7ac7-4501-8381-6a829e13a7ca true longest_list 577.25 82.20001 69 84 598.25 84.20001 27 80 598.25 84.20001 false true false B f18b70a3-559a-48e8-9537-c17d0ee30a4e true false 1 d690eec9-0d51-4210-8636-f887d8ae8b2f 0 1 0 0 0 0 577.25 84.20001 21 20 577.25 84.20001 false true false 0 0 0 1 0 0 0 1 0 X f5d6fc55-ad42-4dd1-95b6-c35cc6dbd613 true false 0 0 1 0 0 0 0 577.25 104.2 21 20 577.25 104.2 false true false 1 Y b1ae969d-0bed-4d85-b144-9b8d3f795648 true false 0 0 1 0 0 0 0 577.25 124.2 21 20 577.25 124.2 false true false 1 Z a8d60dd3-d6f7-47be-ac96-89f6bcc02f4d true false 1 3527fe0e-eb9b-4416-878f-3a456d2de965 0 1 0 0 0 0 577.25 144.2 21 20 577.25 144.2 false true false 1 B 74511d34-15af-4973-8c4c-81a8bbddf863 true false 0 0 0 0 0 0 0 625.25 84.20001 21 80 625.25 84.20001 false true false 9abae6b7-fa1d-448c-9209-4a8155345841 Decompose pComp f0efc41a-d0f7-43f3-a906-5df1259c7a11 true longest_list 494.45 185 69 64 515.45 187 27 60 515.45 187 false true false P bdd2e74e-5488-4b2b-88a8-c4f27e0fa928 true false 1 acd4caff-3b4c-490a-b60e-36008f0272c9 0 0 0 0 0 0 494.45 187 21 60 494.45 187 false true false X d595480c-f3b8-468e-a4d3-8a302b8ce26f true false 0 0 0 0 0 0 0 542.45 187 21 20 542.45 187 false true false Y a9f98a47-6e79-4a6b-9777-c1e8c8fd7289 true false 0 0 0 0 0 0 0 542.45 207 21 20 542.45 207 false true false Z 3527fe0e-eb9b-4416-878f-3a456d2de965 true false 0 0 0 0 0 0 0 542.45 227 21 20 542.45 227 false true false