start on scheme ffi

.rustfmt.toml

@@ -0,0 +1,4 @@
+imports_granularity = "Crate"
+group_imports = "StdExternalCrate"
+wrap_comments = true
+edition = "2024"

Cargo.lock

@@ -351,7 +351,7 @@ dependencies = [
 ]
 
 [[package]]
-name = "autobats"
+name = "autobarts"
 version = "0.1.0"
 dependencies = [
  "bevy",
@@ -365,6 +365,7 @@ dependencies = [
  "rusqlite",
  "rusqlite_migration",
  "steel-core",
+ "steel-derive",
 ]
 
 [[package]]

Cargo.toml

@@ -1,11 +1,10 @@
 [package]
-name = "autobats"
+name = "autobarts"
 version = "0.1.0"
 edition = "2024"
 
 [dependencies]
 bevy = { version = "0.18", default-features = false, features = ["2d"] }
-criterion = { version = "0.8.1", default-features = false, features = ["cargo_bench_support", "rayon"] }
 dirs = "6.0.0"
 include_dir = "0.7.4"
 ordered-float = "5.1.0"
@@ -13,6 +12,7 @@ rstar = "0.12.2"
 rusqlite = { version = "0.37", default-features = false, features = ["bundled", "blob", "functions", "jiff"] }
 rusqlite_migration = { version = "2.3.0", features = ["from-directory"] }
 steel-core = { git="https://github.com/mattwparas/steel.git", branch = "master" }
+steel-derive = { git="https://github.com/mattwparas/steel.git", branch = "master" }
 
 # Enable a small amount of optimization in the dev profile.
 [profile.dev]
@@ -25,6 +25,7 @@ opt-level = 3
 [dev-dependencies]
 rand = "0.9.2"
 rand_hc = "0.4.0"
+criterion = { version = "0.8.1", default-features = false, features = ["cargo_bench_support",  "rayon"] }
 
 [[bench]]
 name = "benchmarks"

assets/scripts/tank.scm

@@ -0,0 +1,4 @@
+(struct point (x))
+
+(define (dist p1 p2)
+  )

benches/benchmarks.rs

@@ -86,7 +86,7 @@ fn range_query(c: &mut Criterion) {
 
 criterion_group!(
     benches,
-    //bulk_load_baseline,
+    bulk_load_baseline,
     // bulk_load_comparison,
     // tree_creation_quality,
     range_query
@@ -95,7 +95,7 @@ criterion_main!(benches);
 
 fn create_random_points(num_points: usize, seed: &[u8; 32]) -> Vec<Point> {
     let mut rng = Hc128Rng::from_seed(*seed);
-    let r = (-10_000.0)..=10_000.0;
+    let r = (-1_000.0)..=1_000.0;
     (0..num_points)
         .map(|_| Point::new(rng.random_range(r.clone()), rng.random_range(r.clone())))
         .collect()

src/ffi.rs

@@ -0,0 +1,21 @@
+use steel::steel_vm::{engine::Engine, register_fn::RegisterFn};
+
+use crate::geom::*;
+
+//pub struct
+
+pub fn get_vm() -> Engine {
+    let mut vm = Engine::new();
+    vm.register_type::<Point>("point?");
+    vm.register_fn("dist2", dist2);
+    vm.register_fn("dist", dist);
+    vm
+}
+
+fn dist2(p1: &Point, p2: &Point) -> f32 {
+    p1.point.distance_squared(p2.point)
+}
+
+fn dist(p1: &Point, p2: &Point) -> f32 {
+    p1.point.distance(p2.point)
+}

src/geom.rs

@@ -3,8 +3,9 @@ use std::cmp::Ordering;
 use bevy::prelude::*;
 use ordered_float::OrderedFloat;
 use rstar::Point as PointTrait;
+use steel_derive::Steel;
 
-#[derive(Debug, Clone, Copy)]
+#[derive(Debug, Clone, Copy, Steel)]
 pub struct Point {
     pub point: Vec2,
     pub entity: Entity,

src/lib.rs

@@ -1,2 +1,3 @@
 pub mod db;
+pub mod ffi;
 pub mod geom;

src/main.rs

@@ -1,4 +1,4 @@
-use autobats::db::init_db;
+use autobarts::db::init_db;
 use bevy::prelude::*;
 
 fn main() {