Actually solved it in a different way, created an enum to pass meaningful 
information to the next proc.
    
    
    type
      Intersection = enum
        intersect,
        parallel,
        zerolength,
        notsegment
    
    proc lintersect(p1, .....): (Intersection, Vec2) =
     ...
    return (indicator, vec2)
    
    
    Run

Reply via email to