From 2eacc2841e34c926b9bb739c9800783b61e1d01a Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Thu, 8 Apr 2021 15:41:09 +0530
Subject: Wrap volume-importance.

* scm/nsmc/wrap.scm (volume-importance): New function.
---
 scm/nsmc/wrap.scm | 13 +++++++++++++
 1 file changed, 13 insertions(+)

diff --git a/scm/nsmc/wrap.scm b/scm/nsmc/wrap.scm
index ae86413..33c1bee 100644
--- a/scm/nsmc/wrap.scm
+++ b/scm/nsmc/wrap.scm
@@ -388,3 +388,16 @@
      (maybe-procedure->extent-oracle extent-oracle)
      true-integral %gsl-random-state dimension rtol stats)
     (rstat-n stats)))
+
+(define-public (volume-importance extent-oracle mean samples-per-cone
+                                  solid-angle-factor solid-angle-threshold-exponent-factor)
+  (let ((samples (make-c-struct (list unsigned-int) (list 0))))
+    (values
+     ((pointer->procedure double
+                          (dynamic-func "volume_importance" lib-nsmc)
+                          (list '* '* '* unsigned-int double double '*))
+      (maybe-procedure->extent-oracle extent-oracle)
+      %gsl-random-state mean samples-per-cone solid-angle-factor
+      solid-angle-threshold-exponent-factor samples)
+     (match (parse-c-struct samples (list unsigned-int))
+       ((samples) samples)))))
-- 
cgit v1.2.3