$can->create ( 'rectangle',
		$X,   $Y, 
		$X+1, $Y+1,
		-fill => 1
	);