This commit is contained in:
foam 2009-07-23 13:07:43 +01:00
parent 74280d9200
commit d1bd7133f4

View file

@ -1,10 +1,10 @@
#lang scheme/base ;#lang scheme/base
(require fluxus-016/drflux) ;(require fluxus-016/drflux)
(require scheme/class "logic.ss" "view.ss" "controller.ss" "client.ss" "jabberer.ss") (require scheme/class "logic.ss" "view.ss" "controller.ss" "client.ss" "jabberer.ss")
(define jid "plant0000001@fo.am") (define jid "plant0000002@fo.am")
(define pass "plant0000001") (define pass "plant0000002")
(define pos (vector 50 0 0)) (define pos (vector -50 0 0))
;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
; p l a n t e y e s ; p l a n t e y e s