// lap.v ラプラシアンフィルタモジュール

module Laplacian(in:input,edge:output)
int in on pixel cache 1;
int edge on pixel;
{
    parallel{
	int sum;
	// 近傍画素と注目画素との差分をとる
	sum = in[-1][-1]+in[-1][]+in[-1][1]
  	    + in[][-1]-in[][]*8+in[][1]
            + in[1][-1]+in[1][]+in[1][1];
	
	// 結果の絶対値をとり出力とする
	if(sum < 0) sum = -sum;
	edge[][] = sum;
  }
}