ジェクトの長さの計算を挿入します。 SMC_CalcLength [...] プルプロジェクトから派生したもの： xp:ARRAY[1..2] OF REAL:= [100,50]; yp:ARRAY