Function Ozone

seed = 1L

image = Randomu(seed, 100,100)

FOR j=0,5 DO image = Smooth(image, 5)

image = image(5:95, 5:95)

image = BytScl(Congrid(image, 181, 91), Top=!D.N_Colors)

Return, image

END