46 lines
1.5 KiB
Racket
46 lines
1.5 KiB
Racket
#lang syndicate
|
|
|
|
(module+ main
|
|
(require syndicate/distributed/tcp)
|
|
(require syndicate/drivers/timer)
|
|
(require syndicate/gensym)
|
|
(require racket/math)
|
|
|
|
(require "schemas/scene.rkt")
|
|
(require "schemas/shapes.rkt")
|
|
|
|
(assertion-struct SceneHandle (ds))
|
|
|
|
(standard-actor-system (ds)
|
|
(define (on-connected remote-ds)
|
|
(at remote-ds
|
|
(during (SceneHandle $scene-e)
|
|
(define scene (embedded-value scene-e))
|
|
|
|
(define (bouncy-box)
|
|
(define me (symbol->string (strong-gensym 'user)))
|
|
|
|
(define x (* (- (random) 0.5) 100))
|
|
(define y0 (+ 1.0 (* (random) 10)))
|
|
(define z (* (- (random) 0.5) 100))
|
|
(define r (random))
|
|
(define g (random))
|
|
(define b (random))
|
|
|
|
(define-field y y0)
|
|
(define start-time (current-inexact-milliseconds))
|
|
(define-field deadline start-time)
|
|
(at ds
|
|
(on (asserted (LaterThan (/ (deadline) 1000.0)))
|
|
(deadline (+ (deadline) (/ 1000 30)))
|
|
(y (+ y0 (cos (/ (- (deadline) start-time) 1000.0 (/ 1 2 pi)))))))
|
|
|
|
(at scene
|
|
(assert (Variable me 'y (y)))
|
|
(assert (Sprite me '(y) (Move (ImmediateVector3 x 'y z) (Color-opaque r g b (Box)))))))
|
|
|
|
(for [(i 100)] (bouncy-box)))))
|
|
|
|
(run-tcp-client-relay ds #:hostname "localhost" #;"vr.demo.leastfixedpoint.com" #:port 9001
|
|
#:import (lambda (v) (on-connected (embedded-value v))))))
|