x=37
buffer 1,x,3
tmp2x=0.5*x
tmp3x=0.5*x-0.01

repeat x
	w=128.0-absf(170.0/(tmp3x-(cnt+tmp2x)\x))
	color 255,limit(w,limit(absf(cnt-tmp2x)/0.7,1,7),127),255
	
	pset cnt,0
	pset cnt,1
	pset cnt,2
	loop
	
	bmpsave "make0.bmp"
	end