From 9fb6224e301a7bb2851169057da13e991457d730 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Tue, 18 Nov 2008 14:15:48 -0600
Subject: [PATCH] Add UI render test tool

---
 extra/ui/render/test/reference.bmp   | Bin 0 -> 73554 bytes
 extra/ui/render/test/reference.bmp.2 | Bin 0 -> 89322 bytes
 extra/ui/render/test/test.factor     |  70 +++++++++++++++++++++++++++
 3 files changed, 70 insertions(+)
 create mode 100644 extra/ui/render/test/reference.bmp
 create mode 100644 extra/ui/render/test/reference.bmp.2
 create mode 100644 extra/ui/render/test/test.factor

diff --git a/extra/ui/render/test/reference.bmp b/extra/ui/render/test/reference.bmp
new file mode 100644
index 0000000000000000000000000000000000000000..0740fcc8173f0a6fc4fcfa76802b5146e5a7c59b
GIT binary patch
literal 73554
zcmeIwu?Ye}7=+RPx-bw-t-u1zO{~HGGvjlWD?&cr!Y&*a&CI($o|kRD=eF*3-S@h$
zb+<XKcjkQj|9u?K?r5Ofz;vTYrh%Pr2+9rcU0zo<z8NStz;}6F+4yFl+yLL@b!Fq5
zfpP<Um)DhzZwAT@@LgV4Hoh4sH^6s!UD^0%pxgl8<#lD_n}Koze3#dijc*3Z4e(uF
zS2n&GC^x`&d0pA~W}w^v-{o~><C}qU1ALd)m5px($_?;cURO5087McvcX?ge_-3Ho
z0N>?xW#gNHaszyq*OiTL2FeZaU0zo<z8NStz;}6F+4yFl+yLL@b!Fq5fpP<Um)Dhz
zZwAT@@LgV4Hoh4sH^6s!UD^0%pxgl8<#lD_n}Koze3#dijc*3Z4e(uFS2n&GC^x`&
zd0pA~W}w^v-{o~><C}qU1ALd)m5px($_?;cURO5087McvcX?ge_-3Ho0N>?xW#gNH
zaszyq*OiTL2FeZaU0zo<z8NStz;}6F+4yFl+yLL@b!Fq5fpP<Um)DhzZwAT@@LgV4
zHoh4sH^6s!UD^0%pxgl8<#lD_n}Koze3#dijc*3Z4e(uFS2n&GC^x`&d0pA~W}w^v
z-{o~><C}qU1ALd)m5px($_?;cURO5087McvcX?ge_-3Ho0N>?xW#gNHaszyq*OiTL
O2FeZaU0(OkvwZ-#zpe-X

literal 0
HcmV?d00001

diff --git a/extra/ui/render/test/reference.bmp.2 b/extra/ui/render/test/reference.bmp.2
new file mode 100644
index 0000000000000000000000000000000000000000..630563a5c7d6bc7838e122b7207ff3ad83cf5102
GIT binary patch
literal 89322
zcmeI5L6X}x5JlzkGP|50XYt-Q$TG_;vd&3nPUpQZp|HhJ`oa(xN@Am7_M0+Hh>!^2
z_kRsQQ!an|{`1c-C;Rz#Dt}Mq$5j5B%9qn0r?1oXpQ-)#-%gh@z5M^@d^*j4?Dctm
z!rZi_e)-V(d^%Hx(cltL3o2y@4ZPWyY31)|1uV|SoOir={x*$!#3I^r^gk;Ad)t`k
zl{;WB51A!<@9*!YT6ueWtG3lXqxboIUB88G*vrk{;sdUI)<nxsi`K9Qdy5yi`txV|
zfkkK7gT2KIT>aT&-OIz9&eYh_T&q5SJAdv>W7S+^;ibREpL(1Eu-AvL7Duob=l{r_
zVGs5q{g=7#l07~5w{kUY`!UP9my^JfJ@o;6?Z;P3OU-wj_wsNEdwuw7v8VYC_F%8&
z725XY754J*rZZ*T+n1wf@)CPab!478?8URkx|fGHohj_Wp8A1$KLub9_WHSvo>YO7
zJw1C^8^vD(_MGa-JoS=2^#R=Zb7vZ>=KPKU_Ta7$cd(a-wQ{Bwd(E|)gW<0af4a}t
zSa|7QdVtq43cy|;zFHh<zJt9O4kCJmJ=lxz9eqw&mOW?qce$*4IZ1>)*1eq0kDqnP
zo}T-yjpDBX>s~wu5hEzsQy;*cKX<0F<~zP?iJ%~+PuT0jS1XTczJt9O4kCJmJ=lxz
z9ewgWXKOv`)yAGPCyA_kta~|~A3tl@gS~hc<{Sa+!Cp@1$IrTCPtP9KM)B8x?>XZ+
zh!{c1p85dp{JArYRdasF5J5pqpRm`5uT~y|y%_ID_X>OQ?CCzAbuXHTe*ME<JbSEr
z{ro;sPp}7jBl$7YSYQwKGWmU^xxyaojpWBnV=39wbHBAw{59abmx;LBTub)U2XN=l
zooTH3j_)~d-aL8@_WJPE%43@EVDIR}-R1{-uy=C<wVn#VUOap3IeR*OoW5W$o;~)Q
z<M7aPB(Mj2J^e;sHw9o1_HJ&V)>DC!Jw1C^8^vD(_MAN(KTcmId+GzY^XJYqR?Ybx
z!#Hesj|BGm@YTv=RraRf&;LW)4p-U3czcTHZ&LvF;@Q)E{@uD~><Kg1`iu9sIfHk3
zD*$`(>^0Xt*z-mp?D??wYp_>a4<Efh$2-h!bSw(M9_)!7sCHBU_F%80-RMdbDB06<
zzqL{PHP~|AdvtGEd;c77F#y#t1xohR2XN=looTH3uExw>_hBy#wGSP`ULU?%c}(-&
zUX0bA1A8A32)hA$uoq^&<Q>CaJbUapb3zDv@$9kZggxU>ePFLC{u-#}wR75D_vc)j
z)9a(ndXB}-U+M$6yXoSog=$`7?5_XGM0c;39J%rSXdcWu9*d#IThAV=@m=D~b>06@
z=mL8==_}b&AHd!K>)s_ZT6TP~NKVM<^zmj5dwuw7<uT27x(B)NCd^!)VI012e>@lF
z91-lrv#0xf*vrEq?8URUW!<YW`RM&Q-g*2z@=Re5_D1&Sk;evmuy<sCk32WngT0ac
zdE~K`?CH7R+9>`SaNavIVfDF{?5Pjn&YwHeSo7VZ-<>@A{yE-tKhV-o0od!qS1XTc
zzI&9VN8b;7{n+}fC)k6%&pblAj{>k4&mMbDA8(KTRM?AWk3Hw;l=zGf_I?faEKb)l
zS>alL;=YfQc<Q4Hz@B(oecZ9WW!<}D4fY<j`H=4~+0(PfUA#MbF<ZY)_KdSVio|b7
zBPJYF$)5Tk8v{}ERn2R^Gq@X@u_!EE>l^PUwE2)zwzz4$)d$y@uEm*q>;8X27u8&2
z!N1=d5}Dlw1$*)5J>BQm*xT#=9Pi!i!-HN>0QTb9+p_M#-U}ul^rNr`dxKi@@WX;V
z*gL$*2c017!QP<OJp8aq_VnCuZ4`eEIPV=Ev(*Wf?5Pjn&YwHeSo7Up->KA|Gsk<?
z3f%0h0POYQtChzz-_@Ae>ptvt2CUH??7?2c9yB>B0DJN5vFCI&_`r{by?FMv>^Ut?
z*E0F(T7TmHz;;YEv^Dn33rn$_{8@czU%T@8ZTc-N)y{QG`{fFIhhVg1?=HrgQ>m}7
zH9PC_fj#4Fk0RqdgmDir3D}dpocJ>;2i>tZz<8o`$kOjlnRSos%rmA{&eM1Q0k)Uf
A1ONa4

literal 0
HcmV?d00001

diff --git a/extra/ui/render/test/test.factor b/extra/ui/render/test/test.factor
new file mode 100644
index 0000000000..01b5b65bcf
--- /dev/null
+++ b/extra/ui/render/test/test.factor
@@ -0,0 +1,70 @@
+! Copyright (C) 2008 Slava Pestov.
+! See http://factorcode.org/license.txt for BSD license.
+USING: accessors colors arrays kernel sequences math byte-arrays
+namespaces cap graphics.bitmap
+ui.gadgets ui.gadgets.packs ui.gadgets.borders ui.gadgets.grids
+ui.gadgets.grid-lines ui.gadgets.labels ui.gadgets.buttons
+ui.render ui opengl opengl.gl ;
+IN: ui.render.test
+
+SINGLETON: line-test
+
+M: line-test draw-interior
+    2drop { 0 0 } { 0 10 } gl-line ;
+
+: <line-gadget> ( -- gadget )
+    <gadget>
+        line-test >>interior
+        { 1 10 } >>dim ;
+
+TUPLE: ui-render-test < pack { first-time? initial: t } ;
+
+: message-window ( text -- )
+    <label> "Message" open-window ;
+
+: check-rendering ( gadget -- )
+    gl-screenshot
+    "resource:extra/ui/render/test/reference.bmp" load-bitmap array>>
+    = "perfect" "needs work" ? "Your UI rendering is " prepend
+    message-window ;
+
+M: ui-render-test draw-gadget*
+    [ call-next-method ] [
+        dup first-time?>> [
+            dup check-rendering
+            f >>first-time?
+        ] when
+        drop
+    ] bi ;
+
+: <ui-render-test> ( -- gadget )
+    \ ui-render-test new-gadget
+        { 1 0 } >>orientation
+        <gadget>
+            black <solid> >>interior
+            { 98 98 } >>dim
+        1 <border> add-gadget
+        <gadget>
+            gray <solid> >>boundary
+            { 94 94 } >>dim
+        3 <border>
+            red <solid> >>boundary
+        add-gadget
+            <line-gadget> <line-gadget> <line-gadget> 3array
+            <line-gadget> <line-gadget> <line-gadget> 3array
+            <line-gadget> <line-gadget> <line-gadget> 3array
+        3array <grid>
+            { 5 5 } >>gap
+            blue <grid-lines> >>boundary
+        add-gadget
+        <gadget>
+            { 14 14 } >>dim
+            black <checkmark-paint> >>interior
+            black <solid> >>boundary
+        4 <border>
+        add-gadget ;
+    
+: ui-render-test ( -- )
+    <ui-render-test> "Test" open-window ;
+
+MAIN: ui-render-test