(RangeInters T ; <- because of this flag
'((10 20)(20 30)(30 40)(50 60))
'((90 100)(80 90)(10 0)) ; (10 0) will intersect
)
>> (((10 0) (10 20)))
(RangeInters nil ; <- because of this flag
'((10 20)(20 30)(30 40)(50 60))
'((90 100)(80 90)(10 0)) ; (10 0) will NOT intersect
)
>> nil
(RangeInters nil
'((10 20)(20 30)(30 40)(50 60))
'((90 100)(80 90)) ; no intersection
)
>> nil
(RangeInters nil
'((10 20)(20 30)(30 40)(50 60))
'((90 100)(80 90)(15 25)) ; only (15 25) will intersect the above list
)
>> (((10 20) (15 25)) ((20 30) (15 25)))
(RangeInters nil
'((10 20)(20 30)(30 40)(50 60))
'((90 100)(80 90)(15 25)(39 51)) ; (15 25) and (39 51) will intersect the above list
)
>> (((10 20) (15 25)) ((20 30) (15 25)) ((30 40) (39 51)) ((50 60) (39 51)))
(RangeInters nil
'((10 20)(20 30)(30 40)(50 60))
'((90 100)(80 90)(15 25)(41 51)) ; (15 25) and (41 51) will intersect the above list
)
>> (((10 20) (15 25)) ((20 30) (15 25)) ((50 60) (41 51)))