(define (draw-mine-field x)
   (if (= x 0)
        '()
        (begin
            (draw-mine-line (- XX x) YY)
            (with-state
                (translate #(1 0 0))
                (draw-mine-field (- x 1))))
    ))

(define (draw-mine-line x y)
    (if (= y 0)
        '()
        (begin
             (draw-mine x (- YY y))
             (with-state
                (translate #(0 1 0))
                (draw-mine-line x (- y 1))))
    ))


(define (draw-mine x y)
    (with-state
        (let ((center-x (- (/ XX 2) 0.5))
              (center-y (- (/ YY 2) 0.5)))
            ; default size, colour
            (scale (vector 1 1 1.5))
            ;(colour (vector (gh 1) (gh 3) (gh 5)))
    
            ; scale up center mines
            (let* ((D     (* 1.3 (sqrt (+ (expt (- x center-x) 2)
                                          (expt (- y center-y) 2)))))
                   (factor (* (gh 1) (log (+ 1 (abs (/ (sin D) D)))))))
                (scale (vector 1 1 (+ 1 (* 3 factor))))
                (colour (vector (+ 0.1 factor) (- 0.8 factor) 0))
            )
    
            ; X-dependent jumping!
            (let ((factor (+ (* (gh 3) (/ 1 (+ 1 (* 0.01 XX x))))
                             (* (gh 5) (/ 1 (+ 1 (* 0.01 XX (- XX x)))))
                        ))) 
                (translate (vector 0 0 (+ 1 (* 3 factor)))))
    
            ; spread out!
            (let ((x-factor (* (gh 7) 0.5))
                  (y-factor (* (gh 6) 0.5)))
                (translate (vector (* x x-factor) (* (- y center-y) y-factor) 0)))

            ; the yy-curve!
            (let ((factor (* (gh 4) (expt (* (- y center-y) (/ 3 YY)) 3))))
                (translate (vector 0 0 factor)))
    
            (draw-cube))))

(define (show-things)
    (clear-colour (vector (* 0.15 (gh 7))
                          (* 0.15 (gh 8))
                          (* 0.30 (gh 6))))
    (draw-mine-field XX))


(start-audio "alsa_pcm:capture_1" 1024 44100)

(clear-colour #(0 0 0))

(show-fps 1)

(define XX 100) (define YY 25)

(every-frame (show-things)) 

... in a way.

hint: (fluxus).

The earth says hello ! You twinkle above us, we twinkle below.

Hundreds of small bangs, firecrackers, agglomerated to a feast. Sound, light, darkness, bang, crack, thrill. Drunken neighbours trying to blow each other up, and looking for a fight. Flashes of light, twinkling up.

Retreat into a house, a long and good meal. Silly games and jokes. Fun.

Return to the night, the moon is slowly disappearing. Last planning before the spectacle.

12 o'clock, BANG ! Half an hour of lights in the sky, fireworks, rejoicing at the new year. Neighbours gathered around to watch, toasts and congratulations all over.

The crowd retreats, we begin to clear up the mess. Disappearing inside, jolly hours together, awake.

It starts to snow.

Happy new year.