<?xml version="1.0" encoding="UTF-8"?>
<hdevelop file_version="1.1" halcon_version="13.0">
<procedure name="mvtec_tuple_to_string">
<interface>
<ic>
<par name="TupleIn" base_type="ctrl" dimension="0"/>
<par name="Format" base_type="ctrl" dimension="0"/>
</ic>
<oc>
<par name="StringOut" base_type="ctrl" dimension="0"/>
</oc>
</interface>
<body>
<c> * Copyright (c) MVTec Software GmbH.  All rights reserved.</c>
<c> *</c>
<c> * All use of this software is subject to the terms of the revised BSD</c>
<c> * license.  You should have received a copy of this license along</c>
<c> * with this source code in a file named "license.txt."</c>
<c></c>
<l>mvtec_string_tuple_to_string (TupleIn, Format, TupleStrings)</l>
<l>if (|TupleStrings|&gt;1)</l>
<l>    StringOut := '[' + sum([TupleStrings[0:|TupleStrings|-2] + ',' , TupleStrings[|TupleStrings|-1]]) + ']'</l>
<l>else</l>
<l>    StringOut := TupleStrings</l>
<l>endif</l>
<l>return ()</l>
</body>
<docu id="mvtec_tuple_to_string">
<parameters>
<parameter id="Format"/>
<parameter id="StringOut"/>
<parameter id="TupleIn"/>
</parameters>
</docu>
</procedure>
</hdevelop>
