diff options
| author | David Thompson <dthompson2@worcester.edu> | 2014-12-13 13:35:32 -0500 |
|---|---|---|
| committer | David Thompson <dthompson2@worcester.edu> | 2014-12-13 13:37:37 -0500 |
| commit | 38d938ebb50c3bf49c5e258e5166ae01b55ecd2d (patch) | |
| tree | f9889b381d62c00329d7997a7dd0711e8afd5996 | |
| parent | bf34569ee9a5e33ab53633f172d8f0543e059cad (diff) | |
math: transform: Update docstrings.
* sly/math/transform (transform+, transform*): Update docstrings.
| -rw-r--r-- | sly/math/transform.scm | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/sly/math/transform.scm b/sly/math/transform.scm index bad88ac..5d65e4c 100644 --- a/sly/math/transform.scm +++ b/sly/math/transform.scm @@ -113,8 +113,8 @@ TRANSFORM." (array-ref matrix 3 2)))) (define (transform+ . transforms) - "Return the sum of all given transformation matrices. Return -null-transform if called without any arguments." + "Return the sum of TRANSFORM. Return 'null-transform' if called +without any arguments." (define (add a b) (let ((m1 (transform-matrix a)) (m2 (transform-matrix b)) @@ -130,8 +130,8 @@ null-transform if called without any arguments." (bytevector->pointer (array-contents (transform-matrix t)))) (define (transform* . transforms) - "Return the product of all given transformation matrices. Return -identity-transform if called without any arguments." + "Return the product of TRANSFORMS. Return identity-transform if +called without any arguments." (define (mul a b) (let ((result (%make-transform (make-4x4-matrix)))) (transform*! result a b) |