ポリゴン・プレーンにシェーダーを市松模様にアサインする （２）

まずは前回までの内容を簡単におさらいします。

まず自分が、これでいけるのではないかという処理の仕方を考え、全体の流れを作った。

簡単にまとめると、既知の情報、今回のスクリプトでは、
フェイスID（0-899）、subdividsionsWidth　30
の二つを使って、条件（奇数行か複数行か）を見分けて、
それぞれ別の処理を条件にしたがって行える流れを作った。

また、このエントリでは、@Atsushiさんからもコメントをいただき、非常に有益な法則をおしえていただきました。是非前回のエントリのコメント欄をご覧ください。
現在はその法則に関する、理解を深めているところですが、消化できしだい、その方法を使ったスクリプトをつくってみたいと思っています。

今回はとりあえず、前回の段階で頭の中で考えていた物を出してみました。


－－－－－－－－－－－－－
＜一つおきに彩色するスクリプト＞
今回は、実際に実行する部分のスクリプトを作っていきます。

実際には「ある行で、二つおきにポリゴンに彩色する」スクリプトである。

これは前回、作りました。
前回のエントリで2つ目に上げたスクリプトを、少し修正した物を以下に再掲します。

※　前回書き忘れましたが、このスクリプトはプレーンの名前は「pPlane1」、シェーダーグループ名は「lambert2SG」（シェーダーは赤などの色にしておくとわかりやすい）でなくては動きません。
＜修正前＞
{
// color on a line
$width = 30; //subdivisionsWidth
$height = 30; //subdivisionsHeight
$total = $width * $height;
int $i;

select -r pPlane1.f[$i] ;

for ($i=0; $i < $total; $i+=2)
{
select -add pPlane1.f[$i];
sets -e -forceElement lambert2SG;
};
}

１）ループの始まる前にフェイス「0」を選択していましたが、$iの変数にゼロを代入していなかったので代入。
２）そもそも、ここで選択しなくてもループで選択されるのでこの行自体を削除　（最初はselect -addだけでは最初のものは選択できないと思っていた）
３）select -rがなくなったので、何か選択していたら、それが残ってしまう。（たとえばオブジェクトを選択していたらそのオブジェクトにも色がついてしまう。）のでループが始まる前に、selct -clを追加。
４）ループ終了後に選択を解除するためにselect -clを追加。
5）今回は1行分ができればよいのでループの条件に、$totalを使わず、$widthを使った。

＜修正後＞
{
// color on a odd line
$width = 30; //subdivisionsWidth
$height = 30; //subdivisionsHeight
$total = $width * $height;
int $i=0;

select -cl;
for ($i=0; $i < $width; $i+=2)
{
select -add pPlane1.f[$i];
sets -e -forceElement lambert2SG;
};
select -cl;
}

これを実行すると最初の1行だけ、一つおきに色をつけることができます。
例：　一行目：0-29　　(0,2,4,6,8,10,12,14,16,18,20,22,24,26,28)
これを奇数行につかうことにします。


－－－－－－－－－－－－－
＜偶数行で彩色するスクリプト＞
つぎに偶数行です。
偶数行への色づけは最初のフェイスが一桁目が「1」のものから色をつけていきます。
例：　二行目：30-59　(31,33,35,37,39,41,43,45,47,49,51,53,55,57,59)

上記のスクリプトに少し手を入れてこれを実行できるようにします。
二行目用なので、
１）30から始まるので$iの初期値を30にする。
２）しかし、実際の色づけは31からなので「+1」を$iの初期値に加えています。
３）条件も30+$widthの値にする。

{
// color on an even line
$width = 30; //subdivisionsWidth
$height = 30; //subdivisionsHeight
$total = $width * $height;
int $i=0;

select -cl;
for ($i=30+1; $i < 30+$width; $i+=2)
{
select -add pPlane1.f[$i];
sets -e -forceElement lambert2SG;
};
select -cl;
}

これを実行すると二行目に色がつきます。

－－－－－－－－－－－－－

＜ポリゴン・プレーンを市松模様にする＞

さてこれを前回最後に作ったスクリプトに組み合わせてみる。
予定としては
１）$iはフェイスIDとして使う。
２）メインループは、行のカウントのみに使う。
３）サブループはある1行のなかの処理（フェイスの着色処理）のみに使う。
４）メインループの$iの値をサブループで使うことで、行の情報を利用することが出来る。
５）メインループへ戻ってくるのは1行の処理が終了した後、すなわち$widthが増分値となる。


{
$width = 30; //subdivisionsWidth
$height = 30; //subdivisionsHeight
$total = $width *$height;
int $i =0;
int $odd;

for($i=0; $i<$total; $i+=$width){
$odd=$i/2%2;  // odd=0 mean the line coloring start from odd number , not mean odd line.

if ($odd==1){
    // color on an even line
    select -cl;
        for ($e=$i+1; $e < $i+$width; $e+=2)
        {
        select -add pPlane1.f[$e];
        sets -e -forceElement lambert2SG;
        };
    select -cl;
    }else{
    // color on a odd line
    select -cl;
    for ($o=$i; $o < $i+$width; $o+=2)
        {
        select -add pPlane1.f[$o];
        sets -e -forceElement lambert2SG;
        };
    select -cl;
    };

};
}

これで無事、市松模様になりました。

ただ安心するのはまだ早い。
WidthとHeightの値が異なる数字でもちゃんと機能するかどうか？　ポリ・プレーンのサブディビジョンとスクリプトの変数を変えて試してみることにします。
スクリプトは「汎用性」があるほど、有益ですから、これは自分のスクリプトの価値を試す重要なテストです。


．．．．。

結論から言うと、試すんじゃなかった。

width = 20
height = 30
にすると、一列に並んで縞模様になってしまいました。
$odd=$i/2%2;
で全部偶数と判断されるようです。

width = 19
height = 30
にすると、こんどは2行おきに市松模様。
同じく、$odd=$i/2%2;
の行で、奇数行、偶数行の判定がうまく出来ていないようです。
まあなんで最初２で割る必要があるのか？　これは、Widthが偶数でも2で割れば奇数にできると思ったからなんですが、それが言えるのは10とか30といった数字だけの話でした。
20とか40、そして19には使えません。


どうも汎用性がある奇数行、偶数行の判定はこの公式では駄目そうですね。


数字の基礎的な部分の法則について、知らなかったことが原因の一つでしょうね。
あまりにも、無知すぎますが、まぁこういった失敗を繰り返すことで、知識がしっかりとした物になるのだと思います。

数学の法則を見つけていくのは大変な労力が必要だし、全て見つけるのは不可能ですから、@Atsushiさんのような経験者の方からいただくアドバイスは非常に、良い手助けとなります。

しかし、アドバイスいただいたことを、しっかりと理解し、自分の中で消化し、それを身につけることも同じぐらい重要なことなので、じっくりと検証していきたいと思います。

しかし、「市松模様」　思った以上にはまりました．．．。
（つづく）


－－－－－－－－－－－－－
奇数と偶数判定のMelについてざっと調べてみたところ、情報がいくつかあったので次回のためにメモ：
１）　林田ブログ　「楽しんでスクリプト」
２）　Digital Matrix 「tripleSwitch」
３）Area　「mel script with diamond checker board question tia sal2」
４）SPAFi　「Even or Odd? Black or White?」


－－－－－－－－－－－－－

関連エントリ
ポリゴン・プレーンにシェーダーを市松模様にアサインする　（１）