Replace figl with the new guile-opengl official release.

10 files changed, 14 insertions, 16 deletions

diff --git a/2d/color.scm b/2d/color.scm
index 959f1b6..f66c659 100644
--- a/2d/color.scm
+++ b/2d/color.scm
@@ -22,7 +22,7 @@
 ;;; Code:
 
 (define-module (2d color)
-  #:use-module (figl gl)
+  #:use-module (gl)
   #:use-module (srfi srfi-9)
   #:use-module (srfi srfi-1)
   #:export (<color>
diff --git a/2d/font.scm b/2d/font.scm
index 2ba82f0..4e9d401 100644
--- a/2d/font.scm
+++ b/2d/font.scm
@@ -22,13 +22,12 @@
 ;;; Code:
 
 (define-module (2d font)
-  #:use-module (figl gl)
   #:use-module (srfi srfi-9)
   #:use-module (system foreign)
   #:use-module ((sdl sdl) #:prefix SDL:)
   #:use-module ((sdl ttf) #:prefix SDL:)
-  #:use-module (figl gl)
-  #:use-module (figl contrib packed-struct)
+  #:use-module (gl)
+  #:use-module (gl contrib packed-struct)
   #:use-module (2d color)
   #:use-module (2d config)
   #:use-module (2d shader)
diff --git a/2d/game.scm b/2d/game.scm
index 292968f..a94a9c0 100644
--- a/2d/game.scm
+++ b/2d/game.scm
@@ -24,7 +24,7 @@
 (define-module (2d game)
   #:use-module (srfi srfi-9)
   #:use-module ((sdl sdl) #:prefix SDL:)
-  #:use-module (figl gl)
+  #:use-module (gl)
   #:use-module (2d agenda)
   #:use-module (2d event)
   #:use-module (2d signal)
diff --git a/2d/shader.scm b/2d/shader.scm
index deff331..994dd63 100644
--- a/2d/shader.scm
+++ b/2d/shader.scm
@@ -22,8 +22,8 @@
   #:use-module (srfi srfi-4)
   #:use-module (srfi srfi-9)
   #:use-module (ice-9 rdelim)
-  #:use-module (figl gl)
-  #:use-module (figl gl low-level)
+  #:use-module (gl)
+  #:use-module (gl low-level)
   #:use-module (2d helpers)
   #:use-module (2d transform)
   #:use-module (2d vector2)
diff --git a/2d/sprite.scm b/2d/sprite.scm
index 75a54dc..7c7b9c0 100644
--- a/2d/sprite.scm
+++ b/2d/sprite.scm
@@ -25,8 +25,8 @@
 (define-module (2d sprite)
   #:use-module (srfi srfi-1)
   #:use-module (srfi srfi-9)
-  #:use-module (figl gl)
-  #:use-module (figl contrib packed-struct)
+  #:use-module (gl)
+  #:use-module (gl contrib packed-struct)
   #:use-module ((sdl sdl) #:prefix SDL:)
   #:use-module (2d agenda)
   #:use-module (2d animation)
diff --git a/2d/texture.scm b/2d/texture.scm
index aabe884..1ac3f05 100644
--- a/2d/texture.scm
+++ b/2d/texture.scm
@@ -24,8 +24,8 @@
 
 (define-module (2d texture)
   #:use-module (srfi srfi-9)
-  #:use-module (figl gl)
-  #:use-module (figl contrib packed-struct)
+  #:use-module (gl)
+  #:use-module (gl contrib packed-struct)
   #:use-module (2d color)
   #:use-module (2d helpers)
   #:use-module (2d vector2)
diff --git a/2d/vector2.scm b/2d/vector2.scm
index bbbe19f..3c76625 100644
--- a/2d/vector2.scm
+++ b/2d/vector2.scm
@@ -22,7 +22,6 @@
 ;;; Code:
 
 (define-module (2d vector2)
-  #:use-module (figl gl)
   #:use-module (srfi srfi-1)
   #:use-module (srfi srfi-9)
   #:export (<vector2>
diff --git a/2d/window.scm b/2d/window.scm
index 75f996b..a747acf 100644
--- a/2d/window.scm
+++ b/2d/window.scm
@@ -23,7 +23,7 @@
 
 (define-module (2d window)
   #:use-module (srfi srfi-9)
-  #:use-module (figl gl)
+  #:use-module (gl)
   #:use-module ((sdl sdl) #:prefix SDL:)
   #:use-module ((sdl mixer) #:prefix SDL:)
   #:use-module (2d event)
diff --git a/2d/wrappers/gl.scm b/2d/wrappers/gl.scm
index 8e500d4..e43ba8a 100644
--- a/2d/wrappers/gl.scm
+++ b/2d/wrappers/gl.scm
@@ -18,12 +18,12 @@
 ;;; Commentary:
 ;;
 ;; Custom wrappers over low level OpenGL commands that aren't part of
-;; FIGL.
+;; guile-opengl.
 ;;
 ;;; Code:
 
 (define-module (2d wrappers gl)
-  #:use-module ((figl gl low-level) #:renamer (symbol-prefix-proc '%)))
+  #:use-module ((gl low-level) #:renamer (symbol-prefix-proc '%)))
 
 ;;;
 ;;; 3.8.1 Texture Image Specification
diff --git a/2d/wrappers/util.scm b/2d/wrappers/util.scm
index 87cf434..254dc3a 100644
--- a/2d/wrappers/util.scm
+++ b/2d/wrappers/util.scm
@@ -24,7 +24,7 @@
 (define-module (2d wrappers util)
   #:export (define-enumeration))
 
-;; Borrowed from guile-figl
+;; Borrowed from guile-opengl
 (define-syntax-rule (define-enumeration enumerator (name value) ...)
   (define-syntax enumerator
     (lambda (x)