anchor.diff:  		qdel(src)
   		return
   
  -	radiate(atoms, FLOOR(strength, 1))
  -
  +	if(radiate(atoms, FLOOR(min(strength,remaining_contam), 1)))
  +		//oof ow ouch
  +		remaining_contam = max(0,remaining_contam-((min(strength,remaining_contam)-RAD_MINIMUM_CONTAMINATION) * RAD_CONTAMINATION_STR_COEFFICIENT))
   	check_obstructions(atoms) // reduce our overall strength if there are radiation insulators
   
   /datum/radiation_wave/proc/get_rad_atoms()
  
positive.code: 			intensity *= (1-((1-thing.rad_insulation)/width))
  
  /datum/radiation_wave/proc/radiate(list/atoms, strength)
  	var/contamination_chance = (strength-RAD_MINIMUM_CONTAMINATION) * RAD_CONTAMINATION_CHANCE_COEFFICIENT * min(1, 1/(steps*range_modifier))
  	for(var/k in 1 to atoms.len)
  		var/atom/thing = atoms[k]
  		if(!thing)
  
negative.code: 	__dirs+=turn(dir, -90)
  
  	intensity = _intensity
  	remaining_contam = intensity
  	range_modifier = _range_modifier
  	can_contaminate = _can_contaminate
  
  