astra_start_body   xtlang

(bind-func astra_start_body
  (lambda ()
    (let ((sensor:astra_streamsetconnection_t (alloc))
          (reader:astra_reader_t (alloc))
          (available:i1 0)
          (mode:<i32,i32,i32,i32,i8,i32>* (alloc))
          (depthstream:astra_depthstream_t (alloc))
          (colorstream:astra_colorstream_t (alloc))
          (bodystream:astra_bodystream_t (alloc))
          (handstream:astra_handstream_t (alloc))
          (colorbodystream:astra_colorizedbodystream_t (alloc)))
      (astra_initialize)
      (println '[open]: (astra_streamset_open "device/default" (ref sensor)))
      (println '[create 'reader]: (astra_reader_create sensor (ref reader)))