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