about summary refs log tree commit diff stats
path: root/Makefile.am
Commit message (Expand)AuthorAgeFilesLines
...
* | Merge branch 'master' into pgpJames Booth2015-04-191-0/+2
|\|
| * Added client_events module, reuse message sending code for all commandsJames Booth2015-04-191-0/+2
* | Merge branch 'master' into pgpJames Booth2015-04-191-2/+2
|\|
| * Moved server_events to event/James Booth2015-04-191-2/+2
* | Added pgp key list commandJames Booth2015-03-221-0/+9
|/
* Merge branch 'master' into readlineJames Booth2015-03-081-1/+5
|\
| * Fixed tests for --disable-otrJames Booth2015-03-041-1/+5
* | Removed history and various key handlersJames Booth2015-01-301-6/+0
* | Extracted keyhandler for printable charactersJames Booth2015-01-201-0/+3
|/
* Simplified autocompleters and command historyJames Booth2015-01-161-4/+4
* Added remaining chat statesJames Booth2015-01-111-0/+2
* Added test to ensure chat sessions cleared on cmd_disconnectJames Booth2015-01-101-0/+1
* Added chat session testsJames Booth2015-01-061-0/+1
* Added server_event testsJames Booth2014-12-251-0/+1
* Added roster_list testsJames Booth2014-12-251-0/+1
* Added preferences testsJames Booth2014-12-251-0/+1
* Added parser testsJames Booth2014-12-251-0/+1
* Added muc testsJames Booth2014-12-251-0/+1
* Added jid testsJames Booth2014-12-251-0/+1
* Added history testsJames Booth2014-12-251-0/+1
* Added form testsJames Booth2014-12-251-1/+2
* Added contact testsJames Booth2014-12-251-0/+1
* Added common testsJames Booth2014-12-251-0/+1
* Added cmd_win testsJames Booth2014-12-251-0/+1
* Added cmd_sub testsJames Booth2014-12-251-0/+1
* Added cmd_statuses testsJames Booth2014-12-251-0/+1
* Added cmd_roster testsJames Booth2014-12-241-0/+1
* Added cmd_rooms testsJames Booth2014-12-241-0/+1
* Added cmd_otr testsJames Booth2014-12-241-2/+1
* Added cmd_join testsJames Booth2014-12-241-0/+1
* Added cmd_connect testsJames Booth2014-12-241-0/+1
* Added cmd_bookmark testsJames Booth2014-12-241-0/+1
* Added cmd_alias testsJames Booth2014-12-241-0/+1
* Added autocomplete testsJames Booth2014-12-241-0/+1
* Use will_return instead of mock valuesJames Booth2014-12-231-3/+3
* Added stubbed implementationsJames Booth2014-12-231-27/+5
* Added occupantswin.cJames Booth2014-12-161-1/+1
* Moved roster functionsJames Booth2014-12-161-2/+1
* Added rosterwin.cJames Booth2014-12-161-0/+2
* Revert "Added -lstrophe to test dependencies"James Booth2014-09-171-1/+1
* Added -lstrophe to test dependenciesJames Booth2014-09-171-1/+1
* Added form testsJames Booth2014-09-141-1/+3
* Created form moduleJames Booth2014-09-051-0/+1
* Added LICENSE.txt to dist targetJames Booth2014-08-241-1/+1
* Added scripts and profrc.example to dist targetJames Booth2014-08-041-2/+4
* Added buffer handling. Buffer are initialized, pushed, and freed. No use is m...Immae2014-06-231-0/+2
* Renamed sha1 functions to avoid naming clashesJames Booth2014-06-151-0/+2
* Fixed makefile to include headers in test sourcesJames Booth2014-04-181-21/+21
* Merge remote-tracking branch 'pasis/iss323'James Booth2014-04-181-3/+15
|\
| * autotools: added EXTRA_DISTDmitry Podgorny2014-04-171-10/+8
generated by cgit-pink 1.4.1-2-gfad0 (git 2.36.2.497.gbbea4dcf42) at 2024-12-04 16:36:38 +0000
7f5 ^ 
f0e146fc ^

372367f5 ^

f0e146fc ^


5396e24c ^

f0e146fc ^


dd60caa3 ^

f0e146fc ^






372367f5 ^

f0e146fc ^


















372367f5 ^

f0e146fc ^

372367f5 ^

f0e146fc ^


5396e24c ^

f0e146fc ^


dd60caa3 ^

f0e146fc ^





372367f5 ^

f0e146fc ^





372367f5 ^

f0e146fc ^




















372367f5 ^


f0e146fc ^




























dd60caa3 ^



372367f5 ^

dd60caa3 ^

f0e146fc ^















dd60caa3 ^

82171a0f ^

dd60caa3 ^

82171a0f ^


f0e146fc ^
















1
2
3
4
5
6
7
8
9

10

11
12

13
14

15
16

17
18

19

20
21
22
23
24

25
26

27
28

29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77

78

79
80

81

82
83
84

85

86

87
88
89
90

91

92

93

94
95
96
97

98

99

100
101
102

103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120

121

122

123

124

125

126
127

128

129
130

131

132
133
134
135
136
137

138

139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156

157

158

159

160
161

162

163
164

165

166
167
168
169
170
171

172

173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190

191

192

193

194
195

196

197
198

199

200
201
202
203
204

205

206
207
208
209
210

211

212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231

232
233

234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261

262
263
264

265

266

267
268
269
270
271
272
273
274
275
276
277
278
279
280
281

282

283

284

285
286

287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302









                                                                                                               
                                                 

                       

                                                                                                 

                                     

                             
                            




                             

                                                           

                                  
















































                                                                                                                                                                                                                                                                                                                                          
                                                                                                                                                                                          

                                                                                          
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                             


                                                                                                     
                                                                                                                                                                                              
                                                                                                                                                                                          



                                                                                                     
                                                                                                                                         
                                                                                                             
                                                                                                                                            



                                                                                                                                                                                                                                          
                                                                                                                                                   
                                                                                   


                                                                                                                                                                                              

















                                                                                                                                                                                    
                                                                                                                                                                                                                                                                                                                                                                       
                                                                                                
                                                                                                                                                                                  
                                                                           
                                                                                                                                                                                                 

                                                                                                  
                                                                                                                                                    

                                                                                                                                            
                                                                                                                                                                





                                                                                                                                                                             
                                                                                                                                                                                                   

















                                                                                                                                                                                      
                                                                                                                                                                                  
                                                                           
                                                                                                                                                                                                 

                                                                                                  
                                                                                                                                                    

                                                                                                                                             
                                                                                                                                                                 





                                                                                                                                                                              
                                                                                                                                                                                                    

















                                                                                                                                                                                       
                                                                                                                                                                                   
                                                                            
                                                                                                                                                                                                  

                                                                                                   
                                                                                                                                                     

                                                                                                                                             
                                                                                                                                                                 




                                                                                                                                                                              
                                                                                                                                                                                            




                                                                                                                                          
                                                                                                                                                                                                    



















                                                                                                                                                                                    

                                                                                                                                                                                                                                                         



























                                                                                                                                                                                                                                                                                                                                


                                                                                                                                                                                             
                                                                                                                                                                   
                                                                                                                                                                                             














                                                                                                                                             
                                                                                                                                                                                                      
                                                                                                                                                                                                                                                                                               
                                                                                                                                                                                                      

                                                                                                                                                                                                                                                                                                                            















                                                                                                                                                                                       
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd">
<html>
<head>
<meta http-equiv="content-type" content="text/html; charset=UTF-8">
<title>Mu - colors.mu</title>
<meta name="Generator" content="Vim/8.1">
<meta name="plugin-version" content="vim8.1_v1">
<meta name="syntax" content="none">
<meta name="settings" content="number_lines,use_css,pre_wrap,no_foldcolumn,expand_tabs,line_ids,prevent_copy=">
<meta name="colorscheme" content="minimal-light">
<style type="text/css">
<!--
pre { white-space: pre-wrap; font-family: monospace; color: #000000; background-color: #ffffd7; }
body { font-size:12pt; font-family: monospace; color: #000000; background-color: #ffffd7; }
a { color:inherit; }
* { font-size:12pt; font-size: 1em; }
.PreProc { color: #c000c0; }
.muRegEdx { color: #af5f00; }
.Special { color: #ff6060; }
.LineNr { }
.muRegEsi { color: #005faf; }
.muRegEbx { color: #5f00ff; }
.Constant { color: #008787; }
.muRegEcx { color: #870000; }
.Delimiter { color: #c000c0; }
.muFunction { color: #af5f00; text-decoration: underline; }
.CommentedCode { color: #8a8a8a; }
.muComment { color: #005faf; }
-->
</style>

<script type='text/javascript'>
<!--

/* function to open any folds containing a jumped-to line before jumping to it */
function JumpToLine()
{
  var lineNum;
  lineNum = window.location.hash;
  lineNum = lineNum.substr(1); /* strip off '#' */

  if (lineNum.indexOf('L') == -1) {
    lineNum = 'L'+lineNum;
  }
  var lineElem = document.getElementById(lineNum);
  /* Always jump to new location even if the line was hidden inside a fold, or
   * we corrected the raw number to a line ID.
   */
  if (lineElem) {
    lineElem.scrollIntoView(true);
  }
  return true;
}
if ('onhashchange' in window) {
  window.onhashchange = JumpToLine;
}

-->
</script>
</head>
<body onload='JumpToLine();'>
<a href='https://github.com/akkartik/mu/blob/main/colors.mu'>https://github.com/akkartik/mu/blob/main/colors.mu</a>
<pre id='vimCodeElement'>
<span id="L1" class="LineNr">  1 </span><span class="muComment"># Return colors 'near' a given r/g/b value (expressed in hex)</span>
<span id="L2" class="LineNr">  2 </span><span class="muComment"># If we did this rigorously we'd need to implement cosines. So we won't.</span>
<span id="L3" class="LineNr">  3 </span><span class="muComment">#</span>
<span id="L4" class="LineNr">  4 </span><span class="muComment"># To build:</span>
<span id="L5" class="LineNr">  5 </span><span class="muComment">#   $ ./translate colors.mu</span>
<span id="L6" class="LineNr">  6 </span><span class="muComment">#</span>
<span id="L7" class="LineNr">  7 </span><span class="muComment"># Example session:</span>
<span id="L8" class="LineNr">  8 </span><span class="muComment">#   $ qemu-system-i386 code.img</span>
<span id="L9" class="LineNr">  9 </span><span class="muComment">#   Enter 3 hex bytes for r, g, b (lowercase; no 0x prefix) separated by a single space&gt; aa 0 aa</span>
<span id="L10" class="LineNr"> 10 </span><span class="muComment">#   5</span>
<span id="L11" class="LineNr"> 11 </span><span class="muComment"># This means only color 5 in the default palette is similar to #aa00aa.</span>
<span id="L12" class="LineNr"> 12 </span>
<span id="L13" class="LineNr"> 13 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='colors.mu.html#L13'>main</a></span> <a href='500fake-screen.mu.html#L14'>screen</a>: (addr <a href='500fake-screen.mu.html#L14'>screen</a>), keyboard: (addr keyboard), data-disk: (addr disk) <span class="Delimiter">{</span>
<span id="L14" class="LineNr"> 14 </span>  <span class="PreProc">var</span> in-storage: (stream byte <span class="Constant">0x10</span>)
<span id="L15" class="LineNr"> 15 </span>  <span class="PreProc">var</span> in/<span class="muRegEsi">esi</span>: (addr stream byte) <span class="Special">&lt;-</span> address in-storage
<span id="L16" class="LineNr"> 16 </span>  <span class="Delimiter">{</span>
<span id="L17" class="LineNr"> 17 </span>    <span class="muComment"># print prompt</span>
<span id="L18" class="LineNr"> 18 </span>    <span class="PreProc">var</span> x/eax: int <span class="Special">&lt;-</span> <a href='501draw-text.mu.html#L100'>draw-text-rightward</a> <a href='500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">&quot;Enter 3 hex bytes for r, g, b (lowercase; no 0x prefix) separated by a single space&gt; &quot;</span>, <span class="Constant">0x10</span>/x, <span class="Constant">0x80</span>/xmax, <span class="Constant">0x28</span>/y, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg
<span id="L19" class="LineNr"> 19 </span>    <span class="muComment"># read line from keyboard</span>
<span id="L20" class="LineNr"> 20 </span>    <a href='106stream.subx.html#L20'>clear-stream</a> in
<span id="L21" class="LineNr"> 21 </span>    <span class="Delimiter">{</span>
<span id="L22" class="LineNr"> 22 </span>      <a href='500fake-screen.mu.html#L237'>draw-cursor</a> <a href='500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0x20</span>/space
<span id="L23" class="LineNr"> 23 </span>      <span class="PreProc">var</span> key/eax: byte <span class="Special">&lt;-</span> <a href='102keyboard.subx.html#L21'>read-key</a> keyboard
<span id="L24" class="LineNr"> 24 </span>      compare key, <span class="Constant">0xa</span>/newline
<span id="L25" class="LineNr"> 25 </span>      <span class="PreProc">break-if-=</span>
<span id="L26" class="LineNr"> 26 </span>      compare key, <span class="Constant">0</span>
<span id="L27" class="LineNr"> 27 </span>      <span class="PreProc">loop-if-=</span>
<span id="L28" class="LineNr"> 28 </span>      <span class="PreProc">var</span> key2/eax: int <span class="Special">&lt;-</span> copy key
<span id="L29" class="LineNr"> 29 </span>      <a href='115write-byte.subx.html#L12'>append-byte</a> in, key2
<span id="L30" class="LineNr"> 30 </span>      <span class="PreProc">var</span> g/eax: grapheme <span class="Special">&lt;-</span> copy key2
<span id="L31" class="LineNr"> 31 </span>      <a href='501draw-text.mu.html#L84'>draw-grapheme-at-cursor</a> <a href='500fake-screen.mu.html#L14'>screen</a>, g, <span class="Constant">0xf</span>/fg, <span class="Constant">0</span>/bg
<span id="L32" class="LineNr"> 32 </span>      <a href='501draw-text.mu.html#L16'>move-cursor-right</a> <span class="Constant">0</span>
<span id="L33" class="LineNr"> 33 </span>      <span class="PreProc">loop</span>
<span id="L34" class="LineNr"> 34 </span>    <span class="Delimiter">}</span>
<span id="L35" class="LineNr"> 35 </span>    <a href='500fake-screen.mu.html#L251'>clear-screen</a> <a href='500fake-screen.mu.html#L14'>screen</a>
<span id="L36" class="LineNr"> 36 </span>    <span class="muComment"># parse</span>
<span id="L37" class="LineNr"> 37 </span>    <span class="PreProc">var</span> a/<span class="muRegEcx">ecx</span>: int <span class="Special">&lt;-</span> copy <span class="Constant">0</span>
<span id="L38" class="LineNr"> 38 </span>    <span class="PreProc">var</span> b/<span class="muRegEdx">edx</span>: int <span class="Special">&lt;-</span> copy <span class="Constant">0</span>
<span id="L39" class="LineNr"> 39 </span>    <span class="PreProc">var</span> c/<span class="muRegEbx">ebx</span>: int <span class="Special">&lt;-</span> copy <span class="Constant">0</span>
<span id="L40" class="LineNr"> 40 </span>    <span class="muComment"># a, b, c = r, g, b</span>
<span id="L41" class="LineNr"> 41 </span>    a, b, c <span class="Special">&lt;-</span> <a href='colors.mu.html#L58'>parse</a> in
<span id="L42" class="LineNr"> 42 </span><span class="CommentedCode">#?     set-cursor-position screen, 0x10/x, 0x1a/y</span>
<span id="L43" class="LineNr"> 43 </span><span class="CommentedCode">#?     draw-int32-hex-wrapping-right-then-down-from-cursor-over-full-screen screen, a, 7/fg, 0/bg</span>
<span id="L44" class="LineNr"> 44 </span><span class="CommentedCode">#?     draw-text-wrapping-right-then-down-from-cursor-over-full-screen screen, &quot; &quot;, 7/fg, 0/bg</span>
<span id="L45" class="LineNr"> 45 </span><span class="CommentedCode">#?     draw-int32-hex-wrapping-right-then-down-from-cursor-over-full-screen screen, b, 7/fg, 0/bg</span>
<span id="L46" class="LineNr"> 46 </span><span class="CommentedCode">#?     draw-text-wrapping-right-then-down-from-cursor-over-full-screen screen, &quot; &quot;, 7/fg, 0/bg</span>
<span id="L47" class="LineNr"> 47 </span><span class="CommentedCode">#?     draw-int32-hex-wrapping-right-then-down-from-cursor-over-full-screen screen, c, 7/fg, 0/bg</span>
<span id="L48" class="LineNr"> 48 </span>    a, b, c <span class="Special">&lt;-</span> <a href='505colors.mu.html#L5'>hsl</a> a, b, c
<span id="L49" class="LineNr"> 49 </span>    <span class="muComment"># return all colors in the same quadrant in h, s and l</span>
<span id="L50" class="LineNr"> 50 </span>    <a href='colors.mu.html#L182'>print-nearby-colors</a> <a href='500fake-screen.mu.html#L14'>screen</a>, a, b, c
<span id="L51" class="LineNr"> 51 </span>    <span class="muComment">#</span>
<span id="L52" class="LineNr"> 52 </span>    <span class="PreProc">loop</span>
<span id="L53" class="LineNr"> 53 </span>  <span class="Delimiter">}</span>
<span id="L54" class="LineNr"> 54 </span><span class="Delimiter">}</span>
<span id="L55" class="LineNr"> 55 </span>
<span id="L56" class="LineNr"> 56 </span><span class="muComment"># read exactly 3 words in a single line</span>
<span id="L57" class="LineNr"> 57 </span><span class="muComment"># Each word consists of exactly 1 or 2 hex bytes. No hex prefix.</span>
<span id="L58" class="LineNr"> 58 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='colors.mu.html#L58'>parse</a></span> in: (addr stream byte)<span class="PreProc"> -&gt; </span>_/<span class="muRegEcx">ecx</span>: int, _/<span class="muRegEdx">edx</span>: int, _/<span class="muRegEbx">ebx</span>: int <span class="Delimiter">{</span>
<span id="L59" class="LineNr"> 59 </span>  <span class="muComment"># read first byte of r</span>
<span id="L60" class="LineNr"> 60 </span>  <span class="PreProc">var</span> tmp/eax: byte <span class="Special">&lt;-</span> <a href='112read-byte.subx.html#L13'>read-byte</a> in
<span id="L61" class="LineNr"> 61 </span>  <span class="Delimiter">{</span>
<span id="L62" class="LineNr"> 62 </span>    <span class="PreProc">var</span> valid?/eax: boolean <span class="Special">&lt;-</span> <a href='118parse-hex-int.subx.html#L701'>hex-digit?</a> tmp
<span id="L63" class="LineNr"> 63 </span>    compare valid?, <span class="Constant">0</span>/false
<span id="L64" class="LineNr"> 64 </span>    <span class="PreProc">break-if-!=</span>
<span id="L65" class="LineNr"> 65 </span>    <a href='317abort.subx.html#L5'>abort</a> <span class="Constant">&quot;invalid byte 0 of r&quot;</span>
<span id="L66" class="LineNr"> 66 </span>  <span class="Delimiter">}</span>
<span id="L67" class="LineNr"> 67 </span>  tmp <span class="Special">&lt;-</span> <a href='colors.mu.html#L169'>fast-hex-digit-value</a> tmp
<span id="L68" class="LineNr"> 68 </span>  <span class="PreProc">var</span> r/<span class="muRegEcx">ecx</span>: int <span class="Special">&lt;-</span> copy tmp
<span id="L69" class="LineNr"> 69 </span><span class="CommentedCode">#?   set-cursor-position 0/screen, 0x10/x, 0x10/y</span>
<span id="L70" class="LineNr"> 70 </span><span class="CommentedCode">#?   draw-int32-hex-wrapping-right-then-down-from-cursor-over-full-screen 0/screen, r, 7/fg, 0/bg</span>
<span id="L71" class="LineNr"> 71 </span>  <span class="muComment"># read second byte of r</span>
<span id="L72" class="LineNr"> 72 </span>  tmp <span class="Special">&lt;-</span> <a href='112read-byte.subx.html#L13'>read-byte</a> in
<span id="L73" class="LineNr"> 73 </span>  <span class="Delimiter">{</span>
<span id="L74" class="LineNr"> 74 </span>    <span class="Delimiter">{</span>
<span id="L75" class="LineNr"> 75 </span>      <span class="PreProc">var</span> valid?/eax: boolean <span class="Special">&lt;-</span> <a href='118parse-hex-int.subx.html#L701'>hex-digit?</a> tmp
<span id="L76" class="LineNr"> 76 </span>      compare valid?, <span class="Constant">0</span>/false
<span id="L77" class="LineNr"> 77 </span>    <span class="Delimiter">}</span>
<span id="L78" class="LineNr"> 78 </span>    <span class="PreProc">break-if-=</span>
<span id="L79" class="LineNr"> 79 </span>    r <span class="Special">&lt;-</span> shift-left <span class="Constant">4</span>
<span id="L80" class="LineNr"> 80 </span>    tmp <span class="Special">&lt;-</span> <a href='colors.mu.html#L169'>fast-hex-digit-value</a> tmp
<span id="L81" class="LineNr"> 81 </span><span class="CommentedCode">#?     {</span>
<span id="L82" class="LineNr"> 82 </span><span class="CommentedCode">#?       var foo/eax: int &lt;- copy tmp</span>
<span id="L83" class="LineNr"> 83 </span><span class="CommentedCode">#?       set-cursor-position 0/screen, 0x10/x, 0x11/y</span>
<span id="L84" class="LineNr"> 84 </span><span class="CommentedCode">#?       draw-int32-hex-wrapping-right-then-down-from-cursor-over-full-screen 0/screen, foo, 7/fg, 0/bg</span>
<span id="L85" class="LineNr"> 85 </span><span class="CommentedCode">#?     }</span>
<span id="L86" class="LineNr"> 86 </span>    r <span class="Special">&lt;-</span> add tmp
<span id="L87" class="LineNr"> 87 </span><span class="CommentedCode">#?     {</span>
<span id="L88" class="LineNr"> 88 </span><span class="CommentedCode">#?       set-cursor-position 0/screen, 0x10/x, 0x12/y</span>
<span id="L89" class="LineNr"> 89 </span><span class="CommentedCode">#?       draw-int32-hex-wrapping-right-then-down-from-cursor-over-full-screen 0/screen, r, 7/fg, 0/bg</span>
<span id="L90" class="LineNr"> 90 </span><span class="CommentedCode">#?     }</span>
<span id="L91" class="LineNr"> 91 </span>    tmp <span class="Special">&lt;-</span> <a href='112read-byte.subx.html#L13'>read-byte</a> in  <span class="muComment"># skip space</span>
<span id="L92" class="LineNr"> 92 </span>  <span class="Delimiter">}</span>
<span id="L93" class="LineNr"> 93 </span>  <span class="muComment"># read first byte of g</span>
<span id="L94" class="LineNr"> 94 </span>  <span class="PreProc">var</span> tmp/eax: byte <span class="Special">&lt;-</span> <a href='112read-byte.subx.html#L13'>read-byte</a> in
<span id="L95" class="LineNr"> 95 </span>  <span class="Delimiter">{</span>
<span id="L96" class="LineNr"> 96 </span>    <span class="PreProc">var</span> valid?/eax: boolean <span class="Special">&lt;-</span> <a href='118parse-hex-int.subx.html#L701'>hex-digit?</a> tmp
<span id="L97" class="LineNr"> 97 </span>    compare valid?, <span class="Constant">0</span>/false
<span id="L98" class="LineNr"> 98 </span>    <span class="PreProc">break-if-!=</span>
<span id="L99" class="LineNr"> 99 </span>    <a href='317abort.subx.html#L5'>abort</a> <span class="Constant">&quot;invalid byte 0 of g&quot;</span>
<span id="L100" class="LineNr">100 </span>  <span class="Delimiter">}</span>
<span id="L101" class="LineNr">101 </span>  tmp <span class="Special">&lt;-</span> <a href='colors.mu.html#L169'>fast-hex-digit-value</a> tmp
<span id="L102" class="LineNr">102 </span>  <span class="PreProc">var</span> g/<span class="muRegEdx">edx</span>: int <span class="Special">&lt;-</span> copy tmp
<span id="L103" class="LineNr">103 </span><span class="CommentedCode">#?   set-cursor-position 0/screen, 0x10/x, 0x13/y</span>
<span id="L104" class="LineNr">104 </span><span class="CommentedCode">#?   draw-int32-hex-wrapping-right-then-down-from-cursor-over-full-screen 0/screen, g, 7/fg, 0/bg</span>
<span id="L105" class="LineNr">105 </span>  <span class="muComment"># read second byte of g</span>
<span id="L106" class="LineNr">106 </span>  tmp <span class="Special">&lt;-</span> <a href='112read-byte.subx.html#L13'>read-byte</a> in
<span id="L107" class="LineNr">107 </span>  <span class="Delimiter">{</span>
<span id="L108" class="LineNr">108 </span>    <span class="Delimiter">{</span>
<span id="L109" class="LineNr">109 </span>      <span class="PreProc">var</span> valid?/eax: boolean <span class="Special">&lt;-</span> <a href='118parse-hex-int.subx.html#L701'>hex-digit?</a> tmp
<span id="L110" class="LineNr">110 </span>      compare valid?, <span class="Constant">0</span>/false
<span id="L111" class="LineNr">111 </span>    <span class="Delimiter">}</span>
<span id="L112" class="LineNr">112 </span>    <span class="PreProc">break-if-=</span>
<span id="L113" class="LineNr">113 </span>    g <span class="Special">&lt;-</span> shift-left <span class="Constant">4</span>
<span id="L114" class="LineNr">114 </span>    tmp <span class="Special">&lt;-</span> <a href='colors.mu.html#L169'>fast-hex-digit-value</a> tmp
<span id="L115" class="LineNr">115 </span><span class="CommentedCode">#?     {</span>
<span id="L116" class="LineNr">116 </span><span class="CommentedCode">#?       var foo/eax: int &lt;- copy tmp</span>
<span id="L117" class="LineNr">117 </span><span class="CommentedCode">#?       set-cursor-position 0/screen, 0x10/x, 0x14/y</span>
<span id="L118" class="LineNr">118 </span><span class="CommentedCode">#?       draw-int32-hex-wrapping-right-then-down-from-cursor-over-full-screen 0/screen, foo, 7/fg, 0/bg</span>
<span id="L119" class="LineNr">119 </span><span class="CommentedCode">#?     }</span>
<span id="L120" class="LineNr">120 </span>    g <span class="Special">&lt;-</span> add tmp
<span id="L121" class="LineNr">121 </span><span class="CommentedCode">#?     {</span>
<span id="L122" class="LineNr">122 </span><span class="CommentedCode">#?       set-cursor-position 0/screen, 0x10/x, 0x15/y</span>
<span id="L123" class="LineNr">123 </span><span class="CommentedCode">#?       draw-int32-hex-wrapping-right-then-down-from-cursor-over-full-screen 0/screen, g, 7/fg, 0/bg</span>
<span id="L124" class="LineNr">124 </span><span class="CommentedCode">#?     }</span>
<span id="L125" class="LineNr">125 </span>    tmp <span class="Special">&lt;-</span> <a href='112read-byte.subx.html#L13'>read-byte</a> in  <span class="muComment"># skip space</span>
<span id="L126" class="LineNr">126 </span>  <span class="Delimiter">}</span>
<span id="L127" class="LineNr">127 </span>  <span class="muComment"># read first byte of b</span>
<span id="L128" class="LineNr">128 </span>  <span class="PreProc">var</span> tmp/eax: byte <span class="Special">&lt;-</span> <a href='112read-byte.subx.html#L13'>read-byte</a> in
<span id="L129" class="LineNr">129 </span>  <span class="Delimiter">{</span>
<span id="L130" class="LineNr">130 </span>    <span class="PreProc">var</span> valid?/eax: boolean <span class="Special">&lt;-</span> <a href='118parse-hex-int.subx.html#L701'>hex-digit?</a> tmp
<span id="L131" class="LineNr">131 </span>    compare valid?, <span class="Constant">0</span>/false
<span id="L132" class="LineNr">132 </span>    <span class="PreProc">break-if-!=</span>
<span id="L133" class="LineNr">133 </span>    <a href='317abort.subx.html#L5'>abort</a> <span class="Constant">&quot;invalid byte 0 of b&quot;</span>
<span id="L134" class="LineNr">134 </span>  <span class="Delimiter">}</span>
<span id="L135" class="LineNr">135 </span>  tmp <span class="Special">&lt;-</span> <a href='colors.mu.html#L169'>fast-hex-digit-value</a> tmp
<span id="L136" class="LineNr">136 </span>  <span class="PreProc">var</span> b/<span class="muRegEbx">ebx</span>: int <span class="Special">&lt;-</span> copy tmp
<span id="L137" class="LineNr">137 </span><span class="CommentedCode">#?   set-cursor-position 0/screen, 0x10/x, 0x16/y</span>
<span id="L138" class="LineNr">138 </span><span class="CommentedCode">#?   draw-int32-hex-wrapping-right-then-down-from-cursor-over-full-screen 0/screen, b, 7/fg, 0/bg</span>
<span id="L139" class="LineNr">139 </span>  <span class="muComment"># read second byte of b</span>
<span id="L140" class="LineNr">140 </span>  <span class="Delimiter">{</span>
<span id="L141" class="LineNr">141 </span>    <span class="Delimiter">{</span>
<span id="L142" class="LineNr">142 </span>      <span class="PreProc">var</span> done?/eax: boolean <span class="Special">&lt;-</span> <a href='309stream.subx.html#L6'>stream-empty?</a> in
<span id="L143" class="LineNr">143 </span>      compare done?, <span class="Constant">0</span>/false
<span id="L144" class="LineNr">144 </span>    <span class="Delimiter">}</span>
<span id="L145" class="LineNr">145 </span>    <span class="PreProc">break-if-!=</span>
<span id="L146" class="LineNr">146 </span>    tmp <span class="Special">&lt;-</span> <a href='112read-byte.subx.html#L13'>read-byte</a> in
<span id="L147" class="LineNr">147 </span>    <span class="Delimiter">{</span>
<span id="L148" class="LineNr">148 </span>      <span class="PreProc">var</span> valid?/eax: boolean <span class="Special">&lt;-</span> <a href='118parse-hex-int.subx.html#L701'>hex-digit?</a> tmp
<span id="L149" class="LineNr">149 </span>      compare valid?, <span class="Constant">0</span>/false
<span id="L150" class="LineNr">150 </span>    <span class="Delimiter">}</span>
<span id="L151" class="LineNr">151 </span>    <span class="PreProc">break-if-=</span>
<span id="L152" class="LineNr">152 </span>    b <span class="Special">&lt;-</span> shift-left <span class="Constant">4</span>
<span id="L153" class="LineNr">153 </span>    tmp <span class="Special">&lt;-</span> <a href='colors.mu.html#L169'>fast-hex-digit-value</a> tmp
<span id="L154" class="LineNr">154 </span><span class="CommentedCode">#?     {</span>
<span id="L155" class="LineNr">155 </span><span class="CommentedCode">#?       var foo/eax: int &lt;- copy tmp</span>
<span id="L156" class="LineNr">156 </span><span class="CommentedCode">#?       set-cursor-position 0/screen, 0x10/x, 0x17/y</span>
<span id="L157" class="LineNr">157 </span><span class="CommentedCode">#?       draw-int32-hex-wrapping-right-then-down-from-cursor-over-full-screen 0/screen, foo, 7/fg, 0/bg</span>
<span id="L158" class="LineNr">158 </span><span class="CommentedCode">#?     }</span>
<span id="L159" class="LineNr">159 </span>    b <span class="Special">&lt;-</span> add tmp
<span id="L160" class="LineNr">160 </span><span class="CommentedCode">#?     {</span>
<span id="L161" class="LineNr">161 </span><span class="CommentedCode">#?       set-cursor-position 0/screen, 0x10/x, 0x18/y</span>
<span id="L162" class="LineNr">162 </span><span class="CommentedCode">#?       draw-int32-hex-wrapping-right-then-down-from-cursor-over-full-screen 0/screen, b, 7/fg, 0/bg</span>
<span id="L163" class="LineNr">163 </span><span class="CommentedCode">#?     }</span>
<span id="L164" class="LineNr">164 </span>  <span class="Delimiter">}</span>
<span id="L165" class="LineNr">165 </span>  <span class="PreProc">return</span> r, g, b
<span id="L166" class="LineNr">166 </span><span class="Delimiter">}</span>
<span id="L167" class="LineNr">167 </span>
<span id="L168" class="LineNr">168 </span><span class="muComment"># no error checking</span>
<span id="L169" class="LineNr">169 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='colors.mu.html#L169'>fast-hex-digit-value</a></span> in: byte<span class="PreProc"> -&gt; </span>_/eax: byte <span class="Delimiter">{</span>
<span id="L170" class="LineNr">170 </span>  <span class="PreProc">var</span> result/eax: byte <span class="Special">&lt;-</span> copy in
<span id="L171" class="LineNr">171 </span>  compare result, <span class="Constant">0x39</span>
<span id="L172" class="LineNr">172 </span>  <span class="Delimiter">{</span>
<span id="L173" class="LineNr">173 </span>    <span class="PreProc">break-if-&gt;</span>
<span id="L174" class="LineNr">174 </span>    result <span class="Special">&lt;-</span> subtract <span class="Constant">0x30</span>/<span class="Constant">0</span>
<span id="L175" class="LineNr">175 </span>    <span class="PreProc">return</span> result
<span id="L176" class="LineNr">176 </span>  <span class="Delimiter">}</span>
<span id="L177" class="LineNr">177 </span>  result <span class="Special">&lt;-</span> subtract <span class="Constant">0x61</span>/a
<span id="L178" class="LineNr">178 </span>  result <span class="Special">&lt;-</span> add <span class="Constant">0xa</span>/<span class="Constant">10</span>
<span id="L179" class="LineNr">179 </span>  <span class="PreProc">return</span> result
<span id="L180" class="LineNr">180 </span><span class="Delimiter">}</span>
<span id="L181" class="LineNr">181 </span>
<span id="L182" class="LineNr">182 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='colors.mu.html#L182'>print-nearby-colors</a></span> <a href='500fake-screen.mu.html#L14'>screen</a>: (addr <a href='500fake-screen.mu.html#L14'>screen</a>), h: int, s: int, l: int <span class="Delimiter">{</span>
<span id="L183" class="LineNr">183 </span><span class="CommentedCode">#?   set-cursor-position screen, 0x10/x, 0x1c/y</span>
<span id="L184" class="LineNr">184 </span><span class="CommentedCode">#?   draw-int32-hex-wrapping-right-then-down-from-cursor-over-full-screen screen, h, 7/fg, 0/bg</span>
<span id="L185" class="LineNr">185 </span><span class="CommentedCode">#?   draw-text-wrapping-right-then-down-from-cursor-over-full-screen screen, &quot; &quot;, 7/fg, 0/bg</span>
<span id="L186" class="LineNr">186 </span><span class="CommentedCode">#?   draw-int32-hex-wrapping-right-then-down-from-cursor-over-full-screen screen, s, 7/fg, 0/bg</span>
<span id="L187" class="LineNr">187 </span><span class="CommentedCode">#?   draw-text-wrapping-right-then-down-from-cursor-over-full-screen screen, &quot; &quot;, 7/fg, 0/bg</span>
<span id="L188" class="LineNr">188 </span><span class="CommentedCode">#?   draw-int32-hex-wrapping-right-then-down-from-cursor-over-full-screen screen, l, 7/fg, 0/bg</span>
<span id="L189" class="LineNr">189 </span>  <span class="muComment"># save just top 2 bits of each, so that we narrow down to 1/64th of the volume</span>
<span id="L190" class="LineNr">190 </span>  shift-right h, <span class="Constant">6</span>
<span id="L191" class="LineNr">191 </span>  shift-right s, <span class="Constant">6</span>
<span id="L192" class="LineNr">192 </span>  shift-right l, <span class="Constant">6</span>
<span id="L193" class="LineNr">193 </span><span class="CommentedCode">#?   set-cursor-position screen, 0x10/x, 0x1/y</span>
<span id="L194" class="LineNr">194 </span><span class="CommentedCode">#?   draw-int32-hex-wrapping-right-then-down-from-cursor-over-full-screen screen, h, 7/fg, 0/bg</span>
<span id="L195" class="LineNr">195 </span><span class="CommentedCode">#?   draw-text-wrapping-right-then-down-from-cursor-over-full-screen screen, &quot; &quot;, 7/fg, 0/bg</span>
<span id="L196" class="LineNr">196 </span><span class="CommentedCode">#?   draw-int32-hex-wrapping-right-then-down-from-cursor-over-full-screen screen, s, 7/fg, 0/bg</span>
<span id="L197" class="LineNr">197 </span><span class="CommentedCode">#?   draw-text-wrapping-right-then-down-from-cursor-over-full-screen screen, &quot; &quot;, 7/fg, 0/bg</span>
<span id="L198" class="LineNr">198 </span><span class="CommentedCode">#?   draw-int32-hex-wrapping-right-then-down-from-cursor-over-full-screen screen, l, 7/fg, 0/bg</span>
<span id="L199" class="LineNr">199 </span>  <span class="PreProc">var</span> a/<span class="muRegEcx">ecx</span>: int <span class="Special">&lt;-</span> copy <span class="Constant">0</span>
<span id="L200" class="LineNr">200 </span>  <span class="PreProc">var</span> b/<span class="muRegEdx">edx</span>: int <span class="Special">&lt;-</span> copy <span class="Constant">0</span>
<span id="L201" class="LineNr">201 </span>  <span class="PreProc">var</span> c/<span class="muRegEbx">ebx</span>: int <span class="Special">&lt;-</span> copy <span class="Constant">0</span>
<span id="L202" class="LineNr">202 </span>  <span class="PreProc">var</span> color/eax: int <span class="Special">&lt;-</span> copy <span class="Constant">0</span>
<span id="L203" class="LineNr">203 </span>  <span class="PreProc">var</span> y/<span class="muRegEsi">esi</span>: int <span class="Special">&lt;-</span> copy <span class="Constant">2</span>
<span id="L204" class="LineNr">204 </span>  <span class="Delimiter">{</span>
<span id="L205" class="LineNr">205 </span>    compare color, <span class="Constant">0x100</span>
<span id="L206" class="LineNr">206 </span>    <span class="PreProc">break-if-&gt;=</span>
<span id="L207" class="LineNr">207 </span>    a, b, c <span class="Special">&lt;-</span> <a href='316colors.subx.html#L7'>color-rgb</a> color
<span id="L208" class="LineNr">208 </span>    a, b, c <span class="Special">&lt;-</span> <a href='505colors.mu.html#L5'>hsl</a> a, b, c
<span id="L209" class="LineNr">209 </span>    a <span class="Special">&lt;-</span> shift-right <span class="Constant">6</span>
<span id="L210" class="LineNr">210 </span>    b <span class="Special">&lt;-</span> shift-right <span class="Constant">6</span>
<span id="L211" class="LineNr">211 </span>    c <span class="Special">&lt;-</span> shift-right <span class="Constant">6</span>
<span id="L212" class="LineNr">212 </span>    <span class="Delimiter">{</span>
<span id="L213" class="LineNr">213 </span>      compare a, h
<span id="L214" class="LineNr">214 </span>      <span class="PreProc">break-if-!=</span>
<span id="L215" class="LineNr">215 </span>      compare b, s
<span id="L216" class="LineNr">216 </span>      <span class="PreProc">break-if-!=</span>
<span id="L217" class="LineNr">217 </span>      compare c, l
<span id="L218" class="LineNr">218 </span>      <span class="PreProc">break-if-!=</span>
<span id="L219" class="LineNr">219 </span>      <a href='500fake-screen.mu.html#L190'>set-cursor-position</a> <a href='500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0x10</span>/x, y
<span id="L220" class="LineNr">220 </span>      <a href='501draw-text.mu.html#L387'>draw-int32-decimal-wrapping-right-then-down-from-cursor-over-full-screen</a> <a href='500fake-screen.mu.html#L14'>screen</a>, color, <span class="Constant">7</span>/fg, <span class="Constant">0</span>/bg
<span id="L221" class="LineNr">221 </span>      <a href='500fake-screen.mu.html#L190'>set-cursor-position</a> <a href='500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">0x14</span>/x, y
<span id="L222" class="LineNr">222 </span>      <a href='501draw-text.mu.html#L279'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <a href='500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">&quot; &quot;</span>, <span class="Constant">7</span>/fg, <span class="Constant">0</span>/bg
<span id="L223" class="LineNr">223 </span>      <a href='501draw-text.mu.html#L279'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <a href='500fake-screen.mu.html#L14'>screen</a>, <span class="Constant">&quot;               &quot;</span>, <span class="Constant">0</span>/fg, color
<span id="L224" class="LineNr">224 </span><span class="CommentedCode">#?       draw-text-wrapping-right-then-down-from-cursor-over-full-screen screen, &quot; &quot;, 7/fg, 0/bg</span>
<span id="L225" class="LineNr">225 </span><span class="CommentedCode">#?       draw-int32-hex-wrapping-right-then-down-from-cursor-over-full-screen screen, a, 7/fg, 0/bg</span>
<span id="L226" class="LineNr">226 </span><span class="CommentedCode">#?       draw-text-wrapping-right-then-down-from-cursor-over-full-screen screen, &quot; &quot;, 7/fg, 0/bg</span>
<span id="L227" class="LineNr">227 </span><span class="CommentedCode">#?       draw-int32-hex-wrapping-right-then-down-from-cursor-over-full-screen screen, b, 7/fg, 0/bg</span>
<span id="L228" class="LineNr">228 </span><span class="CommentedCode">#?       draw-text-wrapping-right-then-down-from-cursor-over-full-screen screen, &quot; &quot;, 7/fg, 0/bg</span>
<span id="L229" class="LineNr">229 </span><span class="CommentedCode">#?       draw-int32-hex-wrapping-right-then-down-from-cursor-over-full-screen screen, c, 7/fg, 0/bg</span>
<span id="L230" class="LineNr">230 </span>      y <span class="Special">&lt;-</span> increment
<span id="L231" class="LineNr">231 </span>    <span class="Delimiter">}</span>
<span id="L232" class="LineNr">232 </span>    color <span class="Special">&lt;-</span> increment
<span id="L233" class="LineNr">233 </span>    <span class="PreProc">loop</span>
<span id="L234" class="LineNr">234 </span>  <span class="Delimiter">}</span>
<span id="L235" class="LineNr">235 </span><span class="Delimiter">}</span>
</pre>
</body>
</html>
<!-- vim: set foldmethod=manual : -->