Code: Select all
View.Set ("graphics:645;645,nobuttonbar,position:300;300")
proc AddGradient (c1, c2, n : int)
var clr : int
var r1, g1, b1 : real
var r2, g2, b2 : real
var p, p0 : real
RGB.GetColor (c1, r1, g1, b1)
RGB.GetColor (c2, r2, g2, b2)
const a := 50
for i : 1 .. n
p := (i / n) * 100
p0 := 100 - p
clr := RGB.AddColor ((((r1 * p) + (r2 * p0)) / 2) / a, (((g1 * p) + (g2 * p0)) / 2) / a, (((b1 * p) + (b2 * p0)) / 2) / a)
end for
end AddGradient
%ColorAdd (yellow, blue, 25)
% ColorAdd (brightblue,brightgreen,5)
% ColorAdd (brightgreen,yellow,5)
% ColorAdd (yellow,13,5)
% ColorAdd (13,brightred,5)
AddGradient (9, 7, 28)
AddGradient (12, 9, 100)
AddGradient (14, 12, 118)
AddGradient (0, 14, 10)
function distance (x1, y1, x2, y2 : real) : real
result ((x1 - x2) ** 2 + (y1 - y2) ** 2) ** 0.5
end distance
var ox, oy : real := maxx div 2
type complex :
record
r : real
i : real
end record
function AddComplex (comp1, comp2 : complex) : complex
var hold : complex
hold.r := comp1.r + comp2.r
hold.i := comp1.i + comp2.i
result hold
end AddComplex
function MultComplex (comp1, comp2 : complex) : complex
var hold : complex
hold.r := (comp1.r * comp2.r) - (comp1.i * comp2.i)
hold.i := (comp1.r * comp2.i) + (comp1.i * comp2.r)
result hold
end MultComplex
function Iterate (comp1 : complex, C : complex) : complex
var hold : complex
hold := MultComplex (comp1, comp1)
hold := AddComplex (hold, C)
result hold
end Iterate
var maxI : int := 100
var count : int := 0
var dwell : array 0 .. maxx * 3, 0 .. maxy * 3 of real
var transX, transY : int := maxx div 2
var c : complex
c.r := -0.79
c.i := 0.16
var hold : complex
for x : -transX .. maxx
for y : -transY .. maxy
hold.r := x / (maxx div 2)
hold.i := y / (maxy div 2)
loop
count += 1
exit when count >= maxI
if distance (hold.r, hold.i, ox, oy) <= maxx div 1.3 then
hold := Iterate (hold, c)
else
exit
end if
end loop
dwell (x + maxx, y + maxy) := count
drawdot ((x + transX) div 1, (y + transY) div 1, 255 + round ((dwell (x + maxx, y + maxy) / maxI) * 255))
count := 0
end for
end for
%
% for x : 1 .. maxx
% for y : 1 .. maxy
% % if dwell (x, y) = maxI then
% % drawdot (x, y, 7)
% % else
%
% % end if
% end for
% end for
%
[code]
[color=#888888][size=85]Archived topic from Iceteks, old topic ID:3297, old post ID:26734[/size][/color]