1 // Copyright (c) 1999-2014 OPEN CASCADE SAS
3 // This file is part of Open CASCADE Technology software library.
5 // This library is free software; you can redistribute it and/or modify it under
6 // the terms of the GNU Lesser General Public License version 2.1 as published
7 // by the Free Software Foundation, with special exception defined in the file
8 // OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT
9 // distribution for complete text of the license and disclaimer of any warranty.
11 // Alternatively, this file may be used under the terms of Open CASCADE
12 // commercial license or contractual agreement.
15 #include <IFSelect_ContextWrite.hxx>
16 #include <IGESData_IGESWriter.hxx>
17 #include <IGESSelect_FloatFormat.hxx>
18 #include <Interface_FloatWriter.hxx>
19 #include <Standard_Type.hxx>
20 #include <TCollection_AsciiString.hxx>
23 IMPLEMENT_STANDARD_RTTIEXT(IGESSelect_FloatFormat,IGESSelect_FileModifier)
25 IGESSelect_FloatFormat::IGESSelect_FloatFormat ()
26 : thezerosup (Standard_True) , themainform ("%E") ,
27 theformrange ("%f") , therangemin (0.1) , therangemax (1000.)
30 void IGESSelect_FloatFormat::SetDefault (const Standard_Integer digits)
35 themainform.AssignCat ("%E");
36 theformrange.AssignCat ("%f");
39 char pourcent = '%'; char point = '.';
40 Sprintf(format, "%c%d%c%dE",pourcent,digits+2,point,digits);
41 themainform.AssignCat (format);
42 Sprintf(format, "%c%d%c%df",pourcent,digits+2,point,digits);
43 theformrange.AssignCat (format);
45 therangemin = 0.1; therangemax = 1000.;
46 thezerosup = Standard_True;
49 void IGESSelect_FloatFormat::SetZeroSuppress (const Standard_Boolean mode)
50 { thezerosup = mode; }
52 void IGESSelect_FloatFormat::SetFormat (const Standard_CString format)
53 { themainform.Clear(); themainform.AssignCat(format); }
56 void IGESSelect_FloatFormat::SetFormatForRange
57 (const Standard_CString form, const Standard_Real R1, const Standard_Real R2)
59 theformrange.Clear(); theformrange.AssignCat(form);
60 therangemin = R1; therangemax = R2;
63 void IGESSelect_FloatFormat::Format
64 (Standard_Boolean& zerosup, TCollection_AsciiString& mainform,
65 Standard_Boolean& hasrange, TCollection_AsciiString& formrange,
66 Standard_Real& rangemin, Standard_Real& rangemax) const
69 mainform = themainform;
70 hasrange = (theformrange.Length() > 0);
71 formrange = theformrange;
72 rangemin = therangemin;
73 rangemax = therangemax;
77 void IGESSelect_FloatFormat::Perform
78 (IFSelect_ContextWrite& /*ctx*/,
79 IGESData_IGESWriter& writer) const
81 writer.FloatWriter().SetFormat (themainform.ToCString());
82 writer.FloatWriter().SetZeroSuppress (thezerosup);
83 if (theformrange.Length() > 0) writer.FloatWriter().SetFormatForRange
84 (theformrange.ToCString(), therangemin, therangemax);
87 TCollection_AsciiString IGESSelect_FloatFormat::Label () const
89 TCollection_AsciiString lab("Float Format ");
90 if (thezerosup) lab.AssignCat(" ZeroSup ");
91 lab.AssignCat (themainform);
92 if (theformrange.Length() > 0) {
94 // Sprintf(mess,", in range %f %f %s",
95 // therangemin,therangemax,theformrange.ToCString());
96 // lab.AssignCat(mess);
97 // ... FloatFormat a droit aussi a un beau format pour son propre compte ...
98 lab.AssignCat (", in range ");
99 Standard_Integer convlen = Interface_FloatWriter::Convert
100 (therangemin,mess,Standard_True,therangemin/2.,therangemax*2.,"%f","%f");
101 mess[convlen] = ' '; mess[convlen+1] = '\0';
103 convlen = Interface_FloatWriter::Convert
104 (therangemax,mess,Standard_True,therangemin/2.,therangemax*2.,"%f","%f");
105 mess[convlen] = ':'; mess[convlen+1] = '\0';
107 lab.AssignCat(theformrange.ToCString());