#!/usr/local/bin/cz --
use b
Main()
	space()
	with_pixel_type(test_x11_poke)

def test_x11_poke(pixel_type)
	bm_start()
	for(y, -h_2, h_2)
		for(x, -w_2, w_2)
			point(x, y)
	bm_ps("cleared screen plotting pixels with point()")
	bm_start()
	pixel_type *px = pixel()
	for(y, -h_2, h_2)
		for(x, -w_2, w_2)
			*px++ = 123456 #point(x, y)
	bm_ps("cleared screen poking pixels")
	Paint()
	gr_done = 1