You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
28 lines
460 B
28 lines
460 B
(
|
|
(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)
|
|
)
|
|
|