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

Safe HaskellNone
LanguageHaskell98

Vis.VisObject

Contents

Synopsis

Documentation

data VisObject a Source #

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 Source # 

Methods

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

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

Generic (VisObject a) Source # 

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) Source # 

Methods

put :: VisObject a -> Put #

get :: Get (VisObject a) #

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

drawObjects :: VisObject GLdouble -> IO () Source #

data LoadedObjModel Source #

Constructors

LoadedObjModel (Vector Double) (Vector Double) Int 

Instances

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

turn a list of vertexnormal tuples into vertexnormal arrays

setPerspectiveMode :: IO () Source #

Orphan instances