This was completed in a boring night:
awk 'BEGIN {
O="~"~"~";o="=="=="==";o+=+o;x=O""O;while(X++<=x*o+O)c=c"%c";printf c,
(x-O)*(x-O)+(o+O)*(o+o+O),(x O)+(o-O-O),(X-O)*(o+o+O)+O-x,X*(o+o)+o+O,
(x-O)*(x-O)+o+O,(X-O)*(O+O+o+O)-O-O-O,(x O)+(o-O-O),(X-O)*(o+O)+o+O-x,
(x-O)*(x-O)+o,X*(o+o+O)+O+O-x,(x-O)*(x-O)-O,(X-O)*(o+o+O)-x-O,X+X-o-o,
(x-O)*(x-O)+o+o,(x-O)*(x-O)+o+o+O,(X-O)*(o+o+O)-o-o,X+X-o-o,(x-O)*(x-O)+O,
(x-O)*(x-O),(X-O)*(o+o+O)-o-O,X+X-o-o,(x-O)*(x-O)-O,(X-O)*(o+o+O)+O-x,x-O
}'