src/math.scm

   1 ;;; Gacela, a GNU Guile extension for fast games development
   2 ;;; Copyright (C) 2009 by Javier Sancho Fernandez <jsf at jsancho dot org>
   3 ;;;
   4 ;;; This program is free software: you can redistribute it and/or modify
   5 ;;; it under the terms of the GNU General Public License as published by
   6 ;;; the Free Software Foundation, either version 3 of the License, or
   7 ;;; (at your option) any later version.
   8 ;;;
   9 ;;; This program is distributed in the hope that it will be useful,
  10 ;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
  11 ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  12 ;;; GNU General Public License for more details.
  13 ;;;
  14 ;;; You should have received a copy of the GNU General Public License
  15 ;;; along with this program.  If not, see <http://www.gnu.org/licenses/>.
  16
  17
  18 (define-module (gacela math)
  19   #:export (*pi*
  20             degrees-to-radians
  21             radians-to-degrees
  22             distance-between-points
  23             nearest-power-of-two))
  24
  25
  26 ;;; Constants
  27
  28 (define *pi* (* (asin 1) 2))
  29
  30
  31 ;;; Geometry
  32
  33 (define (degrees-to-radians angle)
  34   (/ (* angle *pi*) 180))
  35
  36 (define (radians-to-degrees angle)
  37   (/ (* angle 180) *pi*))
  38
  39 (define (distance-between-points p1 p2)
  40   (define (add-power-of-two p1 p2)
  41     (cond ((null? p1)
  42            0)
  43           (else
  44            (+ (expt (- (car p1) (car p2)) 2)
  45               (add-power-of-two (cdr p1) (cdr p2))))))
  46
  47   (cond ((not (= (length p1) (length p2)))
  48          #f)
  49         (else
  50          (sqrt (add-power-of-two p1 p2)))))
  51
  52
  53 ;;; Functions
  54
  55 (define (nearest-power-of-two n)
  56   (define (power p n)
  57     (cond ((> (* p 2) n) p)
  58           (else (power (* p 2) n))))
  59   (power 1 n))