[Fluxus] new fluxus module demo

[gabor papp]

Martin Ahnelöv wrote:
> 
> Ok, that is extremely cool!
> 
> is it possible to get a text-version of that last bit? It looks like the
> tracking was done _very_ easily from fluxus' point of view.
> 
> Gasten
> 
thanks.

sorry for the bad quality, which made the code unreadable. i uploaded 
the video to vimeo also, but they screwed up the conversion. i'm going 
to try to upload it again. yes, tracking is quite easy. the code for the 
cube demo is like this:

(require fluxus-016/fluxus-ar)

(clear)

(ar-init "data/camera_para.dat")

(ar-build-camera-image)

(define hiro (ar-load-pattern "data/patt.hiro"))

(define (loop)
     (ar-update)
     (let ([m (ar-get-marker-transform hiro #(0 0) 80.0)])
         (when m
                 (with-state
                     (identity)
                     (concat m)
                     (translate #(0 0 25))
                     (scale 50)
                     (draw-cube)))))

(every-frame (loop))