FoAM/groworld
12
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

fixes

Browse source
This commit is contained in:
Dave Griffiths 2009-06-29 17:53:57 +01:00
parent be2624dcb9
commit d725f60e0a
1 changed files with 5 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
plant-eyes/plant-eyes.scm
View file

@ -346,7 +346,7 @@
(field (field
(twigs '()) ; a assoc list map of ages to twigs (twigs '()) ; a assoc list map of ages to twigs
(properties '(wiggle)) ; a list of symbols - properties come from pickups (properties '()) ; a list of symbols - properties come from pickups
(ornaments '()) ; map of ids to ornaments on the plant (ornaments '()) ; map of ids to ornaments on the plant
(size 1) ; the age of this plant (size 1) ; the age of this plant
(max-twigs default-max-twigs) ; the maximum twigs allowed at any time - oldest removed first (max-twigs default-max-twigs) ; the maximum twigs allowed at any time - oldest removed first
@ -658,8 +658,8 @@
(define/public (add-child-twig-id twig-id) (define/public (add-child-twig-id twig-id)
(set! child-twig-ids (cons twig-id child-twig-ids))) (set! child-twig-ids (cons twig-id child-twig-ids)))
(define/public (grow point) (define/pubment (grow point)
(error "need to override this")) (inner (void) grow point))
(define/public (add-ornament point-index property) (define/public (add-ornament point-index property)
(when (< (length ornaments) max-ornaments) (when (< (length ornaments) max-ornaments)
@ -881,7 +881,7 @@
(with-primitive root (with-primitive root
(pdata-ref "p" point-index))) (pdata-ref "p" point-index)))
(define/override (grow point) (define/augment (grow point)
(with-primitive root (with-primitive root
(pdata-index-map! ; set all the remaining points to the end (pdata-index-map! ; set all the remaining points to the end
(lambda (i p) ; in order to hide them (lambda (i p) ; in order to hide them
@ -939,7 +939,7 @@
((zero? c) (cons s (list-set (cdr l) (- c 1) s))) ((zero? c) (cons s (list-set (cdr l) (- c 1) s)))
(else (cons (car l) (list-set (cdr l) (- c 1) s))))) (else (cons (car l) (list-set (cdr l) (- c 1) s)))))
(define/override (grow point) (define/augment (grow point)
(when (zero? index) (set! path (list-set path index point))) (when (zero? index) (set! path (list-set path index point)))
(set! path (list-set path (+ index 1) point)) (set! path (list-set path (+ index 1) point))
(set! anim-t 0) (set! anim-t 0)