blob: 02e5c5a668b00017547f5bcb40c515cca782e87f (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
|
-----------------------------------------------------------------------------
-- |
-- Copyright : (C) 2015 Dimitri Sabadie
-- License : BSD3
--
-- Maintainer : Dimitri Sabadie <dimitri.sabadie@gmail.com>
-- Stability : experimental
-- Portability : portable
--
-----------------------------------------------------------------------------
module Codec.Wavefront.TexCoord where
-- |A texture coordinate is a 3D-floating vector. You can access to its components by pattern
-- matching on them:
--
-- @
-- let TexCoord r s t = TexCoord 0.1 0.2 0.3
-- @
--
-- That type is strcit and unboxed.
data TexCoord = TexCoord {
texcoordR :: {-# UNPACK #-} !Float
, texcoordS :: {-# UNPACK #-} !Float
, texcoordT :: {-# UNPACK #-} !Float
} deriving (Eq,Show)
|