\ 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, ;   \ Dot row/col per Braille bit: 0 3
: Dots ( -;i-c) Create does> + c@ ;     \ 1 4
Dots dr 0 ~ 1 ~ 2 ~ 0 ~ 1 ~ 2 ~ 3 ~ 3 ~ \ 2 5
Dots dc 0 ~ 0 ~ 0 ~ 1 ~ 1 ~ 1 ~ 0 ~ 1 ~ \ 6 7
 
\ Compute pic x/y from screen row/col/dot.
0 Value r  0 Value c  0 Value d  Defer pic ( -f)
12 dup Constant hgt  2* Constant wid
: pair ( duuuu-dd) * + swap */ 10000 ;
: >y ( -) -5000 hgt d dr 4 r pair + to y ;
: >x ( -) 10000 wid d dc 2 c pair - 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+IDsKOiB1ZGlzYyAoIC1mKSAxMDAwMCAwIDAgZGlzYyA7Cgo6IHZlcnQgKCAtZikgeCAtMTUwMCAtNjAwMCB3aXRoaW4gOwo6IGhvcnogKCAtZikgeSAtMjAwMCAtNDAwMCB3aXRoaW4gOwo6IHNtYXNoICggLWYpIHVkaXNjIHZlcnQgYW5kIGhvcnogYW5kIDsKCjogcGFpciAoIHItZmYpIGR1cCAwIDUwMDAgZGlzYyBzd2FwIDAgLTUwMDAgZGlzYyA7Cjogd2F2ZSAoIC1mKSAyNTAwIHBhaXIgaW52ZXJ0IHggMDwgYW5kIG9yIDsKOiBleWVzICggLWYpIDI3OCBwYWlyIG9yIDsKOiB5aW55YW5nICggLWYpIHVkaXNjIHdhdmUgeG9yIGV5ZXMgeG9yIDsKCjogcGl0ICggLWYpIHggNjAwMCAyMDAwIHdpdGhpbiB5IDIwMDAgPCBvciA7CjogcGl0KyAoIGYtZikgcGl0IGFuZCAgeCBuZWdhdGUgeSB0byB4IHRvIHkgOwo6IG1hbmppICggLWYpIHRydWUgcGl0KyBwaXQrIHBpdCsgcGl0KyA7CgoKXCBFbWl0IFVURi04IGZvciBCcmFpbGxlIFUrMjhYWCwgZ2l2ZW4gWFguCjogZW1pdGI4ICggYy0pID9kdXAtMD0tSUYgJDQwIFRIRU4gICRFMiBlbWl0CiAgZHVwIDYgcnNoaWZ0ICRBMCBvciBlbWl0ICAkM0YgYW5kICQ4MCBvciBlbWl0IDsKCjogfiBjLCA7ICAgXCBEb3Qgcm93L2NvbCBwZXIgQnJhaWxsZSBiaXQ6IDAgMwo6IERvdHMgKCAtO2ktYykgQ3JlYXRlIGRvZXM+ICsgY0AgOyAgICAgXCAxIDQKRG90cyBkciAwIH4gMSB+IDIgfiAwIH4gMSB+IDIgfiAzIH4gMyB+IFwgMiA1CkRvdHMgZGMgMCB+IDAgfiAwIH4gMSB+IDEgfiAxIH4gMCB+IDEgfiBcIDYgNwoKXCBDb21wdXRlIHBpYyB4L3kgZnJvbSBzY3JlZW4gcm93L2NvbC9kb3QuCjAgVmFsdWUgciAgMCBWYWx1ZSBjICAwIFZhbHVlIGQgIERlZmVyIHBpYyAoIC1mKQoxMiBkdXAgQ29uc3RhbnQgaGd0ICAyKiBDb25zdGFudCB3aWQKOiBwYWlyICggZHV1dXUtZGQpICogKyBzd2FwICovIDEwMDAwIDsKOiA+eSAoIC0pIC01MDAwIGhndCBkIGRyIDQgciBwYWlyICsgdG8geSA7CjogPnggKCAtKSAxMDAwMCB3aWQgZCBkYyAyIGMgcGFpciAtIHRvIHggOwo6IGRvdGJpdCAoIC1jKSA+eSA+eCBwaWMgMSBhbmQgZCBsc2hpZnQgOwo6IGNhbGNiOCAoIC1jKSAwIDggMCBETyBpIHRvIGQgZG90Yml0IG9yIExPT1AgOwo6IGxpbmUgKCAtKSB3aWQgMCBETyBpIHRvIGMgY2FsY2I4IGVtaXRiOCBMT09QIDsKOiAzcGljICggLXh4eCkgWyddIHNtYXNoIFsnXSB5aW55YW5nIFsnXSBtYW5qaSA7IFwgJwo6IDNsaW5lICggeHh4LSkgMyAwIERPIGlzIHBpYyBsaW5lIDIgc3BhY2VzIExPT1AgOwo6IDNkcmF3ICggLSkgaGd0IDAgRE8gaSB0byByIGNyIDNwaWMgM2xpbmUgTE9PUCA7CjNkcmF3Cg==