;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2013 Ludovic Courtès <address@hidden>
;;;
;;; 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 freeglut)
   #:use-module (guix licenses)
   #:use-module (guix packages)
   #:use-module (guix download)
   #:use-module (guix build-system gnu)
   #:use-module (guix packages)
   #:use-module (gnu packages xorg))


(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 lgpl2.1+))) ;; It's really under the SGI Free Software license B (V2) -- needs to be added under licenses.scm! :^)



(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) 
		   ("xinput" ,xinput)
		   ("glu" ,glu)))
	 (home-page "http://freeglut.sourceforge.net/")
         (synopsis "An 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 x11)))