イラストレーターのマクロとか（２）

質問

以前に質問させて頂いた者です。
非常に的を得た回答を頂き、悩んでいた仕事がようやく進行できる兆しになったのですが
どうやら私がしようとしてた組み立て方が間違ってたらしく
以前こちらで教えてもらった手法を利用して
なんとかあと一歩の所まで来たのですが
プログラミング言語が理解できず、
悩んでいます。
できれば、追記式を教えてもらえれば
半年悩んだこの仕事ともオサラバできるのですが
どなたかご指導頂けないでしょうか。

-----以前の質問-----
イラストレーター上で、絵画したオブジェクトを
任意のピッチで増分移動させたい。

例：
●-●--●---●

●（絵画オブジェクト）
- 移動ピッチ

横一列にある規定のピッチにのっとり
指定回数分ピッチを増分して絵画する方法。

回答：
質問ページの要領を超えたので記載不可。
http://oshiete1.goo.ne.jp/kotaeru.php3?q=2103896

結果、良好で私の仕事もこれで終わったと思ってましたが
実は、とんでもない修正があり上記のプログラムでは
絵画できない事が発覚しました。

（なんとか利用してやってみようと試みましたが私の頭ではとてもできなかった）

今回の質問：

●-●-●-●-●
-●-●-●-●-
●-●-●-●-●
・・・・↓・・・・・永遠と続く

上記のように、綺麗に整列してない形状です。
しかも、横方向及び下方向のピッチは増分の対象となります。

また、増分する数値は下記の約束があります。

横方向：
左右に移動するピッチは変動（増分）しないが
一段下に下がる毎に、左右のピッチが少し増えていく。
下方向：
固定の増分ピッチで増えていく

あと、入れ子状態で絵画しているので
それぞれの描写開始地点も指定しなければなりません。

こんな特異な質問にご回答くださる方がいらっしゃればお願いします。

回答No.2

proust

%!PS-Adobe-1.0 EPSF-1.0
%%BoundingBox:0 0 841 595

/mm { 2.83464567 mul } def

/r 0.5 mm def % 円の半径
/xpitch 1 mm def % X方向のピッチ
/xdelta .2 mm def % 1行ふえるごとのX方向の増分
/ypitch 1 mm neg def % Y方向のピッチ (neg: マイナス)
/ydelta .2 mm neg def % 1行ふえるごとのY方向の増分
/x0 1 mm def % X位置の初期値
/y0 200 mm def % Y位置の初期値

/XCOUNT 10 def % X方向の繰り返し回数
/YCOUNT 10 def % Y方向の繰り返し回数

0 0 0 1 setcmykcolor % CMYK色指定

/y y0 def
% ycurを1..YCOUNTの間1づつ増やして
1 1 YCOUNT {/ycur exch def

% 奇数行のとき左端から開始、さもなくばピッチ÷2だけずらして開始★
% ycur 2 mod 1 eq { x0 } { x0 xpitch 2 div add } ifelse /x exch def
ycur 2 mod 1 eq { x0 } { x0 x0 2 div add } ifelse /x exch def

% xcurを1..XCOUNTの間１づつ増やして
1 1 XCOUNT {/xcur exch def

x y r 0 360 arc closepath fill
% X方向移動
/x x xpitch add def
} for

% Xピッチ増分
/xpitch xpitch xdelta add def

% Y方向移動
/y y ypitch add def

% Yピッチ増分
/ypitch ypitch ydelta add def
} for

showpage

すでに回答が出ているので蛇足かもしれませんが、PostScript版も出してみました。
入れ子状態の描画の部分がどう考えるかによるのだと思いますが、
あんまりきれいにならなかったです。

お礼

ありがとうございます。
こんなにも色んな回答を頂き、非常に嬉しいです。

一見ではとても理解できる頭の持ち主では無いので
自宅に帰ってからじっくり検討したいと思います。

闇の中で光を見つけた気持ちです。
ありがとうございました。