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
|
REM This program works either in the SDL build of Matrix Brandy, or
REM the full text mode version (tbrandy) when run from an xterm window.
:
SYS "Brandy_TekEnabled", 1
MODE 27
VDU5:CLG
ORIGIN 640, 512
xlow = -10
xhigh = 10
ylow = -10
yhigh = 10
depth = 10
xscale = 30
yscale = 12
c = -4000
:
FOR x = xlow TO xhigh
MOVE xscale*(x+ylow), yscale*(ylow-x)+c/(x*x+ylow*ylow+depth)
FOR y = ylow TO yhigh
DRAW xscale*(x+y), yscale*(y-x)+c/(x*x+y*y+depth)
NEXT
NEXT
FOR y = ylow TO yhigh
MOVE xscale*(xlow+y), yscale*(y-xlow)+c/(xlow*xlow+y*y+depth)
FOR x = xlow TO xhigh
DRAW xscale*(x+y), yscale*(y-x)+c/(x*x+y*y+depth)
NEXT
NEXT
VDU4
END
|
