curve = rs.GetObject()
points = rs.GetObjects()
length = 50
for point in points:
    pt = rs.coerce3dpoint(point)
    param = rs.CurveClosestPoint(curve, pt)
    normal = rs.CurveNormal(curve)
    tangent = rs.CurveTangent(curve, param)
    curveNormal = rs.VectorCrossProduct(normal, tangent)
    rs.AddLine(pt, pt - curveNormal * length)