]> git.jsancho.org Git - gacela.git/blob - src/math.scm
Defining views
[gacela.git] / 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))