\ Picture words give a flag based on x and y.
0 Value x  0 Value y  \ 10000x fixed decimal.
 
: from-sq ( nn-n) swap - dup 10000 */ ;
: disc ( rxy-f) y from-sq swap x from-sq + > ;
: udisc ( -f) 10000 0 0 disc ;
 
: vert ( -f) x -1500 -6000 within ;
: horz ( -f) y -2000 -4000 within ;
: smash ( -f) udisc vert and horz and ;
 
: pair ( r-ff) dup 0 5000 disc swap 0 -5000 disc ;
: wave ( -f) 2500 pair invert x 0< and or ;
: eyes ( -f) 278 pair or ;
: yinyang ( -f) udisc wave xor eyes xor ;
 
: pit ( -f) x 6000 2000 within y 2000 < or ;
: pit+ ( f-f) pit and  x negate y to x to y ;
: manji ( -f) true pit+ pit+ pit+ pit+ ;
 
 
\ Emit UTF-8 for Braille U+28XX, given XX.
: emitb8 ( c-) ?dup-0=-IF $40 THEN  $E2 emit
  dup 6 rshift $A0 or emit  $3F and $80 or emit ;
 
: c,, 0 do c, loop ;   \ Bit dot pos: 0 3
: Dots ( -;i-c) Create does> + c@ ; \ 1 4
Dots dr  3 3 2 1 0 2 1 0  8 c,,     \ 2 5
Dots dc  1 0 1 1 1 0 0 0  8 c,,     \ 6 7
 
\ Compute pic x/y from screen row/col/dot.
0 Value r  0 Value c  0 Value d  Defer pic ( -f)
12 Constant hgt  hgt 2* Constant wid
: >y ( -) 4 r * d dr + -5000 hgt */ 10000 + to y ;
: >x ( -) 2 c * d dc + 10000 wid */ 10000 - to x ;
: dotbit ( -c) >y >x pic 1 and d lshift ;
: calcb8 ( -c) 0 8 0 DO i to d dotbit or LOOP ;
: line ( -) wid 0 DO i to c calcb8 emitb8 LOOP ;
: 3pic ( -xxx) ['] smash ['] yinyang ['] manji ;
: 3line ( xxx-) 3 0 DO is pic line 2 spaces LOOP ;
: 3draw ( -) hgt 0 DO i to r cr 3pic 3line LOOP ;
3draw
 

XCBQaWN0dXJlIHdvcmRzIGdpdmUgYSBmbGFnIGJhc2VkIG9uIHggYW5kIHkuCjAgVmFsdWUgeCAgMCBWYWx1ZSB5ICBcIDEwMDAweCBmaXhlZCBkZWNpbWFsLgoKOiBmcm9tLXNxICggbm4tbikgc3dhcCAtIGR1cCAxMDAwMCAqLyA7CjogZGlzYyAoIHJ4eS1mKSB5IGZyb20tc3Egc3dhcCB4IGZyb20tc3EgKyA+IDsKOiB1ZGlzYyAoIC1mKSAxMDAwMCAwIDAgZGlzYyA7Cgo6IHZlcnQgKCAtZikgeCAtMTUwMCAtNjAwMCB3aXRoaW4gOwo6IGhvcnogKCAtZikgeSAtMjAwMCAtNDAwMCB3aXRoaW4gOwo6IHNtYXNoICggLWYpIHVkaXNjIHZlcnQgYW5kIGhvcnogYW5kIDsKCjogcGFpciAoIHItZmYpIGR1cCAwIDUwMDAgZGlzYyBzd2FwIDAgLTUwMDAgZGlzYyA7Cjogd2F2ZSAoIC1mKSAyNTAwIHBhaXIgaW52ZXJ0IHggMDwgYW5kIG9yIDsKOiBleWVzICggLWYpIDI3OCBwYWlyIG9yIDsKOiB5aW55YW5nICggLWYpIHVkaXNjIHdhdmUgeG9yIGV5ZXMgeG9yIDsKCjogcGl0ICggLWYpIHggNjAwMCAyMDAwIHdpdGhpbiB5IDIwMDAgPCBvciA7CjogcGl0KyAoIGYtZikgcGl0IGFuZCAgeCBuZWdhdGUgeSB0byB4IHRvIHkgOwo6IG1hbmppICggLWYpIHRydWUgcGl0KyBwaXQrIHBpdCsgcGl0KyA7CgoKXCBFbWl0IFVURi04IGZvciBCcmFpbGxlIFUrMjhYWCwgZ2l2ZW4gWFguCjogZW1pdGI4ICggYy0pID9kdXAtMD0tSUYgJDQwIFRIRU4gICRFMiBlbWl0CiAgZHVwIDYgcnNoaWZ0ICRBMCBvciBlbWl0ICAkM0YgYW5kICQ4MCBvciBlbWl0IDsKCjogYywsIDAgZG8gYywgbG9vcCA7ICAgXCBCaXQgZG90IHBvczogMCAzCjogRG90cyAoIC07aS1jKSBDcmVhdGUgZG9lcz4gKyBjQCA7IFwgMSA0CkRvdHMgZHIgIDMgMyAyIDEgMCAyIDEgMCAgOCBjLCwgICAgIFwgMiA1CkRvdHMgZGMgIDEgMCAxIDEgMSAwIDAgMCAgOCBjLCwgICAgIFwgNiA3CgpcIENvbXB1dGUgcGljIHgveSBmcm9tIHNjcmVlbiByb3cvY29sL2RvdC4KMCBWYWx1ZSByICAwIFZhbHVlIGMgIDAgVmFsdWUgZCAgRGVmZXIgcGljICggLWYpCjEyIENvbnN0YW50IGhndCAgaGd0IDIqIENvbnN0YW50IHdpZAo6ID55ICggLSkgNCByICogZCBkciArIC01MDAwIGhndCAqLyAxMDAwMCArIHRvIHkgOwo6ID54ICggLSkgMiBjICogZCBkYyArIDEwMDAwIHdpZCAqLyAxMDAwMCAtIHRvIHggOwo6IGRvdGJpdCAoIC1jKSA+eSA+eCBwaWMgMSBhbmQgZCBsc2hpZnQgOwo6IGNhbGNiOCAoIC1jKSAwIDggMCBETyBpIHRvIGQgZG90Yml0IG9yIExPT1AgOwo6IGxpbmUgKCAtKSB3aWQgMCBETyBpIHRvIGMgY2FsY2I4IGVtaXRiOCBMT09QIDsKOiAzcGljICggLXh4eCkgWyddIHNtYXNoIFsnXSB5aW55YW5nIFsnXSBtYW5qaSA7CjogM2xpbmUgKCB4eHgtKSAzIDAgRE8gaXMgcGljIGxpbmUgMiBzcGFjZXMgTE9PUCA7CjogM2RyYXcgKCAtKSBoZ3QgMCBETyBpIHRvIHIgY3IgM3BpYyAzbGluZSBMT09QIDsKM2RyYXcK