http://icecast.awi.de:8000/PALAOA.MP3
Air Traffic Control:
http://mso.liveatc.net:80/khnd1
http://aus.liveatc.net:80/sbbr_acc
Calm noises:
http://www.whitenoise247.com/Sounds/CalmSeaWaves.wav
http://www.whitenoise247.com/Sounds/river_full.wav
Natural Radio:
http://mp3.nasa-us.speedera.net:8000/mp3.nasa-us/florida1
http://67.207.143.181:80/vlf1
http://67.207.143.181:80/vlf3
http://67.207.143.181:80/vlf9
http://67.207.143.181:80/vlf15
http://194.116.73.37:8000/pontese124.m3u
http://icecast.nis.nasa.gov:8000/florida1
http://picasso.astro.ufl.edu:8000/icy_1
Radio Astronomy
http://28.72.128.252:8000/radast
I like fluxus, I like the immediate mode style programming. I don't know if I can get on with scheme though. This is what it looks like:
;(require fluxus-016/drflux)
(require fluxus-017/planetarium)
;(set-dome-mode! #t)
(smoothing-bias 2)
(clear)
;(clear-colour 0)
;(blur 0.1)
;(fog (vector 0.1 0.1 0.1) 0.2 0.01 0.1)
(ortho)
(define dome (dome-build 10 180 2048))
; buffersize and samplerate need to match jack's
(start-audio "MPlayer" 1024 48000)
(define (render count)
(cond
((not (zero? count))
(translate (vector 0.1 0.1 (* 10 (gh 4))))
(scale (vector 2 2 1))
(rotate (vector (gh 4) (gh 5) (gh 6) ))
(colour (vector (* 0.5 (gh 4)) 0.2 (* 0.5 (gh 10))
0.3))
(opacity 0.3)
(draw-torus)
(render (- count 1)))))
;(with-state
;(rotate (vector 0 -25 0))
;(render (- count 1))
;(draw-cube)
;set the view of the camera
(dome-setup-main-camera 1400 1050)
(every-frame
(with-pixels-renderer (dome-pixels)
(with-state
;(rotate (vector 0 0 (* 90 (cos(/ (time) 10)))))
(translate (vector 0 0 -100)) ; move it into view
(render 10))))
