{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE GeneralizedNewtypeDeriving #-}
module THREE.LineSegments
(
LineSegments (..)
, THREE.LineSegments.new
) where
import Miso
import qualified THREE.Internal as THREE
newtype LineSegments
= LineSegments
{ LineSegments -> JSVal
unLineSegmentsCamera :: JSVal
} deriving (LineSegments -> IO Object
(LineSegments -> IO Object) -> ToObject LineSegments
forall a. (a -> IO Object) -> ToObject a
$ctoObject :: LineSegments -> IO Object
toObject :: LineSegments -> IO Object
ToObject)
new :: THREE.Three LineSegments
new :: Three LineSegments
new = (JSVal -> LineSegments)
-> MisoString -> [MisoString] -> Three LineSegments
forall args con.
ToArgs args =>
(JSVal -> con) -> MisoString -> args -> Three con
THREE.new JSVal -> LineSegments
LineSegments MisoString
"LineSegments" ([] :: [MisoString])