|
FCT @ill(num ^z,num ^w,num ^x,num ^y) lcl num ^z ^w ^x ^y ^test ^lum
lcl num ^output(10,10) ^pol_input(5)
^pol_input(1)==0
^axis==tra_1fld(^z,0,0,20,0,1,^pol_input,^output) !TRA_1FLD娭悢傪巊梡偟偰幉忋偺徠搙傪寁嶼
^lum_axis==^output(4,^w) !曄悢^lum_axis偵偦偺抣傪曐懚 ^pol_input(1)==0
^off==tra_1fld(^z,^x,^y,20,0,1,^pol_input,^output) ^lum_off==^output(4,^w) ^rel_ill==^lum_off/^lum_axis END FCT ^rel_ill save above txt as one ill.seq below is the usage sample: | dro fct @ill | ! delete this fct if it exist | | res cv_lens:triplet | ! sample | | in ILL | ! load above macro fct | | lvr | ! list the var | | aut | | | efl = 100 | | | @ill(1,2,0,20) = 0.5 | ! field at 20 degree 's relative illumination is 0.5 | | wtc 1 | | | dra sa | | | go | | wri @ill(Zoomk,wave,X direction field ,Y direction field) ! curent value confirm
|