[gelöst] MathGL über Free Pascal aufrufen

[Mathias]

das oben gesagte war fast richtig, allerdings habe ich die Version aus Subversion geholt und nicht das mathgl-8.0.1.tar.gz aus dem Download, also wie folgt:

An SVN habe ich gar nicht mehr gedacht, ich bin so gewohnt nach "git xxx" zu suchen.
Ich habe gerade bei SVN reingeguckt.
https://svn.code.sf.net/p/mathgl/code/m ... ngeLog.txt
Es scheint die gleiche Version zu sein wie bei sourceforge.

Dies will bei mit nicht, da kommt viel rot raus.

Code: Alles auswählen

cmake -S . -B ./build -Denable-all=on -Denable-all-widgets=on

Wen ich es ein wenig gezielter mache, geht es mit Erfolg.

Code: Alles auswählen

cmake ../mathgl-8.0.1/ \
  -Denable-glut="true" \
  -Denable-fltk="true" \
  -Denable-qt="true" \
  -Denable-pdf="true" \
  -Denable-texi2html="true"

Noch ein Tipp, wen man beim make noch ein "-j" ranhängt, läuft das kompilieren extrem schnell.

[Mathias]

Ich habe mir die mathGL libs mal genauer angeguckt.

Wen man das ganze voll ausnutzen will, muss man fast bei C++ bleiben. Die C und auch die Pascal Schnittstelle enthält nicht den ganzen Umfang des Paketes.
Was da noch eine Idee wäre. Wen man ein Object rendert, dies in C++ zu schreiben und die *.o dann in das LCL-Programm einbinden.

[Helios]

Hallo Mathias,
ich brauche das ganze „nur“ für die schnelle Visualisierung von 3D Ergebnissen, die ich bei der Lösung partieller Differentialgleichungen erhalte. Vielleicht reicht dann schon die Grundfunktionalität. Danke für Deinen Hinweis.
Gruß
Helios

[TSchnuckenbock]

Ich weiß nicht, ob es deine Frage trifft, aber ich hatte mir vor ein paar Jahren mal eine Pascal-Unit zusammenprogrammiert, mit der ich die Matrizen- und Vektor-Sachen für OpenGL mit Delphi erschlagen hatte, inlusive
"Normalize", "Translate", "Scale", "Rotate", "Perspective", "Ortho", "Cross"....

Vorlage war die GLM

https://github.com/g-truc/glm

und Material von Erik v. Bilsens ("neslib") FastMath-Library und einer Unit, die "GLVectorGeometry.pas" heißt und bei

http://glscene.org

zu finden war.
Damit hatte ich meinen notwendigen Mathe-Krams dann einkompilert,, also ohne separate dlls.

[Mathias]

Ich weiß nicht, ob es deine Frage trifft, aber ich hatte mir vor ein paar Jahren mal eine Pascal-Unit zusammenprogrammiert, mit der ich die Matrizen- und Vektor-Sachen für OpenGL mit Delphi erschlagen hatte, inlusive
"Normalize", "Translate", "Scale", "Rotate", "Perspective", "Ortho", "Cross"....

Dies sind ein paar ganz andere Schuhe. Dies sind alles Transform-Befehle um Primitiven im Raum zu bewegen.

mathGL rendert eine komplette Scene aus ein paar Formeln. Vergleichbar mit Mathematica oder Matlab.

[Helios]

Hallo TSchnuckenbock,
danke für den Hinweis, das kannte ich noch nicht. Ich wollte LAPACK aus Lazarus/Pascal aufrufen, klappt sogar recht gut, aber letztlich läuft es dann darauf hinaus, was berechnet Eigenwertsysteme und LGS mit vollen oder sparsen Matrizen schneller oder für den Programmierer / Anwendungsfall einfacher…
Danke nochmal und euch Allen einen schönen Tag!
Viele Grüße
Helios

[Mathias]

Unterdessen hat es ein Update von MathGL gegeben.
https://mathgl.sourceforge.net/

Da die Pascal Bindung von mathgl, noch der Version 2.2 trägt, habe ich eine neue Bindung gemacht, welche zu 8.0 kompatibel ist.
Wen noch Interesse da ist, im Anhang habe ich die Bindung.

Hier noch ein kleines Demo dazu:

Code: Alles auswählen

program project1;

uses
  fp_mgl2;

  function sample(gr: THMGL; p: pointer): longint;
  var
    y0, y1, y2, y3: THMDT;
    n: longint = 30;
  begin
    y0 := mgl_create_data_size(n, 1, 1);
    mgl_data_modify(y0, '0.4*sin(2*pi*x)+0.3*cos(3*pi*x)-0.4*sin(4*pi*x)+0.2*rnd', 0);

    y1 := mgl_create_data_size(n, 1, 1);
    mgl_data_set(y1, y0);

    y2 := mgl_create_data_size(n, 1, 1);
    mgl_data_set(y2, y0);

    y3 := mgl_create_data_size(n, 1, 1);
    mgl_data_set(y3, y0);

    mgl_data_smooth(y1, 'line3', 0);
    mgl_data_smooth(y2, 'line5', 0);
    mgl_data_smooth(y3, 'quad5', 0);

    mgl_plot(gr, y0, 'k', '');
    mgl_add_legend(gr, 'NONE', 'k');
    mgl_plot(gr, y1, 'r', '');
    mgl_add_legend(gr, 'LINE_3', 'r');
    mgl_plot(gr, y2, 'g', '');
    mgl_add_legend(gr, 'LINE_5', 'g');
    mgl_plot(gr, y3, 'b', '');
    mgl_add_legend(gr, 'QUAD_5', 'b');
    mgl_legend(gr, 1, '', '');
    mgl_box(gr);

    mgl_delete_data(y0);
    mgl_delete_data(y1);
    mgl_delete_data(y2);
    mgl_delete_data(y3);

    Result := 0;
  end;

  procedure main;
  var
    gr: THMGL;
  begin
    gr := mgl_create_graph_qt(@sample, 'MathGL Example', nil, nil);

    if gr = nil then begin
      WriteLn('Fehler');
    end;
    mgl_qt_run();
    mgl_delete_graph(gr);
  end;

begin
  main;
end.