[movitz-cvs] CVS movitz/losp/x86-pc
ffjeld
ffjeld at common-lisp.net
Sat Mar 17 15:39:26 UTC 2007
Update of /project/movitz/cvsroot/movitz/losp/x86-pc
In directory clnet:/tmp/cvs-serv23688
Modified Files:
vga.lisp
Log Message:
Tweak rle-blit-splash to take octet array as input. The splash image
plus the rle-blit-splash function now account for less than 5 KB.
--- /project/movitz/cvsroot/movitz/losp/x86-pc/vga.lisp 2007/03/17 14:57:30 1.9
+++ /project/movitz/cvsroot/movitz/losp/x86-pc/vga.lisp 2007/03/17 15:39:26 1.10
@@ -10,7 +10,7 @@
;;;; Author: Frode Vatvedt Fjeld <frodef at acm.org>
;;;; Created at: Tue Sep 25 14:08:20 2001
;;;;
-;;;; $Id: vga.lisp,v 1.9 2007/03/17 14:57:30 ffjeld Exp $
+;;;; $Id: vga.lisp,v 1.10 2007/03/17 15:39:26 ffjeld Exp $
;;;;
;;;;------------------------------------------------------------------
@@ -925,111 +925,129 @@
;; run-length compressed: color count color count ...
(defvar *vga-g-splash*
- '(7 1828 0 4 7 315 0 5 7 315 0 2 4 2 0 1 7 314 0 2 4 3 0 1 7 314 0 2 4 3 0 1 1 7 7 307 0 2
- 4 3 0 1 1 17 7 297 0 1 4 3 0 1 1 22 7 292 0 2 4 3 0 1 1 3 7 2 1 9 7 2 1 10 7 288 0 2 4 3
- 0 1 1 3 7 2 1 9 7 2 1 12 7 286 0 2 4 2 0 2 1 2 7 3 1 9 7 2 1 3 7 5 1 6 7 283 0 2 4 3 0 1
- 1 3 7 2 1 9 7 3 1 2 7 8 1 6 7 281 0 2 4 3 0 1 1 3 7 2 1 9 7 3 1 2 7 3 1 1 7 5 1 6 7 280
- 0 2 4 2 0 2 1 3 7 2 1 9 7 2 1 2 7 3 1 4 7 4 1 6 7 279 0 1 4 3 0 1 1 3 7 3 1 9 7 2 1 2 7
- 3 1 6 7 3 1 6 7 277 0 2 4 3 0 1 1 3 7 2 1 10 7 2 1 3 7 2 1 7 7 2 1 7 7 276 0 2 4 3 0 1 1
- 3 7 2 1 9 7 3 1 3 7 3 1 16 7 275 0 2 4 2 0 2 1 2 7 3 1 9 7 3 1 4 7 4 1 8 7 3 1 3 7 274 0
- 2 4 3 0 1 1 3 7 2 1 10 7 2 1 6 7 5 1 5 7 5 1 3 7 273 0 2 4 3 0 1 1 3 7 2 1 10 7 2 1 7 7
- 5 1 4 7 6 1 3 7 272 0 2 4 2 0 2 1 3 7 2 1 10 7 2 1 9 7 4 1 3 7 2 1 1 7 4 1 3 7 271 0 1 4
- 3 0 1 1 3 7 3 1 10 7 2 1 11 7 3 1 2 7 2 1 2 7 3 1 4 7 269 0 2 4 3 0 1 1 3 7 2 1 10 7 3 1
- 2 7 2 1 7 7 3 1 1 7 3 1 3 7 3 1 3 7 269 0 2 4 3 0 1 1 3 7 2 1 5 7 2 1 3 7 3 1 2 7 3 1 6
- 7 3 1 1 7 3 1 4 7 2 1 5 7 267 0 2 4 2 0 2 1 3 7 10 1 2 7 2 1 4 7 4 1 4 7 3 1 1 7 3 1 4 7
- 3 1 5 7 265 0 2 4 3 0 1 1 3 7 10 1 10 7 5 1 1 7 3 1 2 7 4 1 3 7 3 1 6 7 264 0 2 4 3 0 1
- 1 24 7 8 1 2 7 9 1 9 7 262 0 2 4 2 0 2 1 26 7 5 1 2 7 3 1 1 7 6 1 10 7 261 0 1 4 3 0 2 1
- 14 7 8 1 11 7 3 1 3 7 3 1 13 7 258 0 2 4 3 0 2 7 2 1 5 7 17 1 9 7 3 1 21 7 256 0 2 4 3 0
- 1 7 26 1 8 7 2 1 24 7 254 0 2 4 2 0 2 7 28 1 6 7 2 1 26 7 252 0 1 4 3 0 2 7 29 1 5 7 2 1
- 24 7 158 0 8 7 87 0 2 4 3 0 2 7 31 1 26 7 160 0 2 7 7 0 1 7 86 0 2 4 2 0 2 7 34 1 21 7
- 158 0 7 7 3 0 3 7 1 0 7 7 80 0 1 4 3 0 2 7 36 1 15 7 160 0 3 7 4 0 2 7 2 0 9 7 3 0 4 7
- 72 2 5 4 3 0 2 7 40 1 5 7 165 0 2 7 8 0 1 7 2 0 5 7 9 0 2 7 69 2 7 4 3 0 1 7 211 0 1 7 4
- 0 2 7 4 0 1 7 2 0 2 7 8 0 4 7 1 0 1 7 66 2 9 4 2 0 2 7 210 0 2 7 2 0 12 7 8 0 5 7 1 0 1
- 7 65 2 11 4 1 0 1 2 1 7 210 0 1 7 3 0 5 7 5 0 3 7 8 0 4 7 2 0 1 7 63 2 15 7 209 0 2 7 3
- 0 4 7 8 0 2 7 1 0 10 7 2 0 1 7 62 2 18 7 207 0 1 7 5 0 2 7 4 0 3 7 3 0 2 7 6 0 2 7 4 0 1
- 7 62 2 18 7 207 0 2 7 5 0 1 7 4 0 4 7 1 0 2 7 4 0 3 7 1 0 1 7 4 0 1 7 61 2 20 7 199 2 8
- 0 2 7 4 0 1 7 4 0 4 7 1 0 1 7 5 0 6 7 1 0 3 7 61 2 10 0 1 2 9 7 194 2 14 0 6 7 4 0 4 7 1
- 0 1 7 6 0 2 7 2 0 3 2 1 7 62 2 9 0 2 4 2 2 8 7 188 2 24 0 1 7 4 0 3 7 2 0 2 7 8 0 2 2 6
- 7 58 2 10 0 1 4 3 0 1 2 6 7 185 2 28 0 1 7 10 0 1 7 7 0 2 2 9 7 56 2 10 0 1 4 3 0 1 2 6
- 7 182 2 31 0 2 7 9 0 8 2 12 7 54 2 22 7 179 2 35 0 2 7 6 0 2 2 22 7 50 2 23 7 177 2 40 0
- 7 2 24 7 47 2 24 7 175 2 75 7 44 2 26 7 172 2 79 7 41 2 17 0 1 2 11 7 169 2 82 7 38 2 19
- 0 1 4 3 2 8 7 167 2 84 7 36 2 21 0 1 4 3 0 1 2 7 7 165 2 87 7 34 2 21 0 2 4 2 0 2 2 7 7
- 163 2 89 7 32 2 23 0 1 4 3 0 1 2 7 7 162 2 92 7 29 2 25 0 1 4 3 0 1 2 4 7 163 2 95 7 27
- 2 16 7 10 0 1 4 3 0 1 7 166 2 96 7 25 2 16 7 11 0 2 4 2 0 1 7 165 2 99 7 23 2 15 7 13 0
- 1 4 3 0 1 7 164 2 101 7 20 2 15 7 15 0 1 4 3 0 1 7 162 2 62 0 2 2 40 7 18 2 15 7 16 0 4
- 7 162 2 62 0 6 2 39 7 14 2 15 7 183 2 63 0 1 7 1 0 1 7 2 0 4 2 39 7 8 2 17 7 183 2 64 0
- 1 7 1 0 1 7 2 0 1 7 2 0 3 2 61 7 182 2 65 0 4 7 2 0 1 7 2 0 1 7 1 0 3 2 58 7 183 2 65 0
- 1 7 1 0 5 7 1 0 2 7 1 0 1 7 1 0 5 2 52 7 184 2 66 0 1 7 1 0 1 7 1 0 3 7 1 0 1 7 2 0 1 7
- 2 0 1 7 2 0 3 2 49 7 184 2 68 0 2 7 2 0 5 7 1 0 1 7 2 0 1 7 2 0 4 2 47 7 184 2 70 0 2 7
- 1 0 1 7 2 0 5 7 1 0 1 7 2 0 1 7 2 0 2 2 45 7 184 2 72 0 3 7 2 0 1 7 2 0 7 7 2 0 1 2 44 7
- 186 2 73 0 5 7 1 0 2 7 1 0 2 7 1 0 5 2 43 7 186 2 77 0 4 7 2 0 1 7 2 0 1 7 2 0 1 2 16 7
- 2 2 24 7 188 2 79 0 5 7 2 0 1 7 1 0 1 2 17 7 7 2 17 7 190 2 83 0 5 2 18 7 16 2 3 7 194 2
- 107 7 213 2 106 7 214 2 106 7 213 2 107 7 213 2 106 7 214 2 106 7 214 2 106 7 213 2 106
- 7 214 2 106 7 214 2 105 7 215 2 104 7 216 2 104 7 215 2 104 7 216 2 104 7 216 2 105 7
- 215 2 105 7 215 2 83 7 11 2 11 7 214 2 82 7 14 2 10 7 214 2 37 7 34 2 11 7 14 2 10 7 214
- 2 27 7 45 2 10 7 14 2 10 7 214 2 14 7 5 2 8 7 45 2 9 7 15 2 10 7 214 2 9 7 10 2 8 7 45 2
- 9 7 15 2 10 7 213 2 9 7 11 2 8 7 45 2 9 7 16 2 9 7 213 2 8 7 12 2 8 7 45 2 9 7 16 2 9 7
- 213 2 8 7 12 2 7 7 46 2 9 7 16 2 9 7 213 2 8 7 12 2 7 7 46 2 8 7 17 2 9 7 213 2 7 7 12 2
- 8 7 46 2 8 7 17 2 9 7 212 2 8 7 12 2 8 7 46 2 8 7 17 2 9 7 212 2 8 7 12 2 8 7 46 2 8 7
- 18 2 9 7 211 2 8 7 12 2 8 7 46 2 8 7 18 2 9 7 211 2 7 7 13 2 8 7 46 2 8 7 18 2 9 7 211 2
- 7 7 13 2 7 7 47 2 7 7 19 2 9 7 211 2 7 7 13 2 7 7 47 2 7 7 19 2 9 7 210 2 8 7 13 2 7 7
- 46 2 8 7 19 2 9 7 210 2 7 7 13 2 8 7 46 2 8 7 19 2 9 7 210 2 7 7 13 2 8 7 46 2 8 7 20 2
- 8 7 210 2 7 7 13 2 8 7 46 2 8 7 20 2 8 7 210 2 7 7 13 2 7 7 47 2 8 7 20 2 8 7 209 2 8 7
- 13 2 7 7 47 2 7 7 21 2 8 7 209 2 7 7 14 2 7 7 47 2 7 7 21 2 8 7 209 2 7 7 14 2 7 7 47 2
- 7 7 21 2 8 7 209 2 7 7 14 2 7 7 47 2 7 7 21 2 8 7 209 2 7 7 13 2 8 7 47 2 7 7 22 2 8 7
- 208 2 7 7 13 2 8 7 46 2 8 7 22 2 8 7 207 2 7 7 14 2 7 7 47 2 8 7 22 2 8 7 207 2 7 7 14 2
- 7 7 47 2 7 7 23 2 8 7 207 2 7 7 14 2 7 7 47 2 7 7 23 2 8 7 207 2 7 7 14 2 7 7 47 2 7 7
- 23 2 8 7 207 2 7 7 14 2 7 7 47 2 7 7 23 2 8 7 206 2 7 7 15 2 7 7 47 2 7 7 24 2 7 7 206 2
- 7 7 14 2 7 7 48 2 7 7 24 2 7 7 206 2 7 7 14 2 7 7 48 2 7 7 24 2 7 7 206 2 7 7 14 2 7 7
- 48 2 7 7 24 2 7 7 206 2 7 7 14 2 7 7 47 2 8 7 24 2 7 7 206 2 7 7 14 2 7 7 47 2 7 7 25 2
- 7 7 205 2 7 7 15 2 7 7 47 2 7 7 25 2 7 7 202 2 11 7 14 2 7 7 47 2 7 7 25 2 7 7 201 2 13
- 7 10 2 11 7 46 2 7 7 25 2 7 7 201 2 14 7 8 2 13 7 45 2 7 7 25 2 8 7 199 2 16 7 6 2 15 7
- 44 2 7 7 22 2 12 7 198 2 16 7 6 2 15 7 42 2 10 7 20 2 15 7 196 2 16 7 6 2 15 7 41 2 13 7
- 18 2 15 7 197 2 15 7 6 2 15 7 40 2 15 7 16 2 17 7 196 2 14 7 7 2 15 7 40 2 15 7 16 2 17
- 7 198 2 4 7 2 2 5 7 9 2 13 7 41 2 15 7 16 2 17 7 219 2 4 7 3 2 4 7 42 2 15 7 17 2 7 7 2
- 2 6 7 273 2 15 7 18 2 5 7 4 2 3 7 276 2 13 7 308 2 4 7 2 2 5 7 3537 0 3 7 307 0 2 7 7 0
- 4 7 73 0 2 7 231 0 3 7 6 0 5 7 73 0 2 7 2 0 5 7 223 0 4 7 5 0 5 7 73 0 11 7 221 0 4 7 6
- 0 5 7 72 0 13 7 83 0 2 7 134 0 5 7 5 0 5 7 71 0 7 7 6 0 3 7 81 0 3 7 133 0 5 7 5 0 6 7
- 70 0 6 7 9 0 2 7 80 0 3 7 133 0 6 7 4 0 3 7 1 0 2 7 71 0 6 7 9 0 2 7 80 0 3 7 133 0 2 7
- 1 0 2 7 5 0 2 7 1 0 3 7 31 0 2 7 6 0 2 7 30 0 2 7 1 0 2 7 10 0 2 7 79 0 3 7 133 0 2 7 1
- 0 2 7 5 0 2 7 2 0 2 7 31 0 3 7 5 0 3 7 32 0 3 7 10 0 2 7 79 0 2 7 133 0 2 7 2 0 2 7 4 0
- 3 7 1 0 2 7 31 0 4 7 5 0 2 7 33 0 2 7 10 0 2 7 79 0 3 7 132 0 3 7 1 0 2 7 5 0 2 7 1 0 3
- 7 31 0 3 7 5 0 2 7 33 0 3 7 9 0 3 7 78 0 3 7 133 0 2 7 2 0 2 7 4 0 2 7 2 0 2 7 32 0 2 7
- 5 0 3 7 33 0 3 7 9 0 3 7 78 0 3 7 132 0 2 7 2 0 3 7 3 0 2 7 2 0 3 7 39 0 7 7 28 0 3 7 9
- 0 3 7 78 0 3 7 132 0 3 7 2 0 2 7 3 0 3 7 2 0 2 7 39 0 8 7 28 0 3 7 7 0 4 7 79 0 3 7 131
- 0 3 7 2 0 3 7 3 0 2 7 2 0 3 7 37 0 6 7 31 0 3 7 7 0 4 7 79 0 3 7 132 0 2 7 3 0 2 7 3 0 2
- 7 3 0 2 7 9 0 3 7 24 0 5 7 34 0 3 7 5 0 5 7 6 0 3 7 18 0 2 7 51 0 3 7 131 0 3 7 3 0 2 7
- 2 0 3 7 3 0 2 7 8 0 5 7 5 0 2 7 3 0 2 7 6 0 2 7 3 0 5 7 5 0 10 7 16 0 6 7 2 0 7 7 6 0 5
- 7 16 0 3 7 6 0 4 7 8 0 2 7 4 0 3 7 7 0 4 7 8 0 7 7 132 0 2 7 3 0 3 7 2 0 2 7 3 0 3 7 7 0
- 6 7 5 0 2 7 2 0 3 7 6 0 2 7 5 0 2 7 6 0 10 7 17 0 12 7 7 0 6 7 6 0 2 7 8 0 3 7 5 0 5 7 7
- 0 3 7 2 0 5 7 6 0 5 7 7 0 7 7 132 0 2 7 4 0 2 7 2 0 2 7 4 0 2 7 7 0 3 7 2 0 2 7 4 0 3 7
- 2 0 3 7 5 0 2 7 5 0 2 7 12 0 4 7 18 0 10 7 8 0 3 7 2 0 2 7 5 0 3 7 3 0 2 7 3 0 2 7 4 0 3
- 7 2 0 2 7 7 0 2 7 2 0 4 7 6 0 3 7 2 0 2 7 6 0 2 7 3 0 3 7 131 0 3 7 4 0 2 7 2 0 2 7 3 0
- 3 7 6 0 3 7 3 0 2 7 4 0 2 7 2 0 3 7 5 0 3 7 4 0 3 7 11 0 4 7 19 0 7 7 10 0 3 7 3 0 2 7 4
- 0 3 7 3 0 3 7 2 0 3 7 3 0 3 7 3 0 1 7 7 0 2 7 1 0 4 7 5 0 1 7 1 0 3 7 3 0 1 7 6 0 2 7 4
- 0 2 7 132 0 2 7 4 0 3 7 1 0 2 7 4 0 2 7 6 0 3 7 3 0 2 7 4 0 3 7 2 0 3 7 3 0 1 7 1 0 2 7
- 5 0 2 7 11 0 3 7 20 0 3 7 14 0 3 7 3 0 2 7 4 0 3 7 3 0 3 7 3 0 3 7 2 0 3 7 3 0 2 7 7 0 1
- 7 1 0 4 7 3 0 7 7 3 0 2 7 5 0 2 7 4 0 3 7 131 0 3 7 4 0 6 7 3 0 3 7 6 0 2 7 3 0 3 7 4 0
- 2 7 3 0 3 7 1 0 6 7 4 0 3 7 10 0 3 7 21 0 3 7 14 0 2 7 3 0 3 7 4 0 3 7 3 0 2 7 3 0 3 7 3
- 0 2 7 3 0 2 7 7 0 13 7 1 0 2 7 3 0 2 7 6 0 2 7 4 0 2 7 132 0 2 7 5 0 2 7 1 0 2 7 4 0 3 7
- 5 0 2 7 3 0 4 7 3 0 2 7 4 0 6 7 1 0 2 7 5 0 2 7 6 0 1 7 3 0 3 7 21 0 3 7 14 0 2 7 3 0 4
- 7 3 0 3 7 3 0 3 7 3 0 3 7 2 0 3 7 2 0 2 7 8 0 4 7 1 0 6 7 2 0 3 7 2 0 2 7 6 0 2 7 4 0 3
- 7 131 0 3 7 5 0 4 7 5 0 2 7 6 0 2 7 4 0 2 7 4 0 2 7 3 0 6 7 1 0 3 7 5 0 2 7 5 0 2 7 2 0
- 3 7 22 0 3 7 14 0 2 7 4 0 2 7 3 0 3 7 3 0 3 7 3 0 3 7 3 0 2 7 1 0 3 7 4 0 2 7 2 0 4 7 2
- 0 5 7 3 0 2 7 1 0 3 7 4 0 2 7 1 0 2 7 4 0 3 7 131 0 2 7 6 0 4 7 4 0 3 7 5 0 2 7 4 0 2 7
- 5 0 1 7 4 0 2 7 5 0 2 7 5 0 2 7 5 0 2 7 2 0 3 7 22 0 3 7 14 0 2 7 4 0 2 7 4 0 3 7 2 0 4
- 7 3 0 2 7 3 0 6 7 4 0 2 7 3 0 3 7 10 0 6 7 4 0 2 7 1 0 2 7 4 0 3 7 131 0 3 7 6 0 3 7 5 0
- 3 7 5 0 2 7 3 0 3 7 4 0 2 7 3 0 2 7 5 0 3 7 5 0 2 7 4 0 3 7 1 0 3 7 23 0 3 7 14 0 2 7 3
- 0 3 7 3 0 3 7 2 0 4 7 3 0 3 7 3 0 4 7 5 0 2 7 3 0 4 7 10 0 4 7 5 0 2 7 2 0 2 7 4 0 3 7
- 131 0 2 7 15 0 2 7 6 0 2 7 2 0 3 7 5 0 2 7 2 0 2 7 6 0 2 7 6 0 2 7 3 0 3 7 1 0 3 7 23 0
- 3 7 15 0 2 7 2 0 3 7 4 0 3 7 1 0 2 7 1 0 2 7 2 0 3 7 4 0 2 7 6 0 2 7 4 0 3 7 11 0 2 7 6
- 0 2 7 3 0 2 7 3 0 4 7 130 0 3 7 14 0 3 7 6 0 6 7 6 0 6 7 6 0 2 7 6 0 2 7 2 0 3 7 2 0 2 7
- 1 0 6 7 17 0 3 7 15 0 6 7 5 0 5 7 2 0 6 7 5 0 3 7 3 0 3 7 5 0 2 7 12 0 3 7 3 0 3 7 4 0 2
- 7 2 0 2 7 1 0 2 7 130 0 2 7 15 0 3 7 6 0 5 7 7 0 5 7 6 0 3 7 6 0 6 7 2 0 10 7 17 0 2 7
- 16 0 5 7 6 0 4 7 3 0 5 7 6 0 8 7 5 0 3 7 12 0 8 7 5 0 6 7 1 0 2 7 129 0 3 7 15 0 3 7 7 0
- 3 7 9 0 2 7 8 0 2 7 8 0 3 7 4 0 3 7 23 0 3 7 17 0 3 7 8 0 2 7 4 0 4 7 8 0 5 7 7 0 2 7 14
- 0 5 7 7 0 5 7 2 0 3 7 128 0 2 7 16 0 3 7 29 0 2 7 41 0 3 7 58 0 2 7 27 0 3 7 4 0 2 7 127
- 0 3 7 16 0 3 7 72 0 2 7 224 0 2 7 18 0 1 7 2432))
+ #{7 255 7 255 7 255 7 255 7 255 7 255 7 255 7 35 0 3 7 255 7 58 0 4 7 255 7 58 0
+ 1 4 1 0 0 7 255 7 57 0 1 4 2 0 0 7 255 7 57 0 1 4 2 0 0 1 6 7 255 7 50 0 1 4 2
+ 0 0 1 16 7 255 7 40 0 0 4 2 0 0 1 21 7 255 7 35 0 1 4 2 0 0 1 2 7 1 1 8 7 1 1
+ 9 7 255 7 31 0 1 4 2 0 0 1 2 7 1 1 8 7 1 1 11 7 255 7 29 0 1 4 1 0 1 1 1 7 2 1
+ 8 7 1 1 2 7 4 1 5 7 255 7 26 0 1 4 2 0 0 1 2 7 1 1 8 7 2 1 1 7 7 1 5 7 255 7
+ 24 0 1 4 2 0 0 1 2 7 1 1 8 7 2 1 1 7 2 1 0 7 4 1 5 7 255 7 23 0 1 4 1 0 1 1 2
+ 7 1 1 8 7 1 1 1 7 2 1 3 7 3 1 5 7 255 7 22 0 0 4 2 0 0 1 2 7 2 1 8 7 1 1 1 7 2
+ 1 5 7 2 1 5 7 255 7 20 0 1 4 2 0 0 1 2 7 1 1 9 7 1 1 2 7 1 1 6 7 1 1 6 7 255 7
+ 19 0 1 4 2 0 0 1 2 7 1 1 8 7 2 1 2 7 2 1 15 7 255 7 18 0 1 4 1 0 1 1 1 7 2 1 8
+ 7 2 1 3 7 3 1 7 7 2 1 2 7 255 7 17 0 1 4 2 0 0 1 2 7 1 1 9 7 1 1 5 7 4 1 4 7 4
+ 1 2 7 255 7 16 0 1 4 2 0 0 1 2 7 1 1 9 7 1 1 6 7 4 1 3 7 5 1 2 7 255 7 15 0 1
+ 4 1 0 1 1 2 7 1 1 9 7 1 1 8 7 3 1 2 7 1 1 0 7 3 1 2 7 255 7 14 0 0 4 2 0 0 1 2
+ 7 2 1 9 7 1 1 10 7 2 1 1 7 1 1 1 7 2 1 3 7 255 7 12 0 1 4 2 0 0 1 2 7 1 1 9 7
+ 2 1 1 7 1 1 6 7 2 1 0 7 2 1 2 7 2 1 2 7 255 7 12 0 1 4 2 0 0 1 2 7 1 1 4 7 1 1
+ 2 7 2 1 1 7 2 1 5 7 2 1 0 7 2 1 3 7 1 1 4 7 255 7 10 0 1 4 1 0 1 1 2 7 9 1 1 7
+ 1 1 3 7 3 1 3 7 2 1 0 7 2 1 3 7 2 1 4 7 255 7 8 0 1 4 2 0 0 1 2 7 9 1 9 7 4 1
+ 0 7 2 1 1 7 3 1 2 7 2 1 5 7 255 7 7 0 1 4 2 0 0 1 23 7 7 1 1 7 8 1 8 7 255 7 5
+ 0 1 4 1 0 1 1 25 7 4 1 1 7 2 1 0 7 5 1 9 7 255 7 4 0 0 4 2 0 1 1 13 7 7 1 10 7
+ 2 1 2 7 2 1 12 7 255 7 1 0 1 4 2 0 1 7 1 1 4 7 16 1 8 7 2 1 20 7 255 0 1 4 2 0
+ 0 7 25 1 7 7 1 1 23 7 253 0 1 4 1 0 1 7 27 1 5 7 1 1 25 7 251 0 0 4 2 0 1 7 28
+ 1 4 7 1 1 23 7 157 0 7 7 86 0 1 4 2 0 1 7 30 1 25 7 159 0 1 7 6 0 0 7 85 0 1 4
+ 1 0 1 7 33 1 20 7 157 0 6 7 2 0 2 7 0 0 6 7 79 0 0 4 2 0 1 7 35 1 14 7 159 0 2
+ 7 3 0 1 7 1 0 8 7 2 0 3 7 71 2 4 4 2 0 1 7 39 1 4 7 164 0 1 7 7 0 0 7 1 0 4 7
+ 8 0 1 7 68 2 6 4 2 0 0 7 210 0 0 7 3 0 1 7 3 0 0 7 1 0 1 7 7 0 3 7 0 0 0 7 65
+ 2 8 4 1 0 1 7 209 0 1 7 1 0 11 7 7 0 4 7 0 0 0 7 64 2 10 4 0 0 0 2 0 7 209 0 0
+ 7 2 0 4 7 4 0 2 7 7 0 3 7 1 0 0 7 62 2 14 7 208 0 1 7 2 0 3 7 7 0 1 7 0 0 9 7
+ 1 0 0 7 61 2 17 7 206 0 0 7 4 0 1 7 3 0 2 7 2 0 1 7 5 0 1 7 3 0 0 7 61 2 17 7
+ 206 0 1 7 4 0 0 7 3 0 3 7 0 0 1 7 3 0 2 7 0 0 0 7 3 0 0 7 60 2 19 7 198 2 7 0
+ 1 7 3 0 0 7 3 0 3 7 0 0 0 7 4 0 5 7 0 0 2 7 60 2 9 0 0 2 8 7 193 2 13 0 5 7 3
+ 0 3 7 0 0 0 7 5 0 1 7 1 0 2 2 0 7 61 2 8 0 1 4 1 2 7 7 187 2 23 0 0 7 3 0 2 7
+ 1 0 1 7 7 0 1 2 5 7 57 2 9 0 0 4 2 0 0 2 5 7 184 2 27 0 0 7 9 0 0 7 6 0 1 2 8
+ 7 55 2 9 0 0 4 2 0 0 2 5 7 181 2 30 0 1 7 8 0 7 2 11 7 53 2 21 7 178 2 34 0 1
+ 7 5 0 1 2 21 7 49 2 22 7 176 2 39 0 6 2 23 7 46 2 23 7 174 2 74 7 43 2 25 7
+ 171 2 78 7 40 2 16 0 0 2 10 7 168 2 81 7 37 2 18 0 0 4 2 2 7 7 166 2 83 7 35 2
+ 20 0 0 4 2 0 0 2 6 7 164 2 86 7 33 2 20 0 1 4 1 0 1 2 6 7 162 2 88 7 31 2 22 0
+ 0 4 2 0 0 2 6 7 161 2 91 7 28 2 24 0 0 4 2 0 0 2 3 7 162 2 94 7 26 2 15 7 9 0
+ 0 4 2 0 0 7 165 2 95 7 24 2 15 7 10 0 1 4 1 0 0 7 164 2 98 7 22 2 14 7 12 0 0
+ 4 2 0 0 7 163 2 100 7 19 2 14 7 14 0 0 4 2 0 0 7 161 2 61 0 1 2 39 7 17 2 14 7
+ 15 0 3 7 161 2 61 0 5 2 38 7 13 2 14 7 182 2 62 0 0 7 0 0 0 7 1 0 3 2 38 7 7 2
+ 16 7 182 2 63 0 0 7 0 0 0 7 1 0 0 7 1 0 2 2 60 7 181 2 64 0 3 7 1 0 0 7 1 0 0
+ 7 0 0 2 2 57 7 182 2 64 0 0 7 0 0 4 7 0 0 1 7 0 0 0 7 0 0 4 2 51 7 183 2 65 0
+ 0 7 0 0 0 7 0 0 2 7 0 0 0 7 1 0 0 7 1 0 0 7 1 0 2 2 48 7 183 2 67 0 1 7 1 0 4
+ 7 0 0 0 7 1 0 0 7 1 0 3 2 46 7 183 2 69 0 1 7 0 0 0 7 1 0 4 7 0 0 0 7 1 0 0 7
+ 1 0 1 2 44 7 183 2 71 0 2 7 1 0 0 7 1 0 6 7 1 0 0 2 43 7 185 2 72 0 4 7 0 0 1
+ 7 0 0 1 7 0 0 4 2 42 7 185 2 76 0 3 7 1 0 0 7 1 0 0 7 1 0 0 2 15 7 1 2 23 7
+ 187 2 78 0 4 7 1 0 0 7 0 0 0 2 16 7 6 2 16 7 189 2 82 0 4 2 17 7 15 2 2 7 193
+ 2 106 7 212 2 105 7 213 2 105 7 212 2 106 7 212 2 105 7 213 2 105 7 213 2 105
+ 7 212 2 105 7 213 2 105 7 213 2 104 7 214 2 103 7 215 2 103 7 214 2 103 7 215
+ 2 103 7 215 2 104 7 214 2 104 7 214 2 82 7 10 2 10 7 213 2 81 7 13 2 9 7 213 2
+ 36 7 33 2 10 7 13 2 9 7 213 2 26 7 44 2 9 7 13 2 9 7 213 2 13 7 4 2 7 7 44 2 8
+ 7 14 2 9 7 213 2 8 7 9 2 7 7 44 2 8 7 14 2 9 7 212 2 8 7 10 2 7 7 44 2 8 7 15
+ 2 8 7 212 2 7 7 11 2 7 7 44 2 8 7 15 2 8 7 212 2 7 7 11 2 6 7 45 2 8 7 15 2 8
+ 7 212 2 7 7 11 2 6 7 45 2 7 7 16 2 8 7 212 2 6 7 11 2 7 7 45 2 7 7 16 2 8 7
+ 211 2 7 7 11 2 7 7 45 2 7 7 16 2 8 7 211 2 7 7 11 2 7 7 45 2 7 7 17 2 8 7 210
+ 2 7 7 11 2 7 7 45 2 7 7 17 2 8 7 210 2 6 7 12 2 7 7 45 2 7 7 17 2 8 7 210 2 6
+ 7 12 2 6 7 46 2 6 7 18 2 8 7 210 2 6 7 12 2 6 7 46 2 6 7 18 2 8 7 209 2 7 7 12
+ 2 6 7 45 2 7 7 18 2 8 7 209 2 6 7 12 2 7 7 45 2 7 7 18 2 8 7 209 2 6 7 12 2 7
+ 7 45 2 7 7 19 2 7 7 209 2 6 7 12 2 7 7 45 2 7 7 19 2 7 7 209 2 6 7 12 2 6 7 46
+ 2 7 7 19 2 7 7 208 2 7 7 12 2 6 7 46 2 6 7 20 2 7 7 208 2 6 7 13 2 6 7 46 2 6
+ 7 20 2 7 7 208 2 6 7 13 2 6 7 46 2 6 7 20 2 7 7 208 2 6 7 13 2 6 7 46 2 6 7 20
+ 2 7 7 208 2 6 7 12 2 7 7 46 2 6 7 21 2 7 7 207 2 6 7 12 2 7 7 45 2 7 7 21 2 7
+ 7 206 2 6 7 13 2 6 7 46 2 7 7 21 2 7 7 206 2 6 7 13 2 6 7 46 2 6 7 22 2 7 7
+ 206 2 6 7 13 2 6 7 46 2 6 7 22 2 7 7 206 2 6 7 13 2 6 7 46 2 6 7 22 2 7 7 206
+ 2 6 7 13 2 6 7 46 2 6 7 22 2 7 7 205 2 6 7 14 2 6 7 46 2 6 7 23 2 6 7 205 2 6
+ 7 13 2 6 7 47 2 6 7 23 2 6 7 205 2 6 7 13 2 6 7 47 2 6 7 23 2 6 7 205 2 6 7 13
+ 2 6 7 47 2 6 7 23 2 6 7 205 2 6 7 13 2 6 7 46 2 7 7 23 2 6 7 205 2 6 7 13 2 6
+ 7 46 2 6 7 24 2 6 7 204 2 6 7 14 2 6 7 46 2 6 7 24 2 6 7 201 2 10 7 13 2 6 7
+ 46 2 6 7 24 2 6 7 200 2 12 7 9 2 10 7 45 2 6 7 24 2 6 7 200 2 13 7 7 2 12 7 44
+ 2 6 7 24 2 7 7 198 2 15 7 5 2 14 7 43 2 6 7 21 2 11 7 197 2 15 7 5 2 14 7 41 2
+ 9 7 19 2 14 7 195 2 15 7 5 2 14 7 40 2 12 7 17 2 14 7 196 2 14 7 5 2 14 7 39 2
+ 14 7 15 2 16 7 195 2 13 7 6 2 14 7 39 2 14 7 15 2 16 7 197 2 3 7 1 2 4 7 8 2
+ 12 7 40 2 14 7 15 2 16 7 218 2 3 7 2 2 3 7 41 2 14 7 16 2 6 7 1 2 5 7 255 7 16
+ 2 14 7 17 2 4 7 3 2 2 7 255 7 19 2 12 7 255 7 51 2 3 7 1 2 4 7 255 7 255 7 255
+ 7 255 7 255 7 255 7 255 7 255 7 255 7 255 7 255 7 255 7 255 7 208 0 2 7 255 7
+ 50 0 1 7 6 0 3 7 72 0 1 7 230 0 2 7 5 0 4 7 72 0 1 7 1 0 4 7 222 0 3 7 4 0 4 7
+ 72 0 10 7 220 0 3 7 5 0 4 7 71 0 12 7 82 0 1 7 133 0 4 7 4 0 4 7 70 0 6 7 5 0
+ 2 7 80 0 2 7 132 0 4 7 4 0 5 7 69 0 5 7 8 0 1 7 79 0 2 7 132 0 5 7 3 0 2 7 0 0
+ 1 7 70 0 5 7 8 0 1 7 79 0 2 7 132 0 1 7 0 0 1 7 4 0 1 7 0 0 2 7 30 0 1 7 5 0 1
+ 7 29 0 1 7 0 0 1 7 9 0 1 7 78 0 2 7 132 0 1 7 0 0 1 7 4 0 1 7 1 0 1 7 30 0 2 7
+ 4 0 2 7 31 0 2 7 9 0 1 7 78 0 1 7 132 0 1 7 1 0 1 7 3 0 2 7 0 0 1 7 30 0 3 7 4
+ 0 1 7 32 0 1 7 9 0 1 7 78 0 2 7 131 0 2 7 0 0 1 7 4 0 1 7 0 0 2 7 30 0 2 7 4 0
+ 1 7 32 0 2 7 8 0 2 7 77 0 2 7 132 0 1 7 1 0 1 7 3 0 1 7 1 0 1 7 31 0 1 7 4 0 2
+ 7 32 0 2 7 8 0 2 7 77 0 2 7 131 0 1 7 1 0 2 7 2 0 1 7 1 0 2 7 38 0 6 7 27 0 2
+ 7 8 0 2 7 77 0 2 7 131 0 2 7 1 0 1 7 2 0 2 7 1 0 1 7 38 0 7 7 27 0 2 7 6 0 3 7
+ 78 0 2 7 130 0 2 7 1 0 2 7 2 0 1 7 1 0 2 7 36 0 5 7 30 0 2 7 6 0 3 7 78 0 2 7
+ 131 0 1 7 2 0 1 7 2 0 1 7 2 0 1 7 8 0 2 7 23 0 4 7 33 0 2 7 4 0 4 7 5 0 2 7 17
+ 0 1 7 50 0 2 7 130 0 2 7 2 0 1 7 1 0 2 7 2 0 1 7 7 0 4 7 4 0 1 7 2 0 1 7 5 0 1
+ 7 2 0 4 7 4 0 9 7 15 0 5 7 1 0 6 7 5 0 4 7 15 0 2 7 5 0 3 7 7 0 1 7 3 0 2 7 6
+ 0 3 7 7 0 6 7 131 0 1 7 2 0 2 7 1 0 1 7 2 0 2 7 6 0 5 7 4 0 1 7 1 0 2 7 5 0 1
+ 7 4 0 1 7 5 0 9 7 16 0 11 7 6 0 5 7 5 0 1 7 7 0 2 7 4 0 4 7 6 0 2 7 1 0 4 7 5
+ 0 4 7 6 0 6 7 131 0 1 7 3 0 1 7 1 0 1 7 3 0 1 7 6 0 2 7 1 0 1 7 3 0 2 7 1 0 2
+ 7 4 0 1 7 4 0 1 7 11 0 3 7 17 0 9 7 7 0 2 7 1 0 1 7 4 0 2 7 2 0 1 7 2 0 1 7 3
+ 0 2 7 1 0 1 7 6 0 1 7 1 0 3 7 5 0 2 7 1 0 1 7 5 0 1 7 2 0 2 7 130 0 2 7 3 0 1
+ 7 1 0 1 7 2 0 2 7 5 0 2 7 2 0 1 7 3 0 1 7 1 0 2 7 4 0 2 7 3 0 2 7 10 0 3 7 18
+ 0 6 7 9 0 2 7 2 0 1 7 3 0 2 7 2 0 2 7 1 0 2 7 2 0 2 7 2 0 0 7 6 0 1 7 0 0 3 7
+ 4 0 0 7 0 0 2 7 2 0 0 7 5 0 1 7 3 0 1 7 131 0 1 7 3 0 2 7 0 0 1 7 3 0 1 7 5 0
+ 2 7 2 0 1 7 3 0 2 7 1 0 2 7 2 0 0 7 0 0 1 7 4 0 1 7 10 0 2 7 19 0 2 7 13 0 2 7
+ 2 0 1 7 3 0 2 7 2 0 2 7 2 0 2 7 1 0 2 7 2 0 1 7 6 0 0 7 0 0 3 7 2 0 6 7 2 0 1
+ 7 4 0 1 7 3 0 2 7 130 0 2 7 3 0 5 7 2 0 2 7 5 0 1 7 2 0 2 7 3 0 1 7 2 0 2 7 0
+ 0 5 7 3 0 2 7 9 0 2 7 20 0 2 7 13 0 1 7 2 0 2 7 3 0 2 7 2 0 1 7 2 0 2 7 2 0 1
+ 7 2 0 1 7 6 0 12 7 0 0 1 7 2 0 1 7 5 0 1 7 3 0 1 7 131 0 1 7 4 0 1 7 0 0 1 7 3
+ 0 2 7 4 0 1 7 2 0 3 7 2 0 1 7 3 0 5 7 0 0 1 7 4 0 1 7 5 0 0 7 2 0 2 7 20 0 2 7
+ 13 0 1 7 2 0 3 7 2 0 2 7 2 0 2 7 2 0 2 7 1 0 2 7 1 0 1 7 7 0 3 7 0 0 5 7 1 0 2
+ 7 1 0 1 7 5 0 1 7 3 0 2 7 130 0 2 7 4 0 3 7 4 0 1 7 5 0 1 7 3 0 1 7 3 0 1 7 2
+ 0 5 7 0 0 2 7 4 0 1 7 4 0 1 7 1 0 2 7 21 0 2 7 13 0 1 7 3 0 1 7 2 0 2 7 2 0 2
+ 7 2 0 2 7 2 0 1 7 0 0 2 7 3 0 1 7 1 0 3 7 1 0 4 7 2 0 1 7 0 0 2 7 3 0 1 7 0 0
+ 1 7 3 0 2 7 130 0 1 7 5 0 3 7 3 0 2 7 4 0 1 7 3 0 1 7 4 0 0 7 3 0 1 7 4 0 1 7
+ 4 0 1 7 4 0 1 7 1 0 2 7 21 0 2 7 13 0 1 7 3 0 1 7 3 0 2 7 1 0 3 7 2 0 1 7 2 0
+ 5 7 3 0 1 7 2 0 2 7 9 0 5 7 3 0 1 7 0 0 1 7 3 0 2 7 130 0 2 7 5 0 2 7 4 0 2 7
+ 4 0 1 7 2 0 2 7 3 0 1 7 2 0 1 7 4 0 2 7 4 0 1 7 3 0 2 7 0 0 2 7 22 0 2 7 13 0
+ 1 7 2 0 2 7 2 0 2 7 1 0 3 7 2 0 2 7 2 0 3 7 4 0 1 7 2 0 3 7 9 0 3 7 4 0 1 7 1
+ 0 1 7 3 0 2 7 130 0 1 7 14 0 1 7 5 0 1 7 1 0 2 7 4 0 1 7 1 0 1 7 5 0 1 7 5 0 1
+ 7 2 0 2 7 0 0 2 7 22 0 2 7 14 0 1 7 1 0 2 7 3 0 2 7 0 0 1 7 0 0 1 7 1 0 2 7 3
+ 0 1 7 5 0 1 7 3 0 2 7 10 0 1 7 5 0 1 7 2 0 1 7 2 0 3 7 129 0 2 7 13 0 2 7 5 0
+ 5 7 5 0 5 7 5 0 1 7 5 0 1 7 1 0 2 7 1 0 1 7 0 0 5 7 16 0 2 7 14 0 5 7 4 0 4 7
+ 1 0 5 7 4 0 2 7 2 0 2 7 4 0 1 7 11 0 2 7 2 0 2 7 3 0 1 7 1 0 1 7 0 0 1 7 129 0
+ 1 7 14 0 2 7 5 0 4 7 6 0 4 7 5 0 2 7 5 0 5 7 1 0 9 7 16 0 1 7 15 0 4 7 5 0 3 7
+ 2 0 4 7 5 0 7 7 4 0 2 7 11 0 7 7 4 0 5 7 0 0 1 7 128 0 2 7 14 0 2 7 6 0 2 7 8
+ 0 1 7 7 0 1 7 7 0 2 7 3 0 2 7 22 0 2 7 16 0 2 7 7 0 1 7 3 0 3 7 7 0 4 7 6 0 1
+ 7 13 0 4 7 6 0 4 7 1 0 2 7 127 0 1 7 15 0 2 7 28 0 1 7 40 0 2 7 57 0 1 7 26 0
+ 2 7 3 0 1 7 126 0 2 7 15 0 2 7 71 0 1 7 223 0 1 7 17 0 0 7 255 7 255 7 255 7
+ 255 7 255 7 255 7 255 7 255 7 255 7 127
+ })
;;
@@ -1070,22 +1088,22 @@
(defun rle-blit-splash (splash)
(loop with index = 0
- while splash
- do (loop with value = (pop splash)
- with count = (pop splash)
- repeat count
+ for i from 0 below (length splash) by 2
+ for value = (aref splash i)
+ for count = (1+ (aref splash (1+ i)))
+ do (loop repeat count
do (setf (memref-int (vga-memory-map)
:index index
:type :unsigned-byte8)
value)
- (incf index)))
+ (incf index)))
nil)
;; show the splash screen
(defun g-show-splash ()
(with-textmode-restored ()
(setf (vga-state) +vga-state-320x200x256+)
- (rle-blit-splash +vga-g-splash+)
+ (rle-blit-splash *vga-g-splash*)
(read-char)
(g-clear))
(values))
More information about the Movitz-cvs
mailing list