Vis.VisObject

Documentation

data VisObject a

Constructors

VisObjects [VisObject a]

Trans (V3 a) (VisObject a)

RotQuat (Quaternion a) (VisObject a)

RotDcm (M33 a) (VisObject a)

RotEulerRad (Euler a) (VisObject a)

RotEulerDeg (Euler a) (VisObject a)

Scale (a, a, a) (VisObject a)

Cylinder (a, a) Color

Box (a, a, a) Flavour Color

Cube a Flavour Color

Sphere a Flavour Color

Ellipsoid (a, a, a) Flavour Color

Line (Maybe a) [V3 a] Color

Line' (Maybe a) [(V3 a, Color)]

Arrow (a, a) (V3 a) Color

Axes (a, a)

Plane (V3 a) Color Color

Triangle (V3 a) (V3 a) (V3 a) Color

Quad (V3 a) (V3 a) (V3 a) (V3 a) Color

Text3d String (V3 a) BitmapFont Color

Text2d String (a, a) BitmapFont Color

Points [V3 a] (Maybe GLfloat) Color

ObjModel LoadedObjModel Color

Instances

Functor VisObject

Defined in Vis.VisObject

Methods

fmap :: (a -> b) -> VisObject a -> VisObject b

(<$) :: a -> VisObject b -> VisObject a

Generic (VisObject a)

Defined in Vis.VisObject

Associated Types

type Rep (VisObject a) :: Type -> Type

Methods

from :: VisObject a -> Rep (VisObject a) x

to :: Rep (VisObject a) x -> VisObject a

Binary a => Binary (VisObject a)

Defined in Vis.VisObject

Methods

put :: VisObject a -> Put

get :: Get (VisObject a)

putList :: [VisObject a] -> Put

type Rep (VisObject a)

Defined in Vis.VisObject

type Rep (VisObject a) = D1 ('MetaData "VisObject" "Vis.VisObject" "Vis-1.0.0-FwQfBMNitksJIapZIBfVJt" 'False) ((((C1 ('MetaCons "VisObjects" 'PrefixI 'False) (S1 ('MetaSel ('Nothing :: Maybe Symbol) 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 [VisObject a])) :+: C1 ('MetaCons "Trans" 'PrefixI 'False) (S1 ('MetaSel ('Nothing :: Maybe Symbol) 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (V3 a)) :*: S1 ('MetaSel ('Nothing :: Maybe Symbol) 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (VisObject a)))) :+: (C1 ('MetaCons "RotQuat" 'PrefixI 'False) (S1 ('MetaSel ('Nothing :: Maybe Symbol) 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Quaternion a)) :*: S1 ('MetaSel ('Nothing :: Maybe Symbol) 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (VisObject a))) :+: (C1 ('MetaCons "RotDcm" 'PrefixI 'False) (S1 ('MetaSel ('Nothing :: Maybe Symbol) 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (M33 a)) :*: S1 ('MetaSel ('Nothing :: Maybe Symbol) 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (VisObject a))) :+: C1 ('MetaCons "RotEulerRad" 'PrefixI 'False) (S1 ('MetaSel ('Nothing :: Maybe Symbol) 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Euler a)) :*: S1 ('MetaSel ('Nothing :: Maybe Symbol) 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (VisObject a)))))) :+: ((C1 ('MetaCons "RotEulerDeg" 'PrefixI 'False) (S1 ('MetaSel ('Nothing :: Maybe Symbol) 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Euler a)) :*: S1 ('MetaSel ('Nothing :: Maybe Symbol) 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (VisObject a))) :+: (C1 ('MetaCons "Scale" 'PrefixI 'False) (S1 ('MetaSel ('Nothing :: Maybe Symbol) 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (a, a, a)) :*: S1 ('MetaSel ('Nothing :: Maybe Symbol) 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (VisObject a))) :+: C1 ('MetaCons "Cylinder" 'PrefixI 'False) (S1 ('MetaSel ('Nothing :: Maybe Symbol) 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (a, a)) :*: S1 ('MetaSel ('Nothing :: Maybe Symbol) 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Color)))) :+: (C1 ('MetaCons "Box" 'PrefixI 'False) (S1 ('MetaSel ('Nothing :: Maybe Symbol) 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (a, a, a)) :*: (S1 ('MetaSel ('Nothing :: Maybe Symbol) 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Flavour) :*: S1 ('MetaSel ('Nothing :: Maybe Symbol) 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Color))) :+: (C1 ('MetaCons "Cube" 'PrefixI 'False) (S1 ('MetaSel ('Nothing :: Maybe Symbol) 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 a) :*: (S1 ('MetaSel ('Nothing :: Maybe Symbol) 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Flavour) :*: S1 ('MetaSel ('Nothing :: Maybe Symbol) 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Color))) :+: C1 ('MetaCons "Sphere" 'PrefixI 'False) (S1 ('MetaSel ('Nothing :: Maybe Symbol) 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 a) :*: (S1 ('MetaSel ('Nothing :: Maybe Symbol) 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Flavour) :*: S1 ('MetaSel ('Nothing :: Maybe Symbol) 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Color))))))) :+: (((C1 ('MetaCons "Ellipsoid" 'PrefixI 'False) (S1 ('MetaSel ('Nothing :: Maybe Symbol) 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (a, a, a)) :*: (S1 ('MetaSel ('Nothing :: Maybe Symbol) 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Flavour) :*: S1 ('MetaSel ('Nothing :: Maybe Symbol) 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Color))) :+: (C1 ('MetaCons "Line" 'PrefixI 'False) (S1 ('MetaSel ('Nothing :: Maybe Symbol) 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Maybe a)) :*: (S1 ('MetaSel ('Nothing :: Maybe Symbol) 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 [V3 a]) :*: S1 ('MetaSel ('Nothing :: Maybe Symbol) 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Color))) :+: C1 ('MetaCons "Line'" 'PrefixI 'False) (S1 ('MetaSel ('Nothing :: Maybe Symbol) 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Maybe a)) :*: S1 ('MetaSel ('Nothing :: Maybe Symbol) 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 [(V3 a, Color)])))) :+: (C1 ('MetaCons "Arrow" 'PrefixI 'False) (S1 ('MetaSel ('Nothing :: Maybe Symbol) 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (a, a)) :*: (S1 ('MetaSel ('Nothing :: Maybe Symbol) 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (V3 a)) :*: S1 ('MetaSel ('Nothing :: Maybe Symbol) 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Color))) :+: (C1 ('MetaCons "Axes" 'PrefixI 'False) (S1 ('MetaSel ('Nothing :: Maybe Symbol) 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (a, a))) :+: C1 ('MetaCons "Plane" 'PrefixI 'False) (S1 ('MetaSel ('Nothing :: Maybe Symbol) 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (V3 a)) :*: (S1 ('MetaSel ('Nothing :: Maybe Symbol) 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Color) :*: S1 ('MetaSel ('Nothing :: Maybe Symbol) 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Color)))))) :+: ((C1 ('MetaCons "Triangle" 'PrefixI 'False) ((S1 ('MetaSel ('Nothing :: Maybe Symbol) 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (V3 a)) :*: S1 ('MetaSel ('Nothing :: Maybe Symbol) 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (V3 a))) :*: (S1 ('MetaSel ('Nothing :: Maybe Symbol) 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (V3 a)) :*: S1 ('MetaSel ('Nothing :: Maybe Symbol) 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Color))) :+: (C1 ('MetaCons "Quad" 'PrefixI 'False) ((S1 ('MetaSel ('Nothing :: Maybe Symbol) 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (V3 a)) :*: S1 ('MetaSel ('Nothing :: Maybe Symbol) 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (V3 a))) :*: (S1 ('MetaSel ('Nothing :: Maybe Symbol) 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (V3 a)) :*: (S1 ('MetaSel ('Nothing :: Maybe Symbol) 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (V3 a)) :*: S1 ('MetaSel ('Nothing :: Maybe Symbol) 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Color)))) :+: C1 ('MetaCons "Text3d" 'PrefixI 'False) ((S1 ('MetaSel ('Nothing :: Maybe Symbol) 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 String) :*: S1 ('MetaSel ('Nothing :: Maybe Symbol) 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (V3 a))) :*: (S1 ('MetaSel ('Nothing :: Maybe Symbol) 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 BitmapFont) :*: S1 ('MetaSel ('Nothing :: Maybe Symbol) 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Color))))) :+: (C1 ('MetaCons "Text2d" 'PrefixI 'False) ((S1 ('MetaSel ('Nothing :: Maybe Symbol) 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 String) :*: S1 ('MetaSel ('Nothing :: Maybe Symbol) 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (a, a))) :*: (S1 ('MetaSel ('Nothing :: Maybe Symbol) 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 BitmapFont) :*: S1 ('MetaSel ('Nothing :: Maybe Symbol) 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Color))) :+: (C1 ('MetaCons "Points" 'PrefixI 'False) (S1 ('MetaSel ('Nothing :: Maybe Symbol) 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 [V3 a]) :*: (S1 ('MetaSel ('Nothing :: Maybe Symbol) 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Maybe GLfloat)) :*: S1 ('MetaSel ('Nothing :: Maybe Symbol) 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Color))) :+: C1 ('MetaCons "ObjModel" 'PrefixI 'False) (S1 ('MetaSel ('Nothing :: Maybe Symbol) 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 LoadedObjModel) :*: S1 ('MetaSel ('Nothing :: Maybe Symbol) 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Color)))))))

drawObjects :: VisObject GLdouble -> IO ()

data LoadedObjModel

Constructors

LoadedObjModel (Vector Double) (Vector Double) Int

Instances

Generic LoadedObjModel

Defined in Vis.VisObject

Associated Types

type Rep LoadedObjModel :: Type -> Type

Methods

from :: LoadedObjModel -> Rep LoadedObjModel x

to :: Rep LoadedObjModel x -> LoadedObjModel

Binary LoadedObjModel

Defined in Vis.VisObject

Methods

put :: LoadedObjModel -> Put

get :: Get LoadedObjModel

putList :: [LoadedObjModel] -> Put

type Rep LoadedObjModel

Defined in Vis.VisObject

type Rep LoadedObjModel = D1 ('MetaData "LoadedObjModel" "Vis.VisObject" "Vis-1.0.0-FwQfBMNitksJIapZIBfVJt" 'False) (C1 ('MetaCons "LoadedObjModel" 'PrefixI 'False) (S1 ('MetaSel ('Nothing :: Maybe Symbol) 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Vector Double)) :*: (S1 ('MetaSel ('Nothing :: Maybe Symbol) 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Vector Double)) :*: S1 ('MetaSel ('Nothing :: Maybe Symbol) 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Int))))

loadObjModel :: Foldable f => f (V3 Double, V3 Double) -> LoadedObjModel

turn a list of vertexnormal tuples into vertexnormal arrays

setPerspectiveMode :: IO ()

data Euler a

3-2-1 Euler angle rotation sequence

Constructors

Euler

Fields

• eYaw :: a
• ePitch :: a
• eRoll :: a

Instances

Functor Euler

Defined in Vis.VisObject

Methods

fmap :: (a -> b) -> Euler a -> Euler b

(<$) :: a -> Euler b -> Euler a

Generic (Euler a)

Defined in Vis.VisObject

Associated Types

type Rep (Euler a) :: Type -> Type

Methods

from :: Euler a -> Rep (Euler a) x

to :: Rep (Euler a) x -> Euler a

Show a => Show (Euler a)

Defined in Vis.VisObject

Methods

showsPrec :: Int -> Euler a -> ShowS

show :: Euler a -> String

showList :: [Euler a] -> ShowS

Binary a => Binary (Euler a)

Defined in Vis.VisObject

Methods

put :: Euler a -> Put

get :: Get (Euler a)

putList :: [Euler a] -> Put

Eq a => Eq (Euler a)

Defined in Vis.VisObject

Methods

(==) :: Euler a -> Euler a -> Bool

(/=) :: Euler a -> Euler a -> Bool

Ord a => Ord (Euler a)

Defined in Vis.VisObject

Methods

compare :: Euler a -> Euler a -> Ordering

(<) :: Euler a -> Euler a -> Bool

(<=) :: Euler a -> Euler a -> Bool

(>) :: Euler a -> Euler a -> Bool

(>=) :: Euler a -> Euler a -> Bool

max :: Euler a -> Euler a -> Euler a

min :: Euler a -> Euler a -> Euler a

type Rep (Euler a)

Defined in Vis.VisObject

type Rep (Euler a) = D1 ('MetaData "Euler" "Vis.VisObject" "Vis-1.0.0-FwQfBMNitksJIapZIBfVJt" 'False) (C1 ('MetaCons "Euler" 'PrefixI 'True) (S1 ('MetaSel ('Just "eYaw") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 a) :*: (S1 ('MetaSel ('Just "ePitch") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 a) :*: S1 ('MetaSel ('Just "eRoll") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 a))))

Orphan instances

Binary Flavour

Methods

put :: Flavour -> Put

get :: Get Flavour

putList :: [Flavour] -> Put

Binary BitmapFont

Methods

put :: BitmapFont -> Put

get :: Get BitmapFont

putList :: [BitmapFont] -> Put

Binary Color

Methods

put :: Color -> Put

get :: Get Color

putList :: [Color] -> Put