1 files changed, 45 insertions, 0 deletions

diff --git a/frontend/src/Utils.elm b/frontend/src/Utils.elm
index 825e4b7..b6c4bd5 100644
--- a/frontend/src/Utils.elm
+++ b/frontend/src/Utils.elm
@@ -1,5 +1,10 @@
 module Utils exposing (..)
 
+import Html
+import Html.Styled exposing (..)
+import Html.Styled.Attributes exposing (..)
+import Html.Styled.Events exposing (..)
+
 
 between : ( Float, Float ) -> Float -> Bool
 between ( l, u ) v =
@@ -13,3 +18,43 @@ range start stop step =
 
     else
         start :: range (start + step) stop step
+
+
+modelViewer : List (Attribute msg) -> List (Html msg) -> Html msg
+modelViewer attributes children =
+    node "model-viewer" attributes children
+
+
+cameraControls : Attribute msg
+cameraControls =
+    attribute "camera-controls" ""
+
+
+autoRotate : Attribute msg
+autoRotate =
+    attribute "auto-rotate" ""
+
+
+ar : Attribute msg
+ar =
+    attribute "ar" ""
+
+
+arSrc : String -> Attribute msg
+arSrc src =
+    attribute "src" src
+
+
+arIosSrc : String -> Attribute msg
+arIosSrc src =
+    attribute "ios-src" src
+
+
+arModes : String -> Attribute msg
+arModes mode =
+    attribute "ar-modes" mode
+
+
+loading : String -> Attribute msg
+loading mode =
+    attribute "loading" mode