Add Package Gl

["Joshua \"Youlysses\" S. Grant" <youlysses@riseup.net>]

[-- Attachment #1: Type: text/plain, Size: 498 bytes --]

Attached, is file containing several different package expressions for
various Opengl tools and/or utilities (at the time of posting this, they
would be: glu, freeglut, and ftgl). 

This is my first real submission to any GNU project, and hopefully is
far from the last. I again want to thank Ludo for the tremendous amount
of help and patience he's been able to give me throughout this
(learning) process. :^)

Here's to hopefully contributing on a semi-regular basis,
Joshua "Youlysses" S. Grant

[-- Attachment #2: gl.scm --]
[-- Type: text/x-scheme, Size: 4873 bytes --]

;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2013 Joshua S. Grant <youlysses@riseup.net>
;;;
;;; This file is part of GNU Guix.
;;;
;;; GNU Guix is free software; you can redistribute it and/or modify it
;;; under the terms of the GNU General Public License as published by
;;; the Free Software Foundation; either version 3 of the License, or (at
;;; your option) any later version.
;;;
;;; GNU Guix is distributed in the hope that it will be useful, but
;;; WITHOUT ANY WARRANTY; without even the implied warranty of
;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
;;; GNU General Public License for more details.
;;;
;;; You should have received a copy of the GNU General Public License
;;; along with GNU Guix.  If not, see <http://www.gnu.org/licenses/>.

(define-module (gnu packages gl)
   #:use-module ((guix licenses) 
                  #:renamer (symbol-prefix-proc 'license:))
   #:use-module (guix packages)
   #:use-module (guix download)
   #:use-module (guix build-system gnu)
   #:use-module (guix packages)
   #:use-module (gnu packages xorg)
   #:use-module (gnu packages fontutils))


(define-public glu
  (package
     (name "glu")
     (version "9.0.0")
     (source (origin
	      (method url-fetch)
	      (uri (string-append "ftp://ftp.freedesktop.org/pub/mesa/glu/glu-" 
                                   version ".tar.gz"))
              (sha256
	        (base32 "0r72yyhj09x3krn3kn629jqbwyq50ji8w5ri2pn6zwrk35m4g1s3"))))
     (build-system gnu-build-system)
     (inputs `(("mesa" ,mesa))) 
     (home-page "http://www.opengl.org/archives/resources/faq/technical/glu.htm")
     (synopsis "Mesa OpenGL Utility library")
     (description 
	  "GLU, or OpenGL Utility Library provides some higher-level functionality 
not provided by just OpenGL itself. Some of GLU's Features 
include: Scaling of 2D images and creation of mipmap pyramids, 
Transformation of object coordinates into device coordinates and 
vice versa, Support for NURBS surfaces, Support for tessellation 
of concave or bow tie polygonal primitives, Specialty transformation 
matrices for creating perspective and orthographic projections, 
positioning a camera, and selection/picking, Rendering of disk, 
cylinder, and sphere primitives, Interpreting OpenGL error values 
as ASCII text.") 
     (license license:x11)))


(define-public freeglut
  (package
     (name "freeglut")
     (version "2.8.1")
     (source (origin
	      (method url-fetch)
	      (uri (string-append "mirror://sourceforge/project/freeglut/freeglut/2.8.1/freeglut-" 
                                  version ".tar.gz"))
              (sha256
	        (base32 "16lrxxxd9ps9l69y3zsw6iy0drwjsp6m26d1937xj71alqk6dr6x"))))
     (build-system gnu-build-system)
     (inputs `(("mesa" ,mesa) 
               ("libx11" ,libx11)
               ("libxi" ,libxi)
               ("libxrandr" ,libxrandr)
               ("libxxf86vm" ,libxxf86vm) 
               ("inputproto" ,inputproto)
               ("xinput" ,xinput)
               ("glu" ,glu)))
     (home-page "http://freeglut.sourceforge.net/")
     (synopsis "Alternative to the OpenGL Utility Toolkit (GLUT)")
     (description 
	  "freeglut is a completely Free/OpenSourced alternative 
to the OpenGL Utility Toolkit (GLUT) library. GLUT was originally 
written by Mark Kilgard to support the sample programs in the 
second edition OpenGL 'RedBook'. Since then, GLUT has been used 
in a wide variety of practical applications because it is simple, 
widely available and highly portable.

GLUT (and hence freeglut) allows the user to create and manage windows 
containing OpenGL contexts on a wide range of platforms and also read 
the mouse, keyboard and joystick functions. freeglut is released under 
the X-Consortium license.") 
     (license license:x11)))


(define-public ftgl 
  (package
     (name "ftgl")
     (version "2.1.3-rc5") 
     (source (origin
	      (method url-fetch)
	      (uri (string-append "mirror://sourceforge/project/ftgl/FTGL%20Source/2.1.3~rc5/ftgl-"
                                   version ".tar.gz"))
              (sha256
	        (base32 "0nsn4s6vnv5xcgxcw6q031amvh2zfj2smy1r5mbnjj2548hxcn2l"))))
     (build-system gnu-build-system)
     (inputs `(("freetype" ,freetype)
               ("libx11" ,libx11)
               ("mesa" ,mesa)
               ("glu" ,glu))) 
     (home-page "http://ftgl.sourceforge.net")                              
     (synopsis "Font rendering library for OpenGL applications")
     (description 
	  "FTGL is a font rendering library for OpenGL applications.
 Supported rendering modes are: Bitmaps, Anti-aliased pixmaps, Texture 
maps, Outlines, Polygon meshes, and Extruded polygon meshes")
     (license license:x11)))