;;; Chickadee Game Toolkit
;;; Copyright © 2022 David Thompson <dthompson2@worcester.edu>
;;;
;;; Licensed under the Apache License, Version 2.0 (the "License");
;;; you may not use this file except in compliance with the License.
;;; You may obtain a copy of the License at
;;;
;;;    http://www.apache.org/licenses/LICENSE-2.0
;;;
;;; Unless required by applicable law or agreed to in writing, software
;;; distributed under the License is distributed on an "AS IS" BASIS,
;;; WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
;;; See the License for the specific language governing permissions and
;;; limitations under the License.

(define-module (tests rect)
  #:use-module (tests utils)
  #:use-module (srfi srfi-64)
  #:use-module (chickadee math)
  #:use-module (chickadee math rect)
  #:use-module (chickadee math vector))

(with-tests "rect"
  (let ((r (make-rect 1.0 2.0 3.0 4.0)))
    (test-equal "rect-x" (rect-x r) 1.0)
    (test-equal "rect-y" (rect-y r) 2.0)
    (test-equal "rect-width" (rect-width r) 3.0)
    (test-equal "rect-height" (rect-height r) 4.0)
    (test-equal "rect-left" (rect-left r) 1.0)
    (test-equal "rect-right" (rect-right r) 4.0)
    (test-equal "rect-bottom" (rect-bottom r) 2.0)
    (test-equal "rect-top" (rect-top r) 6.0)
    (test-equal "rect-center-x" (rect-center-x r) 2.5)
    (test-equal "rect-center-y" (rect-center-y r) 4.0)
    (test-equal "rect-area" (rect-area r) 12.0)
    (test-group "rect-clamp-x"
      (test-equal "left" (rect-clamp-x r 0.5) 1.0)
      (test-equal "right" (rect-clamp-x r 4.5) 4.0)
      (test-equal "between" (rect-clamp-x r 2.0) 2.0))
    (test-group "rect-clamp-y"
      (test-equal "below" (rect-clamp-y r 1.0) 2.0)
      (test-equal "above" (rect-clamp-y r 7.0) 6.0)
      (test-equal "between" (rect-clamp-y r 3.0) 3.0)))
  (test-equal "set-rect-x!"
    (let ((r (make-null-rect)))
      (set-rect-x! r 1.5)
      (rect-x r))
    1.5)
  (test-equal "set-rect-y!"
    (let ((r (make-null-rect)))
      (set-rect-y! r 1.5)
      (rect-y r))
    1.5)
  (test-equal "set-rect-width!"
    (let ((r (make-null-rect)))
      (set-rect-width! r 1.5)
      (rect-width r))
    1.5)
  (test-equal "set-rect-height!"
    (let ((r (make-null-rect)))
      (set-rect-height! r 1.5)
      (rect-height r))
    1.5)
  (test-equal "rect-move!"
    (let ((r (make-null-rect)))
      (rect-move! r 1.0 2.0)
      r)
    (make-rect 1.0 2.0 0.0 0.0))
  (test-equal "rect-move-vec2!"
    (let ((r (make-null-rect)))
      (rect-move-vec2! r (vec2 1.0 2.0))
      r)
    (make-rect 1.0 2.0 0.0 0.0))
  (test-equal "rect-move-by!"
    (let ((r (make-rect 3.0 4.0 0.0 0.0)))
      (rect-move-by! r 1.0 2.0)
      r)
    (make-rect 4.0 6.0 0.0 0.0))
  (test-equal "rect-move-by-vec2!"
    (let ((r (make-rect 3.0 4.0 0.0 0.0)))
      (rect-move-by-vec2! r (vec2 1.0 2.0))
      r)
    (make-rect 4.0 6.0 0.0 0.0))
  (test-equal "rect-inflate!"
    (let ((r (make-rect 1.0 1.0 1.0 1.0)))
      (rect-inflate! r 2.0 3.0)
      r)
    (make-rect 0.0 -0.5 3.0 4.0))
  (test-equal "rect-union!"
    (let ((r (make-rect 1.0 2.0 1.0 2.0)))
      (rect-union! r (make-rect 3.0 4.0 1.0 1.0))
      r)
    (make-rect 1.0 2.0 3.0 3.0))
  (test-group "rect-clip!"
    (test-equal "overlapping"
      (let ((r (make-rect 0.0 0.0 4.0 5.0)))
        (rect-clip! r (make-rect 3.0 4.0 3.0 3.0))
        r)
      (make-rect 3.0 4.0 1.0 1.0))
    (test-equal "non-overlapping"
      (let ((r (make-rect 0.0 0.0 1.0 1.0)))
        (rect-clip! r (make-rect 3.0 4.0 1.0 1.0))
        r)
      (make-rect 3.0 4.0 0.0 0.0)))
  (test-equal "vec2-clamp-to-rect!"
    (let ((v (vec2 0.0 0.0)))
      (vec2-clamp-to-rect! v (make-rect 1.0 2.0 1.0 1.0))
      v)
    (vec2 1.0 2.0))
  (test-equal "rect-clamp!"
    (let ((r (make-rect 0.0 0.0 1.0 2.0)))
      (rect-clamp! r (make-rect 3.0 4.0 5.0 6.0))
      r)
    (make-rect 3.0 4.0 1.0 2.0))
  (test-equal "rect-move"
    (rect-move (make-null-rect) 1.0 2.0)
    (make-rect 1.0 2.0 0.0 0.0))
  (test-equal "rect-move-vec2"
    (rect-move-vec2 (make-null-rect) (vec2 1.0 2.0))
    (make-rect 1.0 2.0 0.0 0.0))
  (test-equal "rect-move-by"
    (rect-move-by (make-rect 3.0 4.0 0.0 0.0) 1.0 2.0)
    (make-rect 4.0 6.0 0.0 0.0))
  (test-equal "rect-move-by-vec2"
    (rect-move-by-vec2 (make-rect 3.0 4.0 0.0 0.0) (vec2 1.0 2.0))
    (make-rect 4.0 6.0 0.0 0.0))
  (test-equal "rect-inflate"
    (rect-inflate (make-rect 1.0 1.0 1.0 1.0) 2.0 3.0)
    (make-rect 0.0 -0.5 3.0 4.0))
  (test-equal "rect-union"
    (rect-union (make-rect 1.0 2.0 1.0 2.0) (make-rect 3.0 4.0 1.0 1.0))
    (make-rect 1.0 2.0 3.0 3.0))
  (test-group "rect-clip"
    (test-equal "overlapping"
      (rect-clip (make-rect 0.0 0.0 4.0 5.0) (make-rect 3.0 4.0 3.0 3.0))
      (make-rect 3.0 4.0 1.0 1.0))
    (test-equal "non-overlapping"
      (rect-clip (make-rect 0.0 0.0 1.0 1.0) (make-rect 3.0 4.0 1.0 1.0))
      (make-rect 3.0 4.0 0.0 0.0)))
  (test-equal "vec2-clamp-to-rect"
    (vec2-clamp-to-rect (vec2 0.0 0.0) (make-rect 1.0 2.0 1.0 1.0))
    (vec2 1.0 2.0))
  (test-equal "rect-clamp"
    (rect-clamp (make-rect 0.0 0.0 1.0 2.0) (make-rect 3.0 4.0 5.0 6.0))
    (make-rect 3.0 4.0 1.0 2.0))
  (test-group "rect-within?"
    (test-assert "no overlap"
      (not (rect-within? (make-rect 0.0 0.0 1.0 1.0)
                         (make-rect 2.0 2.0 1.0 1.0))))
    (test-assert "some overlap"
      (not (rect-within? (make-rect 1.5 1.5 1.0 1.0)
                         (make-rect 2.0 2.0 1.0 1.0))))
    (test-assert "full overlap"
      (rect-within? (make-rect 0.0 0.0 4.0 4.0)
                    (make-rect 2.0 2.0 1.0 1.0))))
  (test-group "rect-intersects?"
    (test-assert "no overlap"
      (not (rect-intersects? (make-rect 0.0 0.0 1.0 1.0)
                             (make-rect 2.0 2.0 1.0 1.0))))
    (test-assert "overlap"
      (rect-intersects? (make-rect 1.5 1.5 1.0 1.0)
                        (make-rect 2.0 2.0 1.0 1.0))))
  (test-group "rect-contains?"
    (test-assert "outside"
      (not (rect-contains? (make-rect 1.0 2.0 3.0 4.0) 5.0 1.0)))
    (test-assert "inside"
      (rect-contains? (make-rect 1.0 2.0 3.0 4.0) 3.0 4.0)))
  (test-group "rect-contains-vec2?"
    (test-assert "outside"
      (not (rect-contains-vec2? (make-rect 1.0 2.0 3.0 4.0) (vec2 5.0 1.0))))
    (test-assert "inside"
      (rect-contains-vec2? (make-rect 1.0 2.0 3.0 4.0) (vec2 3.0 4.0)))))