From 864c44a02357ceb89261b0e5330c01323ae20e26 Mon Sep 17 00:00:00 2001 From: David Thompson Date: Sun, 23 Mar 2014 11:46:24 -0400 Subject: Replace figl with the new guile-opengl official release. --- 2d/color.scm | 2 +- 2d/font.scm | 5 ++--- 2d/game.scm | 2 +- 2d/shader.scm | 4 ++-- 2d/sprite.scm | 4 ++-- 2d/texture.scm | 4 ++-- 2d/vector2.scm | 1 - 2d/window.scm | 2 +- 2d/wrappers/gl.scm | 4 ++-- 2d/wrappers/util.scm | 2 +- 10 files changed, 14 insertions(+), 16 deletions(-) (limited to '2d') 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 ( 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 ( 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) -- cgit v1.2.3