1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:

PROCEDURE apf_beliebiger_ausschnitt;
VAR m,n,i:longint;
p:pbytearray;
xwert,ywert,x_konst,x1_konst,y_konst,y2wert,xqu,yqu,summe,
deltax,deltay:extended;

BEGIN
  ausschnitt_check:=true;
  deltax:=(c_reel2-c_reel1)/639;
  deltay:=(c_imag2-c_imag1)/479;
  y_konst:=c_imag1-deltay;
  m:=0;
  REPEAT
    p:=a_bild.ScanLine[m];
    y_konst:=y_konst+deltay;
    x_konst:=c_reel1-deltax;
    FOR n:=0 TO 639 DO
    BEGIN
      x1_konst:=x_konst+deltax;
      x_konst:=x1_konst;
      xwert:=0.0;
      ywert:=0.0;
      xqu:=0.0;
      yqu:=0.0;
      color:=0;
      REPEAT
        y2wert:=xwert*ywert;
        ywert:=y2wert+y2wert-y_konst;
        xwert:=xqu-yqu-x_konst;
        xqu:=xwert*xwert;
        yqu:=ywert*ywert;
        summe:=xqu+yqu;
        color:=succ(color)
      UNTIL (summe > maxsum) OR (color = colormax);
      IF form7.checkbox6.checked THEN
      BEGIN
        IF (color >= colormin) OR (color = colormax) THEN
        begin
          i:=3*n;
          p[i]:=farbe_blau;
          p[i+1]:=farbe_gruen;
          p[i+2]:=farbe_rot;
          form7.canvas.pixels[n,m]:=farben
        end
      END ELSE
      BEGIN
        IF (color <= colormin) OR (color = colormax) THEN
        begin
          i:=3*n;
          p[i]:=farbe_blau;
          p[i+1]:=farbe_gruen;
          p[i+2]:=farbe_rot;
          form7.canvas.pixels[n,m]:=farben
        end
      END
    END;
    m:=succ(m);
    Application.processMessages
  UNTIL (m = 480) or ende;
  daten_aktualisieren(werte_apf_alt);
  BitBlt(bild_apf.canvas.handle,0,0,640,480,
         a_bild.canvas.handle,0,0,SRCCOPY)
END;					

1:
2:
3:
4:
5:
6:
7:
8:
9:

      REPEAT
        y2wert:=xwert*ywert;
        ywert:=y2wert+y2wert-y_konst;
        xwert:=xqu-yqu-x_konst;
        xqu:=xwert*xwert;
        yqu:=ywert*ywert;
        summe:=xqu+yqu;
        color:=succ(color)
      UNTIL (summe > maxsum) OR (color = colormax);					

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

 Sys perf timer freq: 1193180 Hz
 size:  500*500
 maxiters:      9999
 rangex:        -2.00 to 1.00
 rangey:        -1.50 to 1.50
  SSE benchmark:
    1.867 sec
    225.249 MegaIters/sec
  SSE2 benchmark:
    Not supported.
  3DNow! benchmark:
    2.915 sec
    144.245 MegaIters/sec
  FPU ASM benchmark:
    4.811 sec
    87.398 MegaIters/sec
  FPU C benchmark:
    13.523 sec
    31.093 MegaIters/sec
  GPU VertexProgram benchmark (beta! maxiters=10) on GDI Generic:
ATI Vertex Program: Required extensions are not supported    Not supported.
  GPU FragmentProgram benchmark (beta! maxiters=20) on GDI Generic:
ARB Fragment Program: Required extensions are not supported    Not supported.					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:

  deltax := (c_reel2-c_reel1)/640;
  deltay := (c_imag2-c_imag1)/480;
  y_konst := c_imag1;
  m := 0;
  repeat
    P := B.ScanLine[m];
    I := 0;
    x_konst := c_reel1;

    for N := 0 to 639 do
    begin
      xwert:=0.0;
      ywert:=0.0;
      xqu:=0.0;
      yqu:=0.0;
      Hcolor:=0;
      REPEAT
        y2wert := xwert*ywert;
        ywert := y2wert+y2wert-y_konst;
        xwert := xqu-yqu-x_konst;
        xqu := xwert*xwert;
        yqu := ywert*ywert;
        Inc (HColor);
      UNTIL (xqu+yqu > maxsum) OR (Hcolor= colormax);

          p[i]:= (HColor shr 16) and $FF;
          p[i+1]:= (HColor shr 8) and $FF;
          p[i+2]:= HColor and $FF;
          Inc (I,3);

          
      x_konst:=x_konst+deltax;
    END;
    y_konst:=y_konst+deltay;
    Inc (M);
    Application.processMessages
  UNTIL (m = 480) or ende;
  //daten_aktualisieren(werte_apf_alt);
  BitBlt (canvas.handle,0,0,640,480,
          B.Canvas.handle,0,0,SRCCOPY);					

 
18:

{ ... }
ywert := 2 * xwert * ywert - y_konst;