desck 0.4.2

package/src/Zone.elm

@@ -0,0 +1,364 @@
+module Zone exposing (..)
+
+import Palette exposing (Color(..), colorFromString)
+import Rect exposing (Rect, Rotation, angled, rect4)
+import Util exposing (Id)
+import Vec exposing (Vec2)
+
+
+type alias Border =
+    { color : Color
+    , width : Int
+    , dash : Int
+    }
+
+
+type Head
+    = None
+    | Triangle
+    | Cross
+
+
+headString : Head -> String
+headString h =
+    case h of
+        None ->
+            "None"
+
+        Triangle ->
+            "Triangle"
+
+        Cross ->
+            "Cross"
+
+
+headFromString : String -> Head
+headFromString s =
+    case s of
+        "None" ->
+            None
+
+        "Triangle" ->
+            Triangle
+
+        "Cross" ->
+            Cross
+
+        _ ->
+            Triangle
+
+
+type alias Stamp =
+    { pos : Vec2
+    , id : Id
+    , text : Text
+    , fill : Color
+    , radius : Float
+    }
+
+
+type alias Arrow =
+    { from : String
+    , to : String
+    , id : String
+    , fill : Color
+    , width : Float
+    , head : Head
+
+    -- TODO Arrows - text : Text
+    }
+
+
+defaultArrow : Arrow
+defaultArrow =
+    { from = ""
+    , to = ""
+    , id = ""
+    , fill = Orange
+    , width = 30.0
+    , head = Triangle
+    }
+
+
+type Anchor
+    = Center
+    | Left
+    | Right
+    | Top
+    | Bottom
+
+
+anchorString : Anchor -> String
+anchorString a =
+    case a of
+        Left ->
+            "Left"
+
+        Right ->
+            "Right"
+
+        Top ->
+            "Top"
+
+        Bottom ->
+            "Bottom"
+
+        Center ->
+            "Center"
+
+
+anchorFromString : String -> Anchor
+anchorFromString s =
+    case s of
+        "Left" ->
+            Left
+
+        "Right" ->
+            Right
+
+        "Top" ->
+            Top
+
+        "Bottom" ->
+            Bottom
+
+        "Center" ->
+            Center
+
+        _ ->
+            Center
+
+
+type FontType
+    = PrimaryFont
+    | SecondaryFont
+
+
+type alias Text =
+    { label : String
+    , color : Color
+    , size : Int
+    , primary : Bool
+    , anchor : Anchor
+    }
+
+
+type alias Grid =
+    { rows : Int
+    , columns : Int
+    }
+
+
+type alias Zone =
+    { rect : Rect
+    , rot : Rotation
+    , id : Id
+    , fill : Color
+    , border : Border
+    , text : Text
+    , grid : Grid
+    }
+
+
+defaultText : Text
+defaultText =
+    { label = "zone"
+    , color = LightGray
+    , size = 70
+    , primary = True
+    , anchor = Center
+    }
+
+
+defaultStamp : Stamp
+defaultStamp =
+    { pos = Vec.zero
+    , id = ""
+    , text = { defaultText | label = "A", color = Black }
+    , radius = 70
+    , fill = Green
+    }
+
+
+defaultZone : Zone
+defaultZone =
+    { rect = rect4 0 0 100 100
+    , rot = angled 0
+    , id = ""
+    , fill = DarkGray
+    , text = defaultText
+    , grid = { rows = 1, columns = 1 }
+    , border =
+        { dash = 0
+        , width = 10
+        , color = MidGray
+        }
+    }
+
+
+type ZoneField
+    = ZoneLabel
+    | ZoneFill
+    | ZoneStroke
+    | ZoneText
+    | ZoneWidth
+    | ZoneDash
+    | ZoneFontSize
+    | ZoneRows
+    | ZoneColumns
+    | ZoneAnchor
+    | ZoneFont
+
+
+updateZoneString : ZoneField -> String -> Zone -> Zone
+updateZoneString field string z =
+    let
+        b =
+            z.border
+
+        g =
+            z.grid
+
+        color =
+            colorFromString string
+
+        int =
+            Maybe.withDefault 16 <| String.toInt string
+
+        text =
+            z.text
+
+        bool =
+            if string == "True" then
+                True
+
+            else
+                False
+    in
+    case field of
+        ZoneFont ->
+            { z | text = { text | primary = bool } }
+
+        ZoneFill ->
+            { z | fill = color }
+
+        ZoneAnchor ->
+            { z | text = { text | anchor = anchorFromString string } }
+
+        ZoneLabel ->
+            { z | text = { text | label = string } }
+
+        ZoneText ->
+            { z | text = { text | color = color } }
+
+        ZoneFontSize ->
+            { z | text = { text | size = int } }
+
+        ZoneStroke ->
+            { z | border = { b | color = color } }
+
+        ZoneDash ->
+            { z | border = { b | dash = int } }
+
+        ZoneWidth ->
+            { z | border = { b | width = int } }
+
+        ZoneRows ->
+            { z | grid = { g | rows = int } }
+
+        ZoneColumns ->
+            { z | grid = { g | columns = int } }
+
+
+textAttributes : Vec2 -> Text -> ( Vec2, ( String, String ), Int -> String -> String )
+textAttributes size t =
+    let
+        lines =
+            String.split "\n" t.label
+
+        c =
+            Vec.half size
+
+        s =
+            toFloat t.size
+
+        lc =
+            List.length lines |> toFloat |> max 1.0
+
+        offset =
+            s * 0.0
+    in
+    case t.anchor of
+        Center ->
+            ( c
+            , ( "middle", "middle" )
+            , \i _ ->
+                if i > 0 then
+                    "1em"
+
+                else
+                    (toFloat (List.length lines - 1)
+                        * -0.5
+                        |> String.fromFloat
+                    )
+                        ++ "em"
+            )
+
+        Top ->
+            ( Vec.vec2 c.x
+                (-(s * lc)
+                    - offset
+                    - s
+                    * (if lc > 1 then
+                        1.0
+
+                       else
+                        0.75
+                      )
+                )
+            , ( "middle", "alphabetic" )
+            , \_ _ ->
+                "1em"
+            )
+
+        Bottom ->
+            ( Vec.vec2 c.x (size.y + offset + s * 0.75)
+              -- TODO make multiplier smaller if only lowercase?
+            , ( "middle", "hanging" )
+            , \i _ ->
+                if i == 0 then
+                    "0em"
+
+                else
+                    "1em"
+            )
+
+        Right ->
+            ( Vec.vec2 (size.x + offset + s * 0.75) c.y
+            , ( "start", "middle" )
+            , \i _ ->
+                if i > 0 then
+                    "1em"
+
+                else
+                    (toFloat (List.length lines - 1)
+                        * -0.5
+                        |> String.fromFloat
+                    )
+                        ++ "em"
+            )
+
+        Left ->
+            ( Vec.vec2 (-offset - s * 0.75) c.y
+            , ( "end", "middle" )
+            , \i _ ->
+                if i > 0 then
+                    "1em"
+
+                else
+                    (toFloat (List.length lines - 1)
+                        * -0.5
+                        |> String.fromFloat
+                    )
+                        ++ "em"
+            )