#lang racket/base (require (planet gcr/libvorbisfile) (planet gcr/libvorbisfile/rsound-compat) (planet clements/rsound) (planet clements/rsound/draw)) (define filename (vector-ref (current-command-line-arguments) 0)) (displayln "Loading sound...") (define o (open-vorbis-file filename)) (define s (vorbis->rsound o)) (displayln "Playing 30s of sound...") (play s) (sleep 30)