-
1
-
2
-
3
-
4
-
5
-
6
-
7
-
8
-
9
-
10
-
11
-
12
-
13
-
14
-
15
-
16
-
17
-
18
-
19
-
20
-
21
-
22
-
23
-
24
-
25
-
26
-
27
-
28
-
29
-
30
-
31
-
32
-
33
-
34
-
35
-
36
-
37
-
38
-
39
-
40
-
41
-
42
-
43
-
44
-
45
-
46
-
47
-
48
-
49
-
50
-
51
-
52
-
53
-
54
-
55
-
56
-
57
-
58
-
59
-
60
-
61
-- 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 Parameters.Constraints exposing (..)
import Length exposing (Length, mm)
import Parameters
type alias NumberConstraints a =
{ min : Maybe a
, max : Maybe a
}
type alias BuckleHole =
{ count : NumberConstraints Int
, diameter : NumberConstraints Length
}
type alias LongPiece =
{ buckleHole : BuckleHole
}
type alias Rendering =
{ margin : NumberConstraints Length
, lineWidth : NumberConstraints Length
}
type alias Parameters =
{ lugWidth : NumberConstraints Length
, longPiece : LongPiece
, lining : NumberConstraints Length
, rendering : Rendering
}
constraints : Parameters
constraints =
{ lugWidth = { min = Just (mm 10), max = Just (mm 30) }
, longPiece =
{ buckleHole =
{ count = { min = Just 0, max = Just 10 }
, diameter = { min = Just (mm 1), max = Just (mm 10) }
}
}
, lining = { min = Just (mm 0), max = Just (mm 5) }
, rendering =
{ margin = { min = Just (mm 0), max = Just (mm 20) }
, lineWidth = { min = Just (mm 0.1), max = Just (mm 1) }
}
}