>LPARAMETERS mtwup1,cmat_type,mzedit > >cmat_type=ALLTRIM(cmat_type) > >DO CASE > CASE EMPTY(mtwup1) and !medit > mcolour=rgb(224,224,218) > CASE !EMPTY(mtwup1) and cmat_type="Dry" > mcolour=RGB(0,255,0) > CASE !EMPTY(mtwup1) and cmat_type="Blend" > mcolour=RGB(255,255,255) > CASE !EMPTY(mtwup1) and cmat_type="UV" > mcolour=RGB(255,100,0) > OTHERWISE > mcolour=rgb(80,80,80) >ENDCASE > >RETURN mcolour > > * 1) Grey for empty field > * 2) Green for full not blend > * 3) Brown for full Blend > * 4) Blue for UV > >>