Simulate CVDs on images

Share:

Description

Color.Vision.Simulate converts images so that the colors look similar to how they are seen by people with CVD.

Usage

1
Color.Vision.Simulate(fileIN=NULL, fileOUT=NULL, myoptions=NULL, amount=1.0)

Arguments

fileIN

PNG input file

fileOUT

PNG output file

myoptions

CVD from "Protanope","Deuteranope" or "Tritanope"

amount

level from 0.0 to 1.0 for "Achromat"

Value

none

Author(s)

Jose Gama

References

Michael Deal Daltonize.org http://mudcu.be/labs/Color/Vision http://www.daltonize.org/p/about.html "Analysis of Color Blindness" by Onur Fidaner, Poliang Lin and Nevran Ozguven. "Digital Video Colourmaps for Checking the Legibility of Displays by Dichromats" by Francoise Vienot, Hans Brettel and John D. Mollon http://vision.psychol.cam.ac.uk/jdmollon/papers/colourmaps.pdf

Examples

1
2
3
4
5
6
7
8
# a "perfect" score
## Not run: 
fname<-paste(system.file(package='CVD'),'/extdata/fruits.png',sep='')
Color.Vision.Simulate(fname, 'fruits.Simulate.Protanope.png','Protanope')
Color.Vision.Simulate(fname, 'fruits.Simulate.Deuteranope.png','Deuteranope')
Color.Vision.Simulate(fname, 'fruits.Simulate.Tritanope.png','Tritanope')

## End(Not run)

Want to suggest features or report bugs for rdrr.io? Use the GitHub issue tracker.