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:
| 1: PROCEDURE apf_beliebiger_ausschnitt;
2: VAR m,n,i:longint;
3: p:pbytearray;
4: xwert,ywert,x_konst,x1_konst,y_konst,y2wert,xqu,yqu,summe,
5: deltax,deltay:extended;
6: BEGIN
7: ausschnitt_check:=true;
8: deltax:=(c_reel2-c_reel1)/639;
9: deltay:=(c_imag2-c_imag1)/479;
10: y_konst:=c_imag1-deltay;
11: m:=0;
12: REPEAT
13: p:=a_bild.ScanLine[m];
14: y_konst:=y_konst+deltay;
15: x_konst:=c_reel1-deltax;
16: FOR n:=0 TO 639 DO
17: BEGIN
18: x1_konst:=x_konst+deltax;
19: x_konst:=x1_konst;
20: xwert:=0.0;
21: ywert:=0.0;
22: xqu:=0.0;
23: yqu:=0.0;
24: color:=0;
25: REPEAT
26: y2wert:=xwert*ywert;
27: ywert:=y2wert+y2wert-y_konst;
28: xwert:=xqu-yqu-x_konst;
29: xqu:=xwert*xwert;
30: yqu:=ywert*ywert;
31: summe:=xqu+yqu;
32: color:=succ(color)
33: UNTIL (summe > maxsum) OR (color = colormax);
34: IF form7.checkbox6.checked THEN
35: BEGIN
36: IF (color >= colormin) OR (color = colormax) THEN
37: begin
38: i:=3*n;
39: p[i]:=farbe_blau;
40: p[i+1]:=farbe_gruen;
41: p[i+2]:=farbe_rot;
42: form7.canvas.pixels[n,m]:=farben
43: end
44: END ELSE
45: BEGIN
46: IF (color <= colormin) OR (color = colormax) THEN
47: begin
48: i:=3*n;
49: p[i]:=farbe_blau;
50: p[i+1]:=farbe_gruen;
51: p[i+2]:=farbe_rot;
52: form7.canvas.pixels[n,m]:=farben
53: end
54: END
55: END;
56: m:=succ(m);
57: Application.processMessages
58: UNTIL (m = 480) or ende;
59: daten_aktualisieren(werte_apf_alt);
60: BitBlt(bild_apf.canvas.handle,0,0,640,480,
61: a_bild.canvas.handle,0,0,SRCCOPY)
62: END; |