Editing Archive (section)

===HowTo: Example ipl_scanco_v64.com pre-processing===
 $!<br>
 $! _/_/_/ _/_/_/ _/
 <br>$! _/ _/ _/ _/ Image Processing Language 
 <br>$! _/ _/_/_/ _/
 <br>$! _/ _/ _/ (c) Andres Laib, IBT/ETH Z¸rich
 <br>$! _/_/_/ _/ _/_/_/_/
 <br>$!
 <br>$!
 <br>$!
 <br>$! IPL Batch Scanco
 <br>$!
 <br>$! Segmentation with gauss filter and thresholding.
 <br>$! The segmented volume is saved compressed to file.
 <br>$!
 <br>$!
 <br>$ define log_file 'p1'
 <br>$ define org_file 'p2'
 <br>$ define gobj_file 'p3'.GOBJ
 <br>$ define gau_file 'p3'_GFILT.AIM
 <br>$ define seg_file 'p3'_THRES.AIM
 <br>$!
 <br>$ show log log_file
 <br>$ show log org_file
 <br>$ show log gobj_file
 <br>$ show log gau_file
 <br>$ show log seg_file
 <br>$!
 <br>$!
 <br>$ ipl_scanco_prog := $um:ipl_scanco_m64.exe
 <br>$!
 <br>$ ON ERROR THEN EXIT
 <br>$!
 <br>$ ipl_scanco_prog
 <br>/db_scanco_activate true
 <br>! read, threshold and vox gfilt aim file
 <br>/read org org_file
 <br>/sup_divide org
 <br>-supdim_numbers 4 4 4
 <br>-testoff_pixels 1 1 1
 <br>/gauss_lp org gau
 <br> -sigma 1.2
 <br>-support 1
 <br>/del org
 <br>/write gau gau_file
 <br>/vox_scanco_param
 <br>-input gau
 <br>..
 <br>$ ON ERROR THEN CONTINUE
 <br>$! ENDIF
 <br>$!------------------------------------------------------------------------------
 <br>$ ENDCOM:
 <br>$ IF F$SEARCH("gau_file") .NES. ""
 <br>$ THEN
 <br>$ org = F$SEARCH("org_file")
 <br>$! IF org .NES. "" THEN DELETE/NOCONFIRM 'org'
 <br>$ ENDIF
 <br>$ EXIT