not-gloss-0.7.7.0: Painless 3D graphics, no affiliation with gloss

Safe HaskellNone
LanguageHaskell98

Vis.VisObject

Contents

Synopsis

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 # 
Instance details

Defined in Vis.VisObject

Methods

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

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

Generic (VisObject a) # 
Instance details

Defined in Vis.VisObject

Associated Types

type Rep (VisObject a) :: * -> * #

Methods

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

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

Binary a => Binary (VisObject a) # 
Instance details

Defined in Vis.VisObject

Methods

put :: VisObject a -> Put #

get :: Get (VisObject a) #

putList :: [VisObject a] -> Put #

type Rep (VisObject a) # 
Instance details

Defined in Vis.VisObject

type Rep (VisObject a) = D1 (MetaData "VisObject" "Vis.VisObject" "not-gloss-0.7.7.0-24xMH9vLBmI9ZYPfLXnqn2" 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 # 
Instance details

Defined in Vis.VisObject

Associated Types

type Rep LoadedObjModel :: * -> * #

Methods

from :: LoadedObjModel -> Rep LoadedObjModel x #

to :: Rep LoadedObjModel x -> LoadedObjModel #

Binary LoadedObjModel # 
Instance details

Defined in Vis.VisObject

Methods

put :: LoadedObjModel -> Put #

get :: Get LoadedObjModel #

putList :: [LoadedObjModel] -> Put #

type Rep LoadedObjModel # 
Instance details

Defined in Vis.VisObject

type Rep LoadedObjModel = D1 (MetaData "LoadedObjModel" "Vis.VisObject" "not-gloss-0.7.7.0-24xMH9vLBmI9ZYPfLXnqn2" 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 () #

Orphan instances

Binary Flavour # 
Instance details

Methods

put :: Flavour -> Put #

get :: Get Flavour #

putList :: [Flavour] -> Put #

Binary BitmapFont # 
Instance details

Methods

put :: BitmapFont -> Put #

get :: Get BitmapFont #

putList :: [BitmapFont] -> Put #

Binary Color # 
Instance details

Methods

put :: Color -> Put #

get :: Get Color #

putList :: [Color] -> Put #