From 627ff41326679665589de5cf984f8eac3d4053a3 Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson2@worcester.edu>
Date: Thu, 13 Dec 2018 08:14:41 -0500
Subject: math: vector: Add set-vec2! and set-vec3! procedures.

* chickadee/math/vector.scm (set-vec2!, set-vec3!): New procedures.
* doc/api.texi (Vectors): Document them.
---
 chickadee/math/vector.scm | 16 +++++++++++-----
 doc/api.texi              | 10 ++++++++++
 2 files changed, 21 insertions(+), 5 deletions(-)

diff --git a/chickadee/math/vector.scm b/chickadee/math/vector.scm
index a617910..cbba1e6 100644
--- a/chickadee/math/vector.scm
+++ b/chickadee/math/vector.scm
@@ -35,6 +35,7 @@
             vec2-normalize
             set-vec2-x!
             set-vec2-y!
+            set-vec2!
             vec2-normalize!
             vec2-mult!
             vec2-add!
@@ -55,6 +56,7 @@
             vec3-normalize
             set-vec3-x!
             set-vec3-y!
+            set-vec3!
             vec3-normalize!
             vec3-mult!
             vec3-add!
@@ -150,25 +152,29 @@ polar coordinate (R, THETA)."
   (vec3-ref v 2))
 
 (define-inlinable (set-vec2-x! v x)
-  "Set the x coordinate of the vec2 V to X."
   (vec2-set! v 0 x))
 
 (define-inlinable (set-vec3-x! v x)
-  "Set the x coordinate of the vec3 V to X."
   (vec3-set! v 0 x))
 
 (define-inlinable (set-vec2-y! v y)
-  "Set the y coordinate of the vec2 V to Y."
   (vec2-set! v 1 y))
 
 (define-inlinable (set-vec3-y! v y)
-  "Set the y coordinate of the vec3 V to Y."
   (vec3-set! v 1 y))
 
 (define-inlinable (set-vec3-z! v z)
-  "Set the z coordinate of the vec3 V to Z."
   (vec3-set! v 2 z))
 
+(define-inlinable (set-vec2! v x y)
+  (set-vec2-x! v x)
+  (set-vec2-y! v y))
+
+(define-inlinable (set-vec3! v x y z)
+  (set-vec3-x! v x)
+  (set-vec3-y! v y)
+  (set-vec3-z! v z))
+
 (define (display-vec2 v port)
   (format port "#<vec2 x: ~f y: ~f>" (vec2-x v) (vec2-y v)))
 
diff --git a/doc/api.texi b/doc/api.texi
index 02662b7..77f6ae0 100644
--- a/doc/api.texi
+++ b/doc/api.texi
@@ -487,6 +487,11 @@ Set the X coordinate of the 2D vector @var{v} to @var{x}.
 Set the Y coordinate of the 2D vector @var{v} to @var{y}.
 @end deffn
 
+@deffn {Procedure} set-vec2! @var{v} @var{x} @var{y}
+Set the X and Y coordinates of the 2D vector @var{v} to @var{x} and
+@var{y}, respectively.
+@end deffn
+
 @deffn {Procedure} vec2-copy! @var{source} @var{target}
 Copy the 2D vector @var{source} into the 2D vector @var{target}.
 @end deffn
@@ -571,6 +576,11 @@ Set the Y coordinate of the 3D vector @var{v} to @var{y}.
 Set the Z coordinate of the 3D vector @var{v} to @var{z}.
 @end deffn
 
+@deffn {Procedure} set-vec3! @var{v} @var{x} @var{y} @var{z}
+Set the X, Y, and Z coordinates of the 3D vector @var{v} to @var{x},
+@var{y}, and @var{z}, respectively.
+@end deffn
+
 @deffn {Procedure} vec3-copy! @var{source} @var{target}
 Copy the 3D vector @var{source} into the 3D vector @var{target}.
 @end deffn
-- 
cgit v1.2.3