Editing Archive (section)

===HowTo: Example ipl_maskxy_submit_all.com===
 <br>$!
 <br>$! _/_/_/ _/_/_/ _/
 <br>$! _/ _/ _/ _/ Image Processing Language
 <br>$! _/ _/_/_/ _/
 <br>$! _/ _/ _/ (c) Andres Laib, IBT/ETH Zürich
 <br>$! _/_/_/ _/ _/_/_/_/
 <br>$!
 <br>$!
 <br>$!
 <br>$! IPL Batch Scanco
 <br>$!
 <br>$! Calculation of morphometric properties in the TRAB region.
 <br>$!
 <br>$!
 <br>$ p2 = p2 - “_INNER_XY�?
 <br>$!
 <br>$ define log_file ‘p1’
 <br>$ define sum_file ‘p2’_MASK_XZ.AIM
 <br>$ define seg_file ‘p2’_MSK_INNER.AIM
 <br>$ define xzaim_file ‘p2’_INNER_XZ.AIM
 <br>$ define gobj_1_file ‘p2’_INNER_XY.GOBJ
 <br>$ define gobj_2_file ‘p2’_TOPER_XZ.GOBJ
 <br>$!
 <br>$ show log log_file
 <br>$ show log sum_file
 <br>$ show log seg_file
 <br>$ show log xzaim_file
 <br>$ show log gobj_1_file
 <br>$ show log gobj_2_file
 <br>$!
 <br>$!
 <br>$ ipl_scanco_prog :=  <br>$um:ipl_scanco_m64.exe
 <br>$!
 <br>$ ON ERROR THEN CONTINUE
 <br>$!
 <br>$!------------------------------------------------------------------------------
 <br>$!Create an AIM with INNER_XY.GOBJ, write XZ version.
 <br>$! (Send pos info to log files)
 <br>$!------------------------------------------------------------------------------
 <br>$ IF F <br>$SEARCH(“xzaim_file�?) .EQS. ““
 <br>$ THEN
 <br>$ ipl_scanco_prog
 /db_scanco_activate false
 ! read xy inner gobj
 /gobj_to_aim
 -gobj_filename gobj_1_file
 -output gob
 -peel_iter 0
 /examine gob
 -item geometry
 /flip_aim gob flip
 -new_xydir xz
 /examine flip
 -item geometry
 /write flip xzaim_file
 ..
 <br>$ ON ERROR THEN CONTINUE
 <br>$ GOTO ENDCOM
 <br>$ ENDIF
 <br>$! Before proceeding to this next part, the “pos�? of the INNER_XZ.AIM files
 <br>$! created above must be reset from 0 to the proper values based on aims
 <br>$! before and after flipping. The change in the AIM is done with a
 <br>$! script that calls program “aimod�?.
 <br>$!
 <br>$!------------------------------------------------------------------------------
 <br>$!Create an AIM mask AIM with INNER_XZ.AIM and TOPER_XZ.GOBJ
 <br>$!------------------------------------------------------------------------------
 <br>$ IF F <br>$SEARCH(“sum_file�?) .EQS. ““
 <br>$ THEN
 <br>$ ipl_scanco_prog
 /db_scanco_activate false
 /read in xzaim_file
 /gauss_lp in gau
 -sigma 3.0
 -support 3
 /del in
 /threshold gau seg
 -lower_in_perm 450
 -upper_in_perm 1000
 -value_in_range 63
 /del gau
 /write seg seg_file
 -compress bin
 /del seg
 ! read xz toper gobj
 /read seg seg_file
 /gobj_mask seg
 -gobj_filename gobj_2_file
 -peel_iter 0
 /read bot seg_file
 /set_value bot
 -value_object 64
 -value_background 0
 /concat bot seg sum
 -common_region_only false
 -add_not_overlay true
 /del seg
 /del gob
 ! write the final aim
 /write sum sum_file
 -compress bin
 ..
 <br>$! <br>$ DELETE/LOG ‘’seg_file’;
 <br>$ GOTO ENDCOM
 <br>$ ENDIF
 <br>$ ON ERROR THEN CONTINUE
 <br>$!------------------------------------------------------------------------------
 <br>$ ENDCOM:
 <br>$ EXIT