fixes
This commit is contained in:
parent
be2624dcb9
commit
d725f60e0a
1 changed files with 5 additions and 5 deletions
|
@ -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)
|
||||
|
|
Loading…
Reference in a new issue