chore: run fantomas

Author: AngelMunoz

samples/ThreeDSample/DayNight.fs

@@ -95,7 +95,12 @@ let getPrimaryLightDirection (time: float32) (arcRadius: float32) : Vector3 =
   if time >= 6.0f && time <= 18.0f then
     celestialArc ((time - 6.0f) / 12.0f) arcRadius
   else
-    let t = if time > 18.0f then (time - 18.0f) / 12.0f else (time + 6.0f) / 12.0f
+    let t =
+      if time > 18.0f then
+        (time - 18.0f) / 12.0f
+      else
+        (time + 6.0f) / 12.0f
+
     celestialArc t arcRadius
 
 let getPrimaryLightColor(time: float32) : Color =
@@ -121,6 +126,7 @@ let getPrimaryLightColor(time: float32) : Color =
 let getPrimaryLightIntensity(time: float32) : float32 =
   if time >= 6.0f && time <= 18.0f then
     let t = (time - 6.0f) / 12.0f
+
     if t * arcDegrees < fadeDegrees then
       t * arcDegrees / fadeDegrees
     elif (1.0f - t) * arcDegrees < fadeDegrees then
@@ -129,8 +135,10 @@ let getPrimaryLightIntensity(time: float32) : float32 =
       1.0f
   else
     let t =
-      if time > 18.0f then (time - 18.0f) / 12.0f
-      else (time + 6.0f) / 12.0f
+      if time > 18.0f then
+        (time - 18.0f) / 12.0f
+      else
+        (time + 6.0f) / 12.0f
 
     let maxMoon = 0.3f
 

samples/ThreeDSample/DiagnosticsView.fs

@@ -8,34 +8,29 @@ open ThreeDSample.Types
 
 // ── System ──
 
-let inline system (model: DiagnosticsModel) : unit =
-  model.Fps <- Raylib.GetFPS()
+let inline system(model: DiagnosticsModel) : unit = model.Fps <- Raylib.GetFPS()
 
 let view (ctx: GameContext) (model: GameModel) (buffer: RenderBuffer2D) =
   let diag = model.Diagnostics
 
-  buffer.Add(
-    Command2D.text {
-      Font = diag.Font
-      Text =
-        $"FPS: {diag.Fps}  Chunks: {diag.ChunkCount}  Score: {diag.Score}"
-      Position = Vector2(10.0f, 10.0f)
-      FontSize = 20.0f
-      Spacing = 1.0f
-      Color = Color.Yellow
-      Layer = 0<RenderLayer>
-    }
-  )
-
-  buffer.Add(
-    Command2D.text {
-      Font = diag.Font
-      Text =
-        $"Time: {diag.TimeOfDay:F1}h  Pos: ({diag.PlayerX:F0},{diag.PlayerY:F0},{diag.PlayerZ:F0})  Grounded: {diag.IsGrounded}"
-      Position = Vector2(10.0f, 35.0f)
-      FontSize = 20.0f
-      Spacing = 1.0f
-      Color = Color.Yellow
-      Layer = 0<RenderLayer>
-    }
-  )
+  buffer
+  |> Draw.text {
+    Font = diag.Font
+    Text = $"FPS: {diag.Fps}  Chunks: {diag.ChunkCount}  Score: {diag.Score}"
+    Position = Vector2(10.0f, 10.0f)
+    FontSize = 20.0f
+    Spacing = 1.0f
+    Color = Color.Yellow
+    Layer = 0<RenderLayer>
+  }
+  |> Draw.text {
+    Font = diag.Font
+    Text =
+      $"Time: {diag.TimeOfDay:F1}h  Pos: ({diag.PlayerX:F0},{diag.PlayerY:F0},{diag.PlayerZ:F0})  Grounded: {diag.IsGrounded}"
+    Position = Vector2(10.0f, 35.0f)
+    FontSize = 20.0f
+    Spacing = 1.0f
+    Color = Color.Yellow
+    Layer = 0<RenderLayer>
+  }
+  |> Draw.drop

samples/ThreeDSample/MinimapView.fs

@@ -1,6 +1,6 @@
 module ThreeDSample.Minimap
 
-#nowarn "9"
+#warnon 9
 
 open System.Collections.Generic
 open System.Numerics
@@ -201,41 +201,35 @@ let private viewInner
   let halfMinimap = minimapSize * 0.5f
 
   if minimap.TexReady then
-    buffer.Add(
-      Command2D.sprite {
-        Texture = minimap.Texture
-        Dest = Rectangle(minimapX, minimapY, minimapSize, minimapSize)
-        Source = Rectangle(0.0f, 0.0f, float32 texSize, float32 texSize)
-        Origin = Vector2.Zero
-        Rotation = 0.0f
-        Color = Color.White
-        Layer = 100<RenderLayer>
-      }
-    )
+    buffer
+    |> Draw.sprite {
+      Texture = minimap.Texture
+      Dest = Rectangle(minimapX, minimapY, minimapSize, minimapSize)
+      Source = Rectangle(0.0f, 0.0f, float32 texSize, float32 texSize)
+      Origin = Vector2.Zero
+      Rotation = 0.0f
+      Color = Color.White
+      Layer = 100<RenderLayer>
+    }
+    |> Draw.drop
 
   let centerX = minimapX + halfMinimap
   let centerY = minimapY + halfMinimap
   let facingX = sin playerFacing
   let facingZ = cos playerFacing
 
-  buffer.Add(
-    Command2D.fillCircle
-      (102<RenderLayer>, Color.Yellow)
-      (Vector2(centerX, centerY), 3.0f)
-  )
-
-  buffer.Add(
-    Command2D.lineThick
-      (102<RenderLayer>, Color.Yellow, 2.0f)
-      (Vector2(centerX, centerY),
-       Vector2(centerX + facingX * 10.0f, centerY + facingZ * 10.0f))
-  )
-
-  buffer.Add(
-    Command2D.rectOutline
-      (103<RenderLayer>, Color.White, 2.0f)
-      (Rectangle(minimapX, minimapY, minimapSize, minimapSize))
-  )
+  buffer
+  |> Draw.fillCircle
+    (102<RenderLayer>, Color.Yellow)
+    (Vector2(centerX, centerY), 3.0f)
+  |> Draw.lineThick
+    (102<RenderLayer>, Color.Yellow, 2.0f)
+    (Vector2(centerX, centerY),
+     Vector2(centerX + facingX * 10.0f, centerY + facingZ * 10.0f))
+  |> Draw.rectOutline
+    (103<RenderLayer>, Color.White, 2.0f)
+    (Rectangle(minimapX, minimapY, minimapSize, minimapSize))
+  |> Draw.drop
 
 let view (ctx: GameContext) (model: GameModel) (buffer: RenderBuffer2D) =
   viewInner ctx model.Minimap model.PlayerPosition model.PlayerFacing buffer

samples/ThreeDSample/Program.fs

@@ -89,8 +89,11 @@ let main _ =
             SpotBias = 0.001f
             SlopeScaleBias = 0.001f
           },
-          shadowAtlasConfig =
-            {ShadowAtlasConfig.defaults with Resolution = 4096; DirectionalLightSize = ValueSome 30.f}
+          shadowAtlasConfig = {
+            ShadowAtlasConfig.defaults with
+                Resolution = 4096
+                DirectionalLightSize = ValueSome 30.f
+          }
 
         )
 

samples/ThreeDSample/View.fs

@@ -1,5 +1,7 @@
 module ThreeDSample.View
 
+#nowarn 9
+
 open System
 open System.Collections.Generic
 open System.Numerics
@@ -49,11 +51,9 @@ let private resolveMeshesAndMaterial(blockType: BlockType) =
       if m.MeshCount > 0 then
         [|
           for mi = 0 to m.MeshCount - 1 do
-            #nowarn 9
             let mesh = NativePtr.get m.Meshes mi
             let matIdx = NativePtr.get m.MeshMaterial mi
             let raylibMat = NativePtr.get m.Materials matIdx
-            #warnon 9
             struct (mesh, Material3D.fromRaylibMaterial raylibMat)
         |]
       else
@@ -98,9 +98,8 @@ let view (ctx: GameContext) (model: GameModel) (buffer: RenderBuffer3D) =
     )
 
   buffer
-  |> Draw3D.beginCameraWith (
-    Camera3D.render camera
-    |> Camera3D.withClear l.SkyColor
+  |> Draw3D.beginCameraWith(
+    Camera3D.render camera |> Camera3D.withClear l.SkyColor
   )
   |> Draw3D.setAmbientLight {
     Color = l.AmbientColor
@@ -142,7 +141,7 @@ let view (ctx: GameContext) (model: GameModel) (buffer: RenderBuffer3D) =
         buffer
 
   for light in model.VisibleLights do
-    buffer.Add(Command3D.addPointLight light)
+    Draw3D.addPointLight light buffer |> Draw3D.drop
 
   let playerModel =
     loadOrGetModel model.ModelCache KenneyModels.characterOobi ctx
@@ -159,8 +158,7 @@ let view (ctx: GameContext) (model: GameModel) (buffer: RenderBuffer3D) =
 
     Raymath.MatrixMultiply(rot, trans)
 
-  buffer.Add(Command3D.drawModel playerModel playerTransform)
-
-  buffer |> Draw3D.endCamera |> Draw3D.drop
-
-  Draw3D.drop buffer
+  buffer
+  |> Draw3D.drawModel playerModel playerTransform
+  |> Draw3D.endCamera
+  |> Draw3D.drop

src/Mibo.Raylib/Camera.fs

@@ -270,9 +270,8 @@ module Camera3D =
   /// Convert a raylib <see cref="T:Raylib_cs.Camera3D"/> to a Mibo <see cref="T:Mibo.Elmish.Camera"/>
   /// by computing view and projection matrices.
   /// </summary>
-  let fromRaylib (cam: Raylib_cs.Camera3D) : Camera = {
-    View =
-      Matrix4x4.CreateLookAt(cam.Position, cam.Target, cam.Up)
+  let fromRaylib(cam: Raylib_cs.Camera3D) : Camera = {
+    View = Matrix4x4.CreateLookAt(cam.Position, cam.Target, cam.Up)
     Projection =
       match cam.Projection with
       | CameraProjection.Perspective ->
@@ -295,53 +294,61 @@ module Camera3D =
   /// Create a rendering config from a raylib camera.
   /// Defaults: fullscreen, no clear, all post-process passes.
   /// </summary>
-  let render (camera: Raylib_cs.Camera3D) : Camera3DConfig = {
+  let render(camera: Raylib_cs.Camera3D) : Camera3DConfig = {
     Camera = camera
     Viewport = ValueNone
     ClearColor = ValueNone
     PostProcessPasses = ValueNone
   }
 
   /// <summary>Set viewport in normalized screen coordinates (0-1).</summary>
-  let withViewport (viewport: Raylib_cs.Rectangle) (config: Camera3DConfig) =
-    { config with Viewport = ValueSome viewport }
+  let withViewport (viewport: Raylib_cs.Rectangle) (config: Camera3DConfig) = {
+    config with
+        Viewport = ValueSome viewport
+  }
 
   /// <summary>Clear with this color before rendering.</summary>
-  let withClear (color: Color) (config: Camera3DConfig) =
-    { config with ClearColor = ValueSome color }
+  let withClear (color: Color) (config: Camera3DConfig) = {
+    config with
+        ClearColor = ValueSome color
+  }
 
   /// <summary>Use only specific post-process pass indices.</summary>
-  let withPostProcess (passes: int[]) (config: Camera3DConfig) =
-    { config with PostProcessPasses = ValueSome passes }
+  let withPostProcess (passes: int[]) (config: Camera3DConfig) = {
+    config with
+        PostProcessPasses = ValueSome passes
+  }
 
   /// <summary>Disable post-processing for this camera.</summary>
-  let withoutPostProcess (config: Camera3DConfig) =
-    { config with PostProcessPasses = ValueSome [||] }
+  let withoutPostProcess(config: Camera3DConfig) = {
+    config with
+        PostProcessPasses = ValueSome [||]
+  }
 
   // ── Convenience Constructors ──
 
   /// <summary>Split-screen left half. Clears with given color.</summary>
   let splitScreenLeft (camera: Raylib_cs.Camera3D) (clearColor: Color) =
     render camera
-    |> withViewport (Raylib_cs.Rectangle(0.0f, 0.0f, 0.5f, 1.0f))
+    |> withViewport(Raylib_cs.Rectangle(0.0f, 0.0f, 0.5f, 1.0f))
     |> withClear clearColor
 
   /// <summary>Split-screen right half. Clears with given color.</summary>
   let splitScreenRight (camera: Raylib_cs.Camera3D) (clearColor: Color) =
     render camera
-    |> withViewport (Raylib_cs.Rectangle(0.5f, 0.0f, 0.5f, 1.0f))
+    |> withViewport(Raylib_cs.Rectangle(0.5f, 0.0f, 0.5f, 1.0f))
     |> withClear clearColor
 
   /// <summary>Split-screen top half. Clears with given color.</summary>
   let splitScreenTop (camera: Raylib_cs.Camera3D) (clearColor: Color) =
     render camera
-    |> withViewport (Raylib_cs.Rectangle(0.0f, 0.0f, 1.0f, 0.5f))
+    |> withViewport(Raylib_cs.Rectangle(0.0f, 0.0f, 1.0f, 0.5f))
     |> withClear clearColor
 
   /// <summary>Split-screen bottom half. Clears with given color.</summary>
   let splitScreenBottom (camera: Raylib_cs.Camera3D) (clearColor: Color) =
     render camera
-    |> withViewport (Raylib_cs.Rectangle(0.0f, 0.5f, 1.0f, 0.5f))
+    |> withViewport(Raylib_cs.Rectangle(0.0f, 0.5f, 1.0f, 0.5f))
     |> withClear clearColor
 
   /// <summary>Picture-in-picture overlay. No post-process by default.</summary>

src/Mibo.Raylib/Graphics3D/Command3D.fs

@@ -106,9 +106,14 @@ module Command3D =
     Command3D.DrawBillboardBatch(textures, positions, sizes, colors, count)
 
   let inline beginCamera(camera: Camera3D) = Command3D.BeginCamera(camera)
-  let inline beginCameraConfig(config: Camera3DConfig) = Command3D.BeginCameraConfig(config)
+
+  let inline beginCameraConfig(config: Camera3DConfig) =
+    Command3D.BeginCameraConfig(config)
+
   let inline endCamera() = Command3D.EndCamera
-  let inline setShadowOrigin(origin: Vector3) = Command3D.SetShadowOrigin(origin)
+
+  let inline setShadowOrigin(origin: Vector3) =
+    Command3D.SetShadowOrigin(origin)
 
   let inline setAmbientLight(light: AmbientLight3D) =
     Command3D.SetAmbientLight(light)
@@ -119,8 +124,8 @@ module Command3D =
   let inline addPointLight(light: PointLight3D) = Command3D.AddPointLight(light)
   let inline addSpotLight(light: SpotLight3D) = Command3D.AddSpotLight(light)
 
-  let inline enableShadows () = Command3D.EnableShadows
-  let inline disableShadows () = Command3D.DisableShadows
+  let inline enableShadows() = Command3D.EnableShadows
+  let inline disableShadows() = Command3D.DisableShadows
 
   let inline drawImmediate(action: unit -> unit) =
     Command3D.DrawImmediate(action)

src/Mibo.Raylib/Graphics3D/Draw3D.fs

@@ -146,12 +146,12 @@ module Draw3D =
     buffer
 
   /// <summary>Enables shadow casting for subsequent geometry until disabled.</summary>
-  let inline enableShadows (buffer: RenderBuffer3D) =
+  let inline enableShadows(buffer: RenderBuffer3D) =
     buffer.Add(Command3D.enableShadows())
     buffer
 
   /// <summary>Disables shadow casting for subsequent geometry until re-enabled.</summary>
-  let inline disableShadows (buffer: RenderBuffer3D) =
+  let inline disableShadows(buffer: RenderBuffer3D) =
     buffer.Add(Command3D.disableShadows())
     buffer