diff options
| -rw-r--r-- | community-garden.scm | 27 |
1 files changed, 21 insertions, 6 deletions
diff --git a/community-garden.scm b/community-garden.scm index 105d2ce..35d28f9 100644 --- a/community-garden.scm +++ b/community-garden.scm @@ -27,12 +27,10 @@ (srfi srfi-9) (srfi srfi-43)) -(define garden-vat (spawn-vat)) -(define catbird-vat (spawn-vat)) -(define alice-vat (spawn-vat)) -(define-vat-run garden-run garden-vat) -(define-vat-run catbird-run catbird-vat) -(define-vat-run alice-run alice-vat) + +;;; +;;; Data types +;;; (define-record-type <plant> (make-plant name char) @@ -106,6 +104,18 @@ (newline)) (garden-bed-tiles garden))) + +;;; +;;; Actors +;;; + +(define garden-vat (spawn-vat)) +(define catbird-vat (spawn-vat)) +(define alice-vat (spawn-vat)) +(define-vat-run garden-run garden-vat) +(define-vat-run catbird-run catbird-vat) +(define-vat-run alice-run alice-vat) + (define (^botanist bcom) (define-values (seal-plant unseal-plant approved-plant?) (make-sealer-triplet)) @@ -208,6 +218,11 @@ (define-asset (cabbage-texture (f "assets/images/cabbage.png")) (load-image f)) + +;;; +;;; Catbird visualization +;;; + (define-class <garden-view> (<node-2d>) (vat #:getter vat #:init-keyword #:vat) (visitor #:getter visitor #:init-keyword #:visitor) |