ilyakooo0/urbit
1
0
Fork 0
mirror of https://github.com/ilyakooo0/urbit.git synced 2024-12-17 20:01:32 +03:00
Code Issues Packages Projects Releases Wiki Activity

Everything except %tsgl through %wtdt.

Browse Source
This commit is contained in:
C. Guy Yarvin 2016-02-05 02:32:37 -08:00
parent f20fb95a34
commit d85cdd8e39
1 changed files with 11 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
arvo/hoon.hoon
View File

@ -6657,7 +6657,7 @@
?@ -.q.vax ?@ -.q.vax
^= typ ^= typ
%- ~(play ut p.vax) %- ~(play ut p.vax)
[%aye [%wtts [%leaf %tas -.q.vax] [%& 2]~] [%$ 1]] [%aye [%fit [%leaf %tas -.q.vax] [%& 2]~] [%$ 1]]
(~(fuse ut p.vax) [%cell %noun %noun]) (~(fuse ut p.vax) [%cell %noun %noun])
:: ::
++ slew :: get axis in vase ++ slew :: get axis in vase
@ -6758,9 +6758,9 @@
|= vax/vase |= vax/vase
^- {vase worm} ^- {vase worm}
=+ ^= gen ^- twig =+ ^= gen ^- twig
?@ q.vax [%wtts [%base [%atom %$]] [%& 1]~] ?@ q.vax [%fit [%base [%atom %$]] [%& 1]~]
?@ -.q.vax [%wtts [%leaf %tas -.q.vax] [%& 2]~] ?@ -.q.vax [%fit [%leaf %tas -.q.vax] [%& 2]~]
[%wtts [%base %cell] [%& 1]~] [%fit [%base %cell] [%& 1]~]
=^ typ +>+<.$ (play p.vax [%aye gen [%$ 1]]) =^ typ +>+<.$ (play p.vax [%aye gen [%$ 1]])
[[typ q.vax] +>+<.$] [[typ q.vax] +>+<.$]
:: ::
@ -6811,7 +6811,7 @@
[puce (blue gen) (turn opt |=({a/twig b/twig} [a (blue b)]))] [puce (blue gen) (turn opt |=({a/twig b/twig} [a (blue b)]))]
++ wtpt |=({sic/twig non/twig} (gray [%dab puce (blue sic) (blue non)])) ++ wtpt |=({sic/twig non/twig} (gray [%dab puce (blue sic) (blue non)]))
++ wtsg |=({sic/twig non/twig} (gray [%non puce (blue sic) (blue non)])) ++ wtsg |=({sic/twig non/twig} (gray [%non puce (blue sic) (blue non)]))
++ wtts |=(gen/twig (gray [%wtts (blue gen) puce])) ++ wtts |=(gen/twig (gray [%fit (blue gen) puce]))
-- --
:: ::
++ al :: tile engine ++ al :: tile engine
@ -7362,14 +7362,14 @@
{?($wtdt $lest) *} [%wtcl p.gen r.gen q.gen] {?($wtdt $lest) *} [%wtcl p.gen r.gen q.gen]
{?($wtgl $nay) *} [%wtcl p.gen [%zpzp ~] q.gen] {?($wtgl $nay) *} [%wtcl p.gen [%zpzp ~] q.gen]
{?($wtgr $aye) *} [%wtcl p.gen q.gen [%zpzp ~]] {?($wtgr $aye) *} [%wtcl p.gen q.gen [%zpzp ~]]
{?($wtkt $dig) *} [%wtcl [%wtts [%base %atom %$] p.gen] r.gen q.gen] {?($wtkt $dig) *} [%wtcl [%fit [%base %atom %$] p.gen] r.gen q.gen]
:: ::
{?($wthp $case) *} {?($wthp $case) *}
|- |-
?~ q.gen ?~ q.gen
[%lost [%wing p.gen]] [%lost [%wing p.gen]]
:^ %wtcl :^ %wtcl
[%wtts p.i.q.gen p.gen] [%fit p.i.q.gen p.gen]
q.i.q.gen q.i.q.gen
$(q.gen t.q.gen) $(q.gen t.q.gen)
:: ::
@ -7380,8 +7380,8 @@
|- |-
?~(p.gen [%rock %f 0] [%wtcl i.p.gen $(p.gen t.p.gen) [%rock %f 1]]) ?~(p.gen [%rock %f 0] [%wtcl i.p.gen $(p.gen t.p.gen) [%rock %f 1]])
:: ::
{?($wtpt $dab) *} [%wtcl [%wtts [%base %atom %$] p.gen] q.gen r.gen] {?($wtpt $dab) *} [%wtcl [%fit [%base %atom %$] p.gen] q.gen r.gen]
{?($wtsg $non) *} [%wtcl [%wtts [%base %null] p.gen] q.gen r.gen] {?($wtsg $non) *} [%wtcl [%fit [%base %null] p.gen] q.gen r.gen]
{?($wtzp $not) *} [%wtcl p.gen [%rock %f 1] [%rock %f 0]] {?($wtzp $not) *} [%wtcl p.gen [%rock %f 1] [%rock %f 0]]
{?($zpgr $wrap) *} {?($zpgr $wrap) *}
[%call [%limb %onan] [%zpsm [%cold [%limb %abel]] p.gen] ~] [%call [%limb %onan] [%zpsm [%cold [%limb %abel]] p.gen] ~]
@ -9619,7 +9619,7 @@
== ==
:- '!' :- '!'
;~ pose ;~ pose
(stag %wtzp ;~(pfix zap wide)) (stag %not ;~(pfix zap wide))
(stag %zpzp (cold ~ ;~(plug zap zap))) (stag %zpzp (cold ~ ;~(plug zap zap)))
== ==
:- '_' :- '_'
@ -9948,7 +9948,7 @@
['&' (rune pam %and exps)] ['&' (rune pam %and exps)]
['@' ;~(pfix pat (toad tkpt))] ['@' ;~(pfix pat (toad tkpt))]
['~' ;~(pfix sig (toad tksg))] ['~' ;~(pfix sig (toad tksg))]
['!' (rune zap %wtzp expa)] ['!' (rune zap %not expa)]
== ==
== ==
:- '!' :- '!'