From 8c7e6d923b2cb65be2429c35e10e4b9d3cf999fe Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Fri, 26 Feb 2021 19:29:55 +0530
Subject: Rename subsampling-random-vector to cone-random-vector.

* scm/nsmc/wrap.scm: (subsampling-random-vector): Rename to
cone-random-vector.
* src/nd-random.sc (subsampling-random-vector): Rename to
cone-random-vector.
* include/nd-random.h (subsampling_random_vector): Rename to
cone_random_vector.
---
 include/nd-random.h | 2 +-
 scm/nsmc/wrap.scm   | 4 ++--
 src/nd-random.sc    | 2 +-
 3 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/include/nd-random.h b/include/nd-random.h
index 9637a0e..7f3d41c 100644
--- a/include/nd-random.h
+++ b/include/nd-random.h
@@ -6,8 +6,8 @@
 #include <gsl/gsl_vector.h>
 
 void random_direction_vector (const gsl_rng* r, gsl_vector* x);
+void cone_random_vector (const gsl_rng* r, const gsl_vector* mean, double theta_max, gsl_vector* x);
 void hollow_cone_random_vector (const gsl_rng* r, const gsl_vector* mean, double theta_min, double theta_max, gsl_vector* x);
-void subsampling_random_vector (const gsl_rng* r, const gsl_vector* mean, double theta_max, gsl_vector* x);
 
 double planar_angle_to_solid_angle (double planar_angle, unsigned int dimension);
 double solid_angle_to_planar_angle (double solid_angle, unsigned int dimension);
diff --git a/scm/nsmc/wrap.scm b/scm/nsmc/wrap.scm
index e6d9a47..853dfb6 100644
--- a/scm/nsmc/wrap.scm
+++ b/scm/nsmc/wrap.scm
@@ -188,10 +188,10 @@
      %gsl-random-state vector)
     vector))
 
-(define-public (subsampling-random-vector mean max-theta)
+(define-public (cone-random-vector mean max-theta)
   (let ((vector (vector-alloc (vector-size mean))))
     ((pointer->procedure void
-                         (dynamic-func "subsampling_random_vector" lib-nsmc)
+                         (dynamic-func "cone_random_vector" lib-nsmc)
                          (list '* '* double '*))
      %gsl-random-state mean max-theta vector)
     vector))
diff --git a/src/nd-random.sc b/src/nd-random.sc
index 459500f..9984a7b 100644
--- a/src/nd-random.sc
+++ b/src/nd-random.sc
@@ -93,6 +93,6 @@ dx. THETA should be in [0,pi]."
   ;; Rotate to arbitrary basis.
   (rotate-from-nth-canonical x mean))
 
-(define (subsampling-random-vector r mean theta-max x)
+(define (cone-random-vector r mean theta-max x)
   (void (const gsl-rng*) (const gsl-vector*) double gsl-vector*)
   (hollow-cone-random-vector r mean 0 theta-max x))
-- 
cgit v1.2.3