blob: a121b3943a50b84310f4c3ea014b668a7fd04c9e (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
|
(setenv "CATBIRD_DEV_MODE" "1")
(use-modules (catbird)
(catbird camera)
(catbird kernel)
(catbird node)
(catbird node-2d)
(catbird region)
((catbird scene) #:select (<scene>))
(chickadee graphics color)
(chickadee graphics path)
(chickadee math vector)
(community-garden actors)
(community-garden garden-bed)
(community-garden plant)
(community-garden view)
(goblins)
(goblins vrun)
(ice-9 atomic)
(oop goops))
(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 the-botanist (garden-run (spawn ^botanist)))
(define the-garden-gate (garden-run (spawn ^garden-gate the-botanist)))
(define sunflower/approved
(garden-run ($ the-botanist 'approve-plant sunflower)))
(define cabbage/approved
(garden-run ($ the-botanist 'approve-plant cabbage)))
(define our-garden
(garden-run
(spawn ^garden
"Spritely Institute Community Garden"
(make-garden-bed 8 8)
the-garden-gate)))
(define alice (alice-run (spawn ^gardener "Alice" our-garden)))
(alice-run ($ alice 'plant 1 1 sunflower/approved))
(alice-run ($ alice 'plant 2 1 sunflower/approved))
(alice-run ($ alice 'plant 1 2 sunflower/approved))
(alice-run ($ alice 'plant 2 2 sunflower/approved))
(alice-run ($ alice 'plant 5 1 cabbage/approved))
(alice-run ($ alice 'plant 6 1 cabbage/approved))
(alice-run ($ alice 'plant 5 2 cabbage/approved))
(alice-run ($ alice 'plant 6 2 cabbage/approved))
(define catbird-visitor (catbird-run (spawn ^visitor "Catbird UI" our-garden)))
(define catbird-garden-bed (make-atomic-box #f))
(define catbird-garden-name (make-atomic-box #f))
(catbird-run
(on ($ catbird-visitor 'get-garden-name)
(lambda (name)
(atomic-box-set! catbird-garden-name name))))
(catbird-run
(on ($ catbird-visitor 'inspect-garden)
(lambda (garden-bed)
(atomic-box-set! catbird-garden-bed garden-bed))))
(run-catbird
(lambda ()
(let ((region (create-full-region #:name 'main))
(scene (make <scene> #:name 'scratch)))
(replace-scene region scene)
(set! (camera region)
(make <camera-2d>
#:width %window-width
#:height %window-height))
(attach-to scene
(make <canvas>
#:name 'background
#:painter
(with-style ((fill-color db32-elf-green))
(fill
(rectangle (vec2 0.0 0.0)
%window-width
%window-height))))
(make <garden-view>
#:vat catbird-vat
#:visitor catbird-visitor
#:name-box catbird-garden-name
#:garden-bed-box catbird-garden-bed))))
#:title "Community Garden"
#:width %window-width
#:height %window-height)
|
