git.iko.soy/urbit.org
on b93c19b help sign in
urbit.org/reference/library/4k.md
275 lines 6.4 kB history raw
1+++
2title = "4k: Atom Printing"
3weight = 38
4template = "doc.html"
5+++
6### `++co`
8Literal rendering engine
10A door that contains arms that operate on the sample coin `lot`.
12#### Accepts
14#### Produces
16`lot` is a `++coin`.
18#### Source
20```
21 ++ co !.
22 ~% %co ..co ~
23 =< |_ lot/coin
24```
26#### Examples
28```
29 > < 3.nta
30 { lot/{$many {$~ $ta @t} {$~ $ud @ud} $~}
31 <10.cfg 4.jjn {rep/"" <402.arm 110.jyx 1.ztu $151>}>
32 }
33 >
34```
36------------------------------------------------------------------------
38### `++rear:co`
40Prepend & render as tape
42Renders a coin `lot` as a tape prepended to the sample tape `rom`.
44#### Accepts
46#### Produces
48`rom` is a `pe`
50`lot` is a `++coin`.
52#### Source
54```
55 ++ rear |=(rom/tape =>(.(rex rom) rend))
56```
58#### Examples
60```
61 > (~(rear co %$ %ux 200) "--ha")
62 "0xc8--ha"
63```
65------------------------------------------------------------------------
67### `++rent:co`
69Render as span
71Renders a coin `lot` as a span.
73#### Accepts
75#### Produces
77`lot` is a `++coin`.
79#### Source
81```
82 ++ rent `@ta`(rap 3 rend)
83```
85#### Examples
87```
88 > ~(rent co %$ %ux 200)
89 ~.0xc8
91 > `@t`~(rent co %$ %ux 200)
92 '0xc8'
93```
94------------------------------------------------------------------------
96### `++rend:co`
98Render as tape
100Renders a coin `lot` as a tape.
102#### Accepts
104#### Produces
106`lot` is a `++coin`.
108#### Source
110```
111 ++ rend
112 ^- tape
113 ?: ?=($blob -.lot)
114 ['~' '0' ((v-co 1) (jam p.lot))]
115 ?: ?=($many -.lot)
116 :- '.'
117 |- ^- tape
118 ?~ p.lot
119 ['_' '_' rep]
120 ['_' (weld (trip (wack rent(lot i.p.lot))) $(p.lot t.p.lot))]
121 =+ [yed=(end 3 1 p.p.lot) hay=(cut 3 [1 1] p.p.lot)]
122 |- ^- tape
123 ?+ yed (z-co q.p.lot)
124 $c ['~' '-' (weld (rip 3 (wood (tuft q.p.lot))) rep)]
125 $d
126 ?+ hay (z-co q.p.lot)
127 $a
128 =+ yod=(yore q.p.lot)
129 => ^+(. .(rep ?~(f.t.yod rep ['.' (s-co f.t.yod)])))
130 => ^+ .
131 %= .
132 rep
133 ?: &(=(~ f.t.yod) =(0 h.t.yod) =(0 m.t.yod) =(0 s.t.yod))
134 rep
135 => .(rep ['.' (y-co s.t.yod)])
136 => .(rep ['.' (y-co m.t.yod)])
137 ['.' '.' (y-co h.t.yod)]
138 ==
139 => .(rep ['.' (a-co d.t.yod)])
140 => .(rep ['.' (a-co m.yod)])
141 => .(rep ?:(a.yod rep ['-' rep]))
142 ['~' (a-co y.yod)]
143 ::
144 $r
145 =+ yug=(yell q.p.lot)
146 => ^+(. .(rep ?~(f.yug rep ['.' (s-co f.yug)])))
147 :- '~'
148 ?: &(=(0 d.yug) =(0 m.yug) =(0 h.yug) =(0 s.yug))
149 ['s' '0' rep]
150 => ^+(. ?:(=(0 s.yug) . .(rep ['.' 's' (a-co s.yug)])))
151 => ^+(. ?:(=(0 m.yug) . .(rep ['.' 'm' (a-co m.yug)])))
152 => ^+(. ?:(=(0 h.yug) . .(rep ['.' 'h' (a-co h.yug)])))
153 => ^+(. ?:(=(0 d.yug) . .(rep ['.' 'd' (a-co d.yug)])))
154 +.rep
155 ==
156 ::
157 $f
158 ?: =(& q.p.lot)
159 ['.' 'y' rep]
160 ?:(=(| q.p.lot) ['.' 'n' rep] (z-co q.p.lot))
161 ::
162 $n ['~' rep]
163 $i
164 ?+ hay (z-co q.p.lot)
165 $f ((ro-co [3 10 4] |=(a/@ ~(d ne a))) q.p.lot)
166 $s ((ro-co [4 16 8] |=(a/@ ~(x ne a))) q.p.lot)
167 ==
168 ::
169 $p
170 =+ dyx=(met 3 q.p.lot)
171 :- '~'
172 ?: (lte dyx 1)
173 (weld (trip (tod:po q.p.lot)) rep)
174 ?: =(2 dyx)
175 ;: weld
176 (trip (tos:po (end 3 1 q.p.lot)))
177 (trip (tod:po (rsh 3 1 q.p.lot)))
178 rep
179 ==
180 =+ [dyz=(met 5 q.p.lot) fin=| dub=&]
181 |- ^- tape
182 ?: =(0 dyz)
183 rep
184 %= $
185 fin &
186 dub !dub
187 dyz (dec dyz)
188 q.p.lot (rsh 5 1 q.p.lot)
189 rep
190 =+ syb=(wren:un (end 5 1 q.p.lot))
191 =+ cog=~(zig mu [(rsh 4 1 syb) (end 4 1 syb)])
192 ;: weld
193 (trip (tos:po (end 3 1 p.cog)))
194 (trip (tod:po (rsh 3 1 p.cog)))
195 `tape`['-' ~]
196 (trip (tos:po (end 3 1 q.cog)))
197 (trip (tod:po (rsh 3 1 q.cog)))
198 `tape`?.(fin ~ ['-' ?.(dub ~ ['-' ~])])
199 rep
200 ==
201 ==
202 ::
203 $r
204 ?+ hay (z-co q.p.lot)
205 $d ['.' '~' (r-co (rlyd q.p.lot))]
206 $h ['.' '~' '~' (r-co (rlyh q.p.lot))]
207 $q ['.' '~' '~' '~' (r-co (rlyq q.p.lot))]
208 $s ['.' (r-co (rlys q.p.lot))]
209 ==
210 ::
211 $u
212 ?: ?=($c hay)
213 %+ welp ['0' 'c' (reap (pad:fa q.p.lot) '1')]
214 (c-co (enc:fa q.p.lot))
215 =- (weld p.gam ?:(=(0 q.p.lot) `tape`['0' ~] q.gam))
216 ^= gam ^- {p/tape q/tape}
217 ?+ hay [~ ((ox-co [10 3] |=(a/@ ~(d ne a))) q.p.lot)]
218 $b [['0' 'b' ~] ((ox-co [2 4] |=(a/@ ~(d ne a))) q.p.lot)]
219 $i [['0' 'i' ~] ((d-co 1) q.p.lot)]
220 $x [['0' 'x' ~] ((ox-co [16 4] |=(a/@ ~(x ne a))) q.p.lot)]
221 $v [['0' 'v' ~] ((ox-co [32 5] |=(a/@ ~(x ne a))) q.p.lot)]
222 $w [['0' 'w' ~] ((ox-co [64 5] |=(a/@ ~(w ne a))) q.p.lot)]
223 ==
224 ::
225 $s
226 %+ weld
227 ?:((syn:si q.p.lot) "--" "-")
228 $(yed 'u', q.p.lot (abs:si q.p.lot))
229 ::
230 $t
231 ?: =('a' hay)
232 ?: =('s' (cut 3 [2 1] p.p.lot))
233 (weld (rip 3 q.p.lot) rep)
234 ['~' '.' (weld (rip 3 q.p.lot) rep)]
235 ['~' '~' (weld (rip 3 (wood q.p.lot)) rep)]
236 ==
237 --
238```
240#### Examples
242```
243 > ~(rend co ~ %ux 200)
244 "0xc8"
246 > ~(rend co %many ~[[%$ ux+200] [%$ p+40]])
247 "._0xc8_~~tem__"
249 > ~(rend co ~ %p 32.819)
250 "~pillyt"
252 > ~(rend co ~ %ux 18)
253 "0x12"
255 > ~(rend co [~ p=[p=%if q=0x7f00.0001]])
256 ".127.0.0.1"
258 > `@ux`.127.0.0.1
259 2.130.706.433
261 > ~(rend co %many ~[[~ %ud 20] [~ %uw 133] [~ %tas 'sam']])
262 "._20_0w25_sam__"
264 > ~(rend co %blob [1 1])
265 "~0ph"
267 > ~0ph
268 [1 1]
270 > `@uv`(jam [1 1])
271 0vph
272```
275---