removed mistakenly committed file
This commit is contained in:
parent
a6abce481d
commit
d6d8e4351c
|
@ -1,32 +0,0 @@
|
||||||
#lang racket/load
|
|
||||||
|
|
||||||
(module client racket
|
|
||||||
(require 2htdp/universe 2htdp/image)
|
|
||||||
|
|
||||||
;; Color -> Boolean
|
|
||||||
(define (client c)
|
|
||||||
(big-bang #true
|
|
||||||
(to-draw (lambda (w) (text (if w "hello world" "good bye") 22 c)))
|
|
||||||
(register LOCALHOST)
|
|
||||||
(name c)
|
|
||||||
(on-receive (lambda (w msg) (not w)))))
|
|
||||||
|
|
||||||
(launch-many-worlds (client "blue") (client "red")))
|
|
||||||
|
|
||||||
(module server racket
|
|
||||||
(require 2htdp/universe)
|
|
||||||
|
|
||||||
(define (server tick-rate)
|
|
||||||
(universe '()
|
|
||||||
(on-new (lambda (w n) (make-bundle (cons n w) '() '())))
|
|
||||||
(on-tick
|
|
||||||
(lambda (w*)
|
|
||||||
(make-bundle w* (map (lambda (w) (make-mail w 'go)) w*) '()))
|
|
||||||
tick-rate)
|
|
||||||
(on-msg void)))
|
|
||||||
|
|
||||||
(thread server))
|
|
||||||
|
|
||||||
(require 'server)
|
|
||||||
|
|
||||||
(require 'client)
|
|
Loading…
Reference in New Issue
Block a user