白魔道士のドット絵を描く

final_fantasy_shiro.sas

data waku;
    do y = 1 to 32;
        do x = 1 to 32;
            output;
        end;
    end;
run;

data attrmap1;
    retain id "id1"
           markersymbol "squarefilled"
           markersize 16;
    input (value markercolor) ($);
cards;
0 cxffffff
1 cxbeb9b4
2 cxa09b96
3 cx918787
4 cx5f555a
5 cx463c41
6 cx000000
7 cxd2c8c8
8 cxaa8c82
9 cx9b0519
a cx6e0014
b cx14469b
c cx0f4182
d cx052869
e cx0a235a
f cx14144b
g cx5a371e
h cx462819
i cx372319
j cxdcdc32
k cxc8c828
l cxb9af28
m cxa08c28
n cx826e19
o cx6d5322
p cxdca58c
q cxc88264
;
run;

data shiro;
    input (var1 - var1024) ($);
cards;
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0 6 6 6 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 6 7 7 7 6 6 6 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 6 7 0 0 0 0 0 7 6 6 0 0 0 0 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 6 0 8 0 0 0 0 0 0 0 6 0 0 0 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 6 7 0 0 0 0 0 0 0 0 6 0 0 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 6 6 6 0 6 0 0 0 0 i h h h i 0 6 0 0 0 0 0 0 0 0 0 0 0
0 0 0 0 6 k l m 6 8 0 0 0 i h h g i h h 0 6 0 0 0 0 6 0 0 0 0 0
0 0 0 6 j m 6 6 6 7 0 0 i h g g i p 6 h 0 6 0 0 0 6 j 6 0 0 0 0
0 0 0 6 j 6 6 6 7 0 0 0 6 6 6 6 p 6 6 h 7 6 0 6 6 j m l 6 0 0 0
0 0 0 6 m j 6 6 7 0 0 0 6 0 6 p p 6 6 7 6 6 6 j j j n m 6 0 0 0
0 0 0 0 6 m k j 6 6 0 0 6 p f p p f 6 6 n k j j j o n m 6 0 0 0
0 0 0 0 0 6 6 m k j 6 6 0 q p p p p 6 m l k k k k o n m 6 0 0 0
0 0 0 0 0 0 0 6 6 m k j 6 6 q p 6 0 0 6 n m l l o o n 6 0 0 0 0
0 0 0 0 0 0 0 0 0 6 6 m k j 6 6 6 8 7 0 6 6 m m o n m 6 0 0 0 0
0 0 0 0 0 0 0 0 0 6 8 6 6 m k j 6 6 6 6 k k 6 o n m 6 0 0 0 0 0
0 0 0 0 0 0 0 0 0 6 7 0 0 9 9 9 p p 6 6 6 6 k k 6 6 0 0 0 0 0 0
0 0 0 0 0 0 0 0 6 8 0 0 0 0 9 9 q p l j 6 6 6 6 k k 6 6 0 0 0 0
0 0 0 0 0 0 0 0 6 7 0 0 0 0 0 9 6 6 6 l k j 6 6 6 6 k k 6 0 0 0
0 0 0 0 0 0 0 0 6 0 0 0 0 9 9 6 7 7 6 6 6 l k j 6 6 6 j k 6 0 0
0 0 0 0 0 0 0 6 8 0 9 0 0 9 9 6 0 0 6 9 6 6 6 l k k j j l 6 0 0
0 0 0 0 0 0 0 6 7 0 9 9 0 9 6 0 0 0 6 9 6 0 0 6 6 l k k 6 0 0 0
0 0 0 0 0 0 6 7 0 9 9 9 9 a 6 9 0 9 6 a 6 0 0 0 0 6 6 6 0 0 0 0
0 0 0 0 0 0 6 a 9 9 9 9 a 6 a 9 9 9 9 6 0 0 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 6 6 6 6 6 6 6 6 6 6 6 6 6 0 0 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
;
run;

proc transpose data = shiro out = t_shiro(keep=col1);
    var _all_;
run;

data m_shiro;
    merge waku
          t_shiro;
run;

ods graphics / width = 800 height = 800;
proc sgplot data = m_shiro dattrmap = attrmap1 noautolegend;
    scatter x = x y = y / group = col1 attrid = id1;
    xaxis display = none;
    yaxis display = none reverse;
run;
ods graphics / reset = width reset = height;