From 9051717213cf95d3517ba5974125c8364038d1d5 Mon Sep 17 00:00:00 2001
From: Humza Shahid <humzasaur@gmail.com>
Date: Wed, 20 Aug 2025 14:01:24 +0100
Subject: [PATCH] remove 'gl_samples' parameter (it was used from antialiasing,
 but we have a bitmap font, so we don't want antialiasing)

---
 ffi/glfw-export.c   | 1 -
 ffi/glfw-import.sml | 2 --
 shell/shell.sml     | 1 -
 3 files changed, 4 deletions(-)

diff --git a/ffi/glfw-export.c b/ffi/glfw-export.c
index 0070653..648bfff 100644
--- a/ffi/glfw-export.c
+++ b/ffi/glfw-export.c
@@ -6,7 +6,6 @@
 int CONTEXT_VERSION_MAJOR = GLFW_CONTEXT_VERSION_MAJOR;
 int DEPRECATED = GLFW_DECORATED;
 int GLFW_FFI_FALSE = GLFW_FALSE;
-int SAMPLES = GLFW_SAMPLES;
 
 // GLFW functions used below
 void init() {
diff --git a/ffi/glfw-import.sml b/ffi/glfw-import.sml
index 437c34e..44ece82 100644
--- a/ffi/glfw-import.sml
+++ b/ffi/glfw-import.sml
@@ -9,8 +9,6 @@ struct
     _symbol "DEPRECATED" public : ( unit -> int ) * ( int -> unit );
   val (FALSE, _) =
     _symbol "GLFW_FFI_FALSE" public : ( unit -> int ) * ( int -> unit );
-  val (SAMPLES, _) =
-    _symbol "SAMPLES" public : ( unit -> int ) * ( int -> unit );
 
   (* GLFW functions. *)
   val init = _import "init" public : unit -> unit;
diff --git a/shell/shell.sml b/shell/shell.sml
index 4905351..40d4260 100644
--- a/shell/shell.sml
+++ b/shell/shell.sml
@@ -54,7 +54,6 @@ struct
       val _ = Glfw.init ()
       val _ = Glfw.windowHint (Glfw.CONTEXT_VERSION_MAJOR (), 3)
       val _ = Glfw.windowHint (Glfw.DEPRECATED (), Glfw.FALSE ())
-      val _ = Glfw.windowHint (Glfw.SAMPLES (), 4)
       val window = Glfw.createWindow (1920, 1080, "shf")
       val _ = Glfw.makeContextCurrent window
       val _ = Gles3.loadGlad ()