flet

( ( x1 ( self ) ( slot-value self 'x1 ) ) ( x2 ( self ) ( slot-value self 'x2 ) ) ( y ( self ) ( slot-value self 'y ) ) ( point1 ( self ) ( slot-value self 'point1 ) ) ( point2 ( self ) ( slot-value self 'point2 ) ) )