From 0a182fb91a5c1373237ba13223ba3a117b2c1240 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ond=C5=99ej=20Hru=C5=A1ka?= <ondra@ondrovo.com>
Date: Wed, 14 Oct 2020 22:05:10 +0200
Subject: [PATCH] add bmp parser example

---
 examples/bmp-parser.csn | 125 ++++++++++++++++++++++++++++++++++++++++
 examples/pika-rgb32.bmp | Bin 0 -> 24906 bytes
 2 files changed, 125 insertions(+)
 create mode 100644 examples/bmp-parser.csn
 create mode 100644 examples/pika-rgb32.bmp

diff --git a/examples/bmp-parser.csn b/examples/bmp-parser.csn
new file mode 100644
index 0000000..3cc4cd3
--- /dev/null
+++ b/examples/bmp-parser.csn
@@ -0,0 +1,125 @@
+(
+    ; This program parses and shows bmp. 
+    ; Only 32-bit RGB format is supported at the moment.
+    
+    (def HUGEPIXELS 1)
+
+    (ld r0 @cin_r)(cmp r0 'B' (ne? (fault "Bad magic")))
+    (ld r1 @cin_r)(cmp r1 'M' (ne? (fault "Bad magic")))
+    (ldn _ @cin_r 8)
+    
+    (sym datastart r6)
+    (call rd4) (ld datastart res0)
+    
+    (sym hlen r7)
+    (call rd4) (ld hlen res0)
+    
+    (sym w r8) (sym h r9)
+    (call rd4) (ld w res0)
+    (call rd4) (ld h res0)
+    
+    (ldn _ @cin_r 2) ; planes
+    
+    (sym bits r10)
+    (call rd2) (ld bits res0)
+    
+    (call rd4) (tst res0 (nz? (fault "Compression not implemented")))
+    (ldn _ @cin_r 12) ; image size + resolutions
+    
+    (sym usedcolors r11)
+    (call rd4) (ld usedcolors res0)
+    (ldn _ @cin_r 4) ; read to the end of the 40-byte header
+    
+    (cmp bits 32 (ne? (fault "Only 32-bit supported now")))
+    
+    ; Skip the palette if any
+    (ld r0 datastart)
+    (sub r0 54)
+    
+    ; Discard bytes until the start of image data. This contains the palette!
+    ; TODO load to a buffer when indexed BMP support is added
+    (ldn _ @cin_r r0)
+    
+    (sym x r4)
+    (sym y r5)
+    (sym dy r12)
+    (ld x 0)(ld y h)(ld dy -1)(dec y)
+    
+    ; test if height is negative
+    (and r0 h 0x80000000 
+        (nz? 
+            (or h 0xFFFFFFFF_00000000) ; sign extend
+            (mul h -1)
+            (ld dy 1) ; going downward
+            (ld y 0)
+            (dec y)
+        ))
+    
+    (ld r0 w)(ld r1 h)
+    (tst HUGEPIXELS (z? (j :nohuge1)))
+    (mul r0 8)(mul r1 8)(sub r1 8)
+    (:nohuge1)
+    (sc-init r0 r1)
+    
+    ; Here comes the parsing
+    
+    (:nx)
+        (call rd4)  
+        (tst HUGEPIXELS 
+            (z? (sc-px x y res0))
+            (nz? (call bigpixel x y res0)))
+        (add x 1)
+        (cmp x w (ne? (j :nx)))
+        (ld x 0)
+        (add y dy (z? (j :end)))
+        (cmp y h (eq? (j :end)))
+        (j :nx)
+    
+    (:end)
+        (sc-blit)
+    (:endl)
+        (sc-poll)
+        (mslp 10)
+        (j :endl)
+        
+    (proc bigpixel x y rgb
+        (ld r4 x)(ld r1 y)(sub r1 1)
+        (mul r4 8)(mul r1 8)
+        (ld r2 r4)(add r2 8)
+        (ld r3 r1)(add r3 8)
+        (ld r0 r4)
+        (:nx)        
+            (sc-px r0 r1 rgb)
+            (add r0 1)
+            (cmp r0 r2 (ne? (j :nx)))
+            (ld r0 r4)
+            (add r1 1)
+            (cmp r1 r3 (eq? (ret)))
+        (j :nx)    
+    )
+    
+    (proc rd4
+        ; Read 4 bytes as little endian
+        (ld8 r0 @cin_r)(lsl r0 8)
+        (ld8 r0 @cin_r)(lsl r0 8)
+        (ld8 r0 @cin_r)(lsl r0 8)
+        (ld8 r0 @cin_r)
+        (sw32 r0)
+        (rev r0)
+        (ret r0)
+    )
+    
+    (proc rd2
+        ; Read 2 bytes as little endian
+        (ld8 r0 @cin_r)(sw8 r0)
+        (ld8 r0 @cin_r)(sw8 r0)
+        (ret r0)
+    )
+)
+
+
+
+
+
+
+
diff --git a/examples/pika-rgb32.bmp b/examples/pika-rgb32.bmp
new file mode 100644
index 0000000000000000000000000000000000000000..f86f9c5ceb69d4b1f9f94c75cc702f68b4230f6b
GIT binary patch
literal 24906
zcmeI)JCf8e5C&jF3K<vREF@4=kq{8W8Av$+N1<x(Kt{q@NH;Y4W&N6VyY;eNGk$I1
zZAq48>2q7Nlko1-$8Vkg`RRWDaK{&Sd~nB$?ydXXb-%xM-J4g#;T!y~zUzj6sP*sO
zfBt?uS66zex;;NX_t$Y5Tsd&%z?B2%%K?0j@L22lb3Dei#@)*}e%-(NzT@GHm&~1x
zalDnrT{5RfT)U?0WUP~#;yK3r!d|ez!88r~%OmpTk@qw$gzd;&?7?O`ue0L9z2%Wc
zt@qBFS~jh1f8Cxfj}zEdnM#v2%6KjZwoRIr?EX2IB?rbou<gV(<+;Q#buI37(3~B)
zYSWa*TJ2|Wm8NUCmBu-fYmEh;!5V#!z7Nz`h0mF|ci@_wturh3J%ek`h^FiVGqj~_
zalWSSL0$3v!RJ)U2R7PNd$G<aO=X+)91iB{EwO$cDc6*#^kSLOa>Y5c^FD~K-uk_8
zi~XY^)(0;ha=o-cESb_uUW2h@U6*;UF!mOmTIS?U>4=DY;X!BS5-mzb=%@SWI>%z<
zy<BXW|5p1(S6a%*wMy5Lk91<0v2-oYyJM?Xt@DbuTt98GPUbMqg?BXjKBHgCFV)Wb
zhHG2rzvcd>t#++(xm-u@+r$+<$Xi&-eL&_`s+{sqwaal_pDpL#oViVG=eU;aD$dWD
z`_`}Vw#*;8VqaxjDOR{;$2wrX;+c<fw$)Xd;#uf}&qVfP8{<J;qb=7-Th>!iT4_&N
z$Mv$W9`ER`u)vyIUD3aE<ZKV@I?CCSD{?QFe>xv!9oO;s1?#PU{*>nDEofpzy?*$z
z4HmqHZF3{WrL7yYH19{9kL%^SQ!(|fT0R&9?KF_aR{z#Ej;ma`mPc9gzJ4Bf_9?Tu
z9&~N>YUz);30IoRHm>vDapKytu3TT~+Wm3s4@d5r)^pw!;|_blW?fs?mFrJe?}@zP
z;T&?;wVaD%54M|hZCOvQFZPu98HM%Ild<56=fP)!`{=s7_eNd)ocXyb=UZFmz8oEc
z2`%EfX^NO}&3VdmoL?M&TlqTMm7dXW`nS%IXEXAZX0_4VhQDdUeD3`jrSI3|YUHFI
zPuBg|u!%WU$kkd$-A}su`%Ry*oYy_d(G_NTzKxE0zR}gM6?vO^|Mk6D=lj5VDxx3P
z;L3U~_pXmz7dq;>k6g6}y%6=eQk~bzerVf}D=hr_!(6q^l6umWE;34^Tv=X&GW(*u
zG1nz_xohv{8oqP+?~8DD#<_Xz{alS}?|zc~n2R!oe2v$^l=~Nb5AKS*NSXzo<aueS
z%e)rt!qSiBzk?h*U$d^-s-_M@c`#2W-{&sZ__>pFg(VDmFkgLi?ITzB`Q;k+zK3%D
z!#g;v$t>sGa8BkS%XEx+$?>%%>kc^V*PPd$qUlBpE7C{W%6>dA<0vQLNxM`WO!w$&
zdSd<3%PPZ=W;o9>;>53%liGFY?-Mor!kBx>)Aaf)Tw%%loH%Ny+WOR!wogw_yVzqF
zo6^;r*1B2!n9H|!o|ZE1#TD;V($;$KbsKVZwrSe(^^@(pCs(;&O^o@Dr(!gvk(G<I
zXP+U;JY*T3JlH1VUR|YeHkU_xY2RbL_?bMH&`;XvG97i){ZK!Ot9I6P?g4bQEOeXp
zV;%iiMzns;;(E*JTh3Y@Y?E#*^Bkhp#`9+~ZFQxQ6={lS{hZBpuC4UDOzr=BZH;}_
z%2BqRF<1Fnw$zq}I`VG}-sfy_j;l75^)u(F&Yh*Uu%su((&L}GKG*j0v_HFKE)BMw
l&pqZKqkPv{W`8-xRZct8s}wK8wBcoQ*<3kr<-neD;6Fphg|z?x

literal 0
HcmV?d00001