begin # make file a block
function LightMake(designate, spd, descrip) begin
global EQUEN
LamLoHi = [0, 0]
spd = EQUEN
VexPath = "C:\science\vex\"
descrip = "Equal Energy Illuminant"
ltnam = up2low(designate.row(1))
# Note that there is a related fn PivotSummarize(pivot)

# print "In LightMake(), Light Designator = "
# designate
if ltnam == "eqen" then begin
	spd = EQUEN
	descrip = "Equal Energy Illuminant"
end	
if ltnam == "d65" then begin
	filnam = [VexPath, "d65.1nm"]
	GetByOneNm(filnam, descrip, LamLoHi, spd)
end
if ltnam == "blackbody" then begin
	Tk = atod(designate.row(2))
	blackbody(Tk, descrip, LamLoHi, spd)
end
if (ltnam == "jmw") or (ltnam == "jmwdlgt") then begin
	YJMW = atod(designate.row(2))
	xJMW = atod(designate.row(3))
	yJMW = atod(designate.row(4))
	YxyJMW = [YJMW, xJMW, yJMW]
	JMWdlgt(YxyJMW, descrip, spd)	
end
if ltnam == "file" then begin
	otherfil = designate.row(2)
	filnam = otherfil
	if not exists(otherfil) then begin
		filnam = [VexPath, otherfil]
		end
	GetByOneNm(filnam, descrip, LamLoHi, spd)
end
descrip = clipstr(descrip)
# print "In LightMake(), light description:"
# descrip
end # function LightMake()
end # making file a block