Wednesday
Aug082018

Timerainbows with TESS Comet photobomb 

Here's an image field from the TESS observatory looking at several sky objects. 
https://www.youtube.com/watch?v=RnhKBdDanFw

I played with the images a bit and came up with this mathematica code:

pic = Import[
   "https://www.nasa.gov/sites/default/files/thumbnails/image/tess_\
comet_1041_0.gif"];

len = Length[pic]; gpic =
 ColorConvert[#, "Grayscale"] & /@ pic; stack = Table[
   d = ImageDifference[gpic[[loop]], #] & /@ gpic;
  picks[len_, num_, offset_] :=
   Mod[# + offset - 1, num] + 1 & /@ Range[len];
  m = Mean[ImageData[#] & /@ d]; len = Length[d];
  n = Mean[ImageData[#] & /@ d[[picks[41, 82, 1 + loop]] ] ];
  o = Mean[ImageData[#] & /@ d[[picks[41, 82, 41 + loop]] ] ];
  green = Rescale[Clip[n - o, {0, 1}]^.35];
  blue = Rescale[Clip[o - n, {0, 1}]^.35]; red = Image[m];
  out = ColorCombine[{Image[red], Image[green], Image[blue] }], {loop,
    1, 80, 4 }]; Export["timerainbows.gif",stack]

The green red blue lines reveal the position of other deep sky objects moving slowly in the background in timerainbows:  I count at least 9 small fairly obvious background asteroids (on a magnified screen at least) and one obvious big comet.

Really the animation isn't needed to see the timerainbows, one frame alone would work.  Still I find something kind of pleasant about the overall effect


Timerainbows of Nasa's TESS comet pass with background objects outlined

PrintView Printer Friendly Version

EmailEmail Article to Friend

Reader Comments

There are no comments for this journal entry. To create a new comment, use the form below.

PostPost a New Comment

Enter your information below to add a new comment.

My response is on my own website »
Author Email (optional):
Author URL (optional):
Post:
 
Some HTML allowed: <a href="" title=""> <abbr title=""> <acronym title=""> <b> <blockquote cite=""> <code> <em> <i> <strike> <strong>
« Rigged Witch Hunt | Main | The Black and White Illustrated me »