…
blogroll tags

A work of art.

(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 true art is, of course, that which TOPLAP [P]s.

posted by free zombie on March 30, 2010 [permalink]
tags:

Impressum

spam goes here