日本の代表的な伝統色(近似色)の色見本

-
1.概要

日本の代表的な伝統色(近似色)の色見本を表示するサンプルを作成して見ました。実際には、約400色あるようです。 和の呼び名の響きと素朴さを感じる色彩は何とも言えません。尚、表示している色については、近似色ですので実際の色とは多少異なります。




2.色見本コード一覧

色見本コードの一覧表です。全部で191色を掲載しています。

日本の代表的な伝統色(近似色)の色見本コード一覧表

No.伝統色コード日本語名読み No.伝統色コード日本語名読み
1
#d6c6af亜麻色あまいろ 2
#b7282e茜あかね
3
#deb068飴色あめいろ 4
#00552e暗紅あんこう
5
#928c36鴬色うぐいすいろ 6
#715c1f鴬茶うぐいすちゃ
7
#d0b000黄き 8
#e6b422黄金こがね
9
#765c47黄枯茶きがらちゃ 10
#ee7948黄丹おうに
11
#c39143黄土色おうどいろ 12
#b68d4c黄橡きつるばみ
13
#d66a35黄櫨染こうろぜん 14
#fef263黄檗色きはだいろ
15
#d8a373伽羅色きゃらいろ 16
#4d5aaf花色はないろ
17
#824880茄子紺なすこん 18
#726d40海松色みるいろ
19
#7d7d7d灰色はいいろ 20
#e9e4d4灰白かいはくしょく
21
#ed6d3d柿色かきいろ 22
#475950革色かわいろ
23
#4d4c61褐色かちいろ 24
#8a3b00褐色かっしょく
25
#203744褐返かちかえし 26
#cd5e3c樺色かばいろ
27
#726250樺茶色かばちゃいろ 28
#f8b862萱草色かんぞういろ
29
#f6ad49柑子色こうじいろ 30
#e95464韓紅からくれない
31
#5654a2桔梗色ききょういろ 32
#e6b422金色こんじき
33
#f39800金茶きんちゃ 34
#c85554銀朱ぎんしゅ
35
#afafb0銀鼠ぎんねず 36
#856859銀煤竹ぎんすすだけ
37
#9d896c空五倍子色うつぶしいろ 38
#a0d8ef空色そらいろ
39
#762f07栗色くりいろ 40
#852e19栗梅くりうめ
41
#4c6cb3群青色ぐんじょういろ 42
#917347朽葉色くちばいろ
43
#895b8a古代紫こだいむらさき 44
#e0c38c枯色かれいろ
45
#8d6449枯茶からちゃ 46
#c38743狐色きつねいろ
47
#a86f4c胡桃色くるみいろ 48
#485859錆鉄御納戸さびてつおなんど
49
#745399江戸紫えどむらさき 50
#d7003a紅くれない
51
#d9333f紅赤べにあか 52
#f2a0a1紅梅色こうばいいろ
53
#efcd9a香色こういろ 54
#6e7955麹塵きくじん
55
#7b6c3e国防色こくぼうしょく 56
#16160e暗黒色あんこくしょく
57
#583822黒茶くろちゃ 58
#544a47黒橡くろつるばみ
59
#d0576b今様色いまよういろ 60
#223a70紺色こんいろ
61
#4d5aaf紺桔梗こんききょう 62
#192f60紺青こんじょう
63
#164a84紺瑠璃こんるり 64
#fef4f4桜色さくらいろ
65
#6c3524錆色さびいろ 66
#47585c錆鼠さびねず
67
#f8b500山吹色やまぶきいろ 68
#767c6b山鳩色やまばといろ
69
#2e2930紫黒しこく 70
#460e44紫紺しこん
71
#98d98e若緑わかみどり 72
#eb6101朱色しゅいろ
73
#ba2636緋あけ 74
#f19072曙色あけぼのいろ
75
#96514d小豆色あずきいろ 76
#e49e61小麦色こむぎいろ
77
#839b5c松葉色まつばいろ 78
#ae7c58焦香こがれこう
79
#6f4b3e焦茶こげちゃ 80
#f8f4e6象牙色ぞうげいろ
81
#a22041真紅しんく 82
#c9171e深緋こきひ
83
#00552e深緑ふかみどり 84
#d57c6b真赭まそほ
85
#f1bf99人色ひといろ 86
#bce2e8水色みずいろ
87
#94846a生壁色なまかべいろ 88
#0095d9青あお
89
#393e4f青褐あおかち 90
#99ab4e青丹あおに
91
#6b7b6e青鈍あおにび 92
#9ba88d青白橡あおしろつるばみ
93
#274a78青藍せいらん 94
#00a497青緑あおみどり
95
#e5abbe石竹色せきちくいろ 96
#e60033赤あか
97
#683f36赤褐色せっかっしょく 98
#eb6ea5赤紫あかむらさき
99
#ce5242赤丹あかに 100
#752100赤銅色しゃくどういろ
101
#d7a98c赤白橡あかしろつるばみ 102
#494a41仙斎茶せんさいちゃ
103
#92b5a9千草色ちぐさいろ 104
#a25768浅蘇芳あさすおう
105
#00a3af浅葱色あさぎいろ 106
#88cb7f浅緑あさみどり
107
#84b9cb浅縹あさはなだ 108
#f2c9ac洗柿あらいがき
109
#d0826c洗朱あらいしゅ 110
#9e3d3f蘇芳すおう
111
#949495鼠色ねずみいろ 112
#7b8d42草色くさいろ
113
#69821b苔色こけいろ 114
#d69090退紅あらぞめ
115
#bb5520代赭たいしゃ 116
#e45e32丹色にいろ
117
#f8e58c淡黄たんこう 118
#664032茶褐色ちゃかっしょく
119
#965042茶色ちゃいろ 120
#efcd9a丁子色ちょうじいろ
121
#b4866b丁子茶ちょうじちゃ 122
#fff1cf鳥の子色とりのこいろ
123
#455765鉄御納戸てつおなんど 124
#005243鉄色てついろ
125
#bc763c土色つちいろ 126
#c37854土器色かわらけいろ
127
#f09199桃色ももいろ 128
#bbbcde藤色ふじいろ
129
#f4b3c2鴇色ときいろ 130
#95483f鳶色とびいろ
131
#727171鈍色にびいろ 132
#915c8b二藍ふたあい
133
#f1bf99肉色にくいろ 134
#f3f3f3乳白色にゅうはくしょく
135
#634950濃色こきいろ 136
#4f455c濃鼠こいねず
137
#698aab薄花色うすはないろ 138
#d4acad薄柿うすがき
139
#e597b2薄紅梅うすこうばい 140
#a89dac薄色うすいろ
141
#9790a4薄鼠うすねず 142
#adadad薄鈍うすにび
143
#a3a3a2薄墨色うすずみいろ 144
#69b076薄緑うすみどり
145
#507ea4薄縹うすはなだ 146
#fce2c4肌色はだいろ
147
#95859c鳩羽色はとばいろ 148
#9e8b8e鳩羽鼠はとばねずみ
149
#abced8秘色色ひそくいろ 150
#d3381c緋色ひいろ
151
#b0ca71苗色なえいろ 152
#640125葡萄色えびいろ
153
#705b67葡萄鼠ぶどうねずみ 154
#006e54萌葱色もえぎいろ
155
#a3a3a2薄墨色うすずみいろ 156
#594255滅紫けしむらさき
157
#3b7960木賊色とくさいろ 158
#c7b370木蘭色もくらんじき
159
#a8c97f柳色やなぎいろ 160
#a19361油色あぶらいろ
161
#fcd575卵色たまごいろ 162
#165e83藍色あいいろ
163
#56564b藍海松茶あいみるちゃ 164
#6c848d藍鼠あいねず
165
#393f4c藍鉄あいてつ 166
#888e7e利久鼠りきゅうねずみ
167
#8f8667利久茶りきゅういろ 168
#3eb370緑みどり
169
#dccb18緑黄色りょくおうしょく 170
#1e50a2瑠璃色るりいろ
171
#ede4cd練色ねりいろ 172
#8c7042路考茶ろこうちゃ
173
#38a1db露草色つゆくさいろ 174
#2b2b2b蝋色ろういろ
175
#716246媚茶こびちゃ 176
#965036檜皮色ひわだいろ
177
#fbca4d支子色くちなしいろ 178
#ee7800橙色だいだいいろ
179
#fabf14鬱金色うこんいろ 180
#762f07涅色くりいろ
181
#2792c3縹色はなだいろ 182
#b94047臙脂えんじ
183
#7058a3菫色すみれいろ 184
#e9546b薔薇色ばらいろ
185
#ab6953赭そほ 186
#bf794e駱駝色らくだいろ
187
#d7cf3a鶸色ひわいろ 188
#8c8861鶸茶ひわちゃ
189
#b48a76梅染うめぞめ 190
#ffffff白しろ
191
#884898紫むらさき





3.ソースコード

下記に掲載しているサンプルスクリプトでは、代表的な191色を配列テーブルとして定義し、 １画面に収まるように 画面を３画面に分割して、次、前の画面切替ボタンを配置した単純な構成としています。 ソースコードをコピーしてHSPスクリプトエディタから実行して下さい。
iromihon.hsp
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
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
;   ***** 日本の代表的な伝統色 (近似色) 191色の色見本サンプル (iromihon.hsp) *****
 
    ; 実行ファイル自動作成
    #packopt type 0
    #packopt name "iromihon"
    #packopt runtime "hsprt"
    #packopt hide 1
 
    onexit *owari
 
    ; 起動ディレクトリ取得
    sdim Startdir,260
    if hspstat&1=0 { Startdir=dir_exe+"¥¥" : chdir dir_exe
    } else {
        Startdir=dir_cur+"¥¥"
    }
    chdir Startdir
 
    sdim jpncol,64,191
    jpncol(0)   = "$d6,$c6,$af,亜麻色（あまいろ）"
    jpncol(1)   = "$b7,$28,$2e,茜（あかね ）"
    jpncol(2)   = "$de,$b0,$68,飴色（あめいろ）"
    jpncol(3)   = "$00,$55,$2e,暗紅（あんこう ）"
    jpncol(4)   = "$92,$8c,$36,鴬色（うぐいすいろ）"
    jpncol(5)   = "$71,$5c,$1f,鴬茶（うぐいすちゃ）"
    jpncol(6)   = "$d0,$b0,$00,黄（き）"
    jpncol(7)   = "$e6,$b4,$22,黄金（こがね）"
    jpncol(8)   = "$76,$5c,$47,黄枯茶（きがらちゃ）"
    jpncol(9)   = "$ee,$79,$48,黄丹（おうに）"
    jpncol(10)  = "$c3,$91,$43,黄土色（おうどいろ）"
    jpncol(11)  = "$b6,$8d,$4c,黄橡（きつるばみ）"
    jpncol(12)  = "$d6,$6a,$35,黄櫨染（こうろぜん）"
    jpncol(13)  = "$fe,$f2,$63,黄檗色（きはだいろ）"
    jpncol(14)  = "$d8,$a3,$73,伽羅色（きゃらいろ）"
    jpncol(15)  = "$4d,$5a,$af,花色（はないろ）"
    jpncol(16)  = "$82,$48,$80,茄子紺（なすこん）"
    jpncol(17)  = "$72,$6d,$40,海松色（みるいろ）"
    jpncol(18)  = "$7d,$7d,$7d,灰色（はいいろ）"
    jpncol(19)  = "$e9,$e4,$d4,灰白（かいはくしょく）"
    jpncol(20)  = "$ed,$6d,$3d,柿色（かきいろ）"
    jpncol(21)  = "$47,$59,$50,革色（かわいろ）"
    jpncol(22)  = "$4d,$4c,$61,褐色（かちいろ）"
    jpncol(23)  = "$8a,$3b,$00,褐色（かっしょく）"
    jpncol(24)  = "$20,$37,$44,褐返（かちかえし）"
    jpncol(25)  = "$cd,$5e,$3c,樺色（かばいろ）"
    jpncol(26)  = "$72,$62,$50,樺茶色（かばちゃいろ）"
    jpncol(27)  = "$f8,$b8,$62,萱草色（かんぞういろ）"
    jpncol(28)  = "$f6,$ad,$49,柑子色（こうじいろ）"
    jpncol(29)  = "$e9,$54,$64,韓紅（からくれない）"
    jpncol(30)  = "$56,$54,$a2,桔梗色（ききょういろ）"
    jpncol(31)  = "$e6,$b4,$22,金色（こんじき）"
    jpncol(32)  = "$f3,$98,$00,金茶（きんちゃ）"
    jpncol(33)  = "$c8,$55,$54,銀朱（ぎんしゅ）"
    jpncol(34)  = "$af,$af,$b0,銀鼠（ぎんねず）"
    jpncol(35)  = "$85,$68,$59,銀煤竹（ぎんすすだけ）"
    jpncol(36)  = "$9d,$89,$6c,空五倍子色（うつぶしいろ）"
    jpncol(37)  = "$a0,$d8,$ef,空色（そらいろ）"
    jpncol(38)  = "$76,$2f,$07,栗色（くりいろ）"
    jpncol(39)  = "$85,$2e,$19,栗梅（くりうめ）"
    jpncol(40)  = "$4c,$6c,$b3,群青色（ぐんじょういろ）"
    jpncol(41)  = "$91,$73,$47,朽葉色（くちばいろ）"
    jpncol(42)  = "$89,$5b,$8a,古代紫（こだいむらさき）"
    jpncol(43)  = "$e0,$c3,$8c,枯色（かれいろ）"
    jpncol(44)  = "$8d,$64,$49,枯茶（からちゃ）"
    jpncol(45)  = "$c3,$87,$43,狐色（きつねいろ）"
    jpncol(46)  = "$a8,$6f,$4c,胡桃色（くるみいろ）"
    jpncol(47)  = "$48,$58,$59,錆鉄御納戸（さびてつおなんど）"
    jpncol(48)  = "$74,$53,$99,江戸紫（えどむらさき）"
    jpncol(49)  = "$d7,$00,$3a,紅（くれない）"
    jpncol(50)  = "$d9,$33,$3f,紅赤（べにあか）"
    jpncol(51)  = "$f2,$a0,$a1,紅梅色（こうばいいろ）"
    jpncol(52)  = "$ef,$cd,$9a,香色（こういろ）"
    jpncol(53)  = "$6e,$79,$55,麹塵（きくじん）"
    jpncol(54)  = "$7b,$6c,$3e,国防色（こくぼうしょく）"
    jpncol(55)  = "$16,$16,$0e,暗黒色（あんこくしょく）"
    jpncol(56)  = "$58,$38,$22,黒茶（くろちゃ）"
    jpncol(57)  = "$54,$4a,$47,黒橡（くろつるばみ）"
    jpncol(58)  = "$d0,$57,$6b,今様色（いまよういろ）"
    jpncol(59)  = "$22,$3a,$70,紺色（こんいろ）"
    jpncol(60)  = "$4d,$5a,$af,紺桔梗（こんききょう）"
    jpncol(61)  = "$19,$2f,$60,紺青（こんじょう）"
    jpncol(62)  = "$16,$4a,$84,紺瑠璃（こんるり）"
    jpncol(63)  = "$fe,$f4,$f4,桜色（さくらいろ）"
    jpncol(64)  = "$6c,$35,$24,錆色（さびいろ）"
    jpncol(65)  = "$47,$58,$5c,錆鼠（さびねず）"
    jpncol(66)  = "$f8,$b5,$00,山吹色（やまぶきいろ）"
    jpncol(67)  = "$76,$7c,$6b,山鳩色（やまばといろ）"
    jpncol(68)  = "$2e,$29,$30,紫黒（しこく）"
    jpncol(69)  = "$46,$0e,$44,紫紺（しこん）"
    jpncol(70)  = "$98,$d9,$8e,若緑（わかみどり）"
    jpncol(71)  = "$eb,$61,$01,朱色（しゅいろ）"
    jpncol(72)  = "$ba,$26,$36,緋（あけ）"
    jpncol(73)  = "$f1,$90,$72,曙色（あけぼのいろ）"
    jpncol(74)  = "$96,$51,$4d,小豆色（あずきいろ）"
    jpncol(75)  = "$e4,$9e,$61,小麦色（こむぎいろ）"
    jpncol(76)  = "$83,$9b,$5c,松葉色（まつばいろ）"
    jpncol(77)  = "$ae,$7c,$58,焦香（こがれこう）"
    jpncol(78)  = "$6f,$4b,$3e,焦茶（こげちゃ）"
    jpncol(79)  = "$f8,$f4,$e6,象牙色（ぞうげいろ）"
    jpncol(80)  = "$a2,$20,$41,真紅（しんく）"
    jpncol(81)  = "$c9,$17,$1e,深緋（こきひ）"
    jpncol(82)  = "$00,$55,$2e,深緑（ふかみどり）"
    jpncol(83)  = "$d5,$7c,$6b,真赭（まそほ）"
    jpncol(84)  = "$f1,$bf,$99,人色（ひといろ）"
    jpncol(85)  = "$bc,$e2,$e8,水色（みずいろ）"
    jpncol(86)  = "$94,$84,$6a,生壁色（なまかべいろ）"
    jpncol(87)  = "$00,$95,$d9,青（あお）"
    jpncol(88)  = "$39,$3e,$4f,青褐（あおかち）"
    jpncol(89)  = "$99,$ab,$4e,青丹（あおに）"
    jpncol(90)  = "$6b,$7b,$6e,青鈍（あおにび）"
    jpncol(91)  = "$9b,$a8,$8d,青白橡（あおしろつるばみ）"
    jpncol(92)  = "$27,$4a,$78,青藍（せいらん）"
    jpncol(93)  = "$00,$a4,$97,青緑（あおみどり）"
    jpncol(94)  = "$e5,$ab,$be,石竹色（せきちくいろ）"
    jpncol(95)  = "$e6,$00,$33,赤（あか）"
    jpncol(96)  = "$68,$3f,$36,赤褐色（せっかっしょく）"
    jpncol(97)  = "$eb,$6e,$a5,赤紫（あかむらさき）"
    jpncol(98)  = "$ce,$52,$42,赤丹（あかに）"
    jpncol(99)  = "$75,$21,$00,赤銅色（しゃくどういろ）"
    jpncol(100) = "$d7,$a9,$8c,赤白橡（あかしろつるばみ）"
    jpncol(101) = "$49,$4a,$41,仙斎茶（せんさいちゃ）"
    jpncol(102) = "$92,$b5,$a9,千草色（ちぐさいろ）"
    jpncol(103) = "$a2,$57,$68,浅蘇芳（あさすおう）"
    jpncol(104) = "$00,$a3,$af,浅葱色（あさぎいろ）"
    jpncol(105) = "$88,$cb,$7f,浅緑（あさみどり）"
    jpncol(106) = "$84,$b9,$cb,浅縹（あさはなだ）"
    jpncol(107) = "$f2,$c9,$ac,洗柿（あらいがき）"
    jpncol(108) = "$d0,$82,$6c,洗朱（あらいしゅ）"
    jpncol(109) = "$9e,$3d,$3f,蘇芳（すおう）"
    jpncol(110) = "$94,$94,$95,鼠色（ねずみいろ）"
    jpncol(111) = "$7b,$8d,$42,草色（くさいろ）"
    jpncol(112) = "$69,$82,$1b,苔色（こけいろ）"
    jpncol(113) = "$d6,$90,$90,退紅（あらぞめ）"
    jpncol(114) = "$bb,$55,$20,代赭（たいしゃ）"
    jpncol(115) = "$e4,$5e,$32,丹色（にいろ）"
    jpncol(116) = "$f8,$e5,$8c,淡黄（たんこう）"
    jpncol(117) = "$66,$40,$32,茶褐色（ちゃかっしょく）"
    jpncol(118) = "$96,$50,$42,茶色（ちゃいろ）"
    jpncol(119) = "$ef,$cd,$9a,丁子色（ちょうじいろ）"
    jpncol(120) = "$b4,$86,$6b,丁子茶（ちょうじちゃ）"
    jpncol(121) = "$ff,$f1,$cf,鳥の子色（とりのこいろ）"
    jpncol(122) = "$45,$57,$65,鉄御納戸（てつおなんど）"
    jpncol(123) = "$00,$52,$43,鉄色（てついろ）"
    jpncol(124) = "$bc,$76,$3c,土色（つちいろ）"
    jpncol(125) = "$c3,$78,$54,土器色（かわらけいろ）"
    jpncol(126) = "$f0,$91,$99,桃色（ももいろ）"
    jpncol(127) = "$bb,$bc,$de,藤色（ふじいろ）"
    jpncol(128) = "$f4,$b3,$c2,鴇色（ときいろ）"
    jpncol(129) = "$95,$48,$3f,鳶色（とびいろ）"
    jpncol(130) = "$72,$71,$71,鈍色（にびいろ）"
    jpncol(131) = "$91,$5c,$8b,二藍（ふたあい）"
    jpncol(132) = "$f1,$bf,$99,肉色（にくいろ）"
    jpncol(133) = "$f3,$f3,$f3,乳白色（にゅうはくしょく）"
    jpncol(134) = "$63,$49,$50,濃色（こきいろ）"
    jpncol(135) = "$4f,$45,$5c,濃鼠（こいねず）"
    jpncol(136) = "$69,$8a,$ab,薄花色（うすはないろ）"
    jpncol(137) = "$d4,$ac,$ad,薄柿（うすがき）"
    jpncol(138) = "$e5,$97,$b2,薄紅梅（うすこうばい）"
    jpncol(139) = "$a8,$9d,$ac,薄色（うすいろ）"
    jpncol(140) = "$97,$90,$a4,薄鼠（うすねず）"
    jpncol(141) = "$ad,$ad,$ad,薄鈍（うすにび）"
    jpncol(142) = "$a3,$a3,$a2,薄墨色（うすずみいろ）"
    jpncol(143) = "$69,$b0,$76,薄緑（うすみどり）"
    jpncol(144) = "$50,$7e,$a4,薄縹（うすはなだ）"
    jpncol(145) = "$fc,$e2,$c4,肌色（はだいろ）"
    jpncol(146) = "$95,$85,$9c,鳩羽色（はとばいろ）"
    jpncol(147) = "$9e,$8b,$8e,鳩羽鼠（はとばねずみ）"
    jpncol(148) = "$ab,$ce,$d8,秘色色（ひそくいろ）"
    jpncol(149) = "$d3,$38,$1c,緋色（ひいろ）"
    jpncol(150) = "$b0,$ca,$71,苗色（なえいろ）"
    jpncol(151) = "$64,$01,$25,葡萄色（えびいろ）"
    jpncol(152) = "$70,$5b,$67,葡萄鼠（ぶどうねずみ）"
    jpncol(153) = "$00,$6e,$54,萌葱色（もえぎいろ）"
    jpncol(154) = "$a3,$a3,$a2,薄墨色（うすずみいろ）"
    jpncol(155) = "$59,$42,$55,滅紫（けしむらさき）"
    jpncol(156) = "$3b,$79,$60,木賊色（とくさいろ）"
    jpncol(157) = "$c7,$b3,$70,木蘭色（もくらんじき）"
    jpncol(158) = "$a8,$c9,$7f,柳色（やなぎいろ）"
    jpncol(159) = "$a1,$93,$61,油色（あぶらいろ）"
    jpncol(160) = "$fc,$d5,$75,卵色（たまごいろ）"
    jpncol(161) = "$16,$5e,$83,藍色（あいいろ）"
    jpncol(162) = "$56,$56,$4b,藍海松茶（あいみるちゃ）"
    jpncol(163) = "$6c,$84,$8d,藍鼠（あいねず）"
    jpncol(164) = "$39,$3f,$4c,藍鉄（あいてつ）"
    jpncol(165) = "$88,$8e,$7e,利久鼠（りきゅうねずみ）"
    jpncol(166) = "$8f,$86,$67,利久茶（りきゅういろ）"
    jpncol(167) = "$3e,$b3,$70,緑（みどり）"
    jpncol(168) = "$dc,$cb,$18,緑黄色（りょくおうしょく）"
    jpncol(169) = "$1e,$50,$a2,瑠璃色（るりいろ）"
    jpncol(170) = "$ed,$e4,$cd,練色（ねりいろ）"
    jpncol(171) = "$8c,$70,$42,路考茶（ろこうちゃ）"
    jpncol(172) = "$38,$a1,$db,露草色（つゆくさいろ）"
    jpncol(173) = "$2b,$2b,$2b,蝋色（ろういろ）"
    jpncol(174) = "$71,$62,$46,媚茶（こびちゃ）"
    jpncol(175) = "$96,$50,$36,檜皮色（ひわだいろ）"
    jpncol(176) = "$fb,$ca,$4d,支子色（くちなしいろ）"
    jpncol(177) = "$ee,$78,$00,橙色（だいだいいろ）"
    jpncol(178) = "$fa,$bf,$14,鬱金色（うこんいろ）"
    jpncol(179) = "$76,$2f,$07,涅色（くりいろ）"
    jpncol(180) = "$27,$92,$c3,縹色（はなだいろ）"
    jpncol(181) = "$b9,$40,$47,臙脂（えんじ）"
    jpncol(182) = "$70,$58,$a3,菫色（すみれいろ）"
    jpncol(183) = "$e9,$54,$6b,薔薇色（ばらいろ）"
    jpncol(184) = "$ab,$69,$53,赭（そほ）"
    jpncol(185) = "$bf,$79,$4e,駱駝色（らくだいろ）"
    jpncol(186) = "$d7,$cf,$3a,鶸色（ひわいろ）"
    jpncol(187) = "$8c,$88,$61,鶸茶（ひわちゃ）"
    jpncol(188) = "$b4,$8a,$76,梅染（うめぞめ）"
    jpncol(189) = "$ff,$ff,$ff,白（しろ）"
    jpncol(190) = "$88,$48,$98,紫（むらさき）"
 
    screen 0,640,480,0,ginfo_dispx-640>>1,ginfo_dispy-480>>1
 
    title "日本の代表的な伝統色 (近似色) 191色の色見本サンプル"
 
;▼１画面目
*n00
    cls : redraw 0 
    font "Meiryo UI",12 : objmode 2
    x=50  : y=10 : bx1=10  : bx2=40
    repeat 22    : await : gosub *sepsplit : loop
 
    x=250 : y=10 : bx1=210 : bx2=240
    repeat 22,22 : await : gosub *sepsplit : loop
 
    x=460 : y=10 : bx1=420 : bx2=450
    repeat 22,44 : await : gosub *sepsplit : loop
    objmode 2 : objsize 40,22
    pos 570,452  : button "次",*n01
    redraw 1
stop
   
;▼２画面目
*n01
    cls : redraw 0 
    font "Meiryo UI",12 : objmode 2
    x=50  : y=10 : bx1=10  : bx2=40
    repeat 22,66 : await : gosub *sepsplit : loop
 
    x=250 : y=10 : bx1=210 : bx2=240
    repeat 22,88 : await : gosub *sepsplit : loop
 
    x=460 : y=10 : bx1=420 : bx2=450
    repeat 22,110: await : gosub *sepsplit : loop
    objmode 2 : objsize 40,22
    pos 520,452  : button "前",*n00
    pos 570,452  : button "次",*n02
    redraw 1
stop
   
;▼３画面目
*n02
    cls : redraw 0
    font "Meiryo UI",12 : objmode 2
    x=50  : y=10 : bx1=10  : bx2=40
    repeat 22,132: await : gosub *sepsplit : loop
 
    x=250 : y=10 : bx1=210 : bx2=240
    repeat 22,154: await : gosub *sepsplit : loop
 
    x=460 : y=10 : bx1=420 : bx2=450
    repeat 15,176: await : gosub *sepsplit : loop
    objmode 2 : objsize 40,22
    pos 520,452  : button "前",*n01
    pos 570,452  : button "END",*owari
    redraw 1
stop
   
;▼配列内のcolor値と日本名色の分割
*sepsplit
    j=0:i=0
    item=jpncol(cnt)
    repeat 4
        getstr wk,item,i,','
        if j=0 : r=wk : r=int(r)
        if j=1 : g=wk : g=int(g)
        if j=2 : b=wk : b=int(b)
        if j=3 : n=wk
        i+=strsize : j+=1
    loop
    color r,g,b : boxf bx1,y,bx2,y+20
    color 0,0,0 : pos  x,y+4 : mes n
    y+=20
return
   
*owari
end

4.ダウンロード

提供するソースコードのライセンスは、CC0 (クレジット表示不要、改変可、商用可) とします。自由に利用して頂いてかまいません。 尚、データの取得やプログラム実行において損害等が生じた場合は、筆者は一切の責任も負いません。全て自己責任でお願いします。

※今回の記事におけるソースコードや実行形式ファイルのダウンロード提供はありません。
掲載リストをコピーして利用して下さい。実行は、HSPスクリプトエディタにソースコードを貼り付けて実行(F5)して下さい。

コメント

コメントを投稿

このブログの人気の投稿

Excelアドインで日本語形態素解析

-
イメージ
1.概要 日本語形態素解析とは、文法的な情報の注記の無い自然言語のテキストデータ（文）から、対象言語の文法や、辞書と呼ばれる単語の品詞等の情報に基づき、 形態素（Morpheme, おおまかにいえば、言語で意味を持つ最小単位）の列に分割し、それぞれの形態素の品詞等を判別する作業です。（出典:Wikipedia） 形態素解析エンジンとしては、Mecabが有名です。筆者もPythonにインストールして、テキストマイニングに利用しています。しかし、会社などで利用したい 場合は、このような環境を個人的な利用目的で構築するにしても、セキュリティ上の問題などでIT管理者などから利用許可が下りない場合があります。 今回は、普段から利用しているExcelのアドインでテキストマイニングをして見たいと思います。特別なサーバーなどへのインストールなしで、 個人PCにアドインのインストール許可さえもらえれば誰でも簡単にテキストマイニング(ワードクラウド)分析をすることができます。 2.利用方法 (1)Excelのアドインである「E2D3」を追加します。「挿入」→「アドインを入手」をクリックし      「データ分析」を選択して、「E2D3」を探します。見つかったら、「追加」をクリックしま      す。これで、「E2D3」が利用できるようになります。 (2)分析するデータ(テキスト文書)を準備します。 (3)下記サイトの日本語形態素解析サービス(無料ツール)を利用して、文書を解析し品詞毎に分解、      統計データとして出力します。 日本語形態素解析サービス(無料ツール) URL : https://opendata-web.site/tool/parse/ ※ブックマーク等に登録しておくと良いでしょう。 (4)分析するデータ(テキスト文書)をテキストボックスに貼付け、解析ボタンをクリックします。 (5)解析結果が日本語形態素と統計の2種類画面出力されるので、統計の表をコピペして、Excelの      空きシートに一時的に貼り付けます。 (...

階層構造JSONファイルの作成

-
イメージ
1.はじめに 仕事や趣味でいろいろなデータを扱いますが、プログラミングで扱うデータ形式も多種多様でデータベース、テキスト、csv、xml、json形式など 思い付くだけで数十種類でてきます。データの見える化 (可視化) をやりたくて階層構造のJSON形式のファイルを扱う必要性があり、 元データ収集・編集 ⇒ Excelでデータ作成 ⇒ CSV出力 ⇒ 階層構造のJSONファイルへ変換出力と言ったステップでJSONファイルを作成して見ましたので紹介致します。 2.階層構造CSVtoJSONコンバータ 最初は、テキストエディタで手作業でJSONファイルを作成しょうと試みましたが、{}の対応付けや[,などの挿入漏れなど ミスすることが多くてデータを読み込むとエラーで動かないことの連続でした。何とか効率良く元データより階層構造の JSON形式のファイルを作成することができないものかとネット検索しても意図したものを見つけ出すことが出来ませんでした。 そこで今回、試行錯誤してExcel VBAで作成した 「階層構造CSVtoJSONコンバータ」 によるデータ作成手順をまとめて見ました。 階層構造のJSONファイルとは、 親、子、孫、曾孫・・・といった 階層構造のデータ形式のァイル です。 2-1.データの収集について まずは、目的とすべき元となるデータを収集しなければなりません。データの入手や収集手段はいろいろあると思いますが、 1回限りでのみ利用する場合や不定期、日次、週次、月次など継続的に利用する場合に応じて効率良い方法を選択する必要があります。 企業では自社内の各種システムにて収集や加工・編集などができるツール類もあると思いますが、個人ではなかなか揃えられません。 尚、今回は小規模なデータを扱うことを前提としているので効率的なデータの収集方法などについては別の機会にでも考えていきたいと 思います。ここでは、 「階層構造CSVtoJSONコンバータ」 の説明のためのテストデータを利用しての手順について説明します。 2-2.作成手順 (1)元データの準備 (テスト用に鳥類目録データの一部を利用) (2)Excelで元データを利用して、階層構造のデータ表を作成する。     ※【お願い】ファイルの終端判定のため、A列の末...

キーボードのキーコードの一覧表

-
イメージ
1.概要 HSPやExcel VBAなどを利用していて、キーボードのキー定数が知りたい場合があります。その都度、ネットで調べているのが手間なので、 一覧表にして見ました。このキーコードは、 Win32API の keybd_event 関数等を利用して送信することができるコードです。 プログラム上からキーコードを送信する場合は、誤操作防止のため十分なウェイトを入れるなりの工夫が必要です。 2.キーボードのキーコード一覧表 キーボードのキーコード一覧表です。全部で127個あります。 キーボードのキーコード一覧表 No. 記号定数名 値 ( HEX ) 値 ( DEC ) 意味 ( 該当するキー ) 1  VK_LBUTTON $01 01 2  VK_RBUTTON $02 02 3  VK_CANCEL $03 03  Cancel（[Ctrl]+[Break]) 4  VK_MBUTTON $04 04 5  VK_BACK $08 08  [BackSpace] 6  VK_TAB $09 09  [Tab] 7  VK_CLEAR $0C 12 8  VK_RETURN $0D 13  [Enter] 9  VK_SHIFT $10 16  [Shift] 10  VK_CONTROL $11 17  [Ctrl] 11  VK_MENU $12 18  [Alt] 12  VK_PAUSE $13 19  [Pause] 13  VK_CAPITAL $14 20  [CapsLock] 14  VK_ESCAPE $1B 27  [Esc] 15  VK_SPACE $20 32  [スペースキー] 16  VK_PRIOR $2...