{-# OPTIONS -Wall #-} module Raylib.Util.Lenses where import Control.Lens (Lens') import Data.Word (Word8, Word16) import Foreign.Ptr (Ptr) import qualified Raylib.Types as RL _vector2'x :: Lens' RL.Vector2 Float _vector2'x :: Lens' Vector2 Float _vector2'x Float -> f Float f (RL.Vector2 Float x Float y) = (\Float x' -> Float -> Float -> Vector2 RL.Vector2 Float x' Float y) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b <$> Float -> f Float f Float x {-# INLINE _vector2'x #-} _vector2'y :: Lens' RL.Vector2 Float _vector2'y :: Lens' Vector2 Float _vector2'y Float -> f Float f (RL.Vector2 Float x Float y) = (\Float y' -> Float -> Float -> Vector2 RL.Vector2 Float x Float y') forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b <$> Float -> f Float f Float y {-# INLINE _vector2'y #-} _vector3'x :: Lens' RL.Vector3 Float _vector3'x :: Lens' Vector3 Float _vector3'x Float -> f Float f (RL.Vector3 Float x Float y Float z) = (\Float x' -> Float -> Float -> Float -> Vector3 RL.Vector3 Float x' Float y Float z) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b <$> Float -> f Float f Float x {-# INLINE _vector3'x #-} _vector3'y :: Lens' RL.Vector3 Float _vector3'y :: Lens' Vector3 Float _vector3'y Float -> f Float f (RL.Vector3 Float x Float y Float z) = (\Float y' -> Float -> Float -> Float -> Vector3 RL.Vector3 Float x Float y' Float z) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b <$> Float -> f Float f Float y {-# INLINE _vector3'y #-} _vector3'z :: Lens' RL.Vector3 Float _vector3'z :: Lens' Vector3 Float _vector3'z Float -> f Float f (RL.Vector3 Float x Float y Float z) = (\Float z' -> Float -> Float -> Float -> Vector3 RL.Vector3 Float x Float y Float z') forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b <$> Float -> f Float f Float z {-# INLINE _vector3'z #-} _vector4'x :: Lens' RL.Vector4 Float _vector4'x :: Lens' Vector4 Float _vector4'x Float -> f Float f (RL.Vector4 Float x Float y Float z Float w) = (\Float x' -> Float -> Float -> Float -> Float -> Vector4 RL.Vector4 Float x' Float y Float z Float w) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b <$> Float -> f Float f Float x {-# INLINE _vector4'x #-} _vector4'y :: Lens' RL.Vector4 Float _vector4'y :: Lens' Vector4 Float _vector4'y Float -> f Float f (RL.Vector4 Float x Float y Float z Float w) = (\Float y' -> Float -> Float -> Float -> Float -> Vector4 RL.Vector4 Float x Float y' Float z Float w) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b <$> Float -> f Float f Float y {-# INLINE _vector4'y #-} _vector4'z :: Lens' RL.Vector4 Float _vector4'z :: Lens' Vector4 Float _vector4'z Float -> f Float f (RL.Vector4 Float x Float y Float z Float w) = (\Float z' -> Float -> Float -> Float -> Float -> Vector4 RL.Vector4 Float x Float y Float z' Float w) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b <$> Float -> f Float f Float z {-# INLINE _vector4'z #-} _vector4'w :: Lens' RL.Vector4 Float _vector4'w :: Lens' Vector4 Float _vector4'w Float -> f Float f (RL.Vector4 Float x Float y Float z Float w) = (\Float w' -> Float -> Float -> Float -> Float -> Vector4 RL.Vector4 Float x Float y Float z Float w') forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b <$> Float -> f Float f Float w {-# INLINE _vector4'w #-} _matrix'm0 :: Lens' RL.Matrix Float _matrix'm0 :: Lens' Matrix Float _matrix'm0 Float -> f Float f Matrix matrix = (\Float m' -> Matrix matrix { matrix'm0 :: Float RL.matrix'm0 = Float m' }) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b <$> Float -> f Float f (Matrix -> Float RL.matrix'm0 Matrix matrix) {-# INLINE _matrix'm0 #-} _matrix'm1 :: Lens' RL.Matrix Float _matrix'm1 :: Lens' Matrix Float _matrix'm1 Float -> f Float f Matrix matrix = (\Float m' -> Matrix matrix { matrix'm1 :: Float RL.matrix'm1 = Float m' }) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b <$> Float -> f Float f (Matrix -> Float RL.matrix'm1 Matrix matrix) {-# INLINE _matrix'm1 #-} _matrix'm2 :: Lens' RL.Matrix Float _matrix'm2 :: Lens' Matrix Float _matrix'm2 Float -> f Float f Matrix matrix = (\Float m' -> Matrix matrix { matrix'm2 :: Float RL.matrix'm2 = Float m' }) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b <$> Float -> f Float f (Matrix -> Float RL.matrix'm2 Matrix matrix) {-# INLINE _matrix'm2 #-} _matrix'm3 :: Lens' RL.Matrix Float _matrix'm3 :: Lens' Matrix Float _matrix'm3 Float -> f Float f Matrix matrix = (\Float m' -> Matrix matrix { matrix'm3 :: Float RL.matrix'm3 = Float m' }) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b <$> Float -> f Float f (Matrix -> Float RL.matrix'm3 Matrix matrix) {-# INLINE _matrix'm3 #-} _matrix'm4 :: Lens' RL.Matrix Float _matrix'm4 :: Lens' Matrix Float _matrix'm4 Float -> f Float f Matrix matrix = (\Float m' -> Matrix matrix { matrix'm4 :: Float RL.matrix'm4 = Float m' }) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b <$> Float -> f Float f (Matrix -> Float RL.matrix'm4 Matrix matrix) {-# INLINE _matrix'm4 #-} _matrix'm5 :: Lens' RL.Matrix Float _matrix'm5 :: Lens' Matrix Float _matrix'm5 Float -> f Float f Matrix matrix = (\Float m' -> Matrix matrix { matrix'm5 :: Float RL.matrix'm5 = Float m' }) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b <$> Float -> f Float f (Matrix -> Float RL.matrix'm5 Matrix matrix) {-# INLINE _matrix'm5 #-} _matrix'm6 :: Lens' RL.Matrix Float _matrix'm6 :: Lens' Matrix Float _matrix'm6 Float -> f Float f Matrix matrix = (\Float m' -> Matrix matrix { matrix'm6 :: Float RL.matrix'm6 = Float m' }) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b <$> Float -> f Float f (Matrix -> Float RL.matrix'm6 Matrix matrix) {-# INLINE _matrix'm6 #-} _matrix'm7 :: Lens' RL.Matrix Float _matrix'm7 :: Lens' Matrix Float _matrix'm7 Float -> f Float f Matrix matrix = (\Float m' -> Matrix matrix { matrix'm7 :: Float RL.matrix'm7 = Float m' }) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b <$> Float -> f Float f (Matrix -> Float RL.matrix'm7 Matrix matrix) {-# INLINE _matrix'm7 #-} _matrix'm8 :: Lens' RL.Matrix Float _matrix'm8 :: Lens' Matrix Float _matrix'm8 Float -> f Float f Matrix matrix = (\Float m' -> Matrix matrix { matrix'm8 :: Float RL.matrix'm8 = Float m' }) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b <$> Float -> f Float f (Matrix -> Float RL.matrix'm8 Matrix matrix) {-# INLINE _matrix'm8 #-} _matrix'm9 :: Lens' RL.Matrix Float _matrix'm9 :: Lens' Matrix Float _matrix'm9 Float -> f Float f Matrix matrix = (\Float m' -> Matrix matrix { matrix'm9 :: Float RL.matrix'm9 = Float m' }) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b <$> Float -> f Float f (Matrix -> Float RL.matrix'm9 Matrix matrix) {-# INLINE _matrix'm9 #-} _matrix'm10 :: Lens' RL.Matrix Float _matrix'm10 :: Lens' Matrix Float _matrix'm10 Float -> f Float f Matrix matrix = (\Float m' -> Matrix matrix { matrix'm10 :: Float RL.matrix'm10 = Float m' }) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b <$> Float -> f Float f (Matrix -> Float RL.matrix'm10 Matrix matrix) {-# INLINE _matrix'm10 #-} _matrix'm11 :: Lens' RL.Matrix Float _matrix'm11 :: Lens' Matrix Float _matrix'm11 Float -> f Float f Matrix matrix = (\Float m' -> Matrix matrix { matrix'm11 :: Float RL.matrix'm11 = Float m' }) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b <$> Float -> f Float f (Matrix -> Float RL.matrix'm11 Matrix matrix) {-# INLINE _matrix'm11 #-} _matrix'm12 :: Lens' RL.Matrix Float _matrix'm12 :: Lens' Matrix Float _matrix'm12 Float -> f Float f Matrix matrix = (\Float m' -> Matrix matrix { matrix'm12 :: Float RL.matrix'm12 = Float m' }) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b <$> Float -> f Float f (Matrix -> Float RL.matrix'm12 Matrix matrix) {-# INLINE _matrix'm12 #-} _matrix'm13 :: Lens' RL.Matrix Float _matrix'm13 :: Lens' Matrix Float _matrix'm13 Float -> f Float f Matrix matrix = (\Float m' -> Matrix matrix { matrix'm13 :: Float RL.matrix'm13 = Float m' }) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b <$> Float -> f Float f (Matrix -> Float RL.matrix'm13 Matrix matrix) {-# INLINE _matrix'm13 #-} _matrix'm14 :: Lens' RL.Matrix Float _matrix'm14 :: Lens' Matrix Float _matrix'm14 Float -> f Float f Matrix matrix = (\Float m' -> Matrix matrix { matrix'm14 :: Float RL.matrix'm14 = Float m' }) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b <$> Float -> f Float f (Matrix -> Float RL.matrix'm14 Matrix matrix) {-# INLINE _matrix'm14 #-} _matrix'm15 :: Lens' RL.Matrix Float _matrix'm15 :: Lens' Matrix Float _matrix'm15 Float -> f Float f Matrix matrix = (\Float m' -> Matrix matrix { matrix'm15 :: Float RL.matrix'm15 = Float m' }) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b <$> Float -> f Float f (Matrix -> Float RL.matrix'm15 Matrix matrix) {-# INLINE _matrix'm15 #-} _color'r :: Lens' RL.Color Word8 _color'r :: Lens' Color Word8 _color'r Word8 -> f Word8 f (RL.Color Word8 r Word8 g Word8 b Word8 a) = (\Word8 r' -> Word8 -> Word8 -> Word8 -> Word8 -> Color RL.Color Word8 r' Word8 g Word8 b Word8 a) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b <$> Word8 -> f Word8 f Word8 r {-# INLINE _color'r #-} _color'g :: Lens' RL.Color Word8 _color'g :: Lens' Color Word8 _color'g Word8 -> f Word8 f (RL.Color Word8 r Word8 g Word8 b Word8 a) = (\Word8 g' -> Word8 -> Word8 -> Word8 -> Word8 -> Color RL.Color Word8 r Word8 g' Word8 b Word8 a) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b <$> Word8 -> f Word8 f Word8 g {-# INLINE _color'g #-} _color'b :: Lens' RL.Color Word8 _color'b :: Lens' Color Word8 _color'b Word8 -> f Word8 f (RL.Color Word8 r Word8 g Word8 b Word8 a) = (\Word8 b' -> Word8 -> Word8 -> Word8 -> Word8 -> Color RL.Color Word8 r Word8 g Word8 b' Word8 a) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b <$> Word8 -> f Word8 f Word8 b {-# INLINE _color'b #-} _color'a :: Lens' RL.Color Word8 _color'a :: Lens' Color Word8 _color'a Word8 -> f Word8 f (RL.Color Word8 r Word8 g Word8 b Word8 a) = (\Word8 a' -> Word8 -> Word8 -> Word8 -> Word8 -> Color RL.Color Word8 r Word8 g Word8 b Word8 a') forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b <$> Word8 -> f Word8 f Word8 a {-# INLINE _color'a #-} _rectangle'x :: Lens' RL.Rectangle Float _rectangle'x :: Lens' Rectangle Float _rectangle'x Float -> f Float f (RL.Rectangle Float x Float y Float width Float height) = (\Float x' -> Float -> Float -> Float -> Float -> Rectangle RL.Rectangle Float x' Float y Float width Float height) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b <$> Float -> f Float f Float x {-# INLINE _rectangle'x #-} _rectangle'y :: Lens' RL.Rectangle Float _rectangle'y :: Lens' Rectangle Float _rectangle'y Float -> f Float f (RL.Rectangle Float x Float y Float width Float height) = (\Float y' -> Float -> Float -> Float -> Float -> Rectangle RL.Rectangle Float x Float y' Float width Float height) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b <$> Float -> f Float f Float y {-# INLINE _rectangle'y #-} _rectangle'width :: Lens' RL.Rectangle Float _rectangle'width :: Lens' Rectangle Float _rectangle'width Float -> f Float f (RL.Rectangle Float x Float y Float width Float height) = (\Float width' -> Float -> Float -> Float -> Float -> Rectangle RL.Rectangle Float x Float y Float width' Float height) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b <$> Float -> f Float f Float width {-# INLINE _rectangle'width #-} _rectangle'height :: Lens' RL.Rectangle Float _rectangle'height :: Lens' Rectangle Float _rectangle'height Float -> f Float f (RL.Rectangle Float x Float y Float width Float height) = (\Float height' -> Float -> Float -> Float -> Float -> Rectangle RL.Rectangle Float x Float y Float width Float height') forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b <$> Float -> f Float f Float height {-# INLINE _rectangle'height #-} _image'data :: Lens' RL.Image [Word8] _image'data :: Lens' Image [Word8] _image'data [Word8] -> f [Word8] f (RL.Image [Word8] imgData Int width Int height Int mipmaps PixelFormat format) = (\[Word8] imgData' -> [Word8] -> Int -> Int -> Int -> PixelFormat -> Image RL.Image [Word8] imgData' Int width Int height Int mipmaps PixelFormat format) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b <$> [Word8] -> f [Word8] f [Word8] imgData {-# INLINE _image'data #-} _image'width :: Lens' RL.Image Int _image'width :: Lens' Image Int _image'width Int -> f Int f (RL.Image [Word8] imgData Int width Int height Int mipmaps PixelFormat format) = (\Int width' -> [Word8] -> Int -> Int -> Int -> PixelFormat -> Image RL.Image [Word8] imgData Int width' Int height Int mipmaps PixelFormat format) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b <$> Int -> f Int f Int width {-# INLINE _image'width #-} _image'height :: Lens' RL.Image Int _image'height :: Lens' Image Int _image'height Int -> f Int f (RL.Image [Word8] imgData Int width Int height Int mipmaps PixelFormat format) = (\Int height' -> [Word8] -> Int -> Int -> Int -> PixelFormat -> Image RL.Image [Word8] imgData Int width Int height' Int mipmaps PixelFormat format) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b <$> Int -> f Int f Int height {-# INLINE _image'height #-} _image'mipmaps :: Lens' RL.Image Int _image'mipmaps :: Lens' Image Int _image'mipmaps Int -> f Int f (RL.Image [Word8] imgData Int width Int height Int mipmaps PixelFormat format) = (\Int mipmaps' -> [Word8] -> Int -> Int -> Int -> PixelFormat -> Image RL.Image [Word8] imgData Int width Int height Int mipmaps' PixelFormat format) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b <$> Int -> f Int f Int mipmaps {-# INLINE _image'mipmaps #-} _image'format :: Lens' RL.Image RL.PixelFormat _image'format :: Lens' Image PixelFormat _image'format PixelFormat -> f PixelFormat f (RL.Image [Word8] imgData Int width Int height Int mipmaps PixelFormat format) = (\PixelFormat format' -> [Word8] -> Int -> Int -> Int -> PixelFormat -> Image RL.Image [Word8] imgData Int width Int height Int mipmaps PixelFormat format') forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b <$> PixelFormat -> f PixelFormat f PixelFormat format {-# INLINE _image'format #-} _texture'id :: Lens' RL.Texture Integer _texture'id :: Lens' Texture Integer _texture'id Integer -> f Integer f (RL.Texture Integer ident Int width Int height Int mipmaps PixelFormat format) = (\Integer ident' -> Integer -> Int -> Int -> Int -> PixelFormat -> Texture RL.Texture Integer ident' Int width Int height Int mipmaps PixelFormat format) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b <$> Integer -> f Integer f Integer ident {-# INLINE _texture'id #-} _texture'width :: Lens' RL.Texture Int _texture'width :: Lens' Texture Int _texture'width Int -> f Int f (RL.Texture Integer ident Int width Int height Int mipmaps PixelFormat format) = (\Int width' -> Integer -> Int -> Int -> Int -> PixelFormat -> Texture RL.Texture Integer ident Int width' Int height Int mipmaps PixelFormat format) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b <$> Int -> f Int f Int width {-# INLINE _texture'width #-} _texture'height :: Lens' RL.Texture Int _texture'height :: Lens' Texture Int _texture'height Int -> f Int f (RL.Texture Integer ident Int width Int height Int mipmaps PixelFormat format) = (\Int height' -> Integer -> Int -> Int -> Int -> PixelFormat -> Texture RL.Texture Integer ident Int width Int height' Int mipmaps PixelFormat format) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b <$> Int -> f Int f Int height {-# INLINE _texture'height #-} _texture'mipmaps :: Lens' RL.Texture Int _texture'mipmaps :: Lens' Texture Int _texture'mipmaps Int -> f Int f (RL.Texture Integer ident Int width Int height Int mipmaps PixelFormat format) = (\Int mipmaps' -> Integer -> Int -> Int -> Int -> PixelFormat -> Texture RL.Texture Integer ident Int width Int height Int mipmaps' PixelFormat format) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b <$> Int -> f Int f Int mipmaps {-# INLINE _texture'mipmaps #-} _texture'format :: Lens' RL.Texture RL.PixelFormat _texture'format :: Lens' Texture PixelFormat _texture'format PixelFormat -> f PixelFormat f (RL.Texture Integer ident Int width Int height Int mipmaps PixelFormat format) = (\PixelFormat format' -> Integer -> Int -> Int -> Int -> PixelFormat -> Texture RL.Texture Integer ident Int width Int height Int mipmaps PixelFormat format') forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b <$> PixelFormat -> f PixelFormat f PixelFormat format {-# INLINE _texture'format #-} _renderTexture'id :: Lens' RL.RenderTexture Integer _renderTexture'id :: Lens' RenderTexture Integer _renderTexture'id Integer -> f Integer f (RL.RenderTexture Integer ident Texture texture Texture depth) = (\Integer ident' -> Integer -> Texture -> Texture -> RenderTexture RL.RenderTexture Integer ident' Texture texture Texture depth) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b <$> Integer -> f Integer f Integer ident {-# INLINE _renderTexture'id #-} _renderTexture'texture :: Lens' RL.RenderTexture RL.Texture _renderTexture'texture :: Lens' RenderTexture Texture _renderTexture'texture Texture -> f Texture f (RL.RenderTexture Integer ident Texture texture Texture depth) = (\Texture texture' -> Integer -> Texture -> Texture -> RenderTexture RL.RenderTexture Integer ident Texture texture' Texture depth) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b <$> Texture -> f Texture f Texture texture {-# INLINE _renderTexture'texture #-} _renderTexture'depth :: Lens' RL.RenderTexture RL.Texture _renderTexture'depth :: Lens' RenderTexture Texture _renderTexture'depth Texture -> f Texture f (RL.RenderTexture Integer ident Texture texture Texture depth) = (\Texture depth' -> Integer -> Texture -> Texture -> RenderTexture RL.RenderTexture Integer ident Texture texture Texture depth') forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b <$> Texture -> f Texture f Texture depth {-# INLINE _renderTexture'depth #-} _nPatchInfo'source :: Lens' RL.NPatchInfo RL.Rectangle _nPatchInfo'source :: Lens' NPatchInfo Rectangle _nPatchInfo'source Rectangle -> f Rectangle f (RL.NPatchInfo Rectangle source Int left Int top Int right Int bottom NPatchLayout layout) = (\Rectangle source' -> Rectangle -> Int -> Int -> Int -> Int -> NPatchLayout -> NPatchInfo RL.NPatchInfo Rectangle source' Int left Int top Int right Int bottom NPatchLayout layout) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b <$> Rectangle -> f Rectangle f Rectangle source {-# INLINE _nPatchInfo'source #-} _nPatchInfo'left :: Lens' RL.NPatchInfo Int _nPatchInfo'left :: Lens' NPatchInfo Int _nPatchInfo'left Int -> f Int f (RL.NPatchInfo Rectangle source Int left Int top Int right Int bottom NPatchLayout layout) = (\Int left' -> Rectangle -> Int -> Int -> Int -> Int -> NPatchLayout -> NPatchInfo RL.NPatchInfo Rectangle source Int left' Int top Int right Int bottom NPatchLayout layout) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b <$> Int -> f Int f Int left {-# INLINE _nPatchInfo'left #-} _nPatchInfo'top :: Lens' RL.NPatchInfo Int _nPatchInfo'top :: Lens' NPatchInfo Int _nPatchInfo'top Int -> f Int f (RL.NPatchInfo Rectangle source Int left Int top Int right Int bottom NPatchLayout layout) = (\Int top' -> Rectangle -> Int -> Int -> Int -> Int -> NPatchLayout -> NPatchInfo RL.NPatchInfo Rectangle source Int left Int top' Int right Int bottom NPatchLayout layout) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b <$> Int -> f Int f Int top {-# INLINE _nPatchInfo'top #-} _nPatchInfo'right :: Lens' RL.NPatchInfo Int _nPatchInfo'right :: Lens' NPatchInfo Int _nPatchInfo'right Int -> f Int f (RL.NPatchInfo Rectangle source Int left Int top Int right Int bottom NPatchLayout layout) = (\Int right' -> Rectangle -> Int -> Int -> Int -> Int -> NPatchLayout -> NPatchInfo RL.NPatchInfo Rectangle source Int left Int top Int right' Int bottom NPatchLayout layout) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b <$> Int -> f Int f Int right {-# INLINE _nPatchInfo'right #-} _nPatchInfo'bottom :: Lens' RL.NPatchInfo Int _nPatchInfo'bottom :: Lens' NPatchInfo Int _nPatchInfo'bottom Int -> f Int f (RL.NPatchInfo Rectangle source Int left Int top Int right Int bottom NPatchLayout layout) = (\Int bottom' -> Rectangle -> Int -> Int -> Int -> Int -> NPatchLayout -> NPatchInfo RL.NPatchInfo Rectangle source Int left Int top Int right Int bottom' NPatchLayout layout) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b <$> Int -> f Int f Int bottom {-# INLINE _nPatchInfo'bottom #-} _nPatchInfo'layout :: Lens' RL.NPatchInfo RL.NPatchLayout _nPatchInfo'layout :: Lens' NPatchInfo NPatchLayout _nPatchInfo'layout NPatchLayout -> f NPatchLayout f (RL.NPatchInfo Rectangle source Int left Int top Int right Int bottom NPatchLayout layout) = (\NPatchLayout layout' -> Rectangle -> Int -> Int -> Int -> Int -> NPatchLayout -> NPatchInfo RL.NPatchInfo Rectangle source Int left Int top Int right Int bottom NPatchLayout layout') forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b <$> NPatchLayout -> f NPatchLayout f NPatchLayout layout {-# INLINE _nPatchInfo'layout #-} _glyphInfo'value :: Lens' RL.GlyphInfo Int _glyphInfo'value :: Lens' GlyphInfo Int _glyphInfo'value Int -> f Int f (RL.GlyphInfo Int value Int offsetX Int offsetY Int advanceX Image image) = (\Int value' -> Int -> Int -> Int -> Int -> Image -> GlyphInfo RL.GlyphInfo Int value' Int offsetX Int offsetY Int advanceX Image image) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b <$> Int -> f Int f Int value {-# INLINE _glyphInfo'value #-} _glyphInfo'offsetX :: Lens' RL.GlyphInfo Int _glyphInfo'offsetX :: Lens' GlyphInfo Int _glyphInfo'offsetX Int -> f Int f (RL.GlyphInfo Int value Int offsetX Int offsetY Int advanceX Image image) = (\Int offsetX' -> Int -> Int -> Int -> Int -> Image -> GlyphInfo RL.GlyphInfo Int value Int offsetX' Int offsetY Int advanceX Image image) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b <$> Int -> f Int f Int offsetX {-# INLINE _glyphInfo'offsetX #-} _glyphInfo'offsetY :: Lens' RL.GlyphInfo Int _glyphInfo'offsetY :: Lens' GlyphInfo Int _glyphInfo'offsetY Int -> f Int f (RL.GlyphInfo Int value Int offsetX Int offsetY Int advanceX Image image) = (\Int offsetY' -> Int -> Int -> Int -> Int -> Image -> GlyphInfo RL.GlyphInfo Int value Int offsetX Int offsetY' Int advanceX Image image) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b <$> Int -> f Int f Int offsetY {-# INLINE _glyphInfo'offsetY #-} _glyphInfo'advanceX :: Lens' RL.GlyphInfo Int _glyphInfo'advanceX :: Lens' GlyphInfo Int _glyphInfo'advanceX Int -> f Int f (RL.GlyphInfo Int value Int offsetX Int offsetY Int advanceX Image image) = (\Int advanceX' -> Int -> Int -> Int -> Int -> Image -> GlyphInfo RL.GlyphInfo Int value Int offsetX Int offsetY Int advanceX' Image image) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b <$> Int -> f Int f Int advanceX {-# INLINE _glyphInfo'advanceX #-} _glyphInfo'image :: Lens' RL.GlyphInfo RL.Image _glyphInfo'image :: Lens' GlyphInfo Image _glyphInfo'image Image -> f Image f (RL.GlyphInfo Int value Int offsetX Int offsetY Int advanceX Image image) = (\Image image' -> Int -> Int -> Int -> Int -> Image -> GlyphInfo RL.GlyphInfo Int value Int offsetX Int offsetY Int advanceX Image image') forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b <$> Image -> f Image f Image image {-# INLINE _glyphInfo'image #-} _font'baseSize :: Lens' RL.Font Int _font'baseSize :: Lens' Font Int _font'baseSize Int -> f Int f (RL.Font Int baseSize Int glyphCount Int glyphPadding Texture texture [Rectangle] recs [GlyphInfo] glyphs) = (\Int baseSize' -> Int -> Int -> Int -> Texture -> [Rectangle] -> [GlyphInfo] -> Font RL.Font Int baseSize' Int glyphCount Int glyphPadding Texture texture [Rectangle] recs [GlyphInfo] glyphs) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b <$> Int -> f Int f Int baseSize {-# INLINE _font'baseSize #-} _font'glyphCount :: Lens' RL.Font Int _font'glyphCount :: Lens' Font Int _font'glyphCount Int -> f Int f (RL.Font Int baseSize Int glyphCount Int glyphPadding Texture texture [Rectangle] recs [GlyphInfo] glyphs) = (\Int glyphCount' -> Int -> Int -> Int -> Texture -> [Rectangle] -> [GlyphInfo] -> Font RL.Font Int baseSize Int glyphCount' Int glyphPadding Texture texture [Rectangle] recs [GlyphInfo] glyphs) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b <$> Int -> f Int f Int glyphCount {-# INLINE _font'glyphCount #-} _font'glyphPadding :: Lens' RL.Font Int _font'glyphPadding :: Lens' Font Int _font'glyphPadding Int -> f Int f (RL.Font Int baseSize Int glyphCount Int glyphPadding Texture texture [Rectangle] recs [GlyphInfo] glyphs) = (\Int glyphPadding' -> Int -> Int -> Int -> Texture -> [Rectangle] -> [GlyphInfo] -> Font RL.Font Int baseSize Int glyphCount Int glyphPadding' Texture texture [Rectangle] recs [GlyphInfo] glyphs) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b <$> Int -> f Int f Int glyphPadding {-# INLINE _font'glyphPadding #-} _font'texture :: Lens' RL.Font RL.Texture _font'texture :: Lens' Font Texture _font'texture Texture -> f Texture f (RL.Font Int baseSize Int glyphCount Int glyphPadding Texture texture [Rectangle] recs [GlyphInfo] glyphs) = (\Texture texture' -> Int -> Int -> Int -> Texture -> [Rectangle] -> [GlyphInfo] -> Font RL.Font Int baseSize Int glyphCount Int glyphPadding Texture texture' [Rectangle] recs [GlyphInfo] glyphs) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b <$> Texture -> f Texture f Texture texture {-# INLINE _font'texture #-} _font'recs :: Lens' RL.Font [RL.Rectangle] _font'recs :: Lens' Font [Rectangle] _font'recs [Rectangle] -> f [Rectangle] f (RL.Font Int baseSize Int glyphCount Int glyphPadding Texture texture [Rectangle] recs [GlyphInfo] glyphs) = (\[Rectangle] recs' -> Int -> Int -> Int -> Texture -> [Rectangle] -> [GlyphInfo] -> Font RL.Font Int baseSize Int glyphCount Int glyphPadding Texture texture [Rectangle] recs' [GlyphInfo] glyphs) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b <$> [Rectangle] -> f [Rectangle] f [Rectangle] recs {-# INLINE _font'recs #-} _font'glyphs :: Lens' RL.Font [RL.GlyphInfo] _font'glyphs :: Lens' Font [GlyphInfo] _font'glyphs [GlyphInfo] -> f [GlyphInfo] f (RL.Font Int baseSize Int glyphCount Int glyphPadding Texture texture [Rectangle] recs [GlyphInfo] glyphs) = (\[GlyphInfo] glyphs' -> Int -> Int -> Int -> Texture -> [Rectangle] -> [GlyphInfo] -> Font RL.Font Int baseSize Int glyphCount Int glyphPadding Texture texture [Rectangle] recs [GlyphInfo] glyphs') forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b <$> [GlyphInfo] -> f [GlyphInfo] f [GlyphInfo] glyphs {-# INLINE _font'glyphs #-} _camera3D'position :: Lens' RL.Camera3D RL.Vector3 _camera3D'position :: Lens' Camera3D Vector3 _camera3D'position Vector3 -> f Vector3 f (RL.Camera3D Vector3 position Vector3 target Vector3 up Float fovy CameraProjection projection) = (\Vector3 position' -> Vector3 -> Vector3 -> Vector3 -> Float -> CameraProjection -> Camera3D RL.Camera3D Vector3 position' Vector3 target Vector3 up Float fovy CameraProjection projection) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b <$> Vector3 -> f Vector3 f Vector3 position {-# INLINE _camera3D'position #-} _camera3D'target :: Lens' RL.Camera3D RL.Vector3 _camera3D'target :: Lens' Camera3D Vector3 _camera3D'target Vector3 -> f Vector3 f (RL.Camera3D Vector3 position Vector3 target Vector3 up Float fovy CameraProjection projection) = (\Vector3 target' -> Vector3 -> Vector3 -> Vector3 -> Float -> CameraProjection -> Camera3D RL.Camera3D Vector3 position Vector3 target' Vector3 up Float fovy CameraProjection projection) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b <$> Vector3 -> f Vector3 f Vector3 target {-# INLINE _camera3D'target #-} _camera3D'up :: Lens' RL.Camera3D RL.Vector3 _camera3D'up :: Lens' Camera3D Vector3 _camera3D'up Vector3 -> f Vector3 f (RL.Camera3D Vector3 position Vector3 target Vector3 up Float fovy CameraProjection projection) = (\Vector3 up' -> Vector3 -> Vector3 -> Vector3 -> Float -> CameraProjection -> Camera3D RL.Camera3D Vector3 position Vector3 target Vector3 up' Float fovy CameraProjection projection) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b <$> Vector3 -> f Vector3 f Vector3 up {-# INLINE _camera3D'up #-} _camera3D'fovy :: Lens' RL.Camera3D Float _camera3D'fovy :: Lens' Camera3D Float _camera3D'fovy Float -> f Float f (RL.Camera3D Vector3 position Vector3 target Vector3 up Float fovy CameraProjection projection) = (\Float fovy' -> Vector3 -> Vector3 -> Vector3 -> Float -> CameraProjection -> Camera3D RL.Camera3D Vector3 position Vector3 target Vector3 up Float fovy' CameraProjection projection) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b <$> Float -> f Float f Float fovy {-# INLINE _camera3D'fovy #-} _camera3D'projection :: Lens' RL.Camera3D RL.CameraProjection _camera3D'projection :: Lens' Camera3D CameraProjection _camera3D'projection CameraProjection -> f CameraProjection f (RL.Camera3D Vector3 position Vector3 target Vector3 up Float fovy CameraProjection projection) = (\CameraProjection projection' -> Vector3 -> Vector3 -> Vector3 -> Float -> CameraProjection -> Camera3D RL.Camera3D Vector3 position Vector3 target Vector3 up Float fovy CameraProjection projection') forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b <$> CameraProjection -> f CameraProjection f CameraProjection projection {-# INLINE _camera3D'projection #-} _camera2D'offset :: Lens' RL.Camera2D RL.Vector2 _camera2D'offset :: Lens' Camera2D Vector2 _camera2D'offset Vector2 -> f Vector2 f (RL.Camera2D Vector2 offset Vector2 target Float rotation Float zoom) = (\Vector2 offset' -> Vector2 -> Vector2 -> Float -> Float -> Camera2D RL.Camera2D Vector2 offset' Vector2 target Float rotation Float zoom) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b <$> Vector2 -> f Vector2 f Vector2 offset {-# INLINE _camera2D'offset #-} _camera2D'target :: Lens' RL.Camera2D RL.Vector2 _camera2D'target :: Lens' Camera2D Vector2 _camera2D'target Vector2 -> f Vector2 f (RL.Camera2D Vector2 offset Vector2 target Float rotation Float zoom) = (\Vector2 target' -> Vector2 -> Vector2 -> Float -> Float -> Camera2D RL.Camera2D Vector2 offset Vector2 target' Float rotation Float zoom) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b <$> Vector2 -> f Vector2 f Vector2 target {-# INLINE _camera2D'target #-} _camera2D'rotation :: Lens' RL.Camera2D Float _camera2D'rotation :: Lens' Camera2D Float _camera2D'rotation Float -> f Float f (RL.Camera2D Vector2 offset Vector2 target Float rotation Float zoom) = (\Float rotation' -> Vector2 -> Vector2 -> Float -> Float -> Camera2D RL.Camera2D Vector2 offset Vector2 target Float rotation' Float zoom) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b <$> Float -> f Float f Float rotation {-# INLINE _camera2D'rotation #-} _camera2D'zoom :: Lens' RL.Camera2D Float _camera2D'zoom :: Lens' Camera2D Float _camera2D'zoom Float -> f Float f (RL.Camera2D Vector2 offset Vector2 target Float rotation Float zoom) = (\Float zoom' -> Vector2 -> Vector2 -> Float -> Float -> Camera2D RL.Camera2D Vector2 offset Vector2 target Float rotation Float zoom') forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b <$> Float -> f Float f Float zoom {-# INLINE _camera2D'zoom #-} _mesh'vertexCount :: Lens' RL.Mesh Int _mesh'vertexCount :: Lens' Mesh Int _mesh'vertexCount Int -> f Int f Mesh mesh = (\Int vertexCount' -> Mesh mesh { mesh'vertexCount :: Int RL.mesh'vertexCount = Int vertexCount' }) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b <$> Int -> f Int f (Mesh -> Int RL.mesh'vertexCount Mesh mesh) {-# INLINE _mesh'vertexCount #-} _mesh'triangleCount :: Lens' RL.Mesh Int _mesh'triangleCount :: Lens' Mesh Int _mesh'triangleCount Int -> f Int f Mesh mesh = (\Int triangleCount' -> Mesh mesh { mesh'triangleCount :: Int RL.mesh'triangleCount = Int triangleCount' }) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b <$> Int -> f Int f (Mesh -> Int RL.mesh'triangleCount Mesh mesh) {-# INLINE _mesh'triangleCount #-} _mesh'vertices :: Lens' RL.Mesh [RL.Vector3] _mesh'vertices :: Lens' Mesh [Vector3] _mesh'vertices [Vector3] -> f [Vector3] f Mesh mesh = (\[Vector3] vertices' -> Mesh mesh { mesh'vertices :: [Vector3] RL.mesh'vertices = [Vector3] vertices' }) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b <$> [Vector3] -> f [Vector3] f (Mesh -> [Vector3] RL.mesh'vertices Mesh mesh) {-# INLINE _mesh'vertices #-} _mesh'texcoords :: Lens' RL.Mesh [RL.Vector2] _mesh'texcoords :: Lens' Mesh [Vector2] _mesh'texcoords [Vector2] -> f [Vector2] f Mesh mesh = (\[Vector2] texcoords' -> Mesh mesh { mesh'texcoords :: [Vector2] RL.mesh'texcoords = [Vector2] texcoords' }) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b <$> [Vector2] -> f [Vector2] f (Mesh -> [Vector2] RL.mesh'texcoords Mesh mesh) {-# INLINE _mesh'texcoords #-} _mesh'texcoords2 :: Lens' RL.Mesh (Maybe [RL.Vector2]) _mesh'texcoords2 :: Lens' Mesh (Maybe [Vector2]) _mesh'texcoords2 Maybe [Vector2] -> f (Maybe [Vector2]) f Mesh mesh = (\Maybe [Vector2] texcoords2' -> Mesh mesh { mesh'texcoords2 :: Maybe [Vector2] RL.mesh'texcoords2 = Maybe [Vector2] texcoords2' }) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b <$> Maybe [Vector2] -> f (Maybe [Vector2]) f (Mesh -> Maybe [Vector2] RL.mesh'texcoords2 Mesh mesh) {-# INLINE _mesh'texcoords2 #-} _mesh'normals :: Lens' RL.Mesh [RL.Vector3] _mesh'normals :: Lens' Mesh [Vector3] _mesh'normals [Vector3] -> f [Vector3] f Mesh mesh = (\[Vector3] normals' -> Mesh mesh { mesh'normals :: [Vector3] RL.mesh'normals = [Vector3] normals' }) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b <$> [Vector3] -> f [Vector3] f (Mesh -> [Vector3] RL.mesh'normals Mesh mesh) {-# INLINE _mesh'normals #-} _mesh'tangents :: Lens' RL.Mesh (Maybe [RL.Vector4]) _mesh'tangents :: Lens' Mesh (Maybe [Vector4]) _mesh'tangents Maybe [Vector4] -> f (Maybe [Vector4]) f Mesh mesh = (\Maybe [Vector4] tangents' -> Mesh mesh { mesh'tangents :: Maybe [Vector4] RL.mesh'tangents = Maybe [Vector4] tangents' }) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b <$> Maybe [Vector4] -> f (Maybe [Vector4]) f (Mesh -> Maybe [Vector4] RL.mesh'tangents Mesh mesh) {-# INLINE _mesh'tangents #-} _mesh'colors :: Lens' RL.Mesh (Maybe [RL.Color]) _mesh'colors :: Lens' Mesh (Maybe [Color]) _mesh'colors Maybe [Color] -> f (Maybe [Color]) f Mesh mesh = (\Maybe [Color] colors' -> Mesh mesh { mesh'colors :: Maybe [Color] RL.mesh'colors = Maybe [Color] colors' }) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b <$> Maybe [Color] -> f (Maybe [Color]) f (Mesh -> Maybe [Color] RL.mesh'colors Mesh mesh) {-# INLINE _mesh'colors #-} _mesh'indices :: Lens' RL.Mesh (Maybe [Word16]) _mesh'indices :: Lens' Mesh (Maybe [Word16]) _mesh'indices Maybe [Word16] -> f (Maybe [Word16]) f Mesh mesh = (\Maybe [Word16] indices' -> Mesh mesh { mesh'indices :: Maybe [Word16] RL.mesh'indices = Maybe [Word16] indices' }) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b <$> Maybe [Word16] -> f (Maybe [Word16]) f (Mesh -> Maybe [Word16] RL.mesh'indices Mesh mesh) {-# INLINE _mesh'indices #-} _mesh'animVertices :: Lens' RL.Mesh (Maybe [RL.Vector3]) _mesh'animVertices :: Lens' Mesh (Maybe [Vector3]) _mesh'animVertices Maybe [Vector3] -> f (Maybe [Vector3]) f Mesh mesh = (\Maybe [Vector3] animVertices' -> Mesh mesh { mesh'animVertices :: Maybe [Vector3] RL.mesh'animVertices = Maybe [Vector3] animVertices' }) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b <$> Maybe [Vector3] -> f (Maybe [Vector3]) f (Mesh -> Maybe [Vector3] RL.mesh'animVertices Mesh mesh) {-# INLINE _mesh'animVertices #-} _mesh'animNormals :: Lens' RL.Mesh (Maybe [RL.Vector3]) _mesh'animNormals :: Lens' Mesh (Maybe [Vector3]) _mesh'animNormals Maybe [Vector3] -> f (Maybe [Vector3]) f Mesh mesh = (\Maybe [Vector3] animNormals' -> Mesh mesh { mesh'animNormals :: Maybe [Vector3] RL.mesh'animNormals = Maybe [Vector3] animNormals' }) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b <$> Maybe [Vector3] -> f (Maybe [Vector3]) f (Mesh -> Maybe [Vector3] RL.mesh'animNormals Mesh mesh) {-# INLINE _mesh'animNormals #-} _mesh'boneIds :: Lens' RL.Mesh (Maybe [Word8]) _mesh'boneIds :: Lens' Mesh (Maybe [Word8]) _mesh'boneIds Maybe [Word8] -> f (Maybe [Word8]) f Mesh mesh = (\Maybe [Word8] boneIds' -> Mesh mesh { mesh'boneIds :: Maybe [Word8] RL.mesh'boneIds = Maybe [Word8] boneIds' }) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b <$> Maybe [Word8] -> f (Maybe [Word8]) f (Mesh -> Maybe [Word8] RL.mesh'boneIds Mesh mesh) {-# INLINE _mesh'boneIds #-} _mesh'boneWeights :: Lens' RL.Mesh (Maybe [Float]) _mesh'boneWeights :: Lens' Mesh (Maybe [Float]) _mesh'boneWeights Maybe [Float] -> f (Maybe [Float]) f Mesh mesh = (\Maybe [Float] boneWeights' -> Mesh mesh { mesh'boneWeights :: Maybe [Float] RL.mesh'boneWeights = Maybe [Float] boneWeights' }) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b <$> Maybe [Float] -> f (Maybe [Float]) f (Mesh -> Maybe [Float] RL.mesh'boneWeights Mesh mesh) {-# INLINE _mesh'boneWeights #-} _mesh'vaoId :: Lens' RL.Mesh Integer _mesh'vaoId :: Lens' Mesh Integer _mesh'vaoId Integer -> f Integer f Mesh mesh = (\Integer vaoId' -> Mesh mesh { mesh'vaoId :: Integer RL.mesh'vaoId = Integer vaoId' }) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b <$> Integer -> f Integer f (Mesh -> Integer RL.mesh'vaoId Mesh mesh) {-# INLINE _mesh'vaoId #-} _mesh'vboId :: Lens' RL.Mesh (Maybe [Integer]) _mesh'vboId :: Lens' Mesh (Maybe [Integer]) _mesh'vboId Maybe [Integer] -> f (Maybe [Integer]) f Mesh mesh = (\Maybe [Integer] vboId' -> Mesh mesh { mesh'vboId :: Maybe [Integer] RL.mesh'vboId = Maybe [Integer] vboId' }) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b <$> Maybe [Integer] -> f (Maybe [Integer]) f (Mesh -> Maybe [Integer] RL.mesh'vboId Mesh mesh) {-# INLINE _mesh'vboId #-} _shader'id :: Lens' RL.Shader Integer _shader'id :: Lens' Shader Integer _shader'id Integer -> f Integer f (RL.Shader Integer ident [Int] locs) = (\Integer ident' -> Integer -> [Int] -> Shader RL.Shader Integer ident' [Int] locs) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b <$> Integer -> f Integer f Integer ident {-# INLINE _shader'id #-} _shader'locs :: Lens' RL.Shader [Int] _shader'locs :: Lens' Shader [Int] _shader'locs [Int] -> f [Int] f (RL.Shader Integer ident [Int] locs) = (\[Int] locs' -> Integer -> [Int] -> Shader RL.Shader Integer ident [Int] locs') forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b <$> [Int] -> f [Int] f [Int] locs {-# INLINE _shader'locs #-} _materialMap'texture :: Lens' RL.MaterialMap RL.Texture _materialMap'texture :: Lens' MaterialMap Texture _materialMap'texture Texture -> f Texture f (RL.MaterialMap Texture texture Color color Float value) = (\Texture texture' -> Texture -> Color -> Float -> MaterialMap RL.MaterialMap Texture texture' Color color Float value) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b <$> Texture -> f Texture f Texture texture {-# INLINE _materialMap'texture #-} _materialMap'color :: Lens' RL.MaterialMap RL.Color _materialMap'color :: Lens' MaterialMap Color _materialMap'color Color -> f Color f (RL.MaterialMap Texture texture Color color Float value) = (\Color color' -> Texture -> Color -> Float -> MaterialMap RL.MaterialMap Texture texture Color color' Float value) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b <$> Color -> f Color f Color color {-# INLINE _materialMap'color #-} _materialMap'value :: Lens' RL.MaterialMap Float _materialMap'value :: Lens' MaterialMap Float _materialMap'value Float -> f Float f (RL.MaterialMap Texture texture Color color Float value) = (\Float value' -> Texture -> Color -> Float -> MaterialMap RL.MaterialMap Texture texture Color color Float value') forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b <$> Float -> f Float f Float value {-# INLINE _materialMap'value #-} _material'shader :: Lens' RL.Material RL.Shader _material'shader :: Lens' Material Shader _material'shader Shader -> f Shader f (RL.Material Shader shader Maybe [MaterialMap] maps [Float] params) = (\Shader shader' -> Shader -> Maybe [MaterialMap] -> [Float] -> Material RL.Material Shader shader' Maybe [MaterialMap] maps [Float] params) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b <$> Shader -> f Shader f Shader shader {-# INLINE _material'shader #-} _material'maps :: Lens' RL.Material (Maybe [RL.MaterialMap]) _material'maps :: Lens' Material (Maybe [MaterialMap]) _material'maps Maybe [MaterialMap] -> f (Maybe [MaterialMap]) f (RL.Material Shader shader Maybe [MaterialMap] maps [Float] params) = (\Maybe [MaterialMap] maps' -> Shader -> Maybe [MaterialMap] -> [Float] -> Material RL.Material Shader shader Maybe [MaterialMap] maps' [Float] params) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b <$> Maybe [MaterialMap] -> f (Maybe [MaterialMap]) f Maybe [MaterialMap] maps {-# INLINE _material'maps #-} _material'params :: Lens' RL.Material [Float] _material'params :: Lens' Material [Float] _material'params [Float] -> f [Float] f (RL.Material Shader shader Maybe [MaterialMap] maps [Float] params) = (\[Float] params' -> Shader -> Maybe [MaterialMap] -> [Float] -> Material RL.Material Shader shader Maybe [MaterialMap] maps [Float] params') forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b <$> [Float] -> f [Float] f [Float] params {-# INLINE _material'params #-} _transform'translation :: Lens' RL.Transform RL.Vector3 _transform'translation :: Lens' Transform Vector3 _transform'translation Vector3 -> f Vector3 f (RL.Transform Vector3 translation Vector4 rotation Vector3 scale) = (\Vector3 translation' -> Vector3 -> Vector4 -> Vector3 -> Transform RL.Transform Vector3 translation' Vector4 rotation Vector3 scale) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b <$> Vector3 -> f Vector3 f Vector3 translation {-# INLINE _transform'translation #-} _transform'rotation :: Lens' RL.Transform RL.Quaternion _transform'rotation :: Lens' Transform Vector4 _transform'rotation Vector4 -> f Vector4 f (RL.Transform Vector3 translation Vector4 rotation Vector3 scale) = (\Vector4 rotation' -> Vector3 -> Vector4 -> Vector3 -> Transform RL.Transform Vector3 translation Vector4 rotation' Vector3 scale) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b <$> Vector4 -> f Vector4 f Vector4 rotation {-# INLINE _transform'rotation #-} _transform'scale :: Lens' RL.Transform RL.Vector3 _transform'scale :: Lens' Transform Vector3 _transform'scale Vector3 -> f Vector3 f (RL.Transform Vector3 translation Vector4 rotation Vector3 scale) = (\Vector3 scale' -> Vector3 -> Vector4 -> Vector3 -> Transform RL.Transform Vector3 translation Vector4 rotation Vector3 scale') forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b <$> Vector3 -> f Vector3 f Vector3 scale {-# INLINE _transform'scale #-} _boneInfo'name :: Lens' RL.BoneInfo String _boneInfo'name :: Lens' BoneInfo String _boneInfo'name String -> f String f (RL.BoneInfo String name Int parent) = (\String name' -> String -> Int -> BoneInfo RL.BoneInfo String name' Int parent) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b <$> String -> f String f String name {-# INLINE _boneInfo'name #-} _boneInfo'parent :: Lens' RL.BoneInfo Int _boneInfo'parent :: Lens' BoneInfo Int _boneInfo'parent Int -> f Int f (RL.BoneInfo String name Int parent) = (\Int parent' -> String -> Int -> BoneInfo RL.BoneInfo String name Int parent') forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b <$> Int -> f Int f Int parent {-# INLINE _boneInfo'parent #-} _model'transform :: Lens' RL.Model RL.Matrix _model'transform :: Lens' Model Matrix _model'transform Matrix -> f Matrix f Model model = (\Matrix transform' -> Model model { model'transform :: Matrix RL.model'transform = Matrix transform' }) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b <$> Matrix -> f Matrix f (Model -> Matrix RL.model'transform Model model) {-# INLINE _model'transform #-} _model'meshes :: Lens' RL.Model [RL.Mesh] _model'meshes :: Lens' Model [Mesh] _model'meshes [Mesh] -> f [Mesh] f Model model = (\[Mesh] meshes' -> Model model { model'meshes :: [Mesh] RL.model'meshes = [Mesh] meshes' }) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b <$> [Mesh] -> f [Mesh] f (Model -> [Mesh] RL.model'meshes Model model) {-# INLINE _model'meshes #-} _model'materials :: Lens' RL.Model [RL.Material] _model'materials :: Lens' Model [Material] _model'materials [Material] -> f [Material] f Model model = (\[Material] materials' -> Model model { model'materials :: [Material] RL.model'materials = [Material] materials' }) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b <$> [Material] -> f [Material] f (Model -> [Material] RL.model'materials Model model) {-# INLINE _model'materials #-} _model'meshMaterial :: Lens' RL.Model [Int] _model'meshMaterial :: Lens' Model [Int] _model'meshMaterial [Int] -> f [Int] f Model model = (\[Int] meshMaterial' -> Model model { model'meshMaterial :: [Int] RL.model'meshMaterial = [Int] meshMaterial' }) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b <$> [Int] -> f [Int] f (Model -> [Int] RL.model'meshMaterial Model model) {-# INLINE _model'meshMaterial #-} _model'boneCount :: Lens' RL.Model Int _model'boneCount :: Lens' Model Int _model'boneCount Int -> f Int f Model model = (\Int boneCount' -> Model model { model'boneCount :: Int RL.model'boneCount = Int boneCount' }) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b <$> Int -> f Int f (Model -> Int RL.model'boneCount Model model) {-# INLINE _model'boneCount #-} _model'bones :: Lens' RL.Model (Maybe [RL.BoneInfo]) _model'bones :: Lens' Model (Maybe [BoneInfo]) _model'bones Maybe [BoneInfo] -> f (Maybe [BoneInfo]) f Model model = (\Maybe [BoneInfo] bones' -> Model model { model'bones :: Maybe [BoneInfo] RL.model'bones = Maybe [BoneInfo] bones' }) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b <$> Maybe [BoneInfo] -> f (Maybe [BoneInfo]) f (Model -> Maybe [BoneInfo] RL.model'bones Model model) {-# INLINE _model'bones #-} _model'bindPose :: Lens' RL.Model (Maybe [RL.Transform]) _model'bindPose :: Lens' Model (Maybe [Transform]) _model'bindPose Maybe [Transform] -> f (Maybe [Transform]) f Model model = (\Maybe [Transform] bindPose' -> Model model { model'bindPose :: Maybe [Transform] RL.model'bindPose = Maybe [Transform] bindPose' }) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b <$> Maybe [Transform] -> f (Maybe [Transform]) f (Model -> Maybe [Transform] RL.model'bindPose Model model) {-# INLINE _model'bindPose #-} _modelAnimation'boneCount :: Lens' RL.ModelAnimation Int _modelAnimation'boneCount :: Lens' ModelAnimation Int _modelAnimation'boneCount Int -> f Int f (RL.ModelAnimation Int boneCount Int frameCount [BoneInfo] bones [[Transform]] framePoses) = (\Int boneCount' -> Int -> Int -> [BoneInfo] -> [[Transform]] -> ModelAnimation RL.ModelAnimation Int boneCount' Int frameCount [BoneInfo] bones [[Transform]] framePoses) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b <$> Int -> f Int f Int boneCount {-# INLINE _modelAnimation'boneCount #-} _modelAnimation'frameCount :: Lens' RL.ModelAnimation Int _modelAnimation'frameCount :: Lens' ModelAnimation Int _modelAnimation'frameCount Int -> f Int f (RL.ModelAnimation Int boneCount Int frameCount [BoneInfo] bones [[Transform]] framePoses) = (\Int frameCount' -> Int -> Int -> [BoneInfo] -> [[Transform]] -> ModelAnimation RL.ModelAnimation Int boneCount Int frameCount' [BoneInfo] bones [[Transform]] framePoses) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b <$> Int -> f Int f Int frameCount {-# INLINE _modelAnimation'frameCount #-} _modelAnimation'bones :: Lens' RL.ModelAnimation [RL.BoneInfo] _modelAnimation'bones :: Lens' ModelAnimation [BoneInfo] _modelAnimation'bones [BoneInfo] -> f [BoneInfo] f (RL.ModelAnimation Int boneCount Int frameCount [BoneInfo] bones [[Transform]] framePoses) = (\[BoneInfo] bones' -> Int -> Int -> [BoneInfo] -> [[Transform]] -> ModelAnimation RL.ModelAnimation Int boneCount Int frameCount [BoneInfo] bones' [[Transform]] framePoses) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b <$> [BoneInfo] -> f [BoneInfo] f [BoneInfo] bones {-# INLINE _modelAnimation'bones #-} _modelAnimation'framePoses :: Lens' RL.ModelAnimation [[RL.Transform]] _modelAnimation'framePoses :: Lens' ModelAnimation [[Transform]] _modelAnimation'framePoses [[Transform]] -> f [[Transform]] f (RL.ModelAnimation Int boneCount Int frameCount [BoneInfo] bones [[Transform]] framePoses) = (\[[Transform]] framePoses' -> Int -> Int -> [BoneInfo] -> [[Transform]] -> ModelAnimation RL.ModelAnimation Int boneCount Int frameCount [BoneInfo] bones [[Transform]] framePoses') forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b <$> [[Transform]] -> f [[Transform]] f [[Transform]] framePoses {-# INLINE _modelAnimation'framePoses #-} _ray'position :: Lens' RL.Ray RL.Vector3 _ray'position :: Lens' Ray Vector3 _ray'position Vector3 -> f Vector3 f (RL.Ray Vector3 position Vector3 direction) = (\Vector3 position' -> Vector3 -> Vector3 -> Ray RL.Ray Vector3 position' Vector3 direction) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b <$> Vector3 -> f Vector3 f Vector3 position {-# INLINE _ray'position #-} _ray'direction :: Lens' RL.Ray RL.Vector3 _ray'direction :: Lens' Ray Vector3 _ray'direction Vector3 -> f Vector3 f (RL.Ray Vector3 position Vector3 direction) = (\Vector3 direction' -> Vector3 -> Vector3 -> Ray RL.Ray Vector3 position Vector3 direction') forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b <$> Vector3 -> f Vector3 f Vector3 direction {-# INLINE _ray'direction #-} _rayCollision'hit :: Lens' RL.RayCollision Bool _rayCollision'hit :: Lens' RayCollision Bool _rayCollision'hit Bool -> f Bool f (RL.RayCollision Bool hit Float distance Vector3 point Vector3 normal) = (\Bool hit' -> Bool -> Float -> Vector3 -> Vector3 -> RayCollision RL.RayCollision Bool hit' Float distance Vector3 point Vector3 normal) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b <$> Bool -> f Bool f Bool hit {-# INLINE _rayCollision'hit #-} _rayCollision'distance :: Lens' RL.RayCollision Float _rayCollision'distance :: Lens' RayCollision Float _rayCollision'distance Float -> f Float f (RL.RayCollision Bool hit Float distance Vector3 point Vector3 normal) = (\Float distance' -> Bool -> Float -> Vector3 -> Vector3 -> RayCollision RL.RayCollision Bool hit Float distance' Vector3 point Vector3 normal) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b <$> Float -> f Float f Float distance {-# INLINE _rayCollision'distance #-} _rayCollision'point :: Lens' RL.RayCollision RL.Vector3 _rayCollision'point :: Lens' RayCollision Vector3 _rayCollision'point Vector3 -> f Vector3 f (RL.RayCollision Bool hit Float distance Vector3 point Vector3 normal) = (\Vector3 point' -> Bool -> Float -> Vector3 -> Vector3 -> RayCollision RL.RayCollision Bool hit Float distance Vector3 point' Vector3 normal) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b <$> Vector3 -> f Vector3 f Vector3 point {-# INLINE _rayCollision'point #-} _rayCollision'normal :: Lens' RL.RayCollision RL.Vector3 _rayCollision'normal :: Lens' RayCollision Vector3 _rayCollision'normal Vector3 -> f Vector3 f (RL.RayCollision Bool hit Float distance Vector3 point Vector3 normal) = (\Vector3 normal' -> Bool -> Float -> Vector3 -> Vector3 -> RayCollision RL.RayCollision Bool hit Float distance Vector3 point Vector3 normal') forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b <$> Vector3 -> f Vector3 f Vector3 normal {-# INLINE _rayCollision'normal #-} _boundingBox'min :: Lens' RL.BoundingBox RL.Vector3 _boundingBox'min :: Lens' BoundingBox Vector3 _boundingBox'min Vector3 -> f Vector3 f (RL.BoundingBox Vector3 bbMin Vector3 bbMax) = (\Vector3 bbMin' -> Vector3 -> Vector3 -> BoundingBox RL.BoundingBox Vector3 bbMin' Vector3 bbMax) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b <$> Vector3 -> f Vector3 f Vector3 bbMin {-# INLINE _boundingBox'min #-} _boundingBox'max :: Lens' RL.BoundingBox RL.Vector3 _boundingBox'max :: Lens' BoundingBox Vector3 _boundingBox'max Vector3 -> f Vector3 f (RL.BoundingBox Vector3 bbMin Vector3 bbMax) = (\Vector3 bbMax' -> Vector3 -> Vector3 -> BoundingBox RL.BoundingBox Vector3 bbMin Vector3 bbMax') forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b <$> Vector3 -> f Vector3 f Vector3 bbMax {-# INLINE _boundingBox'max #-} _wave'frameCount :: Lens' RL.Wave Integer _wave'frameCount :: Lens' Wave Integer _wave'frameCount Integer -> f Integer f (RL.Wave Integer frameCount Integer sampleRate Integer sampleSize Integer channels [Int] waveData) = (\Integer frameCount' -> Integer -> Integer -> Integer -> Integer -> [Int] -> Wave RL.Wave Integer frameCount' Integer sampleRate Integer sampleSize Integer channels [Int] waveData) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b <$> Integer -> f Integer f Integer frameCount {-# INLINE _wave'frameCount #-} _wave'sampleRate :: Lens' RL.Wave Integer _wave'sampleRate :: Lens' Wave Integer _wave'sampleRate Integer -> f Integer f (RL.Wave Integer frameCount Integer sampleRate Integer sampleSize Integer channels [Int] waveData) = (\Integer sampleRate' -> Integer -> Integer -> Integer -> Integer -> [Int] -> Wave RL.Wave Integer frameCount Integer sampleRate' Integer sampleSize Integer channels [Int] waveData) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b <$> Integer -> f Integer f Integer sampleRate {-# INLINE _wave'sampleRate #-} _wave'sampleSize :: Lens' RL.Wave Integer _wave'sampleSize :: Lens' Wave Integer _wave'sampleSize Integer -> f Integer f (RL.Wave Integer frameCount Integer sampleRate Integer sampleSize Integer channels [Int] waveData) = (\Integer sampleSize' -> Integer -> Integer -> Integer -> Integer -> [Int] -> Wave RL.Wave Integer frameCount Integer sampleRate Integer sampleSize' Integer channels [Int] waveData) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b <$> Integer -> f Integer f Integer sampleSize {-# INLINE _wave'sampleSize #-} _wave'channels :: Lens' RL.Wave Integer _wave'channels :: Lens' Wave Integer _wave'channels Integer -> f Integer f (RL.Wave Integer frameCount Integer sampleRate Integer sampleSize Integer channels [Int] waveData) = (\Integer channels' -> Integer -> Integer -> Integer -> Integer -> [Int] -> Wave RL.Wave Integer frameCount Integer sampleRate Integer sampleSize Integer channels' [Int] waveData) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b <$> Integer -> f Integer f Integer channels {-# INLINE _wave'channels #-} _wave'data :: Lens' RL.Wave [Int] _wave'data :: Lens' Wave [Int] _wave'data [Int] -> f [Int] f (RL.Wave Integer frameCount Integer sampleRate Integer sampleSize Integer channels [Int] waveData) = (\[Int] waveData' -> Integer -> Integer -> Integer -> Integer -> [Int] -> Wave RL.Wave Integer frameCount Integer sampleRate Integer sampleSize Integer channels [Int] waveData') forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b <$> [Int] -> f [Int] f [Int] waveData {-# INLINE _wave'data #-} _rAudioBuffer'converter :: Lens' RL.RAudioBuffer [Int] _rAudioBuffer'converter :: Lens' RAudioBuffer [Int] _rAudioBuffer'converter [Int] -> f [Int] f RAudioBuffer buffer = (\[Int] converter' -> RAudioBuffer buffer { rAudioBuffer'converter :: [Int] RL.rAudioBuffer'converter = [Int] converter' }) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b <$> [Int] -> f [Int] f (RAudioBuffer -> [Int] RL.rAudioBuffer'converter RAudioBuffer buffer) {-# INLINE _rAudioBuffer'converter #-} _rAudioBuffer'callback :: Lens' RL.RAudioBuffer RL.AudioCallback _rAudioBuffer'callback :: Lens' RAudioBuffer AudioCallback _rAudioBuffer'callback AudioCallback -> f AudioCallback f RAudioBuffer buffer = (\AudioCallback callback' -> RAudioBuffer buffer { rAudioBuffer'callback :: AudioCallback RL.rAudioBuffer'callback = AudioCallback callback' }) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b <$> AudioCallback -> f AudioCallback f (RAudioBuffer -> AudioCallback RL.rAudioBuffer'callback RAudioBuffer buffer) {-# INLINE _rAudioBuffer'callback #-} _rAudioBuffer'processor :: Lens' RL.RAudioBuffer (Maybe RL.RAudioProcessor) _rAudioBuffer'processor :: Lens' RAudioBuffer (Maybe RAudioProcessor) _rAudioBuffer'processor Maybe RAudioProcessor -> f (Maybe RAudioProcessor) f RAudioBuffer buffer = (\Maybe RAudioProcessor processor' -> RAudioBuffer buffer { rAudioBuffer'processor :: Maybe RAudioProcessor RL.rAudioBuffer'processor = Maybe RAudioProcessor processor' }) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b <$> Maybe RAudioProcessor -> f (Maybe RAudioProcessor) f (RAudioBuffer -> Maybe RAudioProcessor RL.rAudioBuffer'processor RAudioBuffer buffer) {-# INLINE _rAudioBuffer'processor #-} _rAudioBuffer'volume :: Lens' RL.RAudioBuffer Float _rAudioBuffer'volume :: Lens' RAudioBuffer Float _rAudioBuffer'volume Float -> f Float f RAudioBuffer buffer = (\Float volume' -> RAudioBuffer buffer { rAudioBuffer'volume :: Float RL.rAudioBuffer'volume = Float volume' }) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b <$> Float -> f Float f (RAudioBuffer -> Float RL.rAudioBuffer'volume RAudioBuffer buffer) {-# INLINE _rAudioBuffer'volume #-} _rAudioBuffer'pitch :: Lens' RL.RAudioBuffer Float _rAudioBuffer'pitch :: Lens' RAudioBuffer Float _rAudioBuffer'pitch Float -> f Float f RAudioBuffer buffer = (\Float pitch' -> RAudioBuffer buffer { rAudioBuffer'pitch :: Float RL.rAudioBuffer'pitch = Float pitch' }) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b <$> Float -> f Float f (RAudioBuffer -> Float RL.rAudioBuffer'pitch RAudioBuffer buffer) {-# INLINE _rAudioBuffer'pitch #-} _rAudioBuffer'pan :: Lens' RL.RAudioBuffer Float _rAudioBuffer'pan :: Lens' RAudioBuffer Float _rAudioBuffer'pan Float -> f Float f RAudioBuffer buffer = (\Float pan' -> RAudioBuffer buffer { rAudioBuffer'pan :: Float RL.rAudioBuffer'pan = Float pan' }) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b <$> Float -> f Float f (RAudioBuffer -> Float RL.rAudioBuffer'pan RAudioBuffer buffer) {-# INLINE _rAudioBuffer'pan #-} _rAudioBuffer'playing :: Lens' RL.RAudioBuffer Bool _rAudioBuffer'playing :: Lens' RAudioBuffer Bool _rAudioBuffer'playing Bool -> f Bool f RAudioBuffer buffer = (\Bool playing' -> RAudioBuffer buffer { rAudioBuffer'playing :: Bool RL.rAudioBuffer'playing = Bool playing' }) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b <$> Bool -> f Bool f (RAudioBuffer -> Bool RL.rAudioBuffer'playing RAudioBuffer buffer) {-# INLINE _rAudioBuffer'playing #-} _rAudioBuffer'paused :: Lens' RL.RAudioBuffer Bool _rAudioBuffer'paused :: Lens' RAudioBuffer Bool _rAudioBuffer'paused Bool -> f Bool f RAudioBuffer buffer = (\Bool paused' -> RAudioBuffer buffer { rAudioBuffer'paused :: Bool RL.rAudioBuffer'paused = Bool paused' }) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b <$> Bool -> f Bool f (RAudioBuffer -> Bool RL.rAudioBuffer'paused RAudioBuffer buffer) {-# INLINE _rAudioBuffer'paused #-} _rAudioBuffer'looping :: Lens' RL.RAudioBuffer Bool _rAudioBuffer'looping :: Lens' RAudioBuffer Bool _rAudioBuffer'looping Bool -> f Bool f RAudioBuffer buffer = (\Bool looping' -> RAudioBuffer buffer { rAudioBuffer'looping :: Bool RL.rAudioBuffer'looping = Bool looping' }) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b <$> Bool -> f Bool f (RAudioBuffer -> Bool RL.rAudioBuffer'looping RAudioBuffer buffer) {-# INLINE _rAudioBuffer'looping #-} _rAudioBuffer'usage :: Lens' RL.RAudioBuffer Int _rAudioBuffer'usage :: Lens' RAudioBuffer Int _rAudioBuffer'usage Int -> f Int f RAudioBuffer buffer = (\Int usage' -> RAudioBuffer buffer { rAudioBuffer'usage :: Int RL.rAudioBuffer'usage = Int usage' }) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b <$> Int -> f Int f (RAudioBuffer -> Int RL.rAudioBuffer'usage RAudioBuffer buffer) {-# INLINE _rAudioBuffer'usage #-} _rAudioBuffer'isSubBufferProcessed :: Lens' RL.RAudioBuffer [Bool] _rAudioBuffer'isSubBufferProcessed :: Lens' RAudioBuffer [Bool] _rAudioBuffer'isSubBufferProcessed [Bool] -> f [Bool] f RAudioBuffer buffer = (\[Bool] isSubBufferProcessed' -> RAudioBuffer buffer { rAudioBuffer'isSubBufferProcessed :: [Bool] RL.rAudioBuffer'isSubBufferProcessed = [Bool] isSubBufferProcessed' }) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b <$> [Bool] -> f [Bool] f (RAudioBuffer -> [Bool] RL.rAudioBuffer'isSubBufferProcessed RAudioBuffer buffer) {-# INLINE _rAudioBuffer'isSubBufferProcessed #-} _rAudioBuffer'sizeInFrames :: Lens' RL.RAudioBuffer Integer _rAudioBuffer'sizeInFrames :: Lens' RAudioBuffer Integer _rAudioBuffer'sizeInFrames Integer -> f Integer f RAudioBuffer buffer = (\Integer sizeInFrames' -> RAudioBuffer buffer { rAudioBuffer'sizeInFrames :: Integer RL.rAudioBuffer'sizeInFrames = Integer sizeInFrames' }) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b <$> Integer -> f Integer f (RAudioBuffer -> Integer RL.rAudioBuffer'sizeInFrames RAudioBuffer buffer) {-# INLINE _rAudioBuffer'sizeInFrames #-} _rAudioBuffer'frameCursorPos :: Lens' RL.RAudioBuffer Integer _rAudioBuffer'frameCursorPos :: Lens' RAudioBuffer Integer _rAudioBuffer'frameCursorPos Integer -> f Integer f RAudioBuffer buffer = (\Integer frameCursorPos' -> RAudioBuffer buffer { rAudioBuffer'frameCursorPos :: Integer RL.rAudioBuffer'frameCursorPos = Integer frameCursorPos' }) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b <$> Integer -> f Integer f (RAudioBuffer -> Integer RL.rAudioBuffer'frameCursorPos RAudioBuffer buffer) {-# INLINE _rAudioBuffer'frameCursorPos #-} _rAudioBuffer'framesProcessed :: Lens' RL.RAudioBuffer Integer _rAudioBuffer'framesProcessed :: Lens' RAudioBuffer Integer _rAudioBuffer'framesProcessed Integer -> f Integer f RAudioBuffer buffer = (\Integer framesProcessed' -> RAudioBuffer buffer { rAudioBuffer'framesProcessed :: Integer RL.rAudioBuffer'framesProcessed = Integer framesProcessed' }) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b <$> Integer -> f Integer f (RAudioBuffer -> Integer RL.rAudioBuffer'framesProcessed RAudioBuffer buffer) {-# INLINE _rAudioBuffer'framesProcessed #-} _rAudioBuffer'data :: Lens' RL.RAudioBuffer [Word8] _rAudioBuffer'data :: Lens' RAudioBuffer [Word8] _rAudioBuffer'data [Word8] -> f [Word8] f RAudioBuffer buffer = (\[Word8] data' -> RAudioBuffer buffer { rAudioBuffer'data :: [Word8] RL.rAudioBuffer'data = [Word8] data' }) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b <$> [Word8] -> f [Word8] f (RAudioBuffer -> [Word8] RL.rAudioBuffer'data RAudioBuffer buffer) {-# INLINE _rAudioBuffer'data #-} _rAudioBuffer'next :: Lens' RL.RAudioBuffer (Maybe RL.RAudioBuffer) _rAudioBuffer'next :: Lens' RAudioBuffer (Maybe RAudioBuffer) _rAudioBuffer'next Maybe RAudioBuffer -> f (Maybe RAudioBuffer) f RAudioBuffer buffer = (\Maybe RAudioBuffer next' -> RAudioBuffer buffer { rAudioBuffer'next :: Maybe RAudioBuffer RL.rAudioBuffer'next = Maybe RAudioBuffer next' }) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b <$> Maybe RAudioBuffer -> f (Maybe RAudioBuffer) f (RAudioBuffer -> Maybe RAudioBuffer RL.rAudioBuffer'next RAudioBuffer buffer) {-# INLINE _rAudioBuffer'next #-} _rAudioBuffer'prev :: Lens' RL.RAudioBuffer (Maybe RL.RAudioBuffer) _rAudioBuffer'prev :: Lens' RAudioBuffer (Maybe RAudioBuffer) _rAudioBuffer'prev Maybe RAudioBuffer -> f (Maybe RAudioBuffer) f RAudioBuffer buffer = (\Maybe RAudioBuffer prev' -> RAudioBuffer buffer { rAudioBuffer'prev :: Maybe RAudioBuffer RL.rAudioBuffer'prev = Maybe RAudioBuffer prev' }) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b <$> Maybe RAudioBuffer -> f (Maybe RAudioBuffer) f (RAudioBuffer -> Maybe RAudioBuffer RL.rAudioBuffer'prev RAudioBuffer buffer) {-# INLINE _rAudioBuffer'prev #-} _rAudioProcessor'process :: Lens' RL.RAudioProcessor (Maybe RL.AudioCallback) _rAudioProcessor'process :: Lens' RAudioProcessor (Maybe AudioCallback) _rAudioProcessor'process Maybe AudioCallback -> f (Maybe AudioCallback) f (RL.RAudioProcessor Maybe AudioCallback process Maybe RAudioProcessor next Maybe RAudioProcessor prev) = (\Maybe AudioCallback process' -> Maybe AudioCallback -> Maybe RAudioProcessor -> Maybe RAudioProcessor -> RAudioProcessor RL.RAudioProcessor Maybe AudioCallback process' Maybe RAudioProcessor next Maybe RAudioProcessor prev) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b <$> Maybe AudioCallback -> f (Maybe AudioCallback) f Maybe AudioCallback process {-# INLINE _rAudioProcessor'process #-} _rAudioProcessor'next :: Lens' RL.RAudioProcessor (Maybe RL.RAudioProcessor) _rAudioProcessor'next :: Lens' RAudioProcessor (Maybe RAudioProcessor) _rAudioProcessor'next Maybe RAudioProcessor -> f (Maybe RAudioProcessor) f (RL.RAudioProcessor Maybe AudioCallback process Maybe RAudioProcessor next Maybe RAudioProcessor prev) = (\Maybe RAudioProcessor next' -> Maybe AudioCallback -> Maybe RAudioProcessor -> Maybe RAudioProcessor -> RAudioProcessor RL.RAudioProcessor Maybe AudioCallback process Maybe RAudioProcessor next' Maybe RAudioProcessor prev) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b <$> Maybe RAudioProcessor -> f (Maybe RAudioProcessor) f Maybe RAudioProcessor next {-# INLINE _rAudioProcessor'next #-} _rAudioProcessor'prev :: Lens' RL.RAudioProcessor (Maybe RL.RAudioProcessor) _rAudioProcessor'prev :: Lens' RAudioProcessor (Maybe RAudioProcessor) _rAudioProcessor'prev Maybe RAudioProcessor -> f (Maybe RAudioProcessor) f (RL.RAudioProcessor Maybe AudioCallback process Maybe RAudioProcessor next Maybe RAudioProcessor prev) = (\Maybe RAudioProcessor prev' -> Maybe AudioCallback -> Maybe RAudioProcessor -> Maybe RAudioProcessor -> RAudioProcessor RL.RAudioProcessor Maybe AudioCallback process Maybe RAudioProcessor next Maybe RAudioProcessor prev') forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b <$> Maybe RAudioProcessor -> f (Maybe RAudioProcessor) f Maybe RAudioProcessor prev {-# INLINE _rAudioProcessor'prev #-} _AudioStream'buffer :: Lens' RL.AudioStream (Ptr RL.RAudioBuffer) _AudioStream'buffer :: Lens' AudioStream (Ptr RAudioBuffer) _AudioStream'buffer Ptr RAudioBuffer -> f (Ptr RAudioBuffer) f (RL.AudioStream Ptr RAudioBuffer buffer Ptr RAudioProcessor processor Integer sampleRate Integer sampleSize Integer channels) = (\Ptr RAudioBuffer buffer' -> Ptr RAudioBuffer -> Ptr RAudioProcessor -> Integer -> Integer -> Integer -> AudioStream RL.AudioStream Ptr RAudioBuffer buffer' Ptr RAudioProcessor processor Integer sampleRate Integer sampleSize Integer channels) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b <$> Ptr RAudioBuffer -> f (Ptr RAudioBuffer) f Ptr RAudioBuffer buffer {-# INLINE _AudioStream'buffer#-} _AudioStream'processor :: Lens' RL.AudioStream (Ptr RL.RAudioProcessor) _AudioStream'processor :: Lens' AudioStream (Ptr RAudioProcessor) _AudioStream'processor Ptr RAudioProcessor -> f (Ptr RAudioProcessor) f (RL.AudioStream Ptr RAudioBuffer buffer Ptr RAudioProcessor processor Integer sampleRate Integer sampleSize Integer channels) = (\Ptr RAudioProcessor processor' -> Ptr RAudioBuffer -> Ptr RAudioProcessor -> Integer -> Integer -> Integer -> AudioStream RL.AudioStream Ptr RAudioBuffer buffer Ptr RAudioProcessor processor' Integer sampleRate Integer sampleSize Integer channels) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b <$> Ptr RAudioProcessor -> f (Ptr RAudioProcessor) f Ptr RAudioProcessor processor {-# INLINE _AudioStream'processor #-} _AudioStream'sampleRate :: Lens' RL.AudioStream Integer _AudioStream'sampleRate :: Lens' AudioStream Integer _AudioStream'sampleRate Integer -> f Integer f (RL.AudioStream Ptr RAudioBuffer buffer Ptr RAudioProcessor processor Integer sampleRate Integer sampleSize Integer channels) = (\Integer sampleRate' -> Ptr RAudioBuffer -> Ptr RAudioProcessor -> Integer -> Integer -> Integer -> AudioStream RL.AudioStream Ptr RAudioBuffer buffer Ptr RAudioProcessor processor Integer sampleRate' Integer sampleSize Integer channels) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b <$> Integer -> f Integer f Integer sampleRate {-# INLINE _AudioStream'sampleRate #-} _AudioStream'sampleSize :: Lens' RL.AudioStream Integer _AudioStream'sampleSize :: Lens' AudioStream Integer _AudioStream'sampleSize Integer -> f Integer f (RL.AudioStream Ptr RAudioBuffer buffer Ptr RAudioProcessor processor Integer sampleRate Integer sampleSize Integer channels) = (\Integer sampleSize' -> Ptr RAudioBuffer -> Ptr RAudioProcessor -> Integer -> Integer -> Integer -> AudioStream RL.AudioStream Ptr RAudioBuffer buffer Ptr RAudioProcessor processor Integer sampleRate Integer sampleSize' Integer channels) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b <$> Integer -> f Integer f Integer sampleSize {-# INLINE _AudioStream'sampleSize #-} _AudioStream'channels :: Lens' RL.AudioStream Integer _AudioStream'channels :: Lens' AudioStream Integer _AudioStream'channels Integer -> f Integer f (RL.AudioStream Ptr RAudioBuffer buffer Ptr RAudioProcessor processor Integer sampleRate Integer sampleSize Integer channels) = (\Integer channels' -> Ptr RAudioBuffer -> Ptr RAudioProcessor -> Integer -> Integer -> Integer -> AudioStream RL.AudioStream Ptr RAudioBuffer buffer Ptr RAudioProcessor processor Integer sampleRate Integer sampleSize Integer channels') forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b <$> Integer -> f Integer f Integer channels {-# INLINE _AudioStream'channels #-} _sound'stream :: Lens' RL.Sound RL.AudioStream _sound'stream :: Lens' Sound AudioStream _sound'stream AudioStream -> f AudioStream f (RL.Sound AudioStream stream Integer frameCount) = (\AudioStream stream' -> AudioStream -> Integer -> Sound RL.Sound AudioStream stream' Integer frameCount) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b <$> AudioStream -> f AudioStream f AudioStream stream {-# INLINE _sound'stream #-} _sound'frameCount :: Lens' RL.Sound Integer _sound'frameCount :: Lens' Sound Integer _sound'frameCount Integer -> f Integer f (RL.Sound AudioStream stream Integer frameCount) = (\Integer frameCount' -> AudioStream -> Integer -> Sound RL.Sound AudioStream stream Integer frameCount') forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b <$> Integer -> f Integer f Integer frameCount {-# INLINE _sound'frameCount #-} _music'stream :: Lens' RL.Music RL.AudioStream _music'stream :: Lens' Music AudioStream _music'stream AudioStream -> f AudioStream f (RL.Music AudioStream stream Integer frameCount Bool looping MusicContextType ctxType Ptr () ctxData) = (\AudioStream stream' -> AudioStream -> Integer -> Bool -> MusicContextType -> Ptr () -> Music RL.Music AudioStream stream' Integer frameCount Bool looping MusicContextType ctxType Ptr () ctxData) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b <$> AudioStream -> f AudioStream f AudioStream stream {-# INLINE _music'stream #-} _music'frameCount :: Lens' RL.Music Integer _music'frameCount :: Lens' Music Integer _music'frameCount Integer -> f Integer f (RL.Music AudioStream stream Integer frameCount Bool looping MusicContextType ctxType Ptr () ctxData) = (\Integer frameCount' -> AudioStream -> Integer -> Bool -> MusicContextType -> Ptr () -> Music RL.Music AudioStream stream Integer frameCount' Bool looping MusicContextType ctxType Ptr () ctxData) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b <$> Integer -> f Integer f Integer frameCount {-# INLINE _music'frameCount #-} _music'looping :: Lens' RL.Music Bool _music'looping :: Lens' Music Bool _music'looping Bool -> f Bool f (RL.Music AudioStream stream Integer frameCount Bool looping MusicContextType ctxType Ptr () ctxData) = (\Bool looping' -> AudioStream -> Integer -> Bool -> MusicContextType -> Ptr () -> Music RL.Music AudioStream stream Integer frameCount Bool looping' MusicContextType ctxType Ptr () ctxData) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b <$> Bool -> f Bool f Bool looping {-# INLINE _music'looping #-} _music'ctxType :: Lens' RL.Music RL.MusicContextType _music'ctxType :: Lens' Music MusicContextType _music'ctxType MusicContextType -> f MusicContextType f (RL.Music AudioStream stream Integer frameCount Bool looping MusicContextType ctxType Ptr () ctxData) = (\MusicContextType ctxType' -> AudioStream -> Integer -> Bool -> MusicContextType -> Ptr () -> Music RL.Music AudioStream stream Integer frameCount Bool looping MusicContextType ctxType' Ptr () ctxData) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b <$> MusicContextType -> f MusicContextType f MusicContextType ctxType {-# INLINE _music'ctxType #-} _music'ctxData :: Lens' RL.Music (Ptr ()) _music'ctxData :: Lens' Music (Ptr ()) _music'ctxData Ptr () -> f (Ptr ()) f (RL.Music AudioStream stream Integer frameCount Bool looping MusicContextType ctxType Ptr () ctxData) = (\Ptr () ctxData' -> AudioStream -> Integer -> Bool -> MusicContextType -> Ptr () -> Music RL.Music AudioStream stream Integer frameCount Bool looping MusicContextType ctxType Ptr () ctxData') forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b <$> Ptr () -> f (Ptr ()) f Ptr () ctxData {-# INLINE _music'ctxData #-} _vrDeviceInfo'hResolution :: Lens' RL.VrDeviceInfo Int _vrDeviceInfo'hResolution :: Lens' VrDeviceInfo Int _vrDeviceInfo'hResolution Int -> f Int f VrDeviceInfo device = (\Int hResolution' -> VrDeviceInfo device { vrDeviceInfo'hResolution :: Int RL.vrDeviceInfo'hResolution = Int hResolution' }) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b <$> Int -> f Int f (VrDeviceInfo -> Int RL.vrDeviceInfo'hResolution VrDeviceInfo device) {-# INLINE _vrDeviceInfo'hResolution #-} _vrDeviceInfo'vResolution :: Lens' RL.VrDeviceInfo Int _vrDeviceInfo'vResolution :: Lens' VrDeviceInfo Int _vrDeviceInfo'vResolution Int -> f Int f VrDeviceInfo device = (\Int vResolution' -> VrDeviceInfo device { vrDeviceInfo'vResolution :: Int RL.vrDeviceInfo'vResolution = Int vResolution' }) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b <$> Int -> f Int f (VrDeviceInfo -> Int RL.vrDeviceInfo'vResolution VrDeviceInfo device) {-# INLINE _vrDeviceInfo'vResolution #-} _vrDeviceInfo'hScreenSize :: Lens' RL.VrDeviceInfo Float _vrDeviceInfo'hScreenSize :: Lens' VrDeviceInfo Float _vrDeviceInfo'hScreenSize Float -> f Float f VrDeviceInfo device = (\Float hScreenSize' -> VrDeviceInfo device { vrDeviceInfo'hScreenSize :: Float RL.vrDeviceInfo'hScreenSize = Float hScreenSize' }) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b <$> Float -> f Float f (VrDeviceInfo -> Float RL.vrDeviceInfo'hScreenSize VrDeviceInfo device) {-# INLINE _vrDeviceInfo'hScreenSize #-} _vrDeviceInfo'vScreenSize :: Lens' RL.VrDeviceInfo Float _vrDeviceInfo'vScreenSize :: Lens' VrDeviceInfo Float _vrDeviceInfo'vScreenSize Float -> f Float f VrDeviceInfo device = (\Float vScreenSize' -> VrDeviceInfo device { vrDeviceInfo'vScreenSize :: Float RL.vrDeviceInfo'vScreenSize = Float vScreenSize' }) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b <$> Float -> f Float f (VrDeviceInfo -> Float RL.vrDeviceInfo'vScreenSize VrDeviceInfo device) {-# INLINE _vrDeviceInfo'vScreenSize #-} _vrDeviceInfo'vScreenCenter :: Lens' RL.VrDeviceInfo Float _vrDeviceInfo'vScreenCenter :: Lens' VrDeviceInfo Float _vrDeviceInfo'vScreenCenter Float -> f Float f VrDeviceInfo device = (\Float vScreenCenter' -> VrDeviceInfo device { vrDeviceInfo'vScreenCenter :: Float RL.vrDeviceInfo'vScreenCenter = Float vScreenCenter' }) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b <$> Float -> f Float f (VrDeviceInfo -> Float RL.vrDeviceInfo'vScreenCenter VrDeviceInfo device) {-# INLINE _vrDeviceInfo'vScreenCenter #-} _vrDeviceInfo'eyeToScreenDistance :: Lens' RL.VrDeviceInfo Float _vrDeviceInfo'eyeToScreenDistance :: Lens' VrDeviceInfo Float _vrDeviceInfo'eyeToScreenDistance Float -> f Float f VrDeviceInfo device = (\Float eyeToScreenDistance' -> VrDeviceInfo device { vrDeviceInfo'eyeToScreenDistance :: Float RL.vrDeviceInfo'eyeToScreenDistance = Float eyeToScreenDistance' }) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b <$> Float -> f Float f (VrDeviceInfo -> Float RL.vrDeviceInfo'eyeToScreenDistance VrDeviceInfo device) {-# INLINE _vrDeviceInfo'eyeToScreenDistance #-} _vrDeviceInfo'lensSeparationDistance :: Lens' RL.VrDeviceInfo Float _vrDeviceInfo'lensSeparationDistance :: Lens' VrDeviceInfo Float _vrDeviceInfo'lensSeparationDistance Float -> f Float f VrDeviceInfo device = (\Float lensSeparationDistance' -> VrDeviceInfo device { vrDeviceInfo'lensSeparationDistance :: Float RL.vrDeviceInfo'lensSeparationDistance = Float lensSeparationDistance' }) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b <$> Float -> f Float f (VrDeviceInfo -> Float RL.vrDeviceInfo'lensSeparationDistance VrDeviceInfo device) {-# INLINE _vrDeviceInfo'lensSeparationDistance #-} _vrDeviceInfo'interpupillaryDistance :: Lens' RL.VrDeviceInfo Float _vrDeviceInfo'interpupillaryDistance :: Lens' VrDeviceInfo Float _vrDeviceInfo'interpupillaryDistance Float -> f Float f VrDeviceInfo device = (\Float interpupillaryDistance' -> VrDeviceInfo device { vrDeviceInfo'interpupillaryDistance :: Float RL.vrDeviceInfo'interpupillaryDistance = Float interpupillaryDistance' }) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b <$> Float -> f Float f (VrDeviceInfo -> Float RL.vrDeviceInfo'interpupillaryDistance VrDeviceInfo device) {-# INLINE _vrDeviceInfo'interpupillaryDistance #-} _vrDeviceInfo'lensDistortionValues :: Lens' RL.VrDeviceInfo [Float] _vrDeviceInfo'lensDistortionValues :: Lens' VrDeviceInfo [Float] _vrDeviceInfo'lensDistortionValues [Float] -> f [Float] f VrDeviceInfo device = (\[Float] lensDistortionValues' -> VrDeviceInfo device { vrDeviceInfo'lensDistortionValues :: [Float] RL.vrDeviceInfo'lensDistortionValues = [Float] lensDistortionValues' }) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b <$> [Float] -> f [Float] f (VrDeviceInfo -> [Float] RL.vrDeviceInfo'lensDistortionValues VrDeviceInfo device) {-# INLINE _vrDeviceInfo'lensDistortionValues #-} _vrDeviceInfo'chromaAbCorrection :: Lens' RL.VrDeviceInfo [Float] _vrDeviceInfo'chromaAbCorrection :: Lens' VrDeviceInfo [Float] _vrDeviceInfo'chromaAbCorrection [Float] -> f [Float] f VrDeviceInfo device = (\[Float] chromaAbCorrection' -> VrDeviceInfo device { vrDeviceInfo'chromaAbCorrection :: [Float] RL.vrDeviceInfo'chromaAbCorrection = [Float] chromaAbCorrection' }) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b <$> [Float] -> f [Float] f (VrDeviceInfo -> [Float] RL.vrDeviceInfo'chromaAbCorrection VrDeviceInfo device) {-# INLINE _vrDeviceInfo'chromaAbCorrection #-} _vrStereoConfig'projection :: Lens' RL.VrStereoConfig [RL.Matrix] _vrStereoConfig'projection :: Lens' VrStereoConfig [Matrix] _vrStereoConfig'projection [Matrix] -> f [Matrix] f VrStereoConfig config = (\[Matrix] projection' -> VrStereoConfig config { vrStereoConfig'projection :: [Matrix] RL.vrStereoConfig'projection = [Matrix] projection' }) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b <$> [Matrix] -> f [Matrix] f (VrStereoConfig -> [Matrix] RL.vrStereoConfig'projection VrStereoConfig config) {-# INLINE _vrStereoConfig'projection #-} _vrStereoConfig'viewOffset :: Lens' RL.VrStereoConfig [RL.Matrix] _vrStereoConfig'viewOffset :: Lens' VrStereoConfig [Matrix] _vrStereoConfig'viewOffset [Matrix] -> f [Matrix] f VrStereoConfig config = (\[Matrix] viewOffset' -> VrStereoConfig config { vrStereoConfig'viewOffset :: [Matrix] RL.vrStereoConfig'viewOffset = [Matrix] viewOffset' }) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b <$> [Matrix] -> f [Matrix] f (VrStereoConfig -> [Matrix] RL.vrStereoConfig'viewOffset VrStereoConfig config) {-# INLINE _vrStereoConfig'viewOffset #-} _vrStereoConfig'leftLensCenter :: Lens' RL.VrStereoConfig [Float] _vrStereoConfig'leftLensCenter :: Lens' VrStereoConfig [Float] _vrStereoConfig'leftLensCenter [Float] -> f [Float] f VrStereoConfig config = (\[Float] leftLensCenter' -> VrStereoConfig config { vrStereoConfig'leftLensCenter :: [Float] RL.vrStereoConfig'leftLensCenter = [Float] leftLensCenter' }) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b <$> [Float] -> f [Float] f (VrStereoConfig -> [Float] RL.vrStereoConfig'leftLensCenter VrStereoConfig config) {-# INLINE _vrStereoConfig'leftLensCenter #-} _vrStereoConfig'rightLensCenter :: Lens' RL.VrStereoConfig [Float] _vrStereoConfig'rightLensCenter :: Lens' VrStereoConfig [Float] _vrStereoConfig'rightLensCenter [Float] -> f [Float] f VrStereoConfig config = (\[Float] rightLensCenter' -> VrStereoConfig config { vrStereoConfig'rightLensCenter :: [Float] RL.vrStereoConfig'rightLensCenter = [Float] rightLensCenter' }) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b <$> [Float] -> f [Float] f (VrStereoConfig -> [Float] RL.vrStereoConfig'rightLensCenter VrStereoConfig config) {-# INLINE _vrStereoConfig'rightLensCenter #-} _vrStereoConfig'leftScreenCenter :: Lens' RL.VrStereoConfig [Float] _vrStereoConfig'leftScreenCenter :: Lens' VrStereoConfig [Float] _vrStereoConfig'leftScreenCenter [Float] -> f [Float] f VrStereoConfig config = (\[Float] leftScreenCenter' -> VrStereoConfig config { vrStereoConfig'leftScreenCenter :: [Float] RL.vrStereoConfig'leftScreenCenter = [Float] leftScreenCenter' }) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b <$> [Float] -> f [Float] f (VrStereoConfig -> [Float] RL.vrStereoConfig'leftScreenCenter VrStereoConfig config) {-# INLINE _vrStereoConfig'leftScreenCenter #-} _vrStereoConfig'rightScreenCenter :: Lens' RL.VrStereoConfig [Float] _vrStereoConfig'rightScreenCenter :: Lens' VrStereoConfig [Float] _vrStereoConfig'rightScreenCenter [Float] -> f [Float] f VrStereoConfig config = (\[Float] rightScreenCenter' -> VrStereoConfig config { vrStereoConfig'rightScreenCenter :: [Float] RL.vrStereoConfig'rightScreenCenter = [Float] rightScreenCenter' }) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b <$> [Float] -> f [Float] f (VrStereoConfig -> [Float] RL.vrStereoConfig'rightScreenCenter VrStereoConfig config) {-# INLINE _vrStereoConfig'rightScreenCenter #-} _vrStereoConfig'scale :: Lens' RL.VrStereoConfig [Float] _vrStereoConfig'scale :: Lens' VrStereoConfig [Float] _vrStereoConfig'scale [Float] -> f [Float] f VrStereoConfig config = (\[Float] scale' -> VrStereoConfig config { vrStereoConfig'scale :: [Float] RL.vrStereoConfig'scale = [Float] scale' }) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b <$> [Float] -> f [Float] f (VrStereoConfig -> [Float] RL.vrStereoConfig'scale VrStereoConfig config) {-# INLINE _vrStereoConfig'scale #-} _vrStereoConfig'scaleIn :: Lens' RL.VrStereoConfig [Float] _vrStereoConfig'scaleIn :: Lens' VrStereoConfig [Float] _vrStereoConfig'scaleIn [Float] -> f [Float] f VrStereoConfig config = (\[Float] scaleIn' -> VrStereoConfig config { vrStereoConfig'scaleIn :: [Float] RL.vrStereoConfig'scaleIn = [Float] scaleIn' }) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b <$> [Float] -> f [Float] f (VrStereoConfig -> [Float] RL.vrStereoConfig'scaleIn VrStereoConfig config) {-# INLINE _vrStereoConfig'scaleIn #-} _filePathList'capacity :: Lens' RL.FilePathList Integer _filePathList'capacity :: Lens' FilePathList Integer _filePathList'capacity Integer -> f Integer f (RL.FilePathList Integer capacity [String] paths) = (\Integer capacity' -> Integer -> [String] -> FilePathList RL.FilePathList Integer capacity' [String] paths) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b <$> Integer -> f Integer f Integer capacity {-# INLINE _filePathList'capacity #-} _filePathList'paths :: Lens' RL.FilePathList [String] _filePathList'paths :: Lens' FilePathList [String] _filePathList'paths [String] -> f [String] f (RL.FilePathList Integer capacity [String] paths) = (\[String] paths' -> Integer -> [String] -> FilePathList RL.FilePathList Integer capacity [String] paths') forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b <$> [String] -> f [String] f [String] paths {-# INLINE _filePathList'paths #-} _rlVertexBuffer'elementCount :: Lens' RL.RLVertexBuffer Int _rlVertexBuffer'elementCount :: Lens' RLVertexBuffer Int _rlVertexBuffer'elementCount Int -> f Int f RLVertexBuffer buffer = (\Int elementCount' -> RLVertexBuffer buffer { rlVertexBuffer'elementCount :: Int RL.rlVertexBuffer'elementCount = Int elementCount' }) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b <$> Int -> f Int f (RLVertexBuffer -> Int RL.rlVertexBuffer'elementCount RLVertexBuffer buffer) {-# INLINE _rlVertexBuffer'elementCount #-} _rlVertexBuffer'vertices :: Lens' RL.RLVertexBuffer [RL.Vector3] _rlVertexBuffer'vertices :: Lens' RLVertexBuffer [Vector3] _rlVertexBuffer'vertices [Vector3] -> f [Vector3] f RLVertexBuffer buffer = (\[Vector3] vertices' -> RLVertexBuffer buffer { rlVertexBuffer'vertices :: [Vector3] RL.rlVertexBuffer'vertices = [Vector3] vertices' }) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b <$> [Vector3] -> f [Vector3] f (RLVertexBuffer -> [Vector3] RL.rlVertexBuffer'vertices RLVertexBuffer buffer) {-# INLINE _rlVertexBuffer'vertices #-} _rlVertexBuffer'texcoords :: Lens' RL.RLVertexBuffer [RL.Vector2] _rlVertexBuffer'texcoords :: Lens' RLVertexBuffer [Vector2] _rlVertexBuffer'texcoords [Vector2] -> f [Vector2] f RLVertexBuffer buffer = (\[Vector2] texcoords' -> RLVertexBuffer buffer { rlVertexBuffer'texcoords :: [Vector2] RL.rlVertexBuffer'texcoords = [Vector2] texcoords' }) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b <$> [Vector2] -> f [Vector2] f (RLVertexBuffer -> [Vector2] RL.rlVertexBuffer'texcoords RLVertexBuffer buffer) {-# INLINE _rlVertexBuffer'texcoords #-} _rlVertexBuffer'colors :: Lens' RL.RLVertexBuffer [RL.Color] _rlVertexBuffer'colors :: Lens' RLVertexBuffer [Color] _rlVertexBuffer'colors [Color] -> f [Color] f RLVertexBuffer buffer = (\[Color] colors' -> RLVertexBuffer buffer { rlVertexBuffer'colors :: [Color] RL.rlVertexBuffer'colors = [Color] colors' }) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b <$> [Color] -> f [Color] f (RLVertexBuffer -> [Color] RL.rlVertexBuffer'colors RLVertexBuffer buffer) {-# INLINE _rlVertexBuffer'colors #-} _rlVertexBuffer'indices :: Lens' RL.RLVertexBuffer [Integer] _rlVertexBuffer'indices :: Lens' RLVertexBuffer [Integer] _rlVertexBuffer'indices [Integer] -> f [Integer] f RLVertexBuffer buffer = (\[Integer] indices' -> RLVertexBuffer buffer { rlVertexBuffer'indices :: [Integer] RL.rlVertexBuffer'indices = [Integer] indices' }) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b <$> [Integer] -> f [Integer] f (RLVertexBuffer -> [Integer] RL.rlVertexBuffer'indices RLVertexBuffer buffer) {-# INLINE _rlVertexBuffer'indices #-} _rlVertexBuffer'vaoId :: Lens' RL.RLVertexBuffer Integer _rlVertexBuffer'vaoId :: Lens' RLVertexBuffer Integer _rlVertexBuffer'vaoId Integer -> f Integer f RLVertexBuffer buffer = (\Integer vaoId' -> RLVertexBuffer buffer { rlVertexBuffer'vaoId :: Integer RL.rlVertexBuffer'vaoId = Integer vaoId' }) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b <$> Integer -> f Integer f (RLVertexBuffer -> Integer RL.rlVertexBuffer'vaoId RLVertexBuffer buffer) {-# INLINE _rlVertexBuffer'vaoId #-} _rlVertexBuffer'vboId :: Lens' RL.RLVertexBuffer [Integer] _rlVertexBuffer'vboId :: Lens' RLVertexBuffer [Integer] _rlVertexBuffer'vboId [Integer] -> f [Integer] f RLVertexBuffer buffer = (\[Integer] vboId' -> RLVertexBuffer buffer { rlVertexBuffer'vboId :: [Integer] RL.rlVertexBuffer'vboId = [Integer] vboId' }) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b <$> [Integer] -> f [Integer] f (RLVertexBuffer -> [Integer] RL.rlVertexBuffer'vboId RLVertexBuffer buffer) {-# INLINE _rlVertexBuffer'vboId #-} _rlDrawCall'mode :: Lens' RL.RLDrawCall RL.RLDrawMode _rlDrawCall'mode :: Lens' RLDrawCall RLDrawMode _rlDrawCall'mode RLDrawMode -> f RLDrawMode f (RL.RLDrawCall RLDrawMode mode Int vertexCount Int vertexAlignment Integer textureId) = (\RLDrawMode mode' -> RLDrawMode -> Int -> Int -> Integer -> RLDrawCall RL.RLDrawCall RLDrawMode mode' Int vertexCount Int vertexAlignment Integer textureId) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b <$> RLDrawMode -> f RLDrawMode f RLDrawMode mode {-# INLINE _rlDrawCall'mode #-} _rlDrawCall'vertexCount :: Lens' RL.RLDrawCall Int _rlDrawCall'vertexCount :: Lens' RLDrawCall Int _rlDrawCall'vertexCount Int -> f Int f (RL.RLDrawCall RLDrawMode mode Int vertexCount Int vertexAlignment Integer textureId) = (\Int vertexCount' -> RLDrawMode -> Int -> Int -> Integer -> RLDrawCall RL.RLDrawCall RLDrawMode mode Int vertexCount' Int vertexAlignment Integer textureId) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b <$> Int -> f Int f Int vertexCount {-# INLINE _rlDrawCall'vertexCount #-} _rlDrawCall'vertexAlignment :: Lens' RL.RLDrawCall Int _rlDrawCall'vertexAlignment :: Lens' RLDrawCall Int _rlDrawCall'vertexAlignment Int -> f Int f (RL.RLDrawCall RLDrawMode mode Int vertexCount Int vertexAlignment Integer textureId) = (\Int vertexAlignment' -> RLDrawMode -> Int -> Int -> Integer -> RLDrawCall RL.RLDrawCall RLDrawMode mode Int vertexCount Int vertexAlignment' Integer textureId) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b <$> Int -> f Int f Int vertexAlignment {-# INLINE _rlDrawCall'vertexAlignment #-} _rlDrawCall'textureId :: Lens' RL.RLDrawCall Integer _rlDrawCall'textureId :: Lens' RLDrawCall Integer _rlDrawCall'textureId Integer -> f Integer f (RL.RLDrawCall RLDrawMode mode Int vertexCount Int vertexAlignment Integer textureId) = (\Integer textureId' -> RLDrawMode -> Int -> Int -> Integer -> RLDrawCall RL.RLDrawCall RLDrawMode mode Int vertexCount Int vertexAlignment Integer textureId') forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b <$> Integer -> f Integer f Integer textureId {-# INLINE _rlDrawCall'textureId #-} _rlRenderBatch'bufferCount :: Lens' RL.RLRenderBatch Int _rlRenderBatch'bufferCount :: Lens' RLRenderBatch Int _rlRenderBatch'bufferCount Int -> f Int f (RL.RLRenderBatch Int bufferCount Int currentBuffer [RLVertexBuffer] vertexBuffers [RLDrawCall] draws Int drawCounter Float currentDepth) = (\Int bufferCount' -> Int -> Int -> [RLVertexBuffer] -> [RLDrawCall] -> Int -> Float -> RLRenderBatch RL.RLRenderBatch Int bufferCount' Int currentBuffer [RLVertexBuffer] vertexBuffers [RLDrawCall] draws Int drawCounter Float currentDepth) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b <$> Int -> f Int f Int bufferCount {-# INLINE _rlRenderBatch'bufferCount #-} _rlRenderBatch'currentBuffer :: Lens' RL.RLRenderBatch Int _rlRenderBatch'currentBuffer :: Lens' RLRenderBatch Int _rlRenderBatch'currentBuffer Int -> f Int f (RL.RLRenderBatch Int bufferCount Int currentBuffer [RLVertexBuffer] vertexBuffers [RLDrawCall] draws Int drawCounter Float currentDepth) = (\Int currentBuffer' -> Int -> Int -> [RLVertexBuffer] -> [RLDrawCall] -> Int -> Float -> RLRenderBatch RL.RLRenderBatch Int bufferCount Int currentBuffer' [RLVertexBuffer] vertexBuffers [RLDrawCall] draws Int drawCounter Float currentDepth) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b <$> Int -> f Int f Int currentBuffer {-# INLINE _rlRenderBatch'currentBuffer #-} _rlRenderBatch'vertexBuffers :: Lens' RL.RLRenderBatch [RL.RLVertexBuffer] _rlRenderBatch'vertexBuffers :: Lens' RLRenderBatch [RLVertexBuffer] _rlRenderBatch'vertexBuffers [RLVertexBuffer] -> f [RLVertexBuffer] f (RL.RLRenderBatch Int bufferCount Int currentBuffer [RLVertexBuffer] vertexBuffers [RLDrawCall] draws Int drawCounter Float currentDepth) = (\[RLVertexBuffer] vertexBuffers' -> Int -> Int -> [RLVertexBuffer] -> [RLDrawCall] -> Int -> Float -> RLRenderBatch RL.RLRenderBatch Int bufferCount Int currentBuffer [RLVertexBuffer] vertexBuffers' [RLDrawCall] draws Int drawCounter Float currentDepth) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b <$> [RLVertexBuffer] -> f [RLVertexBuffer] f [RLVertexBuffer] vertexBuffers {-# INLINE _rlRenderBatch'vertexBuffers #-} _rlRenderBatch'draws :: Lens' RL.RLRenderBatch [RL.RLDrawCall] _rlRenderBatch'draws :: Lens' RLRenderBatch [RLDrawCall] _rlRenderBatch'draws [RLDrawCall] -> f [RLDrawCall] f (RL.RLRenderBatch Int bufferCount Int currentBuffer [RLVertexBuffer] vertexBuffers [RLDrawCall] draws Int drawCounter Float currentDepth) = (\[RLDrawCall] draws' -> Int -> Int -> [RLVertexBuffer] -> [RLDrawCall] -> Int -> Float -> RLRenderBatch RL.RLRenderBatch Int bufferCount Int currentBuffer [RLVertexBuffer] vertexBuffers [RLDrawCall] draws' Int drawCounter Float currentDepth) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b <$> [RLDrawCall] -> f [RLDrawCall] f [RLDrawCall] draws {-# INLINE _rlRenderBatch'draws #-} _rlRenderBatch'drawCounter :: Lens' RL.RLRenderBatch Int _rlRenderBatch'drawCounter :: Lens' RLRenderBatch Int _rlRenderBatch'drawCounter Int -> f Int f (RL.RLRenderBatch Int bufferCount Int currentBuffer [RLVertexBuffer] vertexBuffers [RLDrawCall] draws Int drawCounter Float currentDepth) = (\Int drawCounter' -> Int -> Int -> [RLVertexBuffer] -> [RLDrawCall] -> Int -> Float -> RLRenderBatch RL.RLRenderBatch Int bufferCount Int currentBuffer [RLVertexBuffer] vertexBuffers [RLDrawCall] draws Int drawCounter' Float currentDepth) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b <$> Int -> f Int f Int drawCounter {-# INLINE _rlRenderBatch'drawCounter #-} _rlRenderBatch'currentDepth :: Lens' RL.RLRenderBatch Float _rlRenderBatch'currentDepth :: Lens' RLRenderBatch Float _rlRenderBatch'currentDepth Float -> f Float f (RL.RLRenderBatch Int bufferCount Int currentBuffer [RLVertexBuffer] vertexBuffers [RLDrawCall] draws Int drawCounter Float currentDepth) = (\Float currentDepth' -> Int -> Int -> [RLVertexBuffer] -> [RLDrawCall] -> Int -> Float -> RLRenderBatch RL.RLRenderBatch Int bufferCount Int currentBuffer [RLVertexBuffer] vertexBuffers [RLDrawCall] draws Int drawCounter Float currentDepth') forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b <$> Float -> f Float f Float currentDepth {-# INLINE _rlRenderBatch'currentDepth #-}