Programm zum zeichnen von 2 Graphen

[taker875]

Moin,

habe da nen Problem.
das programm zeichnet beide graphen, aber verbindet diese auch, sprich füllt die fläche zwischen diesen aus? Oo wenn ich die procedure des einen graphen raus nehme zeichnet er auch richtig füllt keine fläche aus.

Das zeichnen des 1. Graphen:

Delphi-Quellcode:

Form1.Bild.Canvas.LineTo(xb,yb);

Das zeichnen des 2. Graphen:

Delphi-Quellcode:

Form1.Bild.Canvas.LineTo(xb2,yb2);

Warum kommt er jetzt daraus diese beiden Graphen zu verbinden? Ich verstehe es einfach nicht.

Bitte helft mir
Danke

[taker875]

um es nochmal genauer zu machen:

Zeichnen des 1. Graphen:

Delphi-Quellcode:

procedure zeichnenGraph;
var defi,defivorher : boolean;
    xvorher,yvorher : double;
begin
xvorher := (xb-x0)/(xEins-x0);
yvorher:=funktion(x,defivorher);
x   := (xb-x0)/(xEins-x0);
y  :=Funktion(x,defi);
yB  := Round(y*(yEins-y0)+y0);
if y <> 0 then
if xB = 0
 then Form1.Bild.Canvas.MoveTo(xb,yb)
 else
  begin
  x := ((xb-1)-x0)/(xEins-x0);
  if defi and not ((y>10*index) or (y<-10*index) ) then
    begin
    Form1.Bild.Canvas.LineTo(xb,yb);
    end
   else
    begin
    xb := xb+1;
    x := (xb-x0)/(xEins-x0);
    y :=Funktion(x,defi);
    yB := Round(y*(yEins-y0)+y0);
    Form1.Bild.Canvas.MoveTo(xb,yb)
    end;
  end;
end;

Zeichnen des 2. Graphen:

Delphi-Quellcode:

procedure zeichnenGraph2;
var defi2 : boolean;
begin
x2  := (xb2-x0)/(xEins-x0);
y2 :=Funktion2(x2,defi2);
yB2 := Round(y2*(yEins-y0)+y0);
if y2 <> 0 then
if xB2 = 0
 then Form1.Bild.Canvas.MoveTo(xb2,yb2)
 else
  begin
  x2 := ((xb2-1)-x0)/(xEins-x0);
  if defi2 and not ((y2>10*index) or (y2<-10*index) ) then
    begin
    Form1.Bild.Canvas.LineTo(xb2,yb2);
    end
   else
    begin
    xb2 := xb2+1;
    x2 := (xb2-x0)/(xEins-x0);
    y2 :=Funktion(x2,defi2);
    yB2 := Round(y2*(yEins-y0)+y0);
    Form1.Bild.Canvas.MoveTo(xb,yb);

    end;
  end;
end;

Ich versteh einfach nicht, warum er die beiden verbindet

Edit:
Ok habe mir LineTo nochmal genau angeschaut und das Problem ist, dass er ja immer von der alten PenPos. eine Linie zieht und da ich 2 Graphen gleichzeitig zeichne auf einem image geht das nicht. Ok das habe ich. Wenn man es mit 2 verschiedenen Bildern versucht auf denen man zeichnet, dann geht das zwar flackert aber sehr, mit DoubleBuffered ist das auch nicht zu lösen, da dann der graph auf dem 2. bild , sprich der 2. graph nicht mehr sichtbar ist.

wenn mir da irgendwer nen tipp geben könnte wäre das echt super

[omata]

Initialisiere xB und xB2 mal vor jedem Zeichnen mit 0.