1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:

procedure WegIntegral (EckpunktLinksUnten, Seitenlaenge)
{
    if (Seitenlaenge < MinimumSeitenlaenge)
    {
       ... AbbruchCode ...
    }
    else
    {
       ... Berechne Integralwert ...
       if (Integralwert != 0)
       {
           NeueSeitenlaenge = Seitenlaenge/2;
           WegIntegral(EckpunktLinksUnten, NeueSeitenlaenge);
           WegIntegral(EckpunktLinksUnten + NeueSeitenlaenge * xVektor, NeueSeitenlaenge);
           WegIntegral(EckpunktLinksUnten + NeueSeitenlaenge * yVektor, NeueSeitenlaenge);
           WegIntegral(EckpunktLinksUnten + NeueSeitenlaenge * (xVektor + yVektor), NeueSeitenlaenge);
       }
    }
}