1. 1
2. 2
3. 3
4. 4
5. 5
6. 6
7. 7
8. 8
9. 9
10. 10
11. 11
12. 12
13. 13
14. 14
15. 15
16. 16
17. 17
18. 18
19. 19
20. 20
21. 21
22. 22
23. 23
24. 24
25. 25
26. 26
27. 27
28. 28
29. 29
30. 30
31. 31
32. 32
33. 33
34. 34
35. 35
36. 36
37. 37
38. 38
39. 39
40. 40
41. 41
42. 42
43. 43
44. 44
45. 45
46. 46
47. 47
48. 48
49. 49
50. 50
51. 51
52. 52
53. 53
54. 54
55. 55
56. 56
57. 57
58. 58
59. 59
60. 60
61. 61
62. 62
63. 63
64. 64
65. 65
66. 66
67. 67
68. 68
69. 69
70. 70
71. 71
72. 72
73. 73
74. 74
75. 75
76. 76

-- Copyright 2026 Shota FUJI
--
-- This Source Code Form is subject to the terms of the Mozilla Public
-- License, v. 2.0. If a copy of the MPL was not distributed with this
-- file, You can obtain one at https://mozilla.org/MPL/2.0/.
--
-- SPDX-License-Identifier: MPL-2.0


module Template.Layout.Coordinate exposing (..)


type alias Point2D =
    { x : Float, y : Float }


type alias Size =
    { width : Float, height : Float }


{-| Returns `True` if `a` contains `b`.
-}
contains : Size -> Size -> Bool
contains a b =
    a.width >= b.width && a.height >= b.height


type Request a
    = Exactly a
    | AtLeast a


mapRequest : (a -> b) -> Request a -> Request b
mapRequest f r =
    case r of
        Exactly a ->
            Exactly (f a)

        AtLeast a ->
            AtLeast (f a)


type alias SizeRequest =
    { width : Request Float, height : Request Float }


minSizeOf : SizeRequest -> Size
minSizeOf s =
    { width =
        case s.width of
            Exactly w ->
                w

            AtLeast w ->
                w
    , height =
        case s.height of
            Exactly h ->
                h

            AtLeast h ->
                h
    }


{-| Clip `a` with `b`.
-}
clip : SizeRequest -> SizeRequest -> SizeRequest
clip a b =
    let
        size =
            minSizeOf b
    in
    { width = mapRequest (min size.width) a.width
    , height = mapRequest (min size.height) a.height
    }