...
- concat("-array",sp,point(p1<0>p1<0>),sp,sp,"R",sp,stringitnounits(nrow),sp,stringitnounits(ncol),sp,stringit(distorifice),sp)
arrayA
arrayA(p1,p2,nitem,angle) :=
- concat("-array",sp,point(p1<0>),sp,sp,"P",sp,sp,point(p2<0>),sp,stringitnonunits(nitem),sp,stringitnonunits(angle),sp,"Y")
arrayB
arrayB(p1,nrow,ncol,disorifice) :=
- concat("-array",sppoint(p1<0>),sp,sp,"R",sp,stringitnonunits(nrow),sp,stringitnonunits(ncol),sp,stringit(disorifice))