Hi there. I have use a piece of code to make some filters in my painting program. We could add 2D box , circle ,Ellipse and so on. We could use it even in real time, but is too slow .Here is part of the code.
autocam off
sync on
color backdrop 0
for i= 1 to 100
make object box i,5+rnd(15),5+rnd(15),5+rnd(15)
position object i,rnd(250),rnd(30),rnd(250)
a=rnd(255)
rem color object i,rgb(rnd(255),rnd(255),rnd(255)) rem colours
color object i,rgb(a,a,a) rem black/white
next i
value=20 rem play with this value
position camera 50,50,-50
point camera 0,0,0
do
for x= 0 to 640 step 10
for y= 0 to 480 step 10
col=point(x,y)
ink col
circle x,y,value
next y
next x
control camera using arrowkeys 0,5,5
a#=wrapvalue(a#+mousemovex()/2)
cam#=wrapvalue(cam#+mousemovey()/2)
rotate camera cam#,a#,0
if leftkey() then move camera left 0,5
if rightkey() then move camera right 0,5
sync
loop
I'm not a grumpy grandpa
