Version 2 of Bwise block of the month

Well, not really, but that sounds funny, of the year, more likely!

Anyhow, anyone wanting to share a bwise block: by all means!

Didn't know which page, of the several dozen bwise pages, to put this on. A slider input for bwise.

 proc newscale { {width  {60}} {height  {130}} {tags  {}} {name  {}} {x  {0}} {y  {0}} {in  {}} {out  {out}}  } {
   if {$name == {}} {
       uplevel #0 {if {[info exists entrycount] == "0"} {set entrycount 0} ;}
      global entrycount
      incr entrycount
      set name Scale$entrycount
   }
   set t [blockfunc $name]
   global mc $t;
   newblock $name $x $y $width $height $in $out $tags
   blockclear $name
   set lc [string tolower $name]
   set cmd " uplevel #0 run $name"
   scale $mc.$lc -from 0 -to 10 -length 100 -sliderlength 5 -width 10 -tickinterval 0 -variable $name.out -command $cmd
   $mc create window [expr $x+3] [expr $y+5]  -window $mc.$lc   -tags "{$name}" -anchor nw
   if {$in == "in"} {
      set $name.bfunc "set $name.out \${$name.in}"
   }
   return $name
 }

TV Looks nice.

I'm working on a bwise 3D graphics viewer block :

Category Bwise