(
    (sc-init 512 512)
    (sc-opt SCREEN_UPSCALE 16)
    (def W 32)

    (lds @cout "Drag colors to draw...\n")

    (sc-wr 0 0 #ff00ff)
    (sc-wr 5 5 #ffff00)
    (sc-wr 15 15 #00ff00)
    (sc-blit)

    (:l)
        (sc-poll)
        (sc-mbtn r0 0)
        (j.z :nope)

        (sc-mouse r0 r1)
        (sc-rd r3 r0 r1)
        (sub r0 1)
        (sub r1 1)
        (sc-rect r0 r1 3 3 r3)
        (sc-blit)

        (:nope)
        (mslp 10)
    (j :l)
)