Thanks for this idea. In the meantime I found
calculateDistanceToLineSegment
in TclLib's math::geometry package. So I will loop over all segments
and if the distance is smaller than some epsilon I will consider the
point on the line.
But thanks for caring.
Helmut