From 9f434034670c140f4f02d8444fa1e67fbd14f7db Mon Sep 17 00:00:00 2001 From: Brad Nelson Date: Mon, 21 Feb 2022 08:57:32 -0800 Subject: [PATCH] Adding gradients. --- ueforth/common/grf_test.fs | 11 +++++++---- 1 file changed, 7 insertions(+), 4 deletions(-) diff --git a/ueforth/common/grf_test.fs b/ueforth/common/grf_test.fs index a36f183..1e29f38 100644 --- a/ueforth/common/grf_test.fs +++ b/ueforth/common/grf_test.fs @@ -25,10 +25,10 @@ $00ccff value color top 0 max to top right width min to right bottom height min to bottom - left right >= top bottom >= if exit then + left right >= top bottom >= or if exit then right left - to w 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 @@ -41,8 +41,11 @@ $00ccff value color RELEASED event = if 0 to clicking then 0 to color 0 0 width height box - clicking if $00ccff else $ffcc00 then to color - mouse-x 100 - mouse-y 50 - 200 100 box + clicking if $00cc00 else $ffcc00 then to color + 100 for + mouse-x 100 - mouse-y 50 - i + 200 1 box + color 2 + to color + next flip event FINISHED = until bye