Grundgerüst Tree erstellt, ExtendedFunctions für map10 und listmap10

elm.json

@@ -18,11 +18,11 @@
             "elm-community/list-extra": "8.7.0",
             "elm-community/typed-svg": "7.0.0",
             "folkertdev/one-true-path-experiment": "6.0.0",
+            "gampleman/elm-rosetree": "1.1.0",
             "gampleman/elm-visualization": "2.4.1",
             "lovasoa/elm-csv": "1.1.7",
             "mpizenberg/elm-pointer-events": "5.0.0",
-            "rtfeldman/elm-css": "18.0.0",
-            "zwilias/elm-rosetree": "1.5.0"
+            "rtfeldman/elm-css": "18.0.0"
         },
         "indirect": {
             "avh4/elm-fifo": "1.0.4",
@@ -37,9 +37,9 @@
             "elm/virtual-dom": "1.0.3",
             "elm-community/intdict": "3.0.0",
             "elmcraft/core-extra": "2.0.0",
+            "ericgj/elm-csv-decode": "2.0.1",
             "folkertdev/elm-deque": "3.0.1",
             "folkertdev/svg-path-lowlevel": "4.0.1",
-            "gampleman/elm-rosetree": "1.1.0",
             "ianmackenzie/elm-1d-parameter": "1.0.1",
             "ianmackenzie/elm-float-extra": "1.1.0",
             "ianmackenzie/elm-geometry": "3.11.0",
@@ -52,8 +52,7 @@
             "justinmimbs/time-extra": "1.2.0",
             "robinheghan/murmur3": "1.0.0",
             "rtfeldman/elm-hex": "1.0.0",
-            "ryan-haskell/date-format": "1.0.0",
-            "ericgj/elm-csv-decode": "2.0.1"
+            "ryan-haskell/date-format": "1.0.0"
         }
     },
     "test-dependencies": {

src/Main.elm

@@ -10,6 +10,8 @@ import ParallelCoordinates exposing (Msg(..))
 import Result exposing (Result(..))
 import Scatterplot exposing (Msg(..))
 import SmartPhoneType exposing (Smartphone)
+import TreeView exposing (Msg(..))
+import Zoom
 
 
 
@@ -63,6 +65,11 @@ init _ =
             , "Refresh Rate"
             ]
         }
+        { zoomOption =
+            Zoom.init { width = TreeView.w, height = TreeView.h }
+                |> Zoom.scaleExtent 1 100
+                |> Zoom.translateExtent ( ( 0, 0 ), ( TreeView.w, TreeView.h ) )
+        }
     , fetchData
     )
 
@@ -76,6 +83,8 @@ type Msg
     | DataReceived (Result Http.Error String)
     | ScatterplotMsg Scatterplot.Msg
     | ParallelCoordinatesMsg ParallelCoordinates.Msg
+    | TreeViewMsg TreeView.Msg
+    | ZooomMsg Zoom.OnZoom
 
 
 update : Msg -> Model -> ( Model, Cmd Msg )
@@ -133,6 +142,15 @@ update msg model =
             , Cmd.none
             )
 
+        TreeViewMsg (ZoomMsg m) ->
+            ( { model | treeOption = { zoomOption = Zoom.update m model.treeOption.zoomOption } }, Cmd.none )
+
+        TreeViewMsg (Click t) ->
+            ( { model | treeOption = { zoomOption = TreeView.performZoom t model.treeOption.zoomOption } }, Cmd.none )
+
+        ZooomMsg m ->
+            ( { model | treeOption = { zoomOption = Zoom.update m model.treeOption.zoomOption } }, Cmd.none )
+
 
 createAttList : Model -> String -> List (Maybe Float)
 createAttList model att =
@@ -179,12 +197,13 @@ view model =
     div []
         [ Scatterplot.viewScatterplot model |> Html.map ScatterplotMsg
         , ParallelCoordinates.viewParallelCoordinates model |> Html.map ParallelCoordinatesMsg
+        , TreeView.viewTree model |> Html.map TreeViewMsg
         ]
 
 
 subscriptions : Model -> Sub Msg
-subscriptions _ =
-    Sub.none
+subscriptions model =
+    Zoom.subscriptions model.treeOption.zoomOption ZooomMsg
 
 
 

src/Model.elm

 module Model exposing (..)
 
 import SmartPhoneType exposing (Smartphone)
+import Zoom exposing (Zoom)
 
 
 type alias Model =
@@ -9,6 +10,7 @@ type alias Model =
     , csvdata : String
     , scatterplotOptions : ScatterPlotOption
     , parallelPlotOption : ParallelPlotOption
+    , treeOption : TreeOption
     }
 
 
@@ -24,3 +26,8 @@ type alias ParallelPlotOption =
     { orderedList : List (Smartphone -> Maybe Float)
     , orderedLabels : List String
     }
+
+
+type alias TreeOption =
+    { zoomOption : Zoom
+    }