Point>>vertex: aPoint

    ^aRectangle vertex: self vertex: aPoint

Rectangle class>>vertex: point1 vertex: point2

    ^self origin: (point1 min: point2) corner: (point1 max: point2)