IN: rectangle
USING: kernel math ;

! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

TUPLE: rect corner size ;

! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

GENERIC: top-left

GENERIC: move-top-left
GENERIC: move-top-right
GENERIC: move-bottom-left
GENERIC: move-bottom-right

GENERIC: move-middle-center

! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

M: rect top-left ( rect -- point ) rect-corner ;

! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

: move-top-left:new-corner ( point rect -- corner )
  drop ;

M: rect move-top-left ( point rect -- corner )
  tuck move-top-left:new-corner swap rect-size <rect> ;

! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

: move-bottom-right:new-corner ( point rect -- corner )
  rect-size { -1 -1 } v+ v- ;

M: rect move-bottom-right ( point rect -- rect )
  tuck move-bottom-right:new-corner swap rect-size <rect> ;

! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

: move-top-right:new-corner ( point rect -- corner )
  rect-size { -1 -1 } v+ { 1 0 } v* v- ;

M: rect move-top-right ( point rect -- rect )
  tuck move-top-right:new-corner swap rect-size <rect> ;

! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

: move-bottom-left:new-corner ( point rect -- corner )
  rect-size { -1 -1 } v+ { 0 1 } v* v- ;

M: rect move-bottom-left ( point rect -- rect )
  tuck move-bottom-left:new-corner swap rect-size <rect> ;

! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

: move-middle-center:new-corner ( point rect -- coener )
  rect-size { 1/2 1/2 } v* { -1 -1 } v+ v- ;

M: rect move-middle-center ( point rect -- rect )
  tuck move-middle-center:new-corner swap rect-size <rect> ;