'■
'■ テクスチャつきとそうでないときの色の違い(^^;
'■ 同じ色を指定しているはずなのにこんなに違うとは…
'■
screen 0: width 2,1,39,26
sprwindow ,,,,,60,224/2
kload on: priority 10,5

locate 18,2 : print "Texture Color"
locate 18,4 : print "Ambient Light"
locate 14,22: print "[A]      New Colors"
locate 14,23: print "[L],[R]  Light Direction"

setpfont 1,4,(2,2,2,0,0,0):obj(1,@xp)= 0,-40:obj(1,@yr)=0.1:obj(1,@yrv)=0.001
locate 11, 8: print "<--- Normal   Polygon"

setpfont 2,4,(2,2,2,0,0,0):obj(2,@xp)= 0,+40:obj(2,@yr)=0.1:obj(2,@yrv)=0.001
locate 11,17: print "<--- Textured Polygon"

setpfont 3,12,(0.5,0.5,0.5,0,0,0)

*set_new_color
'
'◆ ポリゴン/テクスチャの色設定
'
tr = rnd(32) : tg = rnd(32) : tb = rnd(32)
line (130,24)-(142,31),rgb(tr,tg,tb),bf

'-- for polygon
setatr 0,6,(4,1,3,0,rgb(tr,tg,tb),8)

'-- for textured polygon
settex 0,8,8,32768,strw$(64,rgb(tr,tg,tb)+&h8000)
setatr 1,6,(0,1,3,0,0,8)

'
'◆ 光源色&環境光の設定
'
lr = rnd(32) : lg = rnd(32) : lb = rnd(32)
ar = rnd(32) : ag = rnd(32) : ab = rnd(32)
setatr 2,26,(4,1,3,0,rgb(lr,lg,lb),0)
line (130,40)-(142,47),rgb(ar,ag,ab),bf

for i = 0 to 180
   t  = xcos(i/360)*&HF.FFFC

   pr = lr-ar+t-15
   pg = lg-ag+t-15
   pb = lb-ab+t-15

   gr = tr-16
   gg = tg-16
   gb = tb-16

'  ▼ for polygon
   pp = rgbadd(  0, pr+gr, pg+gg, pb+gb )
   cc = rgbadd( pp, ar, ag, ab)
   line (i+130, 90)-(i+130,100),cc

'  ▼ for textured polygon
   pp = rgbadd(  0, pr, pg, pb )
   cc = rgbadd( pp, ar+gr, ag+gg, ab+gb )
   line (i+130,125)-(i+130,135),cc
next

*light_dir
setlight xsin(R/360),0,xcos(R/360),rgb(lr,lg,lb),rgb(ar,ag,ab)
obj(3,@xp)=-80*xsin(R/360),0,-80*xcos(R/360)

*key_wait
   vsync
   p = pad(0,1)
   if p and @pad_a  then *set_new_color
   if p and @pad_l  then r=  (r+1)mod 360:goto *light_dir
   if p and @pad_r  then r=(r+359)mod 360:goto *light_dir
   goto *key_wait

goto *set_new_color