Just a funny little animation
(i was bored)
set display mode 1024,768,16:sync on:hide mouse:autocam off
create bitmap 1,512,512
yinyan(255,0,0):get image 1,0,0,512,512
yinyan(0,255,0):get image 2,0,0,512,512
make object plain 1,20,20:set object 1,1,0,0:texture object 1,1
make object plain 2,20,20:set object 2,1,0,0:texture object 2,2
rotate object 2,90,0,180: fix object pivot 2
do
a=wrapvalue(a+1):position camera 20*sin(a),20,20*cos(a):point camera 0,0,0
b=wrapvalue(b+2):zrotate object 1,b:yrotate object 2,b
sync:loop
function yinyan(r,g,b)
c=rgb(r,g,b)
circlefilled(256,256,256,c):ink 0,0:box 0,0,511,256
circlefilled(128,256,128,0):circlefilled(384,256,128,c)
circlefilled(128,256,64,c):circlefilled(384,256,64,0)
endfunction
function circlefilled(x,y,r,c)
ink c,0:for n=0 to r:n1=sqrt(r*r-n*n)
box x-n,y-n1,x+n,y+n1:next n
endfunction
The last word in this sentence is wrong