add bouncing when hitting arena edge

1 files changed, 8 insertions, 0 deletions

diff --git a/src/lib.rs b/src/lib.rs
index 2aedfff..240acf1 100755
--- a/src/lib.rs
+++ b/src/lib.rs
@@ -135,6 +135,14 @@ impl ExportedVM {
         vm.ip.offset = 0;
     }
 
+    pub fn setheading(&mut self, v: forth::vm::DataStackType) {
+        let Some(vm) = &mut self.vm else {
+            return;
+        };
+        use forth::vm::UNITS_PER_ROTATION;
+        vm.heading = (UNITS_PER_ROTATION + (v % UNITS_PER_ROTATION)) % UNITS_PER_ROTATION;
+    }
+
     pub fn trans(&mut self) -> Result<js_sys::Object, JsValue> {
         let vm = (&mut self.vm).as_mut().ok_or(Error::NoVM)?;
         let res = js_sys::Map::new();