f:<=(dep_Hexagonal:Decode:System(<=lod IMTX).sh)
r:<=f.r^SCX:<=f.scx^SCY:<=f.scy^kk:<=6
for(i:<=0 to (kk))[sx:<=SCX/2^sy:<=SCY/2
 sx:<=ctmow(sx+ctmow.r2xx((360/kk)*i,r)
 sy:<=ctmow(sy+ctmow.r2yy((360/kk)*i,r)
 c:<=dep_Hexagonal:Decode:System(sx,sy,boud_FULL_ment
 (<=lod IMTX),(undef)<*pass,<Hex>)
 if('c ()':<=undef)[DentrpOR.c:<=(360/kk)*i^p@opSPertd.c:<=r
 trsjMX:<=s.c=8*(f.p@op)^ALPH_Je5.c:<=0^CO_of_chz@.c:<=c1]]
 XH_hex.c:<=1^p@po.(x1y1):<=-c.x1y1]
f@init(Bab_bab<<cat)