<?xml version="1.0" encoding="UTF-8"?>
|
<hdevelop file_version="1.1" halcon_version="12.0">
|
<procedure name="main">
|
<interface/>
|
<body>
|
<c as_id="image_acquisition" as_name="Image Acquisition 01" as_grp="[1,1]" as_ord="1">* Image Acquisition 01: Code generated by Image Acquisition 01</c>
|
<l as_id="image_acquisition" as_name="Image Acquisition 01" as_grp="[1,2]" as_ord="1">list_files ('F:/ken/Discolor/异色细分图集（清洗不良）/0323/清洗不良/', ['files','follow_links'], ImageFiles)</l>
|
<l>tuple_regexp_select (ImageFiles, ['\\.(tif|tiff|gif|bmp|jpg|jpeg|jp2|png|pcx|pgm|ppm|pbm|xwd|ima|hobj)$','ignore_case'], ImageFiles)</l>
|
<l as_id="image_acquisition" as_name="Image Acquisition 01" as_grp="[2,2]" as_ord="1">for Index := 0 to |ImageFiles| - 1 by 1</l>
|
<l as_id="image_acquisition" as_name="Image Acquisition 01" as_grp="[2,3]" as_ord="1"> read_image (Image, ImageFiles[Index])</l>
|
<c as_id="image_acquisition" as_name="Image Acquisition 01" as_grp="[2,4]" as_ord="1"> * Image Acquisition 01: Do something</c>
|
<l> StationThree_Pretreatment (Image, OUTPUT_Images, OUTPUT_Params, OUTPUT_Flag, ContourRow, ContourColumn)</l>
|
<c> </c>
|
<l> count_obj (OUTPUT_Images, Number)</l>
|
<l> for K := 1 to Number by 1</l>
|
<l> select_obj (OUTPUT_Images, ObjectSelected, K)</l>
|
<l> parse_filename (ImageFiles[Index], BaseName, Extension, Directory)</l>
|
<l> write_image (ObjectSelected, 'png', 0, 'F:/ken/Discolor/CutImages/0328/'+BaseName+'_'+K)</l>
|
<c> </c>
|
<c> </c>
|
<c> </c>
|
<l> endfor</l>
|
<l as_id="image_acquisition" as_name="Image Acquisition 01" as_grp="[3,1]" as_ord="1">endfor</l>
|
</body>
|
<docu id="main">
|
<parameters/>
|
</docu>
|
</procedure>
|
</hdevelop>
|
