328 |
|
qq{-e "$CIEuv" } . |
329 |
|
q{-e "$1=Yi/Omega"}; |
330 |
|
} elsif ("$spec" eq "CIE-u") { |
331 |
< |
$cmd = qq{rcalc -e "Omega:PI/($ns*$ns)" } . |
332 |
< |
q{-e "Ri=$1;Gi=$2;Bi=$3" } . |
331 |
> |
$cmd = q{rcalc -e "Ri=$1;Gi=$2;Bi=$3" } . |
332 |
|
qq{-e "$CIEuv" } . |
333 |
< |
q{-e "$1=uprime/Omega"}; |
333 |
> |
q{-e "$1=uprime"}; |
334 |
|
} elsif ("$spec" eq "CIE-v") { |
335 |
< |
$cmd = qq{rcalc -e "Omega:PI/($ns*$ns)" } . |
337 |
< |
q{-e "Ri=$1;Gi=$2;Bi=$3" } . |
335 |
> |
$cmd = q{rcalc -e "Ri=$1;Gi=$2;Bi=$3" } . |
336 |
|
qq{-e "$CIEuv" } . |
337 |
< |
q{-e "$1=vprime/Omega"}; |
337 |
> |
q{-e "$1=vprime"}; |
338 |
|
} |
339 |
|
} else { |
340 |
|
if ("$spec" eq "Visible") { |
343 |
|
"-e '$CIEuv' " . |
344 |
|
q{-e '$1=Yi/Omega'}; |
345 |
|
} elsif ("$spec" eq "CIE-u") { |
346 |
< |
$cmd = "rcalc -if3 -e 'Omega:PI/($ns*$ns)' " . |
349 |
< |
q{-e 'Ri=$1;Gi=$2;Bi=$3' } . |
346 |
> |
$cmd = q{rcalc -if3 -e 'Ri=$1;Gi=$2;Bi=$3' } . |
347 |
|
"-e '$CIEuv' " . |
348 |
< |
q{-e '$1=uprime/Omega'}; |
348 |
> |
q{-e '$1=uprime'}; |
349 |
|
} elsif ("$spec" eq "CIE-v") { |
350 |
< |
$cmd = "rcalc -if3 -e 'Omega:PI/($ns*$ns)' " . |
354 |
< |
q{-e 'Ri=$1;Gi=$2;Bi=$3' } . |
350 |
> |
$cmd = q{rcalc -if3 -e 'Ri=$1;Gi=$2;Bi=$3' } . |
351 |
|
"-e '$CIEuv' " . |
352 |
< |
q{-e '$1=vprime/Omega'}; |
352 |
> |
q{-e '$1=vprime'}; |
353 |
|
} |
354 |
|
} |
355 |
|
if ($pctcull >= 0) { |