06/03/23 14:11:26 hSpxdKle
あと、輪郭線の描画はこんな方法も。ライトとアンビエント工夫するとこちらの方がキレイなセル表現も可能かも。
lightr as float
sync on:sync rate 60
set point light 0,0,0,0
set light range 0,10000
make camera 1
set current camera 1
color backdrop 1,rgb(255,255,255)
make object box 1,100,100,100
make object box 2,101,101,101
set object light 1,1
set object light 2,1
color object 1,rgb(255,0,0)
set object emissive 1,rgb(0,0,255)
set object specular 1,rgb(0,255,0)
set object specular power 1,10
color object 2,rgb(0,0,0)
position object 1,0,0,0
position object 2,0,0,0
scale object 2,-100,100,100
do
fps$="Shadow Example Fps: "+str$(screen fps())
text screen width()-20-text width(fps$),screen height()-40,fps$
lightr=lightr+0.5
zrotate object 1,lightr:zrotate object 2,lightr
xrotate object 1,lightr:xrotate object 2,lightr
position light 0,sin(lightr)*120,120,cos(lightr)*120
if lightr=360 then lightr=0
position camera -150,150,150
point camera 0,0,0
sync
loop