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

Adding gradients.

Browse Source
This commit is contained in:
Brad Nelson
2022-02-21 08:57:32 -08:00
parent 361ac1cce8
commit 9f43403467
1 changed files with 7 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
ueforth/common/grf_test.fs
View File

@ -25,10 +25,10 @@ $00ccff value color
top 0 max to top top 0 max to top
right width min to right right width min to right
bottom height min to bottom bottom height min to bottom
left right >= top bottom >= if exit then left right >= top bottom >= or if exit then
right left - to w right left - to w
bottom top - to h bottom top - to h
top h 1- for left over w hline 1+ next top h 1- for left over w hline 1+ next drop
; ;
0 value clicking 0 value clicking
@ -41,8 +41,11 @@ $00ccff value color
RELEASED event = if 0 to clicking then RELEASED event = if 0 to clicking then
0 to color 0 to color
0 0 width height box 0 0 width height box
clicking if $00ccff else $ffcc00 then to color clicking if $00cc00 else $ffcc00 then to color
mouse-x 100 - mouse-y 50 - 200 100 box 100 for
mouse-x 100 - mouse-y 50 - i + 200 1 box
color 2 + to color
next
flip flip
event FINISHED = until event FINISHED = until
bye bye