DarkBASIC 使っている奴情報交換してください

DarkBASIC 使っている奴情報交換してくださいat GAMEDEV

DarkBASIC 使っている奴情報交換してください - 暇つぶし2ch■コピペモード
□スレを通常表示
□オプションモード
□このｽﾚｯﾄﾞのURL
■項目テキスト

239:135 ◆2i.vL..9Ww 
 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

次ページ