Added cascade config code.

Author: bryanedds

Nu/Nu/Core/Constants.fs

@@ -211,8 +211,8 @@ module Render =
     let [<Literal>] ShadowMapsMax = 8 // NOTE: remember to update SHADOW_MAPS_MAX in shaders when changing this!
     let [<Literal>] ShadowCascadesMax = 2 // NOTE: remember to update SHADOW_CASCADES_MAX in shaders when changing this!
     let [<Literal>] ShadowCascadeLevels = 3 // NOTE: remember to update SHADOW_CASCADE_LEVELS_SIZE in shaders when changing this!
-    let [<Uniform>] ShadowCascadeLimits = match ConfigurationManager.AppSettings.["ShadowCascadeLimits"] with null -> [|0.15f; 0.7f; 1.0f|] | value -> scvalue value
-    let [<Uniform>] ShadowCascadeOverflow = match ConfigurationManager.AppSettings.["ShadowCascadeOverflow"] with null -> 1.5f | value -> scvalue value
+    let [<Uniform>] mutable ShadowCascadeLimits = match ConfigurationManager.AppSettings.["ShadowCascadeLimits"] with null -> [|0.15f; 0.7f; 1.0f|] | value -> scvalue value
+    let [<Uniform>] mutable ShadowCascadeOverflow = match ConfigurationManager.AppSettings.["ShadowCascadeOverflow"] with null -> 1.5f | value -> scvalue value
     let [<Literal>] ShadowFovMax = 2.1f // NOTE: remember to update SHADOW_FOV_MAX in shaders when changing this!
     let [<Literal>] ReflectionMapResolution = 1024
     let [<Literal>] IrradianceMapResolution = 32

Nu/Nu/World/WorldConfigure.fs

@@ -45,6 +45,8 @@ module Configure =
                 | nameof Constants.Render.SpineSkeletonScalar -> Constants.Render.SpineSkeletonScalar <- scvalue value
                 | nameof Constants.Render.ShadowVirtualResolution -> Constants.Render.ShadowVirtualResolution <- scvalue value
                 | nameof Constants.Render.ShadowDisplayScalarMax -> Constants.Render.ShadowDisplayScalarMax <- scvalue value
+                | nameof Constants.Render.ShadowCascadeLimits -> Constants.Render.ShadowCascadeLimits <- scvalue value
+                | nameof Constants.Render.ShadowCascadeOverflow -> Constants.Render.ShadowCascadeOverflow <- scvalue value
                 | nameof Constants.Physics.Collision3dBodiesMax -> Constants.Physics.Collision3dBodiesMax <- scvalue value
                 | nameof Constants.Physics.Collision3dBodyPairsMax -> Constants.Physics.Collision3dBodyPairsMax <- scvalue value
                 | nameof Constants.Physics.Collision3dContactConstraintsMax -> Constants.Physics.Collision3dContactConstraintsMax <- scvalue value