#i := 0; //行
#j := 0; //列
#n := 0; //标号
#"0MT" := #MT;
#"90MT" := #MT;
#"180MT" := #MT;
#"270MT" := #MT;
REGION 0MT
// Statement section REGION
FOR #j := 1 TO #Col DO
// 控制列
//
FOR #i := 1 TO #Row DO
// 控制行
//
#n := #n + 1;
#"0MT"[#i, #j] := #n;
IF #n >= #Total THEN
// RETURN;
//
//GTO XZ;
//
EXIT;
END_IF;
END_FOR;
;
END_FOR;
END_REGION
//XZ: //旋转
REGION 90MT
// Statement section REGION
//顺时针旋转90
FOR #i := 1 TO #Col DO
FOR #j := 1 TO #Row DO
#"90MT"[#i, #j] := #"0MT"[#Row - #j + 1, #i];
END_FOR;
END_FOR;
END_REGION
REGION 180MT
// Statement section REGION
//顺时针旋转180
FOR #i := 1 TO #Row DO
FOR #j := 1 TO #Col DO
#"180MT"[#i, #j] := #"0MT"[#Row - #i + 1, #Col - #j + 1];
END_FOR;
END_FOR;
END_REGION
REGION 270MT
// Statement section REGION
//顺时针旋转270
FOR #i := 1 TO #Col DO
FOR #j := 1 TO #Row DO
#"270MT"[#i, #j] := #"0MT"[#j, #Col - #i + 1];
END_FOR;
END_FOR;
END_REGION
评论0