{-# LINE 1 "FreeType/Control/Driver/Types.hsc" #-}
module FreeType.Control.Driver.Types where

import           FreeType.Core.Base.Types
import           FreeType.Core.Types.Types

import           Foreign.Ptr
import           Foreign.Storable






data FT_Prop_GlyphToScriptMap = FT_Prop_GlyphToScriptMap
                                  { pgtsmFace :: FT_Face
                                  , pgtsmMap  :: Ptr FT_UShort
                                  }

instance Storable FT_Prop_GlyphToScriptMap where
  sizeOf _    = (16)
{-# LINE 21 "FreeType/Control/Driver/Types.hsc" #-}
  alignment _ = 8
{-# LINE 22 "FreeType/Control/Driver/Types.hsc" #-}

  peek ptr =
    FT_Prop_GlyphToScriptMap
      <$> (\hsc_ptr -> peekByteOff hsc_ptr 0) ptr
{-# LINE 26 "FreeType/Control/Driver/Types.hsc" #-}
      <*> (\hsc_ptr -> peekByteOff hsc_ptr 8) ptr
{-# LINE 27 "FreeType/Control/Driver/Types.hsc" #-}

  poke ptr val = do
    (\hsc_ptr -> pokeByteOff hsc_ptr 0) ptr $ pgtsmFace val
{-# LINE 30 "FreeType/Control/Driver/Types.hsc" #-}
    (\hsc_ptr -> pokeByteOff hsc_ptr 8) ptr $ pgtsmMap  val
{-# LINE 31 "FreeType/Control/Driver/Types.hsc" #-}



data FT_Prop_IncreaseXHeight = FT_Prop_IncreaseXHeight
                                 { pixhFace  :: FT_Face
                                 , pixhLimit :: FT_UInt
                                 }

instance Storable FT_Prop_IncreaseXHeight where
  sizeOf _    = (16)
{-# LINE 41 "FreeType/Control/Driver/Types.hsc" #-}
  alignment _ = 8
{-# LINE 42 "FreeType/Control/Driver/Types.hsc" #-}

  peek ptr =
    FT_Prop_IncreaseXHeight
      <$> (\hsc_ptr -> peekByteOff hsc_ptr 0) ptr
{-# LINE 46 "FreeType/Control/Driver/Types.hsc" #-}
      <*> (\hsc_ptr -> peekByteOff hsc_ptr 8) ptr
{-# LINE 47 "FreeType/Control/Driver/Types.hsc" #-}

  poke ptr val = do
    (\hsc_ptr -> pokeByteOff hsc_ptr 0) ptr $ pixhFace  val
{-# LINE 50 "FreeType/Control/Driver/Types.hsc" #-}
    (\hsc_ptr -> pokeByteOff hsc_ptr 8) ptr $ pixhLimit val
{-# LINE 51 "FreeType/Control/Driver/Types.hsc" #-}