;; hackpact day 24 - broken
;; gabor papp http://mndl.hu/hackpact

(clear)

(set-camera-transform (mtranslate #(0 0 -10)))

(scale #(20.1 16.1 1))
(translate #(-.5 -.5 0))

(define s 512)

(define px0 (build-pixels s s #t))
(define px1 (build-pixels s s))
(define p0 (ffgl-load "citwirldistortion" s s))
(with-ffgl p0
    (ffgl-process px1 px0))

(with-primitive px0
    (scale 0))

(define tube
    (with-pixels-renderer px0
        (hint-cull-ccw)
        (fog (vector 0 0 0) 0.03 1 100)
        (with-state
            (texture (load-texture "transp.png"))
            (build-cylinder 100 4))))

(with-pixels-renderer px0
    (with-primitive tube
        (pdata-map!
            (lambda (n)
                (vmul n -1))
            "n")))

(define (animate-tube)
    (with-ffgl p0
        (ffgl-set-parameter! #:angle (+ .5 (* .4 (sin (* .2 (time)))))
                #:radius .1))

    (with-pixels-renderer px0
        (with-primitive tube
            (identity)
            (opacity (gl 0))
            (translate (vector 0 0 -90))
            (rotate (vector 90 (* 20 (time)) 0))
            (scale (vector 5 100 5))
            (pdata-map!
                (lambda (t)
                    (vadd t (vector 0.0 -0.015 0)))
                "t"))))

(every-frame (animate-tube))