Hallo,

Ich würde gerne folgende C++ Funktion ins Delphi (Objekt Pascal) übersetzen.
Ich hoffe jemand kann mir helfen.
Danke.

C++ Makros ?

markieren

Delphi-Quellcode:

#define GE_PI 3.14159265358979323846 // 180
#define GE_PI2 (GE_PI / 2.0) // 1,57079632679489661923 90
#define GE_PI4 (GE_PI / 4.0) // 0,785398163397448309615 45
#define GE_2PI (GE_PI+GE_PI) // 6,28318530717958647692 360

C++ Funktion:

zusammenfalten · markieren

Delphi-Quellcode:

//-----------------------------------------------
// Angle from point 0,0 to this point (0..2PI)
//-----------------------------------------------
double CGePoint::Angle () const
{
  if (x == 0.0) {
    if (y == 0.0){
      return 0.0;
    }
    return (y>0.0)? GE_PI2 : GE_DEG270;
  }else{
    if (y == 0.0){
      return (x>0.0)? 0.0 : GE_PI;
    }
    if (x > 0.0){
      if (y > 0.0){
        return atan( y / x );
      }else{
        return atan( y / x ) + GE_2PI;
      }
    }else{
      return atan( y / x ) + GE_PI;
    }
  }
}

.. dies sind Konstanten

markieren

Delphi-Quellcode:

#define GE_PI 3.14159265358979323846 // 180
#define GE_PI2 (GE_PI / 2.0) // 1,57079632679489661923 90
#define GE_PI4 (GE_PI / 4.0) // 0,785398163397448309615 45
#define GE_2PI (GE_PI+GE_PI) // 6,28318530717958647692 360

markieren

Code:

 (y>0.0)? GE_PI2 : GE_DEG270;

könnte man am besten mit ifthen oder if then else übersetzen

Grüße
Klaus

Danke Klaus.
Ich versuche es mal umzuschreiben.
LG. Mustafa.

Bei bei der Funktion IfThen aufpassen,
denn hier werden immer alle Parameter ausgewertet,
im Gegensatz zum Makro ?:

Danke himitsu.

Ich habe umgeschrieben und es hat leider nicht funktioniert.
Wie Du erwähnt hast, habe ich Macro , warscheinlich fehlerhaft übersetzt.
LG.

Leider weigert sich der Hersteller krankhaft zwanghaft einfache/kurze Makros im Pascal zu implementieren und den Preprozessor haben sie auch vor Jahrzehnten kaputt gemacht,
sonst hätten wir jetzt viele Probleme nicht, bei derartigen Headerübersetzungen.

markieren

Delphi-Quellcode:

#define GE_PI 3.14159265358979323846
#define GE_PI2 (GE_PI / 2.0)
#define GE_PI4 (GE_PI / 4.0)
#define GE_2PI (GE_PI+GE_PI)

(y>0.0)? GE_PI2 : GE_DEG270;

und nun einfach nach und nach alles ersetzen/tauschen

also
Result := (y > 0.0) ? GE_PI2 : GE_DEG270;
zu

markieren

Delphi-Quellcode:

Result := IfThen(y > 0.0, GE_PI2, GE_DEG270);

// oder

if y > 0.0 then
  Result := GE_PI2
else
  Result := GE_DEG270;

GE_DEG270?

markieren

Delphi-Quellcode:

if y > 0.0 then
  Result := (GE_PI / 2.0)
else
  Result := GE_DEG270;

markieren

Delphi-Quellcode:

if y > 0.0 then
  Result := (GE_PI / 2.0)
else
  Result := GE_DEG270;

markieren

Delphi-Quellcode:

if y > 0.0 then
  Result := (3.14159265358979323846 / 2.0)
else
  Result := GE_DEG270;

wobei GE_PI brauchen wir nicht, weil haben wir schon selber was (PI)

markieren

Delphi-Quellcode:

if y > 0.0 then
  Result := PI / 2.0
else
  Result := GE_DEG270;

// oder eben

Result := IfThen(y > 0.0, PI / 2.0, GE_DEG270);

Da Y nicht direkt im Result verwendet wird und alles Konstanten zu sein schienen, ist gegen IfThen kaum was Einzuwenden.
z.B. bei IfThen(Y <> 0, irgendwas / Y, 0) würde es knallen, weil "durch Y" immer berechnet wird, selbst wenn Y 0 ist und Division durch 0 ... nja ... Schulwissen. (beim ?-Makro in C++ ginge sowas aber)

markieren

Code:

GE_PI   =  PI
GE_PI2  =  PI/2
GE_PI4  =  PI/4
GE_2PI  =  PI*2

markieren

Delphi-Quellcode:

  if x = 0 then begin
    if y = 0 then
      Exit(0);
    Exit(IfThen(y > 0, PI/2, GE_DEG270));
  end else
    if y = 0 then
      ...

OK, ich mach mal mit ein paar zusätzlichen ELSE und Result statt Exit weiter.

zusammenfalten · markieren

Delphi-Quellcode:

  if x = 0 then
    if y = 0 then
      Result := 0
    else
      if y > 0 then //Result := IfThen(y > 0, PI/2, GE_DEG270)
        Result := PI/2
      else
        Result := GE_DEG270 // DEG270 = PI*1.5 ???
  else
    if y = 0 then
      if x > 0 then //Result := IfThen(x > 0, 0, PI)
        Result := 0
      else
        Result := PI
    else
      if x > 0 then
        if y > 0 then
          Result := atan(y / x)
        else
          Result := atan(y / x) + PI*2
      else
        Result := atan(y / x) + PI;

Sollten die Werte nicht "ganz" genau stimmen,
dann liegt es vielleicht noch an falschen Typen
und Rundungsproblemen.
-> Single, Double, Extended

Danke für Deine Mühe himitsu.

Ich werde Deine Code testen.
LG. Mustafa.

GE_DEG270 ist

#define GE_DEG270 (GE_PI+GE_PI2) Danke.

also doch PI * 1.5

(PI + (PI / 2) )

Ja genau

Dein Prozedur hat tadellos funktioniert.
HackCAD/CAM kann jetzt auch ESSI-Files als input Format verwenden.
Danke für die Unterstützung (besonders himitsu).
LG. Mustafa.