theta <- seq(-pi,pi,length=101)
valentine <- function(message = "To my Sweetheart",
	main = "Happy Valentine's Day",
#	hcol=15,acol=2,msgcol=16,mcol=2){
	hcol=15,acol=2,msgcol=1,mcol=1){
#	hcol = 9, acol = 10, msgcol = 1, mcol = 1){
#  call to postscript():  postscript(colors=seq(0,1,0.1))
#  colors for iris4d():	hcol=15,acol=2,msgcol=16,mcol=2){
	par(pty = "s")
	frame()
	par(usr = c(-1, 1, -2, 0.5))
	pg <- function(a, b, d)
	polygon(complex(arg = theta + pi/2, mod = exp(abs(theta)/a)/b), col = d
		)
	l <- 9
	for(i in hcol)
		pg(1.1, l <- l + 1, i)
	adjj <- (length(hcol)-1)*0.05
	par(usr = c(-1, 1, -1, 1))
	arrowp <- function(ll = 0.9, stfac = 0.8, ptfac = 1.2, enfac = 1.05,
		enofac = 1.15, hei = 0.085, htfac = 1.5,
		htofac = 1.5, trans = 0.05i, ...)
	{
		a <- complex(real = c( - ll * enofac,  - ll, ll * stfac, ll *
			stfac), imag = c(hei * htofac, hei, hei, hei * htfac))
		arrowp <- c(a, ll * stfac * ptfac, rev(Conj(a)),  - ll * enfac)
			
		polygon(arrowp * exp(((-45i) * pi)/180) - trans, ...)
	}
	arrowp(col = acol,ll=0.9-adjj,stfac=0.8+adjj,trans=0.05i-adjj*1i)
	message <- paste(message,paste(rep(" ",ceiling(nchar(message)/5)),
		collapse=""),sep="")
	text(-0.05i+adjj*1i,message, srt = -45, col = msgcol, cex = 1.5)
	text(0.9i, main, cex = 1.8, col = mcol)
}
x11()
#postscript(file="scr.ps",horiz=F)
palette(rainbow(2))
valentine(hcol=15,acol=2,msgcol=1,mcol=1)
#graphics.off()