Создаем новый документ 500x500 с белым фоном
Создаем новый слой и заливаем его белым цветом
Применяем фильтр шум (fillter – noise – add noise) с параметрами
«60% монохромный Гауссовский»
Применяем фильтр Disort – twirl на 999 градусов
Жмём Ctrl+f 10 раз(то есть повторяем наложение фильтра 10 раз)

Делаем выделение вокруг видимого круга чуть не захватывая края
Жмём Ctrl+Shift+I жмём Delete
Дублируем слой
Жмём Ctrl+L(уровни) и ставим следующее

Круг приобретет чёрный оттенок

Создаём новый слой и проводим по нему с верхнего левого угла в правый нижний инструментом «линия» белого цвета
Выделяем непрозрачность слоя с чёрным кругом, жмём ctrl+shift+I, переходим на слой с белой линией и жмём delete
Теперь берём стёртку

с непрозрачностью 100 сначала трём края белой линии а потом с 20% доводим до вида типа «блеск» (регулируйте непрозрачность самого слоя и подберите тип наложения, создаём новый слой выделяем из центра круг и заливаете его красноватым оттенком
А что делать дальше поймёте посмотрев на скриншот