This is an R library that aims to provide some helpful routines for displaying radio telescope images. The library aims to primarily provide some easy interfaces to some simple scaling routines.
This library uses code from Andrew Cotter's HDR Tools library to do gradient domain high dymanic range compression.
library(FITSio)
library(astror)
library(png)
fits <- readFits("a.fits")
imageData = fits$imDat
plot.new()
rasterImage(slog(imageData),useRaster=T)
ll = logLuminance(imageData[,,1])
cl = gradientDomainHDRCompression(ll)
gm = luminanceToGray(cl)
writePNG(gm, "test.png")
ll = extractLuminance(imageData[,,1], imageData[,,2], imageData[,,3])
cl = gradientDomainHDRCompression(ll)
cm = luminanceToColour(imageData[,,1], imageData[,,2], imageData[,,3],cl)
writePNG(cm, "test.png")
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.