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

final_fantasy_kuro.sas

data kuro;
    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 0 0 0 0 0 0 0 0 0 0 0 0 0 0 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 6 k l 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 6 k k l o 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 6 k l l m 6 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 k k l l m o 6 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0 0 0 6 6 6 6 6 k k l l l m n 6 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0 0 6 l k k k k l l l l m n o 6 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0 0 0 6 6 m l l l l m m n o 6 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 6 6 0 0 0 0 0 6 6 n m l l m n o 6 0 0 0 0 0 0 0 0
0 0 0 0 0 0 6 1 1 6 0 0 0 0 0 6 6 6 o m m m n o 6 0 0 0 0 0 0 0
0 0 0 0 0 6 1 3 4 1 6 0 0 6 6 6 l 6 6 6 6 o n n o 6 0 0 0 0 0 0
0 0 0 0 0 6 1 4 4 5 2 6 6 p p 6 k 6 6 l 6 6 6 o o o 6 0 0 0 0 0
0 0 0 0 6 1 3 4 5 5 1 2 6 1 6 1 6 6 6 k 6 6 6 6 6 6 6 0 0 0 0 0
0 0 0 0 6 1 3 4 5 5 1 1 1 1 1 4 4 6 6 6 b b c e 0 0 0 0 0 0 0 0
0 0 0 0 6 1 3 4 5 5 2 2 2 6 6 p q b b c c d 6 6 0 0 0 0 0 0 0 0
0 0 0 0 0 6 1 4 4 5 3 6 1 1 2 p q b b b b c e 6 0 0 0 0 0 0 0 0
0 0 0 0 0 6 1 3 4 3 6 6 b 6 e b 6 b b b b b c 6 0 0 0 0 0 0 0 0
0 0 0 0 0 0 6 2 3 6 0 6 b 6 e b 6 b b b b b b 6 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 6 6 0 0 6 b b e b d c b b b b b 6 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0 0 6 d b e b c e b b b b b c 6 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0 0 0 6 c 6 b b d e b b b b b 6 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0 0 0 0 6 6 b b b d e b b b b c 6 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0 0 0 0 6 b b b b b d e c b b b c 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 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 = kuro out = t_kuro(keep=col1);
    var _all_;
run;

data m_kuro;
    merge waku
          t_kuro;
run;

ods graphics / width = 800 height = 800;
proc sgplot data = m_kuro 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;