【直線-22】直線による構成1

シェアする

直方体(rectfill)を使用し、幅(i)に拡大率(k)を懸けて次第に大きくしていきます。

参考:特選グラフィックスデザイン/著者:畠中兼司・北尾和信/1985年5月1日 初版発行/発行所:株式会社 学習研究社

1
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
%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 720 720
%%HiResBoundingBox: 0 0 720 720
%%CropBox: 0 0 720 720
%%Title: rectfillによる直線の幅の変化
%%Creator:Studio Fruit Jam / Toyokazu Nishi
%%Copyright:Studio Fruit Jam / Toyokazu Nishi
%%CreationDate:2015年12月23日水曜日17:18:30
%%ModificationDate:2018年5月18日金曜日午後6:23:42
%%ModificationDate:2018年8月8日 水曜日午前9:19:57
% 参考:特選グラフィックスデザイン

% ================ 座標変換 ================
360 360 translate
1 dup scale
% ================ 背景 =================
0.51764 0.82352 0.75686 setrgbcolor
-360 360 720 -720 rectfill

% ====================== 初期値
/DeviceRGB setcolorspace % カラースペース設定
0.8745 0.49803 0.59607 setrgbcolor

/x 0 def % x初期位置
/y -360 def % y底辺座標
/h 720 def % 高さ
/k .015 def % 拡大率
%% ================================================
%  メイン
% ================================================
newpath % パスの初期化

x y 0.1 h rectfill % センターの線を描画

0 5 360 {
  /i exch def
  x i add y i k mul h rectfill % (x+i,y  i*k,h) 右に向かって線を描画
  x i sub y i k mul h rectfill % (x-i,y  i*k,h) 左に向かって線を描画
} for

線の描画をプロシージャ化し、4個配置しました。右上と左下は回転しています。


1
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
57
%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 720 720
%%HiResBoundingBox: 0 0 720 720
%%CropBox: 0 0 720 720
%%Title: rectfillによる直線の幅の変化
%%Creator:Studio Fruit Jam / Toyokazu Nishi
%%Copyright:Studio Fruit Jam / Toyokazu Nishi
%%CreationDate:2015年12月23日水曜日17:18:30
%%ModificationDate:2018年5月18日金曜日午後6:23:42
%%ModificationDate:2018年8月8日 水曜日午前10:33:15
% 特選グラフィックスデザイン

% ================ 座標変換 ================
360 360 translate
1 dup scale
% ================ 背景 =================
%0.51764 0.82352 0.75686 setrgbcolor
%-360 360 720 -720 rectfill

% ====================== 初期値
/DeviceRGB setcolorspace % カラースペース設定
%0.8745 0.49803 0.59607 setrgbcolor
0 0 0 setrgbcolor
/x 0 def % x初期位置
/y -360 def % y底辺座標
/h 720 def % 高さ
/k .015 def % 拡大率
/ds 360 def % 描画サイズ
/w ds 2 mul def
/init { 0 dup translate } def % 座標の原点を中央に移動
/c1 { /rc 0.90196 def /gc 0.51372 def /bc 1 def} def % 以下カラー設定
/c2 { /rc 0.49803 def /gc 0.51764 def /bc 1 def } def
/c3 { /rc 0.40784 def /gc 0.88235 def /bc 0.9098 def } def
/c4 { /rc 0.37647 def /gc 0.87843 def /bc 0.59215 def } def
 
/line { % グラデの線を描くプロシージャ
  rc gc bc setrgbcolor % 色設定
  ds neg dup w dup rectfill % バックのタイル
  0 0 0  setrgbcolor
  x y 0.1 h rectfill % センターの線を描画
  0 5 360 {
    /i exch def
    x i add y i k mul h rectfill % (x+i,y  i*k,h) 右に向かって線を描画
    x i sub y i k mul h rectfill % (x-i,y  i*k,h) 左に向かって線を描画
  } for
} def
% ================================================
%  メイン
% ================================================
gsave gsave gsave % グラフィックス状態を3回保存
init c1 .5 dup scale ds neg ds translate line % パターンを縮小して左上に配置
grestore % グラフィックス状態を復帰
init c2 .5 dup scale ds ds translate 90 rotate line % 右上に回転して配置
grestore
init c3 .5 dup scale ds ds neg translate line % 左下に配置
grestore
init c4 .5 dup scale ds neg ds neg translate 90 rotate line % 右下に回転して配置