<?xml version="1.0" encoding="UTF-8"?>
<X3D>
<Scene>
<Viewpoint/>
<NavigationInfo headlight='FALSE'
type='"EXAMINE"'
/>
<!-- 照明 -->
<DirectionalLight DEF='DL' direction='-0.7 -0.5 -1'/>
<!-- 箱 -->
<Shape>
<Appearance>
<PixelTexture DEF='PT'/>
</Appearance>
<Box/>
</Shape>
<!-- 箱のテクスチャー作成スクリプト -->
<Script DEF='Sc'>
<field accessType='outputOnly' type='SFImage' name='image'/>
<field accessType='initializeOnly' type='SFInt32' name='dt' value='128'/>
<field accessType='initializeOnly' type='SFColor' name='colA' value='0.3 1 0.3'/>
<field accessType='initializeOnly' type='SFColor' name='colB' value='0.5 0.2 0.2'/>
<field accessType='initializeOnly' type='SFNode' name='DL'>
<DirectionalLight USE='DL'/>
</field>
<![CDATA[ecmascript:
// SFColorオブジェクトを 0 から 0xFFFFFF の間の整数に変換する為の関数。
function SFColor2Int (c) {
var r = Math.floor ( c.r * 255 );
var g = Math.floor ( c.g * 255 );
var b = Math.floor ( c.b * 255 );
return r * 65536 + g * 256 + b;
}
function initialize () {
// dr を光が差し込む向きとは正反対の単位ベクトルとする。
var dr = DL.direction.negate().normalize();
var col1 = SFColor2Int ( colB );
var ary = new MFInt32 ();
// 円の半径 r を dt の半分とする。
var r = dt / 2;
var rr = r * r;
var q = 0;
// テクスチャーの左下から順番に、全ピクセルに対して円の内外に位置するか否かを調べて塗り分ける。
for ( var y = 0; y < dt; y++ ) {
var y0 = y - r;
var yy = y0 * y0;
for ( var x = 0; x < dt; x++ ) {
var x0 = x - r;
var xx = x0 * x0;
if ( rr > xx + yy ) {
// ピクセルが円の内側にあるならば、x と y 座標から仮の球に対する z 座標を求める。
var z0 = Math.sqrt( rr - xx - yy );
// 仮の球の表面の位置ベクトル point を求める。 この球は原点が中心である為、point は法線ベクトルも意味する。
var point = new SFVec3f ( x0, y0, z0 );
// 正規化された point と dr との内積をとり、両ベクトルのコサイン値 ( -1 <= cos <= 1 )を得る。
var cos = point.normalize().dot( dr );
// コサイン値からピクセルの明るさを求める。 コサイン値が 1 ならば colA と同じ色であり、0 に近づく程に暗くなる。
var colC = new SFColor ();
colC.r = Math.max ( 0, Math.min ( 1, colA.r * cos ));
colC.g = Math.max ( 0, Math.min ( 1, colA.g * cos ));
colC.b = Math.max ( 0, Math.min ( 1, colA.b * cos ));
ary[q++] = SFColor2Int ( colC );
}
else ary[q++] = col1;
}
}
image = new SFImage ( dt, dt, 3, ary );
}
]]>
</Script>
<ROUTE fromNode='Sc' fromField='image' toNode='PT' toField='image'/>
</Scene>
</X3D>