John Clements jbclements

jbclements / spoken-reverb.rkt

Created November 20, 2013 04:03

a short file illustrating one way to use reverb. Yes, you'll need an up-to-date version of rsound....

	#lang racket

	(require rsound)
	(require rsound/reverb-typed)

	(play
	(rs-filter
	(rs-read (build-path (collection-path "rsound") "examples" "speaking.wav"))
	reverb))

jbclements / does-recording-work.rkt

Created November 18, 2013 19:49

a short file that provides a function to tell you whether recording is working.

	#lang racket

	(require rsound)

	(provide does-recording-work?)

	;; try to record an incredibly short sound
	(define (does-recording-work?)
	(with-handlers ([exn:fail? (lambda (exn) false)])
	(record-sound 10)

jbclements / foo.rkt

Created November 15, 2013 23:43 — forked from StasisPod/gist:7493602

	;; a note is (make-note note-num frames frames)
	(define-struct note (pitch time duration))

	;; number -> number
	;; converts seconds to frames
	(define (s f)
	(* 44100 f))

	(check-expect (s 10) 441000)

jbclements / CPE 123 11.15.13.rkt

Last active December 28, 2015 11:29 — forked from anonymous/CPE 123 11.15.13

	;; Nancy Truong, Mitchell Salles, Dan Stone
	;; CPE 123 (3:00 P - 5:00 P)

	(define (s sec) (* 44100 sec))

	;; a note is (make-note midi-num frames frames)
	(define-struct note (pitch time dur))


	;; note -> boolean

jbclements / notefilter

Created November 15, 2013 18:51 — forked from ekajjake/notefilter.rkt

	(require rsound)

	;a note is
	;(make-note number number number)
	(define-struct note (pitch time duration))

	;a list-of-notes is one of:
	;-empty, or
	;-(cons note list-nof-notes)

jbclements / filtering-example.rkt

Created November 14, 2013 00:35

network example with filtering

jbclements / random-tones-example.rkt

Created November 13, 2013 17:47

random tones example

	#lang racket

	;; play a bunch of long tones; each one is 4 seconds long, fades in and out
	;; slowly, and consists of two waveforms from Adventure Kid's samples,
	;; differing in pitch by a small random amount. The notes are chosen from
	;; a scale built on a specified set of intervals. The code is written in
	;; a somewhat HTDP-friendly way.

	(require rsound)
	(require rsound/envelope)

jbclements / text-boxes.rkt

Created November 12, 2013 22:31

code to implement text boxes

	#lang racket

	(require 2htdp/universe
	2htdp/image
	rackunit)

	;; a text-box-content is a string or false

	;; a text-box is (make-text-box text-box-content pixels pixels)
	(define-struct text-box (content x y) #:transparent)

jbclements / class-code-2013-11-04.rkt

Last active December 27, 2015 09:59

code from class, 2013-11-04

	(require rsound)
	(require rsound/piano-tones)

	;; a note is (make-note note-num frames frames)
	(define-struct note (pitch time duration))

	(define bach-notes
	(list
	(make-note 60 8820 8820)
	(make-note 62 17640 8820)

jbclements / bach-notes.rkt

Created November 4, 2013 18:02

notes from bach's invention no. 1. See midi-readwrite repo for license info.