shrub/pkg/arvo/mar/dill/blit.hoon

30 lines
677 B
Plaintext
Raw Normal View History

2015-04-09 04:35:17 +03:00
::
2016-02-05 06:05:37 +03:00
:::: /hoon/blit/dill/mar
2015-04-09 04:35:17 +03:00
::
2016-02-18 02:00:12 +03:00
/? 310
/- sole
2016-11-17 04:37:39 +03:00
=, sole
=, enjs:format
|_ dib=dill-blit:dill
++ grad %noun
2015-04-09 04:35:17 +03:00
::
++ grab :: convert from
2015-04-09 04:35:17 +03:00
|%
++ noun dill-blit:dill :: clam from %noun
2015-04-09 04:35:17 +03:00
--
++ grow
|%
++ noun dib
2015-04-09 04:35:17 +03:00
++ json
^- ^json
2015-12-21 00:16:39 +03:00
?+ -.dib ~|(unsupported-blit+-.dib !!)
%mor [%a (turn p.dib |=(a=dill-blit:dill json(dib a)))]
%hop %+ frond %hop
?@ p.dib (numb p.dib)
(pairs 'x'^(numb x.p.dib) 'y'^(numb y.p.dib) ~)
%put (frond -.dib (tape (tufa p.dib)))
?(%bel %clr) (frond %act %s -.dib)
2015-04-09 04:35:17 +03:00
==
--
--