From 745406dc65aecc438a53f96badc387a32b7a338f Mon Sep 17 00:00:00 2001 From: Joel Stålnacke Date: Thu, 19 Mar 2026 22:30:56 +0200 Subject: Add Mibo project The Djup project is DesktopGL project --- Djup/src/Content/Content.mgcb | 14 ++++ Djup/src/Djup.fsproj | 32 +++++++++ Djup/src/Icon.bmp | Bin 0 -> 262282 bytes Djup/src/Icon.ico | Bin 0 -> 147541 bytes Djup/src/Program.fs | 153 ++++++++++++++++++++++++++++++++++++++++++ Djup/src/app.manifest | 29 ++++++++ Djup/src/packages.lock.json | 72 ++++++++++++++++++++ 7 files changed, 300 insertions(+) create mode 100644 Djup/src/Content/Content.mgcb create mode 100644 Djup/src/Djup.fsproj create mode 100644 Djup/src/Icon.bmp create mode 100644 Djup/src/Icon.ico create mode 100644 Djup/src/Program.fs create mode 100644 Djup/src/app.manifest create mode 100644 Djup/src/packages.lock.json (limited to 'Djup') diff --git a/Djup/src/Content/Content.mgcb b/Djup/src/Content/Content.mgcb new file mode 100644 index 0000000..8b0866b --- /dev/null +++ b/Djup/src/Content/Content.mgcb @@ -0,0 +1,14 @@ + +#----------------------------- Global Properties ----------------------------# + +/outputDir:bin/$(Platform) +/intermediateDir:obj/$(Platform) +/platform:DesktopGL +/config: +/profile:Reach +/compress:False + +#-------------------------------- References --------------------------------# + + +#---------------------------------- Content ---------------------------------# diff --git a/Djup/src/Djup.fsproj b/Djup/src/Djup.fsproj new file mode 100644 index 0000000..dad45e9 --- /dev/null +++ b/Djup/src/Djup.fsproj @@ -0,0 +1,32 @@ + + + + WinExe + net10.0 + Major + true + false + false + app.manifest + Icon.ico + + + + + + + + + + + + + + + + + + + + + diff --git a/Djup/src/Icon.bmp b/Djup/src/Icon.bmp new file mode 100644 index 0000000..2b48165 Binary files /dev/null and b/Djup/src/Icon.bmp differ diff --git a/Djup/src/Icon.ico b/Djup/src/Icon.ico new file mode 100644 index 0000000..7d9dec1 Binary files /dev/null and b/Djup/src/Icon.ico differ diff --git a/Djup/src/Program.fs b/Djup/src/Program.fs new file mode 100644 index 0000000..2427252 --- /dev/null +++ b/Djup/src/Program.fs @@ -0,0 +1,153 @@ +module Djup.Program + +open System +open Microsoft.Xna.Framework +open Microsoft.Xna.Framework.Graphics +open Microsoft.Xna.Framework.Input +open Mibo.Elmish +open Mibo.Elmish.Graphics2D +open Mibo.Input + +// ───────────────────────────────────────────────────────────── +// Input +// ───────────────────────────────────────────────────────────── + +type GameAction = + | MoveLeft + | MoveRight + | MoveUp + | MoveDown + +let inputMap = + InputMap.empty + |> InputMap.key MoveLeft Keys.Left + |> InputMap.key MoveLeft Keys.A + |> InputMap.key MoveRight Keys.Right + |> InputMap.key MoveRight Keys.D + |> InputMap.key MoveUp Keys.Up + |> InputMap.key MoveUp Keys.W + |> InputMap.key MoveDown Keys.Down + |> InputMap.key MoveDown Keys.S + +// ───────────────────────────────────────────────────────────── +// Model +// ───────────────────────────────────────────────────────────── + +type Model = { + Position: Vector2 + Velocity: Vector2 + Input: ActionState +} + +// ───────────────────────────────────────────────────────────── +// Messages +// ───────────────────────────────────────────────────────────── + +type Msg = + | Tick of GameTime + | InputChanged of ActionState + +// ───────────────────────────────────────────────────────────── +// Init +// ───────────────────────────────────────────────────────────── + +let init(ctx: GameContext) : struct (Model * Cmd) = + let model = { + Position = Vector2(400.f, 300.f) + Velocity = Vector2(200.f, 150.f) + Input = ActionState.empty + } + + model, Cmd.none + +// ───────────────────────────────────────────────────────────── +// Update +// ───────────────────────────────────────────────────────────── + +let update (msg: Msg) (model: Model) : struct (Model * Cmd) = + match msg with + | InputChanged input -> { model with Input = input }, Cmd.none + + | Tick gt -> + let dt = float32 gt.ElapsedGameTime.TotalSeconds + + // Manual movement + let speed = 200.f + let mutable manualVelocity = Vector2.Zero + + if model.Input.Held.Contains MoveLeft then + manualVelocity.X <- manualVelocity.X - speed + + if model.Input.Held.Contains MoveRight then + manualVelocity.X <- manualVelocity.X + speed + + if model.Input.Held.Contains MoveUp then + manualVelocity.Y <- manualVelocity.Y - speed + + if model.Input.Held.Contains MoveDown then + manualVelocity.Y <- manualVelocity.Y + speed + + // Bouncing logic + let mutable velocity = model.Velocity + + let mutable position = + model.Position + (velocity * dt) + (manualVelocity * dt) + + if position.X < 0.f || position.X > 800.f - 32.f then + velocity.X <- -velocity.X + + if position.Y < 0.f || position.Y > 600.f - 32.f then + velocity.Y <- -velocity.Y + + { + model with + Position = position + Velocity = velocity + }, + Cmd.none + +// ───────────────────────────────────────────────────────────── +// View +// ───────────────────────────────────────────────────────────── + +let view (ctx: GameContext) (model: Model) (buffer: RenderBuffer) = + // Draw player (using a 1x1 pixel texture if no asset loaded, or load one) + let pixel = + Assets.getOrCreate + "pixel" + (fun gd -> + let t = new Texture2D(gd, 1, 1) + t.SetData([| Color.White |]) + t) + ctx + + Draw2D.sprite + pixel + (Rectangle(int model.Position.X, int model.Position.Y, 32, 32)) + |> Draw2D.withColor Color.Red + |> Draw2D.submit buffer + +// ───────────────────────────────────────────────────────────── +// Program +// ───────────────────────────────────────────────────────────── + +[] +let main _ = + let program = + Program.mkProgram init update + |> Program.withAssets + |> Program.withRenderer(fun g -> Batch2DRenderer.create g view) + |> Program.withInput + |> Program.withSubscription(fun ctx _ -> + InputMapper.subscribeStatic inputMap InputChanged ctx) + |> Program.withTick Tick + |> Program.withConfig(fun (game, graphics) -> + game.Content.RootDirectory <- "Content" + game.Window.Title <- "Mibo 2D Game" + game.IsMouseVisible <- true + graphics.PreferredBackBufferWidth <- 800 + graphics.PreferredBackBufferHeight <- 600) + + use game = new ElmishGame(program) + game.Run() + 0 diff --git a/Djup/src/app.manifest b/Djup/src/app.manifest new file mode 100644 index 0000000..b27ce83 --- /dev/null +++ b/Djup/src/app.manifest @@ -0,0 +1,29 @@ + + + + + + + + + + + + + + + + + + + + + + + + true + permonitorv2,permonitor + + + + diff --git a/Djup/src/packages.lock.json b/Djup/src/packages.lock.json new file mode 100644 index 0000000..64ca908 --- /dev/null +++ b/Djup/src/packages.lock.json @@ -0,0 +1,72 @@ +{ + "version": 1, + "dependencies": { + "net10.0": { + "FSharp.Core": { + "type": "Direct", + "requested": "[10.1.201, )", + "resolved": "10.1.201", + "contentHash": "s5w9LWYurZ9yZdIppoIaYLkRadyT5s3u0wbQCb0J4bQd3ubIlIWQ3Nd5+ll1y3pv5OnTS373dP8T1S/BP46QXg==" + }, + "Mibo": { + "type": "Direct", + "requested": "[1.*, )", + "resolved": "1.6.0", + "contentHash": "HcElja4XxQ8E1vJc93+78Sb/lQB6jTy0VyOuMQRqwQfHeo4tQMx+6JkLj2OJVaeWE4BhC/P+C5tcONLnW3RGfg==", + "dependencies": { + "FSharp.Core": "10.0.102", + "FSharp.UMX": "1.1.0", + "JDeck": "1.0.0" + } + }, + "MonoGame.Content.Builder.Task": { + "type": "Direct", + "requested": "[3.8.*, )", + "resolved": "3.8.4.1", + "contentHash": "jf6IZXMiOhuybRaWQt//u+804yzMRGk3ZRvlBJG/0iusRwTunJsQvA6tMMJJc7gjUrY6rUkzRqwinKWXugyHfA==" + }, + "MonoGame.Framework.DesktopGL": { + "type": "Direct", + "requested": "[3.8.*, )", + "resolved": "3.8.4.1", + "contentHash": "YybxIIT5+Ky78E/XdkS0glyluMr2EeDZwx2LqXULAOCqiKt1+aDrjPZaqLL5qpNgBcMEHUeZJ4YjWe4TAZlWLw==", + "dependencies": { + "MonoGame.Library.OpenAL": "1.24.3.2", + "MonoGame.Library.SDL": "2.32.2.1", + "NVorbis": "0.10.4" + } + }, + "FSharp.UMX": { + "type": "Transitive", + "resolved": "1.1.0", + "contentHash": "0+4w4/yBL5z7w1/k198ooPbfMqkzMSXPRVZEVingnwAdjM//QIFG25eJbB3RtoSQAusBwV5B3VcSudxJejd5Bg==", + "dependencies": { + "FSharp.Core": "4.3.4" + } + }, + "JDeck": { + "type": "Transitive", + "resolved": "1.0.0", + "contentHash": "a4d+USHnlc3+zPZb7MOKXD58BbVMaO1sajROxPQH5m+g08QtqVcr4PlNs6cT5QuP13lKpHlw9X+9UlAcXmguYA==", + "dependencies": { + "FSharp.Core": "9.0.100" + } + }, + "MonoGame.Library.OpenAL": { + "type": "Transitive", + "resolved": "1.24.3.2", + "contentHash": "nGRsXQXs+NSUC3C5w90hFQfyKdZPpBnHnyg2w+Dw/2pUH7s+CoRWTJNYbzzdJf3+aeUvfvG4rTbFvMKDDj5olA==" + }, + "MonoGame.Library.SDL": { + "type": "Transitive", + "resolved": "2.32.2.1", + "contentHash": "T4E2ppGlSTC2L9US1rxtdg3qTbarRzNId31xZoumUW9cf9Nq8nRQPMu9GzvZGrhfSySf0+UWPEj1rlicps+P/w==" + }, + "NVorbis": { + "type": "Transitive", + "resolved": "0.10.4", + "contentHash": "WYnil3DhQHzjCY0dM9I2B3r1vWip90AOuQd25KE4NrjPQBg0tBJFluRLm5YPnO5ZLDmwrfosY8jCQGQRmWI/Pg==" + } + } + } +} \ No newline at end of file -- cgit v1.2.3