<?xml version="1.0" encoding="UTF-8"?>
<hdevelop file_version="1.1" halcon_version="13.0">
<procedure name="mvtec_string_tuple_to_string">
<interface>
<ic>
<par name="Input" base_type="ctrl" dimension="0"/>
<par name="Format" base_type="ctrl" dimension="0"/>
</ic>
<oc>
<par name="Output" 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>Output := Input</l>
<l>tuple_is_string_elem (Output, IsString)</l>
<l>if (sum(IsString[==]0)&gt;0)</l>
<l>    tuple_string (Output[find(IsString,0)], Format, Tmp)</l>
<l>    Output[find(IsString,0)] := Tmp</l>
<l>endif</l>
<l>return ()</l>
</body>
<docu id="mvtec_string_tuple_to_string">
<parameters>
<parameter id="Format"/>
<parameter id="Input"/>
<parameter id="Output"/>
</parameters>
</docu>
</procedure>
</hdevelop>
