std::stringrgb2hex(double r,double g,double b);std::stringrgba2hex(double r,double g,double b,double a);std::stringhsluv2hex(double h,double s,double l);std::stringhsluv2hex(double h,double s,double l,double alpha);std::stringhsv2hex(double h,double s,double v);std::stringhsv2hex(double h,double s,double v,double alpha);

r, g, b ∈ [0, 255] (red, green, blue)a, alpha ∈ [0, 1] (opacity)h ∈ [0, 360] (hue)s,l,v ∈ [0, 100] (saturation, lightness, value)

Usage in a package withRcpp

LinkingTo:Rcpp,RcppColors

#include<RcppColors.h>std::string mycolor = RcppColors::rgb2hex(0.0,128.0,255.0);

Color maps

library(RcppColors)library(Bessel)x<-y<- seq(-4,4,len=1500)# complex gridW<- outer(y,x,function(x,y)complex(real=x,imaginary=y))# computes Bessel valuesZ<-matrix(BesselY(W,nu=3),nrow= nrow(W),ncol= ncol(W))# maps them to colorsimage<- colorMap1(Z)# plotopar<- par(mar= c(0,0,0,0),bg="#15191E")plot(  c(-100,100), c(-100,100),type="n",xlab="",ylab="",axes=FALSE,asp=1)rasterImage(image,-100,-100,100,100)par(opar)

library(RcppColors)library(Carlson)library(rgl)library(Rvcg)mesh<- vcgSphere(subdivision=8)color<- apply(mesh$vb[-4L, ],2L,function(xyz){if(sum(xyz==0)>=2){z<-NA_complex_  }else{a<-xyz[1]b<-xyz[2]c<-xyz[3]z<- Carlson_RJ(a,b,c,1i,1e-5)  }  colorMap1(z)})mesh$material<-list(color=color)open3d(windowRect= c(50,50,562,562),zoom=0.75)bg3d("whitesmoke")shade3d(mesh)

library(RcppColors)library(jacobi)library(rgl)library(Rvcg)mesh<- vcgSphere(subdivision=8)color<- apply(mesh$vb[-4L, ],2L,function(xyz){a<-xyz[1]b<-xyz[2]c<-xyz[3]z<- wzeta(a+1i*b,tau= (1i+c)/2)  colorMap1(z)})mesh$material<-list(color=color)open3d(windowRect= c(50,50,562,562),zoom=0.75)bg3d("palevioletred2")shade3d(mesh)

library(RcppColors)ikeda<- Vectorize(function(x,y,tau0=0,gamma=2.5){for(kin1L:5L){tau<-tau0-6.0/(1.0+x*x+y*y)newx<-0.97+gamma* (x*cos(tau)-y*sin(tau))y<-gamma* (x*sin(tau)+y*cos(tau))x<-newx  }z<-complex(real=x,imaginary=y)  colorMap1(z,reverse= c(TRUE,FALSE,FALSE))})x<-y<- seq(-3,3,len=3000)image<- outer(y,x,function(x,y) ikeda(x,y))opar<- par(mar= c(0,0,0,0),bg="#002240")plot(  c(-100,100), c(-100,100),type="n",xlab="",ylab="",axes=FALSE,asp=1)rasterImage(image,-100,-100,100,100)par(opar)

library(RcppColors)library(jacobi)f<- Vectorize(function(q){if(Mod(q)>1|| (Im(q)==0&& Re(q)<=0)){z<-NA_complex_  }else{z<- EisensteinE(6,q)  }  colorMap2(z,bkgcolor="#002240")})x<-y<- seq(-1,1,len=2000)image<- outer(y,x,function(x,y){  f(complex(real=x,imaginary=y)) })opar<- par(mar= c(0,0,0,0),bg="#002240")plot(  c(-100,100), c(-100,100),type="n",xlab="",ylab="",axes=FALSE,asp=1)rasterImage(image,-100,-100,100,100)par(opar)

library(RcppColors)library(jacobi)f<- Vectorize(function(q){if(Mod(q)>=1){NA_complex_  }else{tau<--1i* log(q)/piif(Im(tau)<=0){NA_complex_    }else{      kleinj(tau)/1728    }   }})x<-y<- seq(-1,1,len=3000)Z<- outer(y,x,function(x,y){  f(complex(real=x,imaginary=y)) })image<- colorMap2(1/Z,bkgcolor="#002240",reverse= c(T,T,T))opar<- par(mar= c(0,0,0,0),bg="#002240")plot(  c(-100,100), c(-100,100),type="n",xlab="",ylab="",axes=FALSE,asp=1)rasterImage(image,-100,-100,100,100)par(opar)

library(RcppColors)library(jacobi)library(rgl)library(Rvcg)library(pracma)mesh<- vcgSphere(8)sphcoords<- cart2sph(t(mesh$vb[-4L, ]))theta<-sphcoords[,1L]/piphi<-sphcoords[,2L]/pi*2Z<- wsigma(theta+1i*phi,tau=2+2i)color<- colorMap1(Z,reverse= c(TRUE,FALSE,TRUE))mesh$material<-list(color=color)open3d(windowRect= c(50,50,562,562),zoom=0.75)bg3d("lightgrey")shade3d(mesh)