regressions

This commit is contained in:
Hat Kid
2026-04-18 20:57:09 +02:00
parent 46a4b9d0ad
commit bf42802763
2 changed files with 8 additions and 1 deletions
+2 -1
View File
@@ -77,7 +77,8 @@
(let ((sv-32 (new 'stack 'vector2h))
(sv-36 (-> this bsphere))
)
(add-debug-x #t (bucket-id debug-no-zbuf1) sv-36 (new 'static 'rgba :r #xff :g #xff :a #x80))
;; og:preserve-this
(add-debug-x #t (bucket-id debug-no-zbuf1) sv-36 (#if PC_PORT (region-enter-color #x80) (new 'static 'rgba :r #xff :g #xff :a #x80)))
(when (nonzero? (-> this region))
(let ((s5-0 add-debug-text-3d)
(s4-0 #t)
+6
View File
@@ -276,6 +276,12 @@
(s2-0 583)
)
(format (clear *temp-string*) "~d" s5-0)
;; og:preserve-this added
(add-debug-sphere #t (the-as bucket-id s2-0)
(-> this particles data s5-0 pos)
(meters 0.02)
(static-rgba #x80 0 #x80 #x80)
)
(s4-0
s3-0
(the-as bucket-id s2-0)