Hardware Reference
In-Depth Information
geladen werden. Wir schreiben hier fur jeden Punkt des Bildes lediglich den
errechneten Farbwert an Speicherstelle Basis+(x*Breite)+y.
mandelbrot.mms
1
PREFIX :Mandel:
2
LOC
#100
3
plow
#c002000000000000
-0,025
GREG
4
pdelta
#3f83333333333333
0,009375=(0,75- (-2,25))/320
GREG
5
qlow
#bff8000000000000
-1,5
GREG
6
qdelta
#3f8999999999999a
0,0125=(1,5 - (-1,5))/240
GREG
7
p
IS
$1
8
q
IS
$2
9
xk
IS
$3
x
k
10
yk
y
k
IS
$4
11
k
Iteration
k
IS
$5
12
r
IS
$6
13
bildx
Geratekoordinaten (integer)
IS
$7
14
bildy
IS
$8
15
test
IS
$9
16
temp1
Zwischenergebnisse
IS
$10
17
temp2
IS
$11
18
19
:Mandel FLOT
p,bildx
20
FLOT
q,bildy
21
FMUL
p,p,pdelta
22
FMUL
q,q,qdelta
23
FADD
p,p,plow
24
FADD
q,q,qlow
25
SET
xk,0
26
SET
yk,0
27
SET
k,0
Nachste Iteration:
x
k
+1
=
x
k
− y
k
28
∗
+
p
29
1H
INCL
k,1
x
k
30
FMUL
temp1,xk,xk
31
y
k
FMUL
temp2,yk,yk
32
FSUB
temp1,temp1,temp2
33
x
k
+1
FADD
temp1,temp1,p
34
∗ y
k
+1
=2
x
k
y
k
+
q
; Siehe hierzu die Anmerkung in Kapitel 4.3
35
FMUL
yk,xk,yk
36
2
,
0 (Gleitkommawert!)
SETH
xk,#4000
37
2
× y
k
FMUL
yk,yk,xk