[D]elamjam

"""
Script written by <Luis Quinones>
Script copyrighted by <[n]igma + complicitMatter + computationalMatter>
www.complicitMatter.com
www.computationalmatter.com
Script version Thursday, 16 Feb 2012 20:18:46
"""

import rhinoscriptsyntax as rs
import math

from System.Drawing import Color 

baseCrv = rs.GetObject("BaseAction")
strTransferPt = rs.GetObject("PointA",rs.filter.point)
coordTransferPt = rs.PointCoordinates(strTransferPt)

strTransferPt2 = rs.GetObject("PointB",rs.filter.point)
coordTransferPt2 = rs.PointCoordinates(strTransferPt2)

strTransferPt3 = rs.GetObject("PointC",rs.filter.point)
coordTransferPt3 = rs.PointCoordinates(strTransferPt3)

intDiv = 16
arrCrvPtsA = rs.DivideCurve(baseCrv, intDiv, False)

arrSplitA = arrCrvPtsA[0:8]
arrSplitB = arrCrvPtsA[8:16]


for m in range(len(arrSplitA)):
    #print m
    pointA = rs.AddPoint(arrSplitA[m])
    rs.ObjectColor(pointA, Color.White)
    pointB = rs.AddPoint(arrSplitB[m])
    rs.ObjectColor(pointB, Color.Red)


for i in range(len(arrSplitA)):
    for j in range(0,8):

        strMainCrv = rs.AddLine(arrSplitA[i],arrSplitB[j])
        intDiv2 = rs.DivideCurve(strMainCrv, 7, True)

        intDiv2.remove(intDiv2[3])

        intDiv2.insert(3,coordTransferPt)
        
        intDiv2.remove(intDiv2[4])
        intDiv2.insert(4,coordTransferPt2)
        
        arrFinalCrvs = rs.AddCurve(intDiv2,3)
        rs.ObjectColor(arrFinalCrvs, Color.Red)

        intDiv3 = rs.DivideCurve(arrFinalCrvs, 7, True)

        intDiv3.remove(intDiv3[3])
        intDiv3.insert(3,coordTransferPt3)
        
        arrFinalCrvs2 = rs.AddCurve(intDiv3,3)
        rs.ObjectColor(arrFinalCrvs2, Color.Green)
        
        rs.DeleteObject(strMainCrv)
Update