This commit is contained in:
Dave Griffiths 2009-06-29 17:53:57 +01:00
parent be2624dcb9
commit d725f60e0a

View file

@ -346,7 +346,7 @@
(field
(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
(size 1) ; the age of this plant
(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)
(set! child-twig-ids (cons twig-id child-twig-ids)))
(define/public (grow point)
(error "need to override this"))
(define/pubment (grow point)
(inner (void) grow point))
(define/public (add-ornament point-index property)
(when (< (length ornaments) max-ornaments)
@ -881,7 +881,7 @@
(with-primitive root
(pdata-ref "p" point-index)))
(define/override (grow point)
(define/augment (grow point)
(with-primitive root
(pdata-index-map! ; set all the remaining points to the end
(lambda (i p) ; in order to hide them
@ -939,7 +939,7 @@
((zero? c) (cons s (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)))
(set! path (list-set path (+ index 1) point))
(set! anim-t 0)