Ahah, that's a great idea. I love how the sin(x) swapping negative and positive completely changes the color scheme xD
[edit]
I couldn't resist writing a supersampled version to get rid of the jaggies:
`%Project Title%
`%Source File Name%
`======================
type mycolor
r
g
b
a
endtype
dim color(-1) as mycolor
set display mode desktop width(),desktop height(),32
lock pixels
for y=1 to screen height()
For x=1 to screen width()
inc z
dot x,y,calculateSuperSampled(x,y,z,2)`change the last variable on this line
next x
next y
unlock pixels
wait key
end
function getNum(x as float,y as float,z as float)
ret as integer
ret=cos(x)*(1/sin(y))*200000
endfunction ret
function calculateSuperSampled(x,y,z,sampling)
sampledist#=1.0/(2*sampling+1)
for xnum=-sampling to sampling
for ynum=-sampling to sampling
n=getNum(x*1.0+xnum*sampledist#,y*1.0+ynum*sampledist#,z)
addAverageColor(n)
next ynum
next xnum
result as dword
result=averageColor()
endfunction result
function addAverageColor(col as integer)
array insert at bottom color()
index=array count(color())
color(index).b=col&&0xFF
color(index).g=(col>>8)&&0xFF
color(index).r=(col>>16)&&0xFF
color(index).a=(col>>24)&&0xFF
endfunction
function averageColor()
colorReturn as dword
totalr as integer
totalg as integer
totalb as integer
totala as integer
totalr=0
totalg=0
totalb=0
totala=0
for n=0 to array count(color())
totalr=totalr+color(n).r
totalg=totalg+color(n).g
totalb=totalb+color(n).b
totala=totala+color(n).a
next n
totalr=(totalr/(array count(color())+1))&&0xFF
totalg=(totalg/(array count(color())+1))&&0xFF
totalb=(totalb/(array count(color())+1))&&0xFF
totala=(totala/(array count(color())+1))&&0xFF
empty array color()
colorReturn=(totala<<24)||(totalr<<16)||(totalg<<8)||totalb
endfunction colorReturn
remstart
Some examples: swap these with the last variable on line 6
cos(x)*sin(y)*tan(z)
cos(x)*sin(y)*1000
(1/cos(x))*(1/sin(y))*20000
cos(x)*(1/sin(y))*200000
tan(x)*(1/tan(y))*50
dot x,y,sin(x)*sin(y)*150
change the last parameter of "calculateSuperSampled" to add more computation time, but get a nicer image. Keep in mind that this is a squared relationship. when sampling=0, the number of function calculations per pixel is 1. smapling=1, calculations=9, sampling=2, calculations=25, sampling=3, calculations=49, and in general, calculations=(sampling*2+1)^2
[edit]
-exp(sin(-y)*sin(-y)*100)*(1-sin(x)*sin(x))*20000
MORDDOOOOORRR!
Why does blue text appear every time you are near?
