38 lines
875 B
Racket
38 lines
875 B
Racket
|
#lang racket/base
|
||
|
|
(require racket/contract/base
|
||
|
|
data/queue
|
||
|
|
racket/generic)
|
||
|
|
|
||
|
|
(define-generics chaos
|
||
|
|
(chaos-fps chaos)
|
||
|
|
(chaos-yield chaos evt)
|
||
|
|
(chaos-inputs chaos)
|
||
|
|
(chaos-output! chaos outputs)
|
||
|
|
(chaos-label! chaos label)
|
||
|
|
(chaos-swap! chaos thunk)
|
||
|
|
#:fallbacks
|
||
|
|
[(define (chaos-fps c)
|
||
|
|
60.0)
|
||
|
|
(define (chaos-yield c e)
|
||
|
|
(sync e))
|
||
|
|
(define iq (make-queue))
|
||
|
|
(define (chaos-inputs c)
|
||
|
|
iq)
|
||
|
|
(define (chaos-output! c os)
|
||
|
|
(void))
|
||
|
|
(define (chaos-label! c l)
|
||
|
|
(void))
|
||
|
|
(define (chaos-swap! chaos thunk)
|
||
|
|
(thunk))])
|
||
|
|
|
||
|
|
(provide
|
||
|
|
gen:chaos
|
||
|
|
(contract-out
|
||
|
|
[chaos? (-> any/c boolean?)]
|
||
|
|
[chaos-fps (-> chaos? flonum?)]
|
||
|
|
[chaos-yield (-> chaos? evt? any)]
|
||
|
|
[chaos-inputs (-> chaos? queue?)]
|
||
|
|
[chaos-output! (-> chaos? vector? any)]
|
||
|
|
[chaos-label! (-> chaos? string? any)]
|
||
|
|
[chaos-swap! (-> chaos? (-> any) any)]))
|