#exit_if_not_exist $(tkprog_X_path)/Perl/Optics

[Optics].select
join_path section_root_dir $(tkprog_X_path) Perl Optics
End


[Button1.Optics]
Caption=RefFIT
set app_path=$(tkapp_open_path)\Optical\RefFit
use_os_path_sep app_path
check_exist $(app_path) "[$(app_path)] が見つかりません。インストールしてください"

set app_path=$(app_path)\reffit.exe
use_os_path_sep app_path
$(start) $(app_path)
End


[Button2.Optics]
Caption=OptDataConv
join_path app_path "$(tkprog_X_path)" TkPlot TkPlot.pl
check_exist $(app_path) "[$(app_path)] が見つかりません。インストールしてください"

set module=OpticalDataConvert
$(start_cmd) "$(perl_path)" -w -x -S "$(app_path)" --style=$(module) --LoadModule=clib\Tk$(module) --ReadPrev --NoAutoLoadModules=1"
End

[Button4.Optics]
Caption=Sub(RT)
join_path tkplot_dir "$(tkprog_X_path)" TkPlot
join_path batch_path "$(tkplot_dir)" OpticalSpectrumSubstrateRT.bat
check_exist $(batch_path) "[$(batch_path)] が見つかりません。インストールしてください"

#join_path app_path "$(tkprog_X_path)" TkPlot TkPlot.pl
#check_exist $(app_path) "[$(app_path)] が見つかりません。インストールしてください"
#set module=OpticalSpectrumRT
#$(start_cmd) "$(perl_path)" -w -x -S "$(app_path)" --style=$(module) --LoadModule=clib\Tk$(module) --ReadPrev --NoAutoLoadModules=1"

chdir "$(tkplot_dir)"
$(start_cmd_c) "$(batch_path)"

End

[Button5.Optics]
Caption=Film(mult)/Sub(RT)

join_path tkplot_dir "$(tkprog_X_path)" TkPlot
join_path batch_path "$(tkplot_dir)" OpticalSpectrumMultiLayersRT.bat
check_exist $(batch_path) "[$(batch_path)] が見つかりません。インストールしてください"

#join_path app_path "$(tkprog_X_path)" TkPlot TkPlot.pl
#check_exist $(app_path) "[$(app_path)] が見つかりません。インストールしてください"
#set module=OpticalSpectrumRT
#$(start_cmd) "$(perl_path)" -w -x -S "$(app_path)" --style=$(module) --LoadModule=clib\Tk$(module) --ReadPrev --NoAutoLoadModules=1"

chdir "$(tkplot_dir)"
$(start_cmd_c) "$(batch_path)"
End

[Button6.Optics]
Caption=Film/sub(SE)
join_path app_path "$(tkprog_X_path)" TkPlot TkPlot.pl
check_exist $(app_path) "[$(app_path)] が見つかりません。インストールしてください"

set module=EllipsometryFCA
$(start_cmd) "$(perl_path)" -w -x -S "$(app_path)" --style=$(module) --LoadModule=clib\Tk$(module) --ReadPrev --NoAutoLoadModules=1"
End

[Button10.Optics]
Caption=ColorMap
join_path app_path "$(tkprog_X_path)" TkPlot TkPlot.pl
check_exist $(app_path) "[$(app_path)] が見つかりません。インストールしてください"

set module=ColorMap
$(start_cmd) "$(perl_path) -w -x -S $(app_path) --style=$(module) --LoadModule=clib\Tk$(module) --ReadPrev --NoAutoLoadModules=1"
End

[aButton13.Optics]
Caption=Kramers-Kronig
join_path app_path "$(tkprog_X_path)" Perl Optics KKConversion.pl
check_exist $(app_path) "[$(app_path)] が見つかりません。インストールしてください"

join_path KKdir $(tkprog_X_path) Perl Optics
chdir "$(KKdir)"
$(start_cmd) "$(perl_path) $(app_path)"
End

[aButton14.Optics]
Caption=&C12A7(SE)
set app_path=$(tkprog_path)\Perl\TkPlot\TkPlot.pl
use_os_path_sep app_path
check_exist $(app_path) "[$(app_path)] が見つかりません。インストールしてください"

set module=EllipsometryBulkC12A7
set app_path=$(tkprog_path)\Perl\TkPlot\TkPlot.pl
use_os_path_sep app_path
$(start_cmd) "$(perl_path) -w -x -S $(app_path) --style=$(module) --LoadModule=clib\Tk$(module) --ReadPrev --NoAutoLoadModules=1"
End

[aButton15.Optics]
Caption=&C12A7(R)
set app_path=$(tkprog_path)\Perl\TkPlot\TkPlot.pl
use_os_path_sep app_path
check_exist $(app_path) "[$(app_path)] が見つかりません。インストールしてください"

set module=ReflectanceSpectrumBulkC12A7
set app_path=$(tkprog_path)\Perl\TkPlot\TkPlot.pl
use_os_path_sep app_path
$(start_cmd) "$(perl_path) -w -x -S $(app_path) --style=$(module) --LoadModule=clib\Tk$(module) --ReadPrev --NoAutoLoadModules=1"
End