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
|
2015-09-01 23:56:42 +03:00
|
|
|
/- sole
|
2016-11-17 04:37:39 +03:00
|
|
|
=, sole
|
2018-10-27 02:19:18 +03:00
|
|
|
=, enjs:format
|
2020-11-25 23:22:55 +03:00
|
|
|
|_ dib=dill-blit:dill
|
2020-05-05 06:21:05 +03:00
|
|
|
++ grad %noun
|
2015-04-09 04:35:17 +03:00
|
|
|
::
|
2018-10-27 02:19:18 +03:00
|
|
|
++ grab :: convert from
|
2015-04-09 04:35:17 +03:00
|
|
|
|%
|
2018-10-27 02:19:18 +03:00
|
|
|
++ noun dill-blit:dill :: clam from %noun
|
2015-04-09 04:35:17 +03:00
|
|
|
--
|
|
|
|
++ grow
|
|
|
|
|%
|
2020-05-05 06:21:05 +03:00
|
|
|
++ noun dib
|
2015-04-09 04:35:17 +03:00
|
|
|
++ json
|
|
|
|
^- ^json
|
2015-12-21 00:16:39 +03:00
|
|
|
?+ -.dib ~|(unsupported-blit+-.dib !!)
|
2020-11-25 23:22:55 +03:00
|
|
|
%mor [%a (turn p.dib |=(a=dill-blit:dill json(dib a)))]
|
2021-09-25 06:14:55 +03:00
|
|
|
%hop %+ frond %hop
|
|
|
|
?@ p.dib (numb p.dib)
|
2022-03-25 15:45:29 +03:00
|
|
|
(pairs 'x'^(numb x.p.dib) 'y'^(numb y.p.dib) ~)
|
2021-09-25 06:14:55 +03:00
|
|
|
%put (frond -.dib (tape (tufa p.dib)))
|
2020-11-25 22:39:13 +03:00
|
|
|
?(%bel %clr) (frond %act %s -.dib)
|
2015-04-09 04:35:17 +03:00
|
|
|
==
|
|
|
|
--
|
|
|
|
--
|