'originally by Vince
'Edited by Ashish
z = 0.01
zz = 0.1
redraw = -1
iter = 100
mw = 0
getMouse
xx = (x - sw / 2) * z + x0
yy = (y - sh / 2) * z + y0
u = yy
v = xx
j = 0
cmul uuu, vvv, u, v, u, v
cmul uu, vv, uuu, vvv, yy, xx
cmul uu, vv, uu, vv, uuu + 1, vvv
uuu = uuu - 1
cmul uuu, vvv, uuu, vvv, uuu, vvv
cdiv uu, vv, uu, vv, uuu, vvv
IF uu
* uu
+ vv
* vv
> 10 ^ 10 THEN i = iter
j = j + 1
j = 0
u = uu
v = vv
c = 360 - 10 * i
PSET (x
, y
), hsb
(c
, 200, 128, 255)
'locate 1,1
'print "iter =";iter
redraw = 0
zz = zz + 0.01
IF zz
> 0.01 THEN zz
= zz
- 0.01
'draw box
LINE (mx
- (sw
* zz
/ 2), my
- (sh
* zz
/ 2))-STEP(sw
* zz
, sh
* zz
), _RGB(255, 255, 255), B
omx = mx
omy = my
getMouse
x0 = x0 + (mx - sw / 2) * z
y0 = y0 - (sh / 2 - my) * z
z = z * zz
redraw = -1
getMouse
x0 = x0 + (mx - sw / 2) * z
y0 = y0 - (sh / 2 - my) * z
z = z / zz
redraw = -1
iter = iter + 50
redraw = -1
IF iter
> 50 THEN iter
= iter
- 50 redraw = -1
uu# = x * a - y * b
vv# = x * b + y * a
u = uu#
v = vv#
d# = a * a + b * b
uu# = (x * a + y * b) / d#
vv# = (y * a - x * b) / d#
u = uu#
v = vv#
'from p5js.bas
H = map(__H, 0, 255, 0, 360)
S = map(__S, 0, 255, 0, 1)
B = map(__B, 0, 255, 0, 1)
hsb~&
= _RGBA32(B
* 255, B
* 255, B
* 255, A
)
fmx = B - (B * S) + S
fmn = B + (B * S) - S
fmx = B + (B * S)
fmn = B - (B * S)
H = H - 360
H = H / 60
H
= H
- (2 * INT(((iSextant
+ 1) MOD 6) / 2))
fmd = (H * (fmx - fmn)) + fmn
fmd = fmn - (H * (fmx - fmn))
FUNCTION map!
(value!
, minRange!
, maxRange!
, newMinRange!
, newMaxRange!
) map! = ((value! - minRange!) / (maxRange! - minRange!)) * (newMaxRange! - newMinRange!) + newMinRange!