compositing_ansi.png for README.md

src/modules/textblock-999999.0a1.0.tm

@@ -5080,6 +5080,19 @@ tcl::namespace::eval textblock {
     #            >} .= {lmap v $data w $data2 {val "[overtype::right $col1 $v][overtype::right $col2 $w]"}} {|
     #            >} punk::lib::list_as_lines <lhs/0,rhs/1|            
 
+    proc welcome_test {} {
+        package require punk::ansi
+        set ansi        [textblock::join -- " " [punk::ansi::ansicat src/testansi/publicdomain/roysac/roy-welc.ans 80x8]]
+        # Ansi art courtesy of Carsten Cumbrowski aka Roy/SAC - roysac.com
+        set table       [[textblock::spantest] print]
+        set punks       [a+ web-lawngreen][>punk . lhs][a]\n\n[a+ rgb#FFFF00][>punk . rhs][a]
+        set ipunks      [overtype::renderspace -width [textblock::width $punks] [punk::ansi::enable_inverse]$punks]
+        set testblock   [textblock::testblock 15 rainbow]
+        set contents    $ansi\n[textblock::join -- "  " $table "  " $punks " " $testblock " " $ipunks " " $punks] 
+        set framed      [textblock::frame -type arc -title [a+ cyan]Compositing[a] -subtitle [a+ red]ANSI[a] -ansiborder [a+ web-orange] $contents]
+    } 
+
+
     proc example {args} {
         set opts [tcl::dict::create -forcecolour 0]
         foreach {k v} $args {