From 9ffd919e293324332acd87cd129c8d73ea27035a Mon Sep 17 00:00:00 2001 From: Gene Pasquet Date: Fri, 10 Apr 2026 17:28:23 +0100 Subject: Rework animations and entities - somewhat --- entity.scm | 10 ++++++++-- 1 file changed, 8 insertions(+), 2 deletions(-) (limited to 'entity.scm') diff --git a/entity.scm b/entity.scm index dab2e83..16d28c4 100644 --- a/entity.scm +++ b/entity.scm @@ -27,8 +27,14 @@ (loop (cddr lst) (cons v (cons k acc))))))))) (cons key (cons val cleaned)))) - (define (entity-update entity key proc #!optional default) - (entity-set entity key (proc (entity-ref entity key default)))) +(define (entity-set-many entity pairs) + (fold (lambda (pair working-ent) + (entity-set working-ent (car pair) (cdr pair))) + entity + pairs)) + +(define (entity-update entity key proc #!optional default) + (entity-set entity key (proc (entity-ref entity key default)))) ;; #:skip-pipelines — list of symbols naming frame pipeline steps to skip for this ;; entity. Physics documents the built-in step names (see docs/physics.org). Other -- cgit v1.2.3