%BEG 'OK0X'SEP-0003.TXT *********************************2011-04-01

%*********************************************************************

/trans_rgb3*_cmyn6*ioF {%BEG Procedure trans_rgb3*_cmyn6*ioF
%assumes input of olv*, 'zm60'CMYN559LT.PS

o* 0 le {/o* 0.0000 def} if
l* 0 le {/l* 0.0000 def} if
v* 0 le {/v* 0.0000 def} if
o* 1 ge {/o* 1.0000 def} if
l* 1 ge {/l* 1.0000 def} if
v* 1 ge {/v* 1.0000 def} if

/ok* o* def /lk* l* def /vk* v* def

/tdel 0 def

vk* lk* ge lk* ok* ge and tdel 0 eq and % v* >= l* >= o* equal y* <= m* <= c*
%sector C-V of C-M, C>=M: i*p=0
   {/n*n 1 vk* sub def
    /w*w ok* def
    /m*w lk* def
    /tdel 1 def
    /isec 3 def
   } if % v* >= l* >= o*

vk* ok* ge ok* lk* ge and tdel 0 eq and % v* >= o* >= l* equal y* <= c* <= m*
%sector V-M of C-M, M>=C: i*p=1
   {/n*n 1 vk* sub def
    /w*w lk* def
    /m*w ok* def
    /tdel 1 def
    /isec 4 def
   } if % v* >= o* >= l*
   
ok* vk* ge vk* lk* ge and tdel 0 eq and % o* >= v* >= l* equal c* <= y* <= m*
%sector M-O of M-Y, M>=Y: i*p=2
   {/n*n 1 ok* sub def
    /w*w lk* def
    /m*w vk* def
    /tdel 1 def
    /isec 5 def
   } if % o* >= v* >= l*
    
ok* lk* ge lk* vk* ge and tdel 0 eq and % o* >= l* >= v* equal c* <= m* <= y*
%sector O-Y of M-Y, Y>=M: i*p=3   
   {/n*n 1 ok* sub def
    /w*w vk* def
    /m*w lk* def
    /tdel 1 def
    /isec 0 def
   } if % o* >= l* >= v*

lk* ok* ge ok* vk* ge and tdel 0 eq and % l* >= o* >= v* equal m* <= c* <= y*
%sector Y-L of Y-C, Y>=C: i*p=4
   {/n*n 1 lk* sub def
    /w*w vk* def
    /m*w ok* def
    /tdel 1 def
    /isec 1 def
   } if % l* >= o* >= v*

lk* vk* ge vk* ok* ge and tdel 0 eq and % l* >= v* >= o* equal m* <= y* <= c*
%sector L-C of Y-C, C>=Y: i*p=5
   {/n*n 1 lk* sub def
    /w*w ok* def
    /m*w vk* def
    /tdel 1 def
    /isec 2 def
   } if % l* >= v* >= o*
   
%achromatic
%W: ok*, lk*, vk* = 1.00
1.0 ok* sub abs 0.001 le
1.0 lk* sub abs 0.001 le and
1.0 vk* sub abs 0.001 le and %W special case
{/n*n 0 def /w*w 1 def /m*w 1 def %W
    /isec 6 def
} if

%N: ok*, lk*, vk* <= 0.001
ok* abs 0.001 le
lk* abs 0.001 le and
vk* abs 0.001 le and %N special case
{/n*n 1 def /w*w 0 def /m*w 0 def %N
    /isec 6 def
} if

%Achromatic
ok* lk* sub abs 0.001 le
lk* vk* sub abs 0.001 le and %Achromatic special case
{/n*n 1 ok* sub def /w*w ok* def /m*w ok* def %grey
    /isec 6 def
} if

/lab*wFa w*w def
/lab*nFa n*n def
/lab*cFa 1 n*n sub w*w sub def

/argb 1 lab*nFa sub def
/brgb m*w def
/crgb lab*wFa def
/c*   lab*cFa def
/lab*tFa 1 lab*nFa sub lab*cFa 0.5 mul sub def

isec 6 eq {%BEG isec=6 achromatic
           /o*1 1 def
           /l*1 1 def
           /v*1 1 def
          }%END isec=6 achromatic
          {%BEG isec#6 chromatic
           /o*1 ok* argb 0.000001 add div def
           /l*1 lk* argb 0.000001 add div def
           /v*1 vk* argb 0.000001 add div def
          } ifelse %END isec#6

/c3*Fa 1 o*1 sub def
/m3*Fa 1 l*1 sub def
/y3*Fa 1 v*1 sub def

/c41*Fa c3*Fa def %at least one of cmy will be cero
/m41*Fa m3*Fa def
/y41*Fa y3*Fa def
/n4*Fa lab*nFa 1.0 exp def %cmyn6*

%change by deepness difference delta d* = c*S1 - c*S2
%use lab*cFa, lab*tFa for correction
%equations of three lines
%t* = 1 - 0.5 c*
%t* = [t* / c*] c*
%t* = [(t* + 0,18) / c*] c* - 0,18
%cut point S1 for nt=0,18:
%c*s1 = 1 /[ t*F / c*F + 0,5 ]
%cut point S2 for n=0,18:
%c*s1 = (1 + nt) / [ (t*F + nt) / c*F + 0,5 ]

%special case lab*cFa=0 and n=0,18
/nt 0.18 def
lab*cFa 0 eq { %lab*cFa=0,#0
              /c*S1 0 def
              /c*S2 0 def
             } %lab*cFa=0
             { %lab*cFa#0
              /c*S1 1 lab*tFa lab*cFa div 0.5 add div def
              /c*S2 1 nt add lab*tFa nt add lab*cFa div 0.5 add div def
             } ifelse %lab*cFa=0,#0

/c4*Fa c41*Fa c41*Fa c*S1 c*S2 sub mul sub def
/m4*Fa m41*Fa m41*Fa c*S1 c*S2 sub mul sub def
/y4*Fa y41*Fa y41*Fa c*S1 c*S2 sub mul sub def

/o4*Fa 1 c4*Fa sub def
/l4*Fa 1 m4*Fa sub def
/v4*Fa 1 y4*Fa sub def
/i4*Fa 1 n4*Fa sub def
              
} bind def %END Procedure trans_rgb3*_cmyn6*ioF 'zm60'CMYN559LT.PS

%*********************************************************************

%END 'OK0X'SEP-0003.TXT *********************************2011-04-01