maintenance: removed deprecated files, linux friendly include names

2026-07-19 19:09:20 +02:00 · 2018-10-12 19:53:33 +02:00
parent 66eb3ff731
commit 7933ade080
110 changed files with 235 additions and 5741 deletions
--- a/old/Curve.cpp
+++ b/old/Curve.cpp
@@ -0,0 +1,146 @@
+/*
+This Source Code Form is subject to the
+terms of the Mozilla Public License, v.
+2.0. If a copy of the MPL was not
+distributed with this file, You can
+obtain one at
+http://mozilla.org/MPL/2.0/.
+*/
+
+#include "system.hpp"
+#include "classes.hpp"
+#pragma hdrstop
+
+#include "Curve.h"
+
+ TCurve::TCurve()
+{
+    Values = NULL;
+    iNumValues = 0;
+    iNumCols = 0;
+}
+
+ TCurve::~TCurve()
+{
+    for (int i = 0; i < iNumValues; i++)
+        SafeDelete(Values[i]);
+    SafeDelete(Values);
+}
+
+bool TCurve::Init(int n, int c)
+{
+    for (int i = 0; i < iNumValues; i++)
+        SafeDelete(Values[i]);
+    SafeDelete(Values);
+
+    iNumValues = n;
+    iNumCols = c;
+    Values = new float *[iNumValues];
+    for (int i = 0; i < iNumValues; i++)
+        Values[i] = new float[iNumCols];
+
+    for (int i = 0; i < iNumValues; i++)
+        for (int j = 0; j < iNumCols; j++)
+            Values[i][j] = 0;
+}
+
+float TCurve::GetValue(int c, float p)
+{
+    int a = floor(p);
+    int b = ceil(p);
+    if (a < 0)
+        return Values[0][c];
+    if (b >= iNumValues)
+        return Values[iNumValues - 1][c];
+    p -= floor(p);
+    return Values[a][c] * (1.0f - p) + Values[b][c] * (p);
+}
+
+bool TCurve::SetValue(int c, float p, float v)
+{
+    int a = floor(p);
+    int b = ceil(p);
+    if (a < 0)
+        return false;
+    if (b >= iNumValues)
+        return false;
+    p -= floor(p);
+    if (p < 0.5)
+        Values[a][c] = v;
+    else
+        Values[b][c] = v;
+    return true;
+}
+
+bool TCurve::Load(TQueryParserComp *Parser)
+{
+    DecimalSeparator = '.';
+    AnsiString Token;
+
+    int n = Parser->GetNextSymbol().ToInt();
+    int c = Parser->GetNextSymbol().ToInt();
+    Init(n, c);
+
+    n = 0;
+    int i;
+    while (!Parser->EOF && n < iNumValues)
+    {
+        for (i = 0; i < iNumCols; i++)
+            Values[n][i] = Parser->GetNextSymbol().ToDouble();
+        n++;
+    }
+    DecimalSeparator = ',';
+}
+
+bool TCurve::LoadFromFile(AnsiString asName)
+{
+    DecimalSeparator = '.';
+    TFileStream *fs;
+    fs = new TFileStream(asName, fmOpenRead | fmShareCompat);
+    AnsiString str = "xxx";
+    int size = fs->Size;
+    str.SetLength(size);
+    fs->Read(str.c_str(), size);
+    str += "";
+    delete fs;
+    TQueryParserComp *Parser;
+    Parser = new TQueryParserComp(NULL);
+    Parser->TextToParse = str;
+    Parser->First();
+    Load(Parser);
+
+    delete Parser;
+    DecimalSeparator = ',';
+}
+
+#include <stdio.h>
+
+bool TCurve::SaveToFile(AnsiString asName)
+{
+
+    DecimalSeparator = '.';
+    FILE *stream = NULL;
+    stream = fopen(asName.c_str(), "w");
+
+    AnsiString str;
+    str = AnsiString(iNumValues);
+    fprintf(stream, str.c_str());
+    fprintf(stream, "\n");
+    for (int i = 0; i < iNumValues; i++)
+    {
+        str = "";
+        if (i % 10 == 0)
+            str += "\n";
+        for (int j = 0; j < iNumCols; j++)
+            str += FloatToStrF(Values[i][j], ffFixed, 6, 2) + AnsiString(" ");
+        str += AnsiString("\n");
+        fprintf(stream, str.c_str());
+    }
+
+    fclose(stream);
+    DecimalSeparator = ',';
+}
+
+//---------------------------------------------------------------------------
+
+#pragma package(smart_init)