![\"Funicular1\"](\"https:\/\/www.modelical.com\/wp-content\/uploads\/2014\/03\/Funicular1.jpg\")
<\/p>\nAfter the beautiful examples from 107, let’s see some more examples of iteration that are not easily achievable with plain GH, now involving more transformations and intersections.<\/p>\n
The problem is as follows. We have a set of lines (red), a set of infinite rays (green) and an anchor point. We want to build a polygon starting from the point, following the first line’s direction until we reach the first ray, then we continue with the second line’s direction until the second ray and so on and so forth until we run out of lines or rays. Two images are worth a thousand words:<\/p>\n
From this…<\/p>\n
<\/p>\n
We want to achieve this, with A parallel to each other, as well as B, C, etc.<\/p>\n
![\"Funicular2\"](\"https:\/\/www.modelical.com\/wp-content\/uploads\/2014\/03\/Funicular2.jpg\")
<\/p>\n
So let’s see some code:<\/p>\n
private void RunScript(List<Line> x, List<Line> y, Point3d p, ref object A)\r\n {\r\n \/\/a little of care about our inputs is always good\r\n if(x != null && y != null && p.IsValid)\r\n {\r\n \/\/see what we'll run out of before, lines or rays\r\n int c = Math.Min(x.Count, y.Count);\r\n \/\/declare a list for our points\r\n List<Point3d> ptList = new List<Point3d>();\r\n \/\/add the anchor point\r\n ptList.Add(p);\r\n \/\/iterate through lines and rays\r\n for (int i = 0; i < c; i++)\r\n {\r\n\r\n \/\/pick the current line and ray\r\n Line ln = x[i];\r\n Line ray = y[i];\r\n \/\/find the starting point of the line\r\n Point3d pt1 = ln.From;\r\n \/\/build a transformation between the current point and the start of the current line\r\n Transform xForm = Transform.Translation(ptList[i] - pt1);\r\n \/\/move the line to its position\r\n ln.Transform(xForm);\r\n \/\/holders for the intersection t values\r\n double lnt = 0.0;\r\n double rayt = 0.0;\r\n \/\/perform the intersection\r\n if(!Rhino.Geometry.Intersect.Intersection.LineLine(ln, ray, out lnt, out rayt))\r\n { \r\n \/\/if went wront, tell the user\r\n Print(\"Intersection at step {0} failed\", i);\r\n\r\n }\r\n else\r\n { \r\n \/\/if went well, create a point and add it to the list\r\n Point3d pt = ln.PointAt(lnt);\r\n ptList.Add(pt);\r\n }\/\/end if\r\n }\/\/end loop\r\n \/\/start again with the newly added point \r\n\r\n \/\/output the points\r\n A = ptList;\r\n }\r\n }<\/pre>\n