| maFigure |
maFigure := DrGeoCanvas new.
maFigure segment: 3@3 to: 6@0.
maFigure segment: -3@0 to: 6@0.
maFigure segment: -3@0 to: 3@3.
maFigure
intersectionOf: (maFigure perpendicular: (maFigure segment: 3@3 to: 6@0) at: -3@0)
and: (maFigure perpendicular: (maFigure segment: -3@0 to: 6@0) at: 3@3)