B

Task/Bitmap/BASIC256/bitmap.basic256

@@ -0,0 +1,18 @@
+graphsize 30,30
+call fill(rgb(255,0,0))
+call setpixel(10,10,rgb(0,255,255))
+print "pixel 10,10 is " + pixel(10,10)
+print "pixel 20,20 is " + pixel(20,10)
+
+imgsave "BASIC256_bitmap.png"
+end
+
+subroutine fill(c)
+color c
+rect 0,0,graphwidth, graphheight
+end subroutine
+
+subroutine setpixel(x,y,c)
+color c
+plot x,y
+end subroutine