Permalink
Browse files

(agave math basic) moved to (dharmalab math basic)

  • Loading branch information...
1 parent a70cf47 commit 3ae4e921bd09eba48da556224f2efd5d6b36b938 @dharmatech committed Mar 5, 2010
Showing with 10 additions and 46 deletions.
  1. +2 −4 demos/cfdg.sls
  2. +1 −1 demos/phase-chaser.sps
  3. +0 −34 math/basic.sls
  4. +1 −1 misc/lists.sls
  5. +3 −1 misc/other.sls
  6. +3 −5 misc/random-weighted.sls
View
6 demos/cfdg.sls
@@ -1,7 +1,5 @@
-(library
-
- (agave demos cfdg)
+(library (agave demos cfdg)
(export background
viewport
@@ -32,7 +30,7 @@
(agave color hsva)
(agave color conversion)
(except (agave glamour misc) background)
- (agave math basic)
+ (dharmalab math basic)
(agave misc list-stack)
(agave misc bytevector-utils))
View
2 demos/phase-chaser.sps
@@ -17,7 +17,7 @@
(xitomatl fmt)
(gl)
(glut)
- (only (agave math basic) pi)
+ (only (dharmalab math basic) pi)
(agave glamour window)
(agave glamour misc)
(agave geometry pt))
View
34 math/basic.sls
@@ -1,34 +0,0 @@
-
-(library
-
- (agave math basic)
-
- (export pi sq multiply-by greater-than
- add
- subtract)
-
- (import (rnrs) (agave misc curry))
-
- (define pi 3.14159265358979323846)
-
- (define (sq n) (* n n))
-
- (define add (curry + a b))
-
- (define multiply-by (curry * a b))
-
- (define subtract-from (curry - a b))
-
- (define subtract (curry - b a))
-
- (define divide (curry / a b))
-
- (define divide-by (curry / b a))
-
- (define greater-than (curry > b a))
- (define greater-than= (curry >= b a))
-
- (define less-than (curry < b a))
- (define less-than= (curry <= b a))
-
- )
View
2 misc/lists.sls
@@ -10,7 +10,7 @@
(import (rnrs)
(only (srfi :1) every any)
- (agave misc curry))
+ (dharmalab misc extended-curry))
(define every-is (curry every a b))
View
4 misc/other.sls
@@ -9,7 +9,9 @@
eqv-to)
(import (rnrs)
- (agave misc curry))
+ ;; (agave misc curry)
+ (dharmalab misc extended-curry)
+ )
(define =to (curry = a b))
View
8 misc/random-weighted.sls
@@ -1,14 +1,12 @@
-(library
-
- (agave misc random-weighted)
+(library (agave misc random-weighted)
(export random-weighted random-weighted* call-random-weighted)
(import (rnrs)
(only (srfi :1) iota take list-index)
- (srfi :27)
- (agave math basic))
+ (srfi :27 random-bits)
+ (dharmalab math basic))
(define (probabilities weights)
(let ((sum (apply + weights)))

0 comments on commit 3ae4e92

Please sign in to comment.