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