alx/ueforth
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Allocate heart memory on demand, rename one file.

Browse Source
This commit is contained in:
Brad Nelson
2022-03-07 14:55:11 -08:00
parent 83e57c2c42
commit 1effe3ede9
2 changed files with 8 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

0
common/grf_test.fs → common/graphics_test.fs
View File

13
common/heart.fs
View File

@ -34,15 +34,18 @@ graphics internals definitions
4000 constant heart-steps 4000 constant heart-steps
1024 constant heart-size 1024 constant heart-size
create heart-start heart-size allot 0 value heart-start
create heart-end heart-size allot 0 value heart-end
heart-start heart-size 0 fill
heart-end heart-size 0 fill
: cmin! ( n a ) dup >r c@ min r> c! ; : cmin! ( n a ) dup >r c@ min r> c! ;
: cmax! ( n a ) dup >r c@ max r> c! ; : cmax! ( n a ) dup >r c@ max r> c! ;
: heart-initialize : heart-initialize
heart-start if exit then
heart-size allocate throw to heart-start
heart-size allocate throw to heart-end
heart-start heart-size 0 fill
heart-end heart-size 0 fill
heart-start heart-size 7 29 */ 128 fill heart-start heart-size 7 29 */ 128 fill
heart-end heart-size 7 29 */ 128 fill heart-end heart-size 7 29 */ 128 fill
heart-steps 0 do heart-steps 0 do
@ -59,7 +62,7 @@ heart-end heart-size 0 fill
512 29 32 */ constant heart-ratio 512 29 32 */ constant heart-ratio
: raw-heart 0 { x y sx sy r } : raw-heart 0 { x y sx sy r }
heart-start c@ 0= if heart-initialize then heart-initialize
y sy 2/ - to y y sy 2/ - to y
sy 0< if sy 0< if
y sy + to y y sy + to y