三角形をランダムに回転させて配置するプログラムです。
15~19行 画面サイズ（gw,gh）をグリッド数(grid)で割ってグリッド幅(w,h)出しています。
28行 グリッド幅を三角形の一辺（hen）とします。
30行 回転角度（0度 90度 180度 270度 360度）をang配列に入れます。
37行 そこから0〜4までの乱数を発生させて(rand 5 mod)角度を取り出し(get)回転（rotate）します。
38〜39行 三角形を描きます。ここでは相対位置を使用して線分を追加しています。
47~56行 縦と横のx,y座標を繰り返し計算して、三角形プロシージャに値を渡して行きます。
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
%%BoundingBox: 0 0 720 720
%%HiResBoundingBox: 0 0 720 720
%%CropBox: 0 0 720 720
%%Title:三角形ランダム配置パターン001
%%Creator:Studio Fruit Jam / Toyokazu Nishi
% ================ 座標変換 ================
0 0 translate
% ================ 背景 =================
/DeviceRGB setcolorspace % カラースペース設定
0 0 0 setrgbcolor % 黒
0 720 720 -720 rectfill % 黒四角形を配置
% ================ 定義 ================
/gw 720 def % 画面横サイズ
/gh 720 def % 画面縦サイズ
/grid 10 def % グリッド数
/w gw grid div def % グリッド横幅
/h gh grid div def % グリッド縦幅
/hc 1 def % 色相
/sc .6 def % 彩度
/bc 1 def % 明度
% ================================================
% 三角形をランダムに配置する
% ================================================
/hen w def % 三角形の一辺の長さ（グリッド横と同じにする）
/hen2 hen 2 div def % 一辺の長さの半分
/ang [ 0 90 180 270 360 ] def % 三角形の回転角度の配列
/triangle { % 三角形プロシージャ
/dy exch def % y座標を取得
/dx exch def % x座標を取得
dx dy translate % x y 座標に移動
hen2 dup translate % 38行で回転の中心を移動する分の補正
ang rand 5 mod get rotate % 配列からランダムに角度を取得し、回転する
hen2 neg dup moveto % 三角形の回転の中心を移動する
hen 0 rlineto 0 hen rlineto closepath % 三角形描画
hc sc bc sethsbcolor % カラー設定
fill % 塗りつぶす
} def
% ================================================
% メイン
% ================================================
0 1 grid 1 sub { % 0〜9まで繰り返す
/yrow exch def % 縦のグリッド数を取得
/y yrow h mul def % y座標を計算
0 1 grid 1 sub { % 0〜9まで繰り返す
/xcol exch def % 横のグリッド数を取得
/x xcol w mul def % x座標を計算
gsave x y triangle grestore % 三角形プロシージャ呼び出し
/hc hc .01 sub def % 色相から0.01引く
} for
} for
【応用例】
コメント