■ pointsToSankaku

 [2006/07/17] 

　指定した複数の点の座標からそれぞれの点を接続し尤もらしい三角形で埋める。

【書式】pointsToSankaku(pointsData)

【引数】pointsData : m行３列のm個の座標データ

【戻値】mm行９列の三角形データ

mm個の三角形

３列のポイント座標が三個で一つの三角形を示す

【備考】三角形は第一列と第二列の二次元で作成

【例　】

x =
size(3,3)+1;

y = changeXY(x)*100;

s = pointsToSankaku(y);

s1 = change(s,|1,2|);

s2 = change(s,|4,5|);

s3 = change(s,|7,8|);

start = cat(s1, cat(s2,s3));

stop = cat(s2, cat(s3,s1));

color = size(msize(start),1)+1;

setPlotWindowSize(400,400);

plotLineTo(start,stop,color)+0;

ss = sankakuHokan(s);

s1 = change(ss,|1,2|);

s2 = change(ss,|4,5|);

s3 = change(ss,|7,8|);

start = cat(s1, cat(s2,s3));

stop = cat(s2, cat(s3,s1));

color = size(msize(start),1)+1;

setPlotWindowSize(400,400);

plotLineTo(start,stop,color)+0;

ss = sankakuHokan(ss);

s1 = change(ss,|1,2|);

s2 = change(ss,|4,5|);

s3 = change(ss,|7,8|);

start = cat(s1, cat(s2,s3));

stop = cat(s2, cat(s3,s1));

color = size(msize(start),1)+1;

setPlotWindowSize(400,400);

plotLineTo(start,stop,color)+0;

ss = sankakuHokan(ss);

s1 = change(ss,|1,2|);

s2 = change(ss,|4,5|);

s3 = change(ss,|7,8|);

start = cat(s1, cat(s2,s3));

stop = cat(s2, cat(s3,s1));

color = size(msize(start),1)+1;

setPlotWindowSize(400,400);

plotLineTo(start,stop,color)+0;

ss = sankakuHokan(ss);

s1 = change(ss,|1,2|);

s2 = change(ss,|4,5|);

s3 = change(ss,|7,8|);

start = cat(s1, cat(s2,s3));

stop = cat(s2, cat(s3,s1));

color = size(msize(start),1)+1;

setPlotWindowSize(400,400);

plotLineTo(start,stop,color)+0;

ss = sankakuHokan(ss);

s1 = change(ss,|1,2|);

s2 = change(ss,|4,5|);

s3 = change(ss,|7,8|);

start = cat(s1, cat(s2,s3));

stop = cat(s2, cat(s3,s1));

color = size(msize(start),1)+1;

setPlotWindowSize(400,400);

plotLineTo(start,stop,color)+0;

ss = sankakuHokan(ss);

s1 = change(ss,|1,2|);

s2 = change(ss,|4,5|);

s3 = change(ss,|7,8|);

start = cat(s1, cat(s2,s3));

stop = cat(s2, cat(s3,s1));

color = size(msize(start),1)+1;

setPlotWindowSize(400,400);

plotLineTo(start,stop,color)+0;