tweak monogfx stipple plot

compiler/res/prog8lib/cx16/monogfx.p8

@@ -554,12 +554,14 @@ _done
         if draw {
             ; solid color or perhaps stipple
             %asm {{
+                lda  p8v_dont_stipple_flag
+                bne  p8l_nostipple
                 lda  p8v_xx
                 eor  p8v_yy
-                ora  p8v_dont_stipple_flag
                 and  #1
             }}
             if_nz {
+nostipple:
                 prepare()
                 %asm {{
                     tsb  cx16.VERA_DATA0

docs/source/todo.rst

@@ -13,8 +13,6 @@ textelite
 rockrunner is quite a bit larger
 
 
-optimize optimizedPlusMinExpr for when comparing to simple things like number and identifier.
-
 replace Takes by Http4k in httpCompilerService project.  https://github.com/http4k/examples/blob/master/hello-world/README.md
 
 ...

examples/test.p8

@@ -1,37 +1,19 @@
-%import textio
+%import monogfx
-%option no_sysinit
-%zeropage basicsafe
 
 main {
-    sub rrrr() -> ubyte {
-        cx16.r0L++
-        return cx16.r0L
-    }
-
     sub start() {
-        cx16.r0L = rrrr() >= 128
+        monogfx.lores()
+        monogfx.stipple(true)
 
-;        ubyte[] flakes = [1,2,3]
+        uword x1, x2
-;
+        uword y1, y2
-;        ubyte @shared idx = 2
-;
-;        if flakes[idx]==239 {
-;            txt.print("yes")
-;        } else {
-;            txt.print("nope")
-;        }
-;
-;        ubyte @shared xx = 16
-;        ubyte @shared yy = 20
-;
-;        txt.print_ub(xx>79 or yy > 49)
 
-        ; if xx>79 or yy > 49 {
+        repeat {
-;        if xx>79 or yy > 49 {
+            x1 = math.rnd()
-;            txt.print("no\n")
+            y1 = math.rnd() % 240
-;        }
+            x2 = math.rnd()
-;        else {
+            y2 = math.rnd() % 240
-;            txt.print("yes\n")
+            monogfx.line(x1, y1, x2, y2, true)
-;        }
+        }
     }
 }