#!/usr/local/bin/cz --
use b
Main()
	space()
#	long n = 1024*1024 * 2
#	long *lookup = Nalloc(long, 1024*1024 * 2)
#	for(i, 0, n)
#		lookup[i] = (long)sqrt(i)
#	warn("done")
	bm_enabled = 1
	with_pixel_type(fps1)

def fps1(pixel_type)
	repeat
		bm_start()
		pixel_type *px = pixel()
		long x, y, x2, y2, r2
		for y=-h_2; y<h_2; ++y
			y2 = y * y
			x2 = w_2 * w_2
			r2 = x2 + y2
			for x=-w_2; x<w_2; ++x
				*px++ += r2
				r2 += 2*x + 1
#		csleep(1.0/30)
		Paint()
		bm_ps("painted")

#local int rv = 0
#def r() rv = ((rv * 12345678) ^ rv) + (rv>>17) + 89356913, rv < 0
