worked on the stability under MacOS... Still crashes up to three times on initial startup

Author: BSeppke

examples.rkt

@@ -9,16 +9,13 @@
                     (image-height plt-image-height)))
 (require 2htdp/universe)
 
-(stopgrabbing)
-(sleep 1)
-
 (define pic_img   (grabvideo))
-(define pic   (image->racket-image pic_img))
-
-(define depth_img (grabdepth))
-(define depth (image->racket-image depth_img))
+(define pic (image->bitmap pic_img))
+  
+(define depth_img  (grabdepth))
+(define depth (image->bitmap depth_img))
 
-(define depth+pic_img (grabdepth+video))
+(define depth+pic_img   (grabdepth+video))
 
 (define (status t update_each)
   (above (text "Number of Ticks:"  12 "black")
@@ -162,3 +159,7 @@
         (set! pic (image->racket-image pic_img))
         (set! pointer_pos (grabtopleft))));(img->pointer depth_img))))
   (underlay/xy pic (- (car pointer_pos) (/ radius 2)) (- (cdr pointer_pos) (/ radius 2)) (circle radius "solid" "yellow")))
+
+
+;;Terminate grabbing using:
+; (stopgrabbing)

grab.rkt

@@ -4,10 +4,9 @@
 
 (require rackinect/config)
 
-(require scheme/foreign)
-(unsafe!)
+(require ffi/unsafe)
+(require ffi/cvector)
 
-  
 ;#################Get the captures from libfreenect ###########
 (define kinect_stop_c
   (get-ffi-obj 'kinect_stop_c rackinect-dylib-path

install.rkt

@@ -10,11 +10,11 @@
 (when (not (directory-exists? local-collects-path))
   (system (string-append "mkdir -p " (path->string local-collects-path))))
 
-;; 2. If vigracket-collects dir extist, delete it.
+;; 2. If rackinect-collects dir extist, delete it.
 (when (directory-exists? local-install-path)
   (delete-directory/files local-install-path))
 
-;; 3. copy the installation contents to the local/collects/vigracket directory
+;; 3. copy the installation contents to the local/collects/rackinect directory
 (copy-directory/files (current-directory) local-install-path)
 
 ;; 4. Load dll under windows, dylib under MacOS