Updated 2015-06-21 21:40:00 by MiHa

if 0 {

General Notes edit

MiHa 2015-02-24 - A fuzzy clock shows approximate time only, that is, with a precision of a few minutes.

For example, for any time between 03:08 and 03:12 you would get a string like "Ten minutes past three o'clock".

There are already some programs that do that, examples are:

My fuzzy clock doesn't output a string, it highlights fixed panels with a list of words on them,
like turning on lamps inside panels which have a cover, labeled with one of those words.

Some inspiration came from the following programs and pages here :

Other programs that are doing something with time:

Designers notes edit

  • I use 3*8 rectangles as "panels" on a canvas
  • Each such area has a word (like "ten", "minutes", "before"),
    and tags for adressing.
  • The current time gets read with "clock format clock seconds",
  • this "raw time" gets displayed at the top of the window (for testing),
  • and then I use a table-lookup to figure out which panels to light up.
  • This table has an entry for each minute of the hour, with a list of tags.
  • (When implemening this in hardware, I would instead use 32bit-values,
    where each bit represents one of the panels)
  • Actually, this whole thing works like one of those decoders for a 7-segment-display,
    just with more "segments", and better configurable.
  • The clock is a 12-hour design, but instead of AM/PM, I use morning/evening,
    where "morning" behaves like AM, but "evening" only starts at 18:00.
  • With "It is"/"It gets"/"It was", my time is fuzzy/precise within two minutes,
  • so I limited the update-frequency to once every 10 seconds..
  • My choice of words went towards "five" and "ten",
    which can in german both be lit to be nicely combined to get the equivalent of "fifteen".
    For a proper english fuzzy clock, you might want "quarter" as a separate word.
  • In hindsight, for designing and changing the layout, it is easier
    to have an addressing scheme for the panels like for cells in a spreadsheet.
  • Some procedure-names were choosen to be short for easy testing/calling from console.

Notes about working with tcl edit

This section has been moved to my personal page here.

Program edit


}
 # FuzzyClock89.tcl - Mike Hase - 2015-02-24 / 2015-06-19
 # http://wiki.tcl.tk/41162

  package require Tk
  set Prog(Title)    "FuzzyClock"
  set Prog(Version)  "v1.29"
  set Prog(Date)     "2015-06-19"
  set Prog(Author)   "Mike Hase"
  set Prog(Contact)  "Mike.Hase@nospam.com"
  set Prog(HomePage) "http://wiki.tcl.tk/41162"
  set Prog(Options)  ""
  set Prog(About)    {FuzzyClock: a textual clock that shows 
approximate time (rounded to 5 minutes) 
by highlighting panels with fixed text. 
In various layouts (german and international), 
including ship's clock and "Glasenuhr".
}

  set scX 12


 ### Colortable: (ToDo)

  set Co(bg)    grey
 #set bg  white
  set bg  grey
  set ol  black

  set hi1 cyan
  set hi2 yellow

  set tx1 blue
  set tx2 white

  set hiC $hi1
  set txC $tx1


 ### Display:

  proc makeText {w tag name rectCoords} {
  # Create a panel with some text inside (e.g. "one", or "o'clock").
  # The name of the panel is the same as the text.
  # The panel and the text are assigned tags, that will later be used 
  # to turn that panel+text on or off (i.e. change their colors).

     global scX
     set id1 [$w create rect $rectCoords -tag $tag  -fill $::bg  -outline  $::ol]

     foreach {x y} $rectCoords break
     incr x
     incr y
     set id2 [$w create text $x $y -tag t$tag -anchor w  -text $name]
     $w addtag time withtag $tag
     $w addtag txt  withtag t$tag

   # puts "$id1 $id2 : $x $y $tag $name"        ;##
     $w scale $id1 0 0 $scX 15
     $w scale $id2 0 0 $scX 15
  }

  proc turnOff {tag} {
    foreach id [ .c find withtag time] { .c itemconfigure $id -fill $::bg }
    foreach id [ .c find withtag txt ] { .c itemconfigure $id -fill black }
  }
  proc turnOn {tag} {
    foreach id [ .c find withtag  $tag ] { .c itemconfigure $id -fill $::hiC }
    foreach id [ .c find withtag t$tag ] { .c itemconfigure $id -fill $::txC }
  }


 ### Update display / highlight panels:

  proc upd_fc {} {                ;# update for fuzzyclock
  # Find out which hour to show (e.g. 09:45 --> "quarter to ten o'clock" )
  #
  # In the minute-table, look at the entry for the current minute,
  # from there get the list of tags, 
  # and turn on all panels listed.

    global cs td hh ii mm am wd tH tM tA  mTab  ;#-sTab

    set tH "t_$ii"
    set tA "t_$am"
   #puts "$ii / $tH $tA"  ;##

    set tM "$mm"
   #puts "$tM"  ;##

    set i 0
   #puts "$tM : mTab($tM) -->"  ;##
    foreach t $mTab($tM) {
     #incr i; puts " $i. $t"; turnOn $t
      if { $t=="hH" } {         ;# show next hour
        incr ii;
        if { $ii>=13 } { set ii 1 }       ;# max. 12 o'clock
       #puts "++ii: $ii"
     }
    }
    set tH "t_$ii"
   #puts "++ $tH $tA"  ;##

    turnOn $tH
    foreach t $mTab($mm) {
     #incr i; puts " $i. $t"        ;##
      turnOn $t
    }
    turnOn t_C
    turnOn $tA

  }

  proc upd_sc {} {                ;# update for shipclock
  # Instead of hours, we have "watches" and "glasses",
  # and one glass runs 30 minutes.

    global cs td hh ii mm am wd tH tM tA  sTab  ;#-mTab

   ### Demo/Test for ship's bell:
   #turnOn t_gI;  turnOn t_HN;  turnOn t_g2

    set shiptags "t_gI "

    set ww [watch $hh $mm]
    set W $sTab($ww)
   #puts "ww $ww : $W ==>"  ;##
    foreach t $W {
     #incr i; puts " $i. $t"        ;##
      turnOn $t
    }

    set gg [bells $ii $mm]
    puts "Ship: $hh h $mm m => watch $ww, $gg glasen/bells"  ;##

    append shiptags "t_g$gg "
   #puts "$cs> $hh $ii : $mm - $wd"  ;##

   # Special significance on ships: sunday and noon
    if { $::wd ==  0 }            { append shiptags "t_Su " }
    if { $::hh==12 && $::mm== 0 } { append shiptags "t_HN " }

    set mm3 [s2i $mm]
    if {$mm3>=30} {incr mm3 -30}

    set gm 0
    # find nearest matching minute-entry in sTab:
    for {set m 0} {$m<30} {incr m} {
      if { [info exists sTab($m)] } { set gm $m }
     #puts ".. $m -> $gm" ;##
      if {$m>=$mm3} {break}
    }
   #puts "!! $mm $m -> <<$sTab($gm)>>  $gm"
    append shiptags $sTab($gm)

    puts "$hh:$mm $mm3 $gm ---> $shiptags "  ;##
    set i 0

    foreach t $shiptags {
     #incr i; puts "Ship: $i. $t"        ;##
      turnOn $t
    }
  }

  proc upd {} {
  # Update the text showing the time in the window-bar, and the panels.

    global cs td hh ii mm am wd

   #wm title . "$td"
   #wm title . "$td / $ii:$mm $am"
    wm title . "($::fc) $td / $ii:$mm $am"

   # use only one of the tables: mTab sTab
    if {$::fc in [list G1 G2 SG1 SG2 SB1 SB2]} {        ;# Multi-IF
      upd_sc                
    } else {
      upd_fc
    }
  }

  proc u {} {                ;# do everything related to display-update
    turnOff time
    turnOff txt
    upd

    if { $::hiC==$::hi1 } { set ::hiC yellow } \
    else                  { set ::hiC cyan   }  ;# change colors / ToDo: colortable
  }


 ### Test+Debug:

  proc ?    {} { help }
  proc help {} {
    puts "argv0 : $::argv0"
    puts "argv  : $::argv"
    puts "tcl/tk: $::tcl_patchLevel / $::tk_patchLevel"
    puts "t0,t1,h,m,x,y:change time, u:update, run,stop, p,p1,p2,pp:pos, bg:color, e:exit"
  }

  # Note: testing might be easier by changing the system-clock (forward only!).
  proc t  {} { t0 }
 #proc t_ {} { set  ::cs [clock scan {2015-03-13 23:55:00} -format {%Y-%m-%d %H:%M:%S}] }
  proc t1 {} { set  ::cs [clock scan {00:16:00} -format {%H:%M:%S}]; timecodes }
  proc t2 {} { set  ::cs [clock scan {09:55:00} -format {%H:%M:%S}]; timecodes }
  proc x  {} { set  ::mm "10" }
  proc y  {} { set  ::ii "12"; set ::mm "02"  }
  proc h  {} { incr ::ii  }
  proc m  {} { incr ::mm  }

  # screen+color / find window for active console:
  proc bg { {c HotPink} } {
    .c configure  -background $c;
   #wm deiconify .
  }
  # screen+position:
  proc p  {} { puts "wm geom . : [wm geom .]" }
  proc pp {} { wm geom . +740+20; wm deiconify . ; p }
  proc p1 {} { wm geom . +1+1;    wm deiconify . ; p }
  proc p2 {} { wm geom . +740+1;  wm deiconify . ; p }

  proc e  {} { exit }


 ### Misc / Utility:

  proc s2i {s} {                 ;# string-to-int / convert values from [clock seconds] to integer
  ##puts ">>>$s<<<"
   # Some ways to convert strings to integer, but fail for "08" and "09" :
   #incr s 0
   #set i $s
   #format %u $s
    if { $s == "08" } { set s " 8" }        ;# !! workaround !!
    if { $s == "09" } { set s " 9" }
    set i [expr {$s}]
  }

  proc c1 {s} { set c [string range $s 0   0   ]  }  ;# return first char of string
  proc c2 {s} { set c [string range $s 0   1   ]  }  ;# return first 2 chars
  proc c9 {s} { set c [string range $s end end ]  }  ;# return last char

  # tcl::mathop::[in] comes with tcl 8.5, see [TIP 201]. 
  # For users of earlier versions:
 #proc in {list el} {expr [lsearch -exact $list $el] >= 0}  ;# Multi-IF

 ### Ship's bell:

  proc b1 {}  { bell }
  proc b2 {}  { bell; after 250;  bell; after 400 }

  proc ringbell { {b 1} } {
    puts "RingBell>>>$b<<< mm=$::mm sound=$::sound\n"  ;##
    if { $::sound == 0 } { return }

    if { $::sound == 1 } {
      if { $::mm == "00"} { bell }
      return
    }

    # sound==2 : Ship's bell:
    while { $b>=2 } { b2; incr b -2 }
    while { $b>=1 } { b1; incr b -1 }
  }


  proc watch {hh mm}  {
  # determine watch for a given hour
    set ww 0
   #if { $hh=="00" || $hh=="01" || $hh=="02"  || $hh=="03" } { set ww "w0" }
   ## Multi-IF
    if {$hh in [list 00 01 02 03]} { set ww "w0" }
    if {$hh in [list 04 05 06 07]} { set ww "w1" }
    if {$hh in [list 08 09 10 11]} { set ww "w2" }
    if {$hh in [list 12 13 14 15]} { set ww "w3" }
    if {$hh in [list 16 17 18 19]} { set ww "w4" }
    if {$hh in [list 20 21 22 23]} { set ww "w5" }
   #puts "watch>>>$hh:$mm>> $ww"        ;##
    return $ww
  }

  proc bells {hh mm}  {
  # determine bells for a given time
    set bb 0
    set hh [s2i $hh]
   #if { $hh== 1 || $hh== 5 || $hh== 9 } { set bb 2 }
   ## Multi-IF
    if {$hh in [list 1  5  9]} { set bb 2 }
    if {$hh in [list 2  6 10]} { set bb 4 }
    if {$hh in [list 3  7 11]} { set bb 6 }
    if {$hh in [list 4  8 12]} { set bb 8 }

    if { $mm >= 30 } { incr bb }
    if { $bb >=  9 } { set bb 1 }          ;# max. 8 bells/glasen
   #puts "bells>>>$hh:$mm>>$bb"        ;##
    return $bb
  }


 ### Time:

  proc t0 {} {                 ;# Set cs to current time
                                # To use some fixed time (for testing) use proc t1, t2 etc.
    set ::cs [clock seconds]
    timecodes
  }


  proc timecodes {} {
  # Set all variables that depend on the "current" time from cs

    global cs  td hh ii mm am wd  tH tM tA mTab

    set td [clock format $cs  -format "%H:%M:%S - %l:%M %p" ]
    set hh [clock format $cs  -format "%H" ]
    set ii [clock format $cs  -format "%l" ]  ;# %I %k %l
    set mm [clock format $cs  -format "%M" ]
    set ss [clock format $cs  -format "%S" ]
    set am [clock format $cs  -format "%p" ]
    set wd [clock format $cs  -format "%w" ]  ;# 0=Sunday

    if { $am=="PM" && $hh<"18"} { set am "_" }        ;# no "PM" before 18:00

    set ii [s2i $ii]
    if { $ii>=13 } { set ii 1 }     ;# max. 12 o'clock
    if { $hh== 0 } {
      set de0 [c2 $::fc]
      if { $de0 == "DE" } {
        set ii 0                           ;# Germany: after midnight, use 0 o'clock
      }
    }
    puts "$hh:$mm:$ss -> $ii:$mm $am"        ;##

    set s1 [c1 $ss]
    if { $mm=="00" && $s1=="0"} { ringbell [bells $ii $mm] }
    if { $mm=="30" && $s1=="0"} { ringbell [bells $ii $mm] }
  }


 ### Time/Repeat/Wait:

  proc every {ms body} {
    if 1 $body
    after $ms [list after idle [info level 0]]
  }
  proc stop {} { foreach id [after info] {after cancel $id}; }

  proc run  {} { run2 }
  proc run2 {} { $::time; timecodes; u; sync2 }

  proc sync2 {} {
  # adjust time for re-scheduling, to get closer to a time
  # with the seconds at a multiple of 10.

     #set ::cs [clock seconds]
      set   s0 [expr $::cs % 10]

      if { $s0 == 0 } {
        after 10000 run2;
       #puts "sync2: $::td  $::cs $s0  #==ok=="      ;##
      } else {
        after  9000 run2;
       #puts "sync2: $::td  $::cs $s0  #++adjust++"  ;##
      }
  }

 #---+----1----+----2----+----3----+----4----+----5----+----6----+----7----+

 ### Menu:

  proc m+ {head name {cmd ""}} {
  #: Menu-creator "m+" by R.Suchenwirth and DKF, 2006-08-24, see http://wiki.tcl.tk/16327
    # Uses the undocumented and unsupported feature ::tk::UnderlineAmpersand
    if {![winfo exists .m.m$head]} {
       foreach {l u} [::tk::UnderlineAmpersand $head] break
       .m add cascade -label $l -underline $u -menu [menu .m.m$head -tearoff 0]
    }
    if {[regexp ^-+$ $name]} {
       .m.m$head add separator
    } else {
       foreach {l u} [::tk::UnderlineAmpersand $name] break
       .m.m$head add command -label $l -underline $u -comm $cmd
    }
  }

 #---+----1----+----2----+----3----+----4----+----5----+----6----+----7----+


 ### GUI:

  proc menuOnOff {} {
    if { [winfo exists .m] } {
       destroy .m
    } else {
       initMenu
    }
  }

  proc initMenu {} {
  # Define menu

    . configure -menu [menu .m]
  # m+ &File &Open       { Dummy "Open" }
  # m+ &File &Save       { Dummy "Save" }
  # m+ &File -----
    m+ &File &Exit         exit

    # V,H,Q: uses the terms "Viertel", "Halb"/"Half", "Quarter" in telling the time
    # "-": 5-minute precison only, "...": Todo
    # ":":  uses "it was"/"it is"/it gets" for increased precision

    m+ &Fuzzy "&German: 8x3 H"       { start DE1 }
    m+ &Fuzzy "DE&2 - 8x3 (common)"  { start DE2 }
    m+ &Fuzzy "DE&3 : 8x3 V"         { start DE3 }
    m+ &Fuzzy "DE&4 : 8x3 V"         { start DE4 }
    m+ &Fuzzy "DE&5 - 5x5"           { start DE5 }
    m+ &Fuzzy "DE&6 - 6x4"           { start DE6 }
    m+ &Fuzzy "DE&7 - 4x6"           { start DE7 }
    m+ &Fuzzy "DE&8 : 6x5 24h"       { start DE8 }
    m+ &Fuzzy -----
    m+ &Fuzzy "&Glasenuhr - 8x3"     { start SG1 }
    m+ &Fuzzy "G&2 - 3x8 wide"       { start SG2 }
    m+ &Fuzzy -----
    m+ &Fuzzy "&International - 8x3" { start I1  }
    m+ &Fuzzy "I&2 - 8x3 Q"          { start I2  }
    m+ &Fuzzy "I&3...6x5 24h  "      { start I3  }
    m+ &Fuzzy -----
    m+ &Fuzzy "&Ship's Bell - 8x3"   { start SB1 }
    m+ &Fuzzy "SB&2 - 3x8 wide"      { start SB2 }

    m+ &Clock "&Stop"                { stop }
    m+ &Clock "T&0 - Current time"   { t0 }
    m+ &Clock "T&1"                  { t1 }
    m+ &Clock "T&2"                  { t2 }
    m+ &Clock "&Update"              { u }

    m+ &Help &About        Help0
    m+ &Help &Help         Help1
    m+ &Help -----
    m+ &Help &Debug      { console show }
    m+ &Help "&Menu off" { destroy .m }
  }

  proc initKeys {} {
  # Define bindings for hotkeys

    bind all <Key-F1>     Help1
    bind all <Key-F2>   { console show }
    bind all <Key-F3>     menuOnOff 
    bind all <Key-F4>     exit
    bind all <Escape>   { exit }

    bind all <Key-F5>   { start DE2 }
    bind all <Key-F6>   { start DE7 }
    bind all <Key-F7>   { start I1  }
    bind all <Key-F8>   { start I2  }

    bind all <Key-F9>   { start SG1 }
    bind all <Key-F10>  { start SB2 }
  }

 #---+----1----+----2----+----3----+----4----+----5----+----6----+----7----+

  proc start { x } {
  # Show and run a fresh fuzzyclock,
  # after stopping any old ones.

    set ::fc "$x"

    stop
    start_$x .c        ;# start_DE1 .c
    update

    help

    $::time                ;# t0
    after 250
    u

    run2
  }

 #---+----1----+----2----+----3----+----4----+----5----+----6----+----7----+

  proc Dummy {txt} {
  #: Alert: "Function X not implemented yet"
    bell
    tk_messageBox -icon warning  -title "Demo" \
                  -message "Function '$txt' not implemented yet."
  }

  proc Help0 {} {
  #: Short info about the program / using tk_messageBox
    global Prog
    set txt    "$Prog(Title) $Prog(Version) - "
    append txt "$Prog(Date)\nby $Prog(Author) - $Prog(Contact)\n\n$Prog(About)"
    tk_messageBox -icon info -message $txt -title "About $Prog(Title) $Prog(Version)"
  }

  proc Help1 {} {                  ;# from: Spider Solitaire - Help
    global Prog
    set w .help
    if { [winfo exists $w] } {
        wm deiconify $w
        raise $w
        focus $w
        return;
    }
    toplevel $w
    wm title $w "$Prog(Title) - Help"

    frame $w.f
    text $w.f.t -wrap word
    scrollbar $w.f.sb
    $w.f.t  configure -yscrollcommand "$w.f.sb set"
    $w.f.sb configure -command "$w.f.t yview"

    $w.f.t tag configure h1 -font {{} 18 bold }  -justify center -foreground red
    $w.f.t tag configure h2 -font {{}  8 italic} -justify center
    $w.f.t tag configure h3 -font {{} 12 bold }  -foreground red
    $w.f.t tag configure h4 -font {{} 10 bold }  -foreground blue

    $w.f.t insert end "$Prog(Title)\n" h1
    $w.f.t insert end "Version $Prog(Version) - $Prog(Date)\n\n" h2

    $w.f.t insert end "$Prog(Title) is a textual digital clock that shows approximate time\n"
    $w.f.t insert end "(rounded to 5 minutes) by highlighting panels with fixed text.\n\n"
    $w.f.t insert end "The program provides various layouts (german and international),\n"
    $w.f.t insert end "including ship's clock and \"Glasenuhr\".\n\n"

    $w.f.t insert end "Fuzzy LAYOUTS:\n" h3
    $w.f.t insert end "German layouts:\n" h4
    $w.f.t insert end "* DE1 - 8x3, 12hour clock using 'halb' (='half').\n"
    $w.f.t insert end "* DE2 - 8x3\n"
    $w.f.t insert end "* DE3 - 8x3, using 'Viertel' (='Quarter').\n"
    $w.f.t insert end "* DE4 - 8x3, using 'Viertel' (='Quarter').\n"
    $w.f.t insert end "* DE5 - 5x5 \n"
    $w.f.t insert end "* DE6 - 6x4 \n"
    $w.f.t insert end "* DE7 - 4x6 \n"
    $w.f.t insert end "* DE8 - 6x5, 24h-clock.\n\n"

    $w.f.t insert end "International layouts:\n" h4
    $w.f.t insert end "* I1 - 8x3, 12hour AM/PM.\n"
    $w.f.t insert end "* I2 - 8x3, using 'quarter before/past'.\n"
    $w.f.t insert end "* I3 - 6x5, 24h-clock.\n\n"

    $w.f.t insert end "Ship's bell and Glasenuhr:\n" h4
    $w.f.t insert end "* SB1 - Ship's bell, 8x3.\n"
    $w.f.t insert end "* SB2 - Ship's bell, 3x8 wide layout.\n"
    $w.f.t insert end "* SG1 - Glasenuhr, 8x3.\n"
    $w.f.t insert end "* SG2 - Glasenuhr, 3x8 wide layout.\n\n"

    $w.f.t insert end "CLOCK:\n" h3
    $w.f.t insert end "This is useful for testing, comparing layouts, and doing screenshots.\n"
    $w.f.t insert end "* Stop  : stop the updating of the clock.\n"
    $w.f.t insert end "          To restart it, (re-)select any layout.\n"
    $w.f.t insert end "* T0    : set the clock's time to the current time.\n"
    $w.f.t insert end "* T1    : set to fixed time #1 (see 'proc t1')\n"
    $w.f.t insert end "* T2    : set to fixed time #2\n"
    $w.f.t insert end "* Update: update the display after changing the time.\n\n"

    $w.f.t insert end "HOTKEYS:\n" h3
    $w.f.t insert end "* F1 - Show this help.\n* F2 - Activate Debug/Console.\n"
    $w.f.t insert end "* F3 - Switch menu on/off.\n"
    $w.f.t insert end "* F4, Esc - Exit program.\n"
    $w.f.t insert end "* F5,F6  - Select german layouts.\n"
    $w.f.t insert end "* F7,F8  - Select international layouts.\n"
    $w.f.t insert end "* F9,F10 - Select ship's bell and Glasenuhr.\n\n"

    $w.f.t insert end "DEBUG:\n" h3
    $w.f.t insert end "  The console offers access to the program's internals and variables.\n\n"
    $w.f.t insert end "Commands:\n" h4
    $w.f.t insert end "  ?: show console-help, e: Exit program.\n\n"
    $w.f.t insert end "  M  : create new menu.\n"
    $w.f.t insert end "  bg : set background-color (eg. 'bg red').\n"
    $w.f.t insert end "  p  : show size and position of the program-window.\n"
    $w.f.t insert end "  p1,p2,pp : set program-window to some position (see 'proc p1' etc.).\n\n"

    $w.f.t insert end "  stop, run: stop updating the clock / continue display-updates.\n"
    $w.f.t insert end "  t0, t1,t2: set clock to current time / predefined times (see 'proc t1' etc.).\n"
    $w.f.t insert end "  h,m,x,y: change clock.\n"
    $w.f.t insert end "  u: update the clock-display.\n\n"

    $w.f.t insert end "You can enter any tcl-command in the console, for example:\n"
    $w.f.t insert end "% info proc\n"
    $w.f.t insert end "% info var\n"
    $w.f.t insert end "% winfo geom .\n"
    $w.f.t insert end "% puts \$cs\n"
    $w.f.t insert end "% parray mTab\n"
    $w.f.t insert end "% set time t2\n"
    $w.f.t insert end "\n"

    $w.f.t insert end "CREDITS:\n" h3
    $w.f.t insert end "  Written by $Prog(Author) ($Prog(Contact)),\n  source at $Prog(HomePage).\n"


    $w.f.t configure -state disabled
    pack $w.f    -side top   -expand 1 -fill both
    pack $w.f.t  -side left  -expand 1 -fill both
    pack $w.f.sb -side right -fill y

    frame  $w.f2
    pack   $w.f2 -side top -pady 8

    button $w.f2.b -text "Close" -command "wm withdraw $w" -width 9
    pack   $w.f2.b

    wm protocol $w WM_DELETE_WINDOW "wm withdraw $w"
    focus $w.f.t
  };# Help1


  proc _Help1 {} { Dummy Help1 }


 #---+----1----+----2----+----3----+----4----+----5----+----6----+----7----+


 ### Positions, spreadsheet-style:  # see also scale

 ## 8x3: 8 rows * 3 cols / "tall":

  set a1  {  1  1   8  3 }
  set b1  {  8  1  14  3 }
  set c1  { 14  1  21  3 }

  set a2  {  1  3   8  5 }
  set b2  {  8  3  14  5 }
  set c2  { 14  3  21  5 }

  set a3  {  1  5   8  7 }
  set b3  {  8  5  14  7 }
  set c3  { 14  5  21  7 }

  set a4  {  1  7   8  9 }
  set b4  {  8  7  14  9 }
  set c4  { 14  7  21  9 }

  set a5  {  1  9   8 11 }
  set b5  {  8  9  14 11 }
  set c5  { 14  9  21 11 }

  set a6  {  1 11   8 13 }
  set b6  {  8 11  14 13 }
  set c6  { 14 11  21 13 }

  set a7  {  1 13   8 15 }
  set b7  {  8 13  14 15 }
  set c7  { 14 13  21 15 }

  set a8  {  1 15   8 17 }
  set b8  {  8 15  14 17 }
  set c8  { 14 15  21 17 }


 ## 3x8: 3 rows * 8 cols / "wide":

  set x1  {  1  1   8  3 }
  set x2  {  8  1  16  3 }
  set x3  { 16  1  24  3 }
  set x4  { 24  1  32  3 }
  set x5  { 32  1  40  3 }
  set x6  { 40  1  48  3 }
  set x7  { 48  1  56  3 }
  set x8  { 56  1  64  3 }

  set y1  {  1  3   8  5 }
  set y2  {  8  3  16  5 }
  set y3  { 16  3  24  5 }
  set y4  { 24  3  32  5 }
  set y5  { 32  3  40  5 }
  set y6  { 40  3  48  5 }
  set y7  { 48  3  56  5 }
  set y8  { 56  3  64  5 }

  set z1  {  1  5   8  7 }
  set z2  {  8  5  16  7 }
  set z3  { 16  5  24  7 }
  set z4  { 24  5  32  7 }
  set z5  { 32  5  40  7 }
  set z6  { 40  5  48  7 }
  set z7  { 48  5  56  7 }
  set z8  { 56  5  64  7 }


 ## 6x4: 4 rows * 6 cols / "wide":

  set d1  {  1  1   8  3 }
  set d2  {  8  1  16  3 }
  set d3  { 16  1  24  3 }
  set d4  { 24  1  32  3 }
  set d5  { 32  1  40  3 }
  set d6  { 40  1  48  3 }

  set e1  {  1  3   8  5 }
  set e2  {  8  3  16  5 }
  set e3  { 16  3  24  5 }
  set e4  { 24  3  32  5 }
  set e5  { 32  3  40  5 }
  set e6  { 40  3  48  5 }

  set f1  {  1  5   8  7 }
  set f2  {  8  5  16  7 }
  set f3  { 16  5  24  7 }
  set f4  { 24  5  32  7 }
  set f5  { 32  5  40  7 }
  set f6  { 40  5  48  7 }

  set g1  {  1  7   8  9 }
  set g2  {  8  7  16  9 }
  set g3  { 16  7  24  9 }
  set g4  { 24  7  32  9 }
  set g5  { 32  7  40  9 }
  set g6  { 40  7  48  9 }


 ## 4x6: 6 rows * 4 cols / "tall":

  set m1  {  1  1   8  3 }
  set m2  {  8  1  16  3 }
  set m3  { 16  1  24  3 }
  set m4  { 24  1  32  3 }

  set n1  {  1  3   8  5 }
  set n2  {  8  3  16  5 }
  set n3  { 16  3  24  5 }
  set n4  { 24  3  32  5 }

  set o1  {  1  5   8  7 }
  set o2  {  8  5  16  7 }
  set o3  { 16  5  24  7 }
  set o4  { 24  5  32  7 }

  set p1  {  1  7   8  9 }
  set p2  {  8  7  16  9 }
  set p3  { 16  7  24  9 }
  set p4  { 24  7  32  9 }

  set q1  {  1  9   8 11 }
  set q2  {  8  9  16 11 }
  set q3  { 16  9  24 11 }
  set q4  { 24  9  32 11 }

  set r1  {  1 11   8 13 }
  set r2  {  8 11  16 13 }
  set r3  { 16 11  24 13 }
  set r4  { 24 11  32 13 }


 ## 5x5: 5 rows * 5 cols :

  set q11 {  1  1   8  3 }
  set q12 {  8  1  16  3 }
  set q13 { 16  1  24  3 }
  set q14 { 24  1  32  3 }
  set q15 { 32  1  40  3 }

  set q21 {  1  3   8  5 }
  set q22 {  8  3  16  5 }
  set q23 { 16  3  24  5 }
  set q24 { 24  3  32  5 }
  set q25 { 32  3  40  5 }

  set q31 {  1  5   8  7 }
  set q32 {  8  5  16  7 }
  set q33 { 16  5  24  7 }
  set q34 { 24  5  32  7 }
  set q35 { 32  5  40  7 }

  set q41 {  1  7   8  9 }
  set q42 {  8  7  16  9 }
  set q43 { 16  7  24  9 }
  set q44 { 24  7  32  9 }
  set q45 { 32  7  40  9 }

  set q51 {  1  9   8 11 }
  set q52 {  8  9  16 11 }
  set q53 { 16  9  24 11 }
  set q54 { 24  9  32 11 }
  set q55 { 32  9  40 11 }

 ## + 6x5: 6 rows * 5 cols :

  set q61 {  1 11   8 13 }
  set q62 {  8 11  16 13 }
  set q63 { 16 11  24 13 }
  set q64 { 24 11  32 13 }
  set q65 { 32 11  40 13 }


 ### Fuzzyness starts here:

 # Each of the following start_XXX - procedures defines 
 # one of the the layouts for a fuzzyclock:
 # * Scale scX: to adjust panel-size for text-length
 # * Background-color,
 # * Position on screen: for the "showcase" 
 # * All panels to be used:  text, position and tags.
 # * Minute-table: has one entry for each minute of the hour,
 #   with a list of tags/panels to highlight at that time.

  proc start_DE1 {w} {
    puts "setup for german fuzzyclock#DE1"
  # 8x3 panels: "fünf Minuten vor halb vier Uhr"

    destroy $w;  pack [canvas $w  -width 200  -height 260  -background grey]
    set ::scX 9
    if { $::pos < 0 } { wm geom . +50+15 }

   #makeText $w t_N  "Es wird" { 1  1  4  3 }
    makeText $w t_N  "Es wird" $::a1
    makeText $w t_I  "Es ist"  $::b1
    makeText $w t_W  "Es war"  $::c1

    makeText $w t_v  "fünf"    $::a2
    makeText $w t_x  "zehn"    $::b2
    makeText $w t_M  "Minuten" $::c2

    makeText $w t_B  "vor"     $::a3
    makeText $w t_P  "nach"    $::b3
    makeText $w t_h  "halb"    $::c3

    makeText $w t_0  "null"    $::a4
    makeText $w t_1  "ein"     $::b4
    makeText $w t_2  "zwei"    $::c4

    makeText $w t_3  "drei"    $::a5
    makeText $w t_4  "vier"    $::b5
    makeText $w t_5  "fünf"    $::c5

    makeText $w t_6  "sechs"   $::a6
    makeText $w t_7  "sieben"  $::b6
    makeText $w t_8  "acht"    $::c6

    makeText $w t_9  "neun"    $::a7
    makeText $w t_10 "zehn"    $::b7
    makeText $w t_11 "elf"     $::c7

    makeText $w t_12 "zwölf"   $::a8
    makeText $w t_C  "Uhr"     $::b8
    makeText $w t_AM "morgens" $::c8
   #makeText $w t_PM "abends"  $::c8

    array set ::mTab {
      00  { t_I }
      01  { t_W }
      02  { t_W }

      03  { t_N t_P t_v t_M }
      04  { t_N t_P t_v t_M }
      05  { t_I t_P t_v t_M }
      06  { t_W t_P t_v t_M }
      07  { t_W t_P t_v t_M }

      08  { t_N t_P t_x t_M }
      09  { t_N t_P t_x t_M }
      10  { t_I t_P t_x t_M }
      11  { t_W t_P t_x t_M }
      12  { t_W t_P t_x t_M }

      13  { t_N t_P t_v t_x t_M }
      14  { t_N t_P t_v t_x t_M }
      15  { t_I t_P t_v t_x t_M }
      16  { t_W t_P t_v t_x t_M }
      17  { t_W t_P t_v t_x t_M }

      18  { t_N t_B t_x t_h t_M hH }
      19  { t_N t_B t_x t_h t_M hH }
      20  { t_I t_B t_x t_h t_M hH }
      21  { t_W t_B t_x t_h t_M hH }
      22  { t_W t_B t_x t_h t_M hH }

      23  { t_N t_B t_v t_h t_M hH }
      24  { t_N t_B t_v t_h t_M hH }
      25  { t_I t_B t_v t_h t_M hH }
      26  { t_W t_B t_v t_h t_M hH }
      27  { t_W t_B t_v t_h t_M hH }

      28  { t_N t_h hH }
      29  { t_N t_h hH }
      30  { t_I t_h hH }
      31  { t_W t_h hH }
      32  { t_W t_h hH }

      33  { t_N t_P t_v t_h t_M hH }
      34  { t_N t_P t_v t_h t_M hH }
      35  { t_I t_P t_v t_h t_M hH }
      36  { t_W t_P t_v t_h t_M hH }
      37  { t_W t_P t_v t_h t_M hH }

      38  { t_N t_P t_x t_h t_M hH }
      39  { t_N t_P t_x t_h t_M hH }
      40  { t_I t_P t_x t_h t_M hH }
      41  { t_W t_P t_x t_h t_M hH }
      42  { t_W t_P t_x t_h t_M hH }

      43  { t_N t_B t_v t_x t_M hH }
      44  { t_N t_B t_v t_x t_M hH }
      45  { t_I t_B t_v t_x t_M hH }
      46  { t_W t_B t_v t_x t_M hH }
      47  { t_W t_B t_v t_x t_M hH }

      48  { t_N t_B t_x t_M hH }
      49  { t_N t_B t_x t_M hH }
      50  { t_I t_B t_x t_M hH }
      51  { t_W t_B t_x t_M hH }
      52  { t_W t_B t_x t_M hH }

      53  { t_N t_B t_v t_M hH }
      54  { t_N t_B t_v t_M hH }
      55  { t_I t_B t_v t_M hH }
      56  { t_W t_B t_v t_M hH }
      57  { t_W t_B t_v t_M hH }

      58  { t_N hH }
      59  { t_N hH }
    }
    .c configure  -background DarkGreen
  ##puts $::mTab(05)
  }


  proc start_DE2 {w} {
    puts "setup for german fuzzyclock#DE2"
  # 8x3 panels: "drei Uhr fünf und zwanzig Minuten"

    destroy $w;  pack [canvas $w  -width 200  -height 260  -background gray22]
    set ::scX 9
    if { $::pos < 0 } { wm geom . +275+15 }

    makeText $w t_I  "Es ist"   $::a1
    makeText $w t_AM "morgens"  $::b1
    makeText $w t_0  "null"     $::c1

    makeText $w t_1  "ein"      $::a2
    makeText $w t_2  "zwei"     $::b2
    makeText $w t_3  "drei"     $::c2

    makeText $w t_4  "vier"     $::a3
    makeText $w t_5  "fünf"     $::b3
    makeText $w t_6  "sechs"    $::c3

    makeText $w t_7  "sieben"   $::a4
    makeText $w t_8  "acht"     $::b4
    makeText $w t_9  "neun"     $::c4

    makeText $w t_10 "zehn"     $::a5
    makeText $w t_11 "elf"      $::b5
    makeText $w t_12 "zwölf"    $::c5

    makeText $w t_C  "Uhr"      $::a6
    makeText $w t_v  "fünf"     $::b6
    makeText $w t_x  "zehn"     $::c6

    makeText $w t_+  "und"      $::a7
    makeText $w t_xx "zwanzig"  $::b7
    makeText $w t_30 "dreissig" $::c7

    makeText $w t_40 "vierzig"  $::a8
    makeText $w t_50 "fünfzig"  $::b8
    makeText $w t_M  "Minuten"  $::c8

    array set ::mTab {
      00  { t_I }
      01  { t_I }
      02  { t_I }

      03  { t_I t_v t_M }
      04  { t_I t_v t_M }
      05  { t_I t_v t_M }
      06  { t_I t_v t_M }
      07  { t_I t_v t_M }

      08  { t_I t_x t_M }
      09  { t_I t_x t_M }
      10  { t_I t_x t_M }
      11  { t_I t_x t_M }
      12  { t_I t_x t_M }

      13  { t_I t_v t_x t_M }
      14  { t_I t_v t_x t_M }
      15  { t_I t_v t_x t_M }
      16  { t_I t_v t_x t_M }
      17  { t_I t_v t_x t_M }

      18  { t_I t_+ t_xx t_M }
      19  { t_I t_+ t_xx t_M }
      20  { t_I t_+ t_xx t_M }
      21  { t_I t_+ t_xx t_M }
      22  { t_I t_+ t_xx t_M }

      23  { t_I t_v t_+ t_xx t_M }
      24  { t_I t_v t_+ t_xx t_M }
      25  { t_I t_v t_+ t_xx t_M }
      26  { t_I t_v t_+ t_xx t_M }
      27  { t_I t_v t_+ t_xx t_M }

      28  { t_I t_+ t_30 t_M }
      29  { t_I t_+ t_30 t_M }
      30  { t_I t_+ t_30 t_M }
      31  { t_I t_+ t_30 t_M }
      32  { t_I t_+ t_30 t_M }

      33  { t_I t_v t_+  t_30 t_M }
      34  { t_I t_v t_+  t_30 t_M }
      35  { t_I t_v t_+  t_30 t_M }
      36  { t_I t_v t_+  t_30 t_M }
      37  { t_I t_v t_+  t_30 t_M }

      38  { t_I t_+ t_40 t_M }
      39  { t_I t_+ t_40 t_M }
      40  { t_I t_+ t_40 t_M }
      41  { t_I t_+ t_40 t_M }
      42  { t_I t_+ t_40 t_M }

      43  { t_I t_v t_+  t_40 t_M }
      44  { t_I t_v t_+  t_40 t_M }
      45  { t_I t_v t_+  t_40 t_M }
      46  { t_I t_v t_+  t_40 t_M }
      47  { t_I t_v t_+  t_40 t_M }

      48  { t_I t_+ t_50 t_M }
      49  { t_I t_+ t_50 t_M }
      50  { t_I t_+ t_50 t_M }
      51  { t_I t_+ t_50 t_M }
      52  { t_I t_+ t_50 t_M }

      53  { t_I t_v t_+  t_50 t_M }
      54  { t_I t_v t_+  t_50 t_M }
      55  { t_I t_v t_+  t_50 t_M }
      56  { t_I t_v t_+  t_50 t_M }
      57  { t_I t_v t_+  t_50 t_M }

      58  { t_I  hH }
      59  { t_I  hH }
    }
    .c configure  -background ForestGreen
  }


  proc start_DE3 {w} {
    puts "setup for german fuzzyclock#DE3"
  # 8x3 panels: "morgens viertel nach elf"

    destroy $w;  pack [canvas $w  -width 205  -height 260  -background gray33]
    set ::scX 9.5
    if { $::pos < 0 } { wm geom . +500+15 }

    makeText $w t_N  "Es wird" $::a1
    makeText $w t_I  "Es ist"  $::b1
    makeText $w t_W  "Es war"  $::c1

    makeText $w t_AM "morgens" $::a2
    makeText $w t_PM "abends"  $::b2
    makeText $w t_v  "fünf"    $::c2

    makeText $w t_x  "zehn"    $::a3
   #makeText $w t_M  "Minuten" $::b3
    makeText $w t_q  "viertel" $::b3
    makeText $w t_B  "vor"     $::c3

    makeText $w t_P  "nach"    $::a4
    makeText $w t_h  "halb"    $::b4
    makeText $w t_0  "null Uhr"    $::c4

    makeText $w t_1  "ein Uhr"     $::a5
    makeText $w t_2  "zwei Uhr"    $::b5
    makeText $w t_3  "drei Uhr"    $::c5

    makeText $w t_4  "vier Uhr"    $::a6
    makeText $w t_5  "fünf Uhr"    $::b6
    makeText $w t_6  "sechs Uhr"   $::c6

    makeText $w t_7  "sieben Uhr"  $::a7
    makeText $w t_8  "acht Uhr"    $::b7
    makeText $w t_9  "neun Uhr"    $::c7

    makeText $w t_10 "zehn Uhr"    $::a8
    makeText $w t_11 "elf Uhr"     $::b8
    makeText $w t_12 "zwölf Uhr"   $::c8

   #makeText $w t_C_  "Uhr"    $::c9

    array set ::mTab {
      00  { t_I }
      01  { t_W }
      02  { t_W }

      03  { t_N t_P t_v t_M }
      04  { t_N t_P t_v t_M }
      05  { t_I t_P t_v t_M }
      06  { t_W t_P t_v t_M }
      07  { t_W t_P t_v t_M }

      08  { t_N t_P t_x t_M }
      09  { t_N t_P t_x t_M }
      10  { t_I t_P t_x t_M }
      11  { t_W t_P t_x t_M }
      12  { t_W t_P t_x t_M }

      13  { t_N t_P t_q t_M }
      14  { t_N t_P t_q t_M }
      15  { t_I t_P t_q t_M }
      16  { t_W t_P t_q t_M }
      17  { t_W t_P t_q t_M }

      18  { t_N t_B t_x t_h t_M hH }
      19  { t_N t_B t_x t_h t_M hH }
      20  { t_I t_B t_x t_h t_M hH }
      21  { t_W t_B t_x t_h t_M hH }
      22  { t_W t_B t_x t_h t_M hH }

      23  { t_N t_B t_v t_h t_M hH }
      24  { t_N t_B t_v t_h t_M hH }
      25  { t_I t_B t_v t_h t_M hH }
      26  { t_W t_B t_v t_h t_M hH }
      27  { t_W t_B t_v t_h t_M hH }

      28  { t_N t_h hH }
      29  { t_N t_h hH }
      30  { t_I t_h hH }
      31  { t_W t_h hH }
      32  { t_W t_h hH }

      33  { t_N t_P t_v t_h t_M hH }
      34  { t_N t_P t_v t_h t_M hH }
      35  { t_I t_P t_v t_h t_M hH }
      36  { t_W t_P t_v t_h t_M hH }
      37  { t_W t_P t_v t_h t_M hH }

      38  { t_N t_P t_x t_h t_M hH }
      39  { t_N t_P t_x t_h t_M hH }
      40  { t_I t_P t_x t_h t_M hH }
      41  { t_W t_P t_x t_h t_M hH }
      42  { t_W t_P t_x t_h t_M hH }

      43  { t_N t_B t_q t_M hH }
      44  { t_N t_B t_q t_M hH }
      45  { t_I t_B t_q t_M hH }
      46  { t_W t_B t_q t_M hH }
      47  { t_W t_B t_q t_M hH }

      48  { t_N t_B t_x t_M hH }
      49  { t_N t_B t_x t_M hH }
      50  { t_I t_B t_x t_M hH }
      51  { t_W t_B t_x t_M hH }
      52  { t_W t_B t_x t_M hH }

      53  { t_N t_B t_v t_M hH }
      54  { t_N t_B t_v t_M hH }
      55  { t_I t_B t_v t_M hH }
      56  { t_W t_B t_v t_M hH }
      57  { t_W t_B t_v t_M hH }

      58  { t_N hH }
      59  { t_N hH }
    }
    .c configure  -background PaleGreen4
  }


  proc start_DE4 {w} {
    puts "setup for german fuzzyclock#DE4"
  # 8x3 panels: "morgens viertel nach elf Uhr"

    destroy $w;  pack [canvas $w  -width 175  -height 260  -background gray44]
    set ::scX 8
    if { $::pos < 0 } { wm geom . +725+15 }

    makeText $w t_N  "Es wird" $::a1
    makeText $w t_I  "Es ist"  $::b1
    makeText $w t_W  "Es war"  $::c1

    makeText $w t_AM "morgens" $::a2
    makeText $w t_v  "fünf"    $::b2
    makeText $w t_x  "zehn"    $::c2

    makeText $w t_q  "viertel" $::a3
    makeText $w t_B  "vor"     $::b3
    makeText $w t_P  "nach"    $::c3

    makeText $w t_h  "halb"    $::a4
    makeText $w t_0  "null"    $::b4
    makeText $w t_1  "ein"     $::c4

    makeText $w t_2  "zwei"    $::a5
    makeText $w t_3  "drei"    $::b5
    makeText $w t_4  "vier"    $::c5

    makeText $w t_5  "fünf"    $::a6
    makeText $w t_6  "sechs"   $::b6
    makeText $w t_7  "sieben"  $::c6

    makeText $w t_8  "acht"    $::a7
    makeText $w t_9  "neun"    $::b7
    makeText $w t_10 "zehn"    $::c7

    makeText $w t_11 "elf"     $::a8
    makeText $w t_12 "zwölf"   $::b8
    makeText $w t_C  "Uhr"     $::c8

    array set ::mTab {
      00  { t_I }
      01  { t_W }
      02  { t_W }

      03  { t_N t_P t_v t_M }
      04  { t_N t_P t_v t_M }
      05  { t_I t_P t_v t_M }
      06  { t_W t_P t_v t_M }
      07  { t_W t_P t_v t_M }

      08  { t_N t_P t_x t_M }
      09  { t_N t_P t_x t_M }
      10  { t_I t_P t_x t_M }
      11  { t_W t_P t_x t_M }
      12  { t_W t_P t_x t_M }

      13  { t_N t_P t_q t_M }
      14  { t_N t_P t_q t_M }
      15  { t_I t_P t_q t_M }
      16  { t_W t_P t_q t_M }
      17  { t_W t_P t_q t_M }

      18  { t_N t_B t_x t_h t_M hH }
      19  { t_N t_B t_x t_h t_M hH }
      20  { t_I t_B t_x t_h t_M hH }
      21  { t_W t_B t_x t_h t_M hH }
      22  { t_W t_B t_x t_h t_M hH }

      23  { t_N t_B t_v t_h t_M hH }
      24  { t_N t_B t_v t_h t_M hH }
      25  { t_I t_B t_v t_h t_M hH }
      26  { t_W t_B t_v t_h t_M hH }
      27  { t_W t_B t_v t_h t_M hH }

      28  { t_N t_h hH }
      29  { t_N t_h hH }
      30  { t_I t_h hH }
      31  { t_W t_h hH }
      32  { t_W t_h hH }

      33  { t_N t_P t_v t_h t_M hH }
      34  { t_N t_P t_v t_h t_M hH }
      35  { t_I t_P t_v t_h t_M hH }
      36  { t_W t_P t_v t_h t_M hH }
      37  { t_W t_P t_v t_h t_M hH }

      38  { t_N t_P t_x t_h t_M hH }
      39  { t_N t_P t_x t_h t_M hH }
      40  { t_I t_P t_x t_h t_M hH }
      41  { t_W t_P t_x t_h t_M hH }
      42  { t_W t_P t_x t_h t_M hH }

      43  { t_N t_B t_q t_M hH }
      44  { t_N t_B t_q t_M hH }
      45  { t_I t_B t_q t_M hH }
      46  { t_W t_B t_q t_M hH }
      47  { t_W t_B t_q t_M hH }

      48  { t_N t_B t_x t_M hH }
      49  { t_N t_B t_x t_M hH }
      50  { t_I t_B t_x t_M hH }
      51  { t_W t_B t_x t_M hH }
      52  { t_W t_B t_x t_M hH }

      53  { t_N t_B t_v t_M hH }
      54  { t_N t_B t_v t_M hH }
      55  { t_I t_B t_v t_M hH }
      56  { t_W t_B t_v t_M hH }
      57  { t_W t_B t_v t_M hH }

      58  { t_N hH }
      59  { t_N hH }
    }
    .c configure  -background SeaGreen4
  }

  proc start_DE5 {w} {
    puts "setup for german fuzzyclock#DE2->DE5"
  # 5x5 panels: "drei Uhr fünf und zwanzig Minuten"

   #destroy $w;  pack [canvas $w  -width 200  -height 260  -background gray22]
    destroy $w;  pack [canvas $w  -width 288  -height 170  -background gray25]
    set ::scX 7.1
    if { $::pos < 0 } { wm geom . +50+310 }

    makeText $w t_I  "Es ist"   $::q11
    makeText $w t_AM "morgens"  $::q12
    makeText $w t_0  "null"     $::q13
    makeText $w t_1  "ein"      $::q14
    makeText $w t_2  "zwei"     $::q15

    makeText $w t_3  "drei"     $::q21
    makeText $w t_4  "vier"     $::q22
    makeText $w t_5  "fünf"     $::q23
    makeText $w t_6  "sechs"    $::q24
    makeText $w t_7  "sieben"   $::q25

    makeText $w t_8  "acht"     $::q31
    makeText $w t_9  "neun"     $::q32
    makeText $w t_10 "zehn"     $::q33
    makeText $w t_11 "elf"      $::q34
    makeText $w t_12 "zwölf"    $::q35

    makeText $w t_C  "Uhr"      $::q41
    makeText $w t_+  "und"      $::q42
    makeText $w t_v  "fünf"     $::q43
    makeText $w t_x  "zehn"     $::q44
    makeText $w t_++ "und"      $::q45

    makeText $w t_xx "zwanzig"  $::q51
    makeText $w t_30 "dreissig" $::q52
    makeText $w t_40 "vierzig"  $::q53
    makeText $w t_50 "fünfzig"  $::q54
    makeText $w t_M  "Minuten"  $::q55

    array set ::mTab {
      00  { t_I }
      01  { t_I }
      02  { t_I }

      03  { t_I t_+ t_v t_M }
      04  { t_I t_+ t_v t_M }
      05  { t_I t_+ t_v t_M }
      06  { t_I t_+ t_v t_M }
      07  { t_I t_+ t_v t_M }

      08  { t_I t_+ t_x t_M }
      09  { t_I t_+ t_x t_M }
      10  { t_I t_+ t_x t_M }
      11  { t_I t_+ t_x t_M }
      12  { t_I t_+ t_x t_M }

      13  { t_I t_+ t_v t_x t_M }
      14  { t_I t_+ t_v t_x t_M }
      15  { t_I t_+ t_v t_x t_M }
      16  { t_I t_+ t_v t_x t_M }
      17  { t_I t_+ t_v t_x t_M }

      18  { t_I t_+ t_xx t_M }
      19  { t_I t_+ t_xx t_M }
      20  { t_I t_+ t_xx t_M }
      21  { t_I t_+ t_xx t_M }
      22  { t_I t_+ t_xx t_M }

      23  { t_I t_+ t_v t_++ t_xx t_M }
      24  { t_I t_+ t_v t_++ t_xx t_M }
      25  { t_I t_+ t_v t_++ t_xx t_M }
      26  { t_I t_+ t_v t_++ t_xx t_M }
      27  { t_I t_+ t_v t_++ t_xx t_M }

      28  { t_I t_+ t_30 t_M }
      29  { t_I t_+ t_30 t_M }
      30  { t_I t_+ t_30 t_M }
      31  { t_I t_+ t_30 t_M }
      32  { t_I t_+ t_30 t_M }

      33  { t_I t_+ t_v t_++ t_30 t_M }
      34  { t_I t_+ t_v t_++ t_30 t_M }
      35  { t_I t_+ t_v t_++ t_30 t_M }
      36  { t_I t_+ t_v t_++ t_30 t_M }
      37  { t_I t_+ t_v t_++ t_30 t_M }

      38  { t_I t_+ t_40 t_M }
      39  { t_I t_+ t_40 t_M }
      40  { t_I t_+ t_40 t_M }
      41  { t_I t_+ t_40 t_M }
      42  { t_I t_+ t_40 t_M }

      43  { t_I t_+ t_v t_++ t_40 t_M }
      44  { t_I t_+ t_v t_++ t_40 t_M }
      45  { t_I t_+ t_v t_++ t_40 t_M }
      46  { t_I t_+ t_v t_++ t_40 t_M }
      47  { t_I t_+ t_v t_++ t_40 t_M }

      48  { t_I t_+ t_50 t_M }
      49  { t_I t_+ t_50 t_M }
      50  { t_I t_+ t_50 t_M }
      51  { t_I t_+ t_50 t_M }
      52  { t_I t_+ t_50 t_M }

      53  { t_I t_+ t_v t_++ t_50 t_M }
      54  { t_I t_+ t_v t_++ t_50 t_M }
      55  { t_I t_+ t_v t_++ t_50 t_M }
      56  { t_I t_+ t_v t_++ t_50 t_M }
      57  { t_I t_+ t_v t_++ t_50 t_M }

      58  { t_I  hH }
      59  { t_I  hH }
    }
    .c configure  -background PaleGreen ;#ForestGreen
  }

  proc start_DE6 {w} {
    puts "setup for german fuzzyclock#DE2->DE6"
  # 6x4 panels: "drei Uhr fünf und zwanzig Minuten"

   #destroy $w;  pack [canvas $w  -width 200  -height 260  -background gray22]
    destroy $w;  pack [canvas $w  -width 320  -height 140  -background gray61]
    set ::scX 6.5
    if { $::pos < 0 } { wm geom . +50+530 }

    makeText $w t_I  "Es ist"   $::d1
    makeText $w t_AM "morgens"  $::d2
    makeText $w t_0  "null"     $::d3

    makeText $w t_1  "ein"      $::d4
    makeText $w t_2  "zwei"     $::d5
    makeText $w t_3  "drei"     $::d6

    makeText $w t_4  "vier"     $::e1
    makeText $w t_5  "fünf"     $::e2
    makeText $w t_6  "sechs"    $::e3
    makeText $w t_7  "sieben"   $::e4
    makeText $w t_8  "acht"     $::e5
    makeText $w t_9  "neun"     $::e6

    makeText $w t_10 "zehn"     $::f1
    makeText $w t_11 "elf"      $::f2
    makeText $w t_12 "zwölf"    $::f3
    makeText $w t_C  "Uhr"      $::f4
    makeText $w t_v  "fünf"     $::f5
    makeText $w t_x  "zehn"     $::f6

    makeText $w t_+  "und"      $::g1
    makeText $w t_xx "zwanzig"  $::g2
    makeText $w t_30 "dreissig" $::g3
    makeText $w t_40 "vierzig"  $::g4
    makeText $w t_50 "fünfzig"  $::g5
    makeText $w t_M  "Minuten"  $::g6

    array set ::mTab {
      00  { t_I }
      01  { t_I }
      02  { t_I }

      03  { t_I t_v t_M }
      04  { t_I t_v t_M }
      05  { t_I t_v t_M }
      06  { t_I t_v t_M }
      07  { t_I t_v t_M }

      08  { t_I t_x t_M }
      09  { t_I t_x t_M }
      10  { t_I t_x t_M }
      11  { t_I t_x t_M }
      12  { t_I t_x t_M }

      13  { t_I t_v t_x t_M }
      14  { t_I t_v t_x t_M }
      15  { t_I t_v t_x t_M }
      16  { t_I t_v t_x t_M }
      17  { t_I t_v t_x t_M }

      18  { t_I t_+ t_xx t_M }
      19  { t_I t_+ t_xx t_M }
      20  { t_I t_+ t_xx t_M }
      21  { t_I t_+ t_xx t_M }
      22  { t_I t_+ t_xx t_M }

      23  { t_I t_v t_+ t_xx t_M }
      24  { t_I t_v t_+ t_xx t_M }
      25  { t_I t_v t_+ t_xx t_M }
      26  { t_I t_v t_+ t_xx t_M }
      27  { t_I t_v t_+ t_xx t_M }

      28  { t_I t_+ t_30 t_M }
      29  { t_I t_+ t_30 t_M }
      30  { t_I t_+ t_30 t_M }
      31  { t_I t_+ t_30 t_M }
      32  { t_I t_+ t_30 t_M }

      33  { t_I t_v t_+  t_30 t_M }
      34  { t_I t_v t_+  t_30 t_M }
      35  { t_I t_v t_+  t_30 t_M }
      36  { t_I t_v t_+  t_30 t_M }
      37  { t_I t_v t_+  t_30 t_M }

      38  { t_I t_+ t_40 t_M }
      39  { t_I t_+ t_40 t_M }
      40  { t_I t_+ t_40 t_M }
      41  { t_I t_+ t_40 t_M }
      42  { t_I t_+ t_40 t_M }

      43  { t_I t_v t_+  t_40 t_M }
      44  { t_I t_v t_+  t_40 t_M }
      45  { t_I t_v t_+  t_40 t_M }
      46  { t_I t_v t_+  t_40 t_M }
      47  { t_I t_v t_+  t_40 t_M }

      48  { t_I t_+ t_50 t_M }
      49  { t_I t_+ t_50 t_M }
      50  { t_I t_+ t_50 t_M }
      51  { t_I t_+ t_50 t_M }
      52  { t_I t_+ t_50 t_M }

      53  { t_I t_v t_+  t_50 t_M }
      54  { t_I t_v t_+  t_50 t_M }
      55  { t_I t_v t_+  t_50 t_M }
      56  { t_I t_v t_+  t_50 t_M }
      57  { t_I t_v t_+  t_50 t_M }

      58  { t_I  hH }
      59  { t_I  hH }
    }
    .c configure  -background Green   ;# ForestGreen
  }

  proc start_DE7 {w} {
    puts "setup for german fuzzyclock#DE2->DE6/DE7"
  # 4x6 panels: "drei Uhr fünf und zwanzig Minuten"

   #destroy $w;  pack [canvas $w  -width 200  -height 260  -background gray22]
    destroy $w;  pack [canvas $w  -width 240  -height 200  -background gray67]
    set ::scX 7.3
    if { $::pos < 0 } { wm geom . +360+310 }

    makeText $w t_I  "Es ist"   $::m1
    makeText $w t_AM "morgens"  $::m2
    makeText $w t_0  "null"     $::m3

    makeText $w t_1  "ein"      $::m4

    makeText $w t_2  "zwei"     $::n1
    makeText $w t_3  "drei"     $::n2
    makeText $w t_4  "vier"     $::n3
    makeText $w t_5  "fünf"     $::n4

    makeText $w t_6  "sechs"    $::o1
    makeText $w t_7  "sieben"   $::o2
    makeText $w t_8  "acht"     $::o3
    makeText $w t_9  "neun"     $::o4

    makeText $w t_10 "zehn"     $::p1
    makeText $w t_11 "elf"      $::p2
    makeText $w t_12 "zwölf"    $::p3
    makeText $w t_C  "Uhr"      $::p4

    makeText $w t_v  "fünf"     $::q1
    makeText $w t_x  "zehn"     $::q2
    makeText $w t_+  "und"      $::q3
    makeText $w t_xx "zwanzig"  $::q4

    makeText $w t_30 "dreissig" $::r1
    makeText $w t_40 "vierzig"  $::r2
    makeText $w t_50 "fünfzig"  $::r3
    makeText $w t_M  "Minuten"  $::r4

    array set ::mTab {
      00  { t_I }
      01  { t_I }
      02  { t_I }

      03  { t_I t_v t_M }
      04  { t_I t_v t_M }
      05  { t_I t_v t_M }
      06  { t_I t_v t_M }
      07  { t_I t_v t_M }

      08  { t_I t_x t_M }
      09  { t_I t_x t_M }
      10  { t_I t_x t_M }
      11  { t_I t_x t_M }
      12  { t_I t_x t_M }

      13  { t_I t_v t_x t_M }
      14  { t_I t_v t_x t_M }
      15  { t_I t_v t_x t_M }
      16  { t_I t_v t_x t_M }
      17  { t_I t_v t_x t_M }

      18  { t_I t_+ t_xx t_M }
      19  { t_I t_+ t_xx t_M }
      20  { t_I t_+ t_xx t_M }
      21  { t_I t_+ t_xx t_M }
      22  { t_I t_+ t_xx t_M }

      23  { t_I t_v t_+ t_xx t_M }
      24  { t_I t_v t_+ t_xx t_M }
      25  { t_I t_v t_+ t_xx t_M }
      26  { t_I t_v t_+ t_xx t_M }
      27  { t_I t_v t_+ t_xx t_M }

      28  { t_I t_+ t_30 t_M }
      29  { t_I t_+ t_30 t_M }
      30  { t_I t_+ t_30 t_M }
      31  { t_I t_+ t_30 t_M }
      32  { t_I t_+ t_30 t_M }

      33  { t_I t_v t_+  t_30 t_M }
      34  { t_I t_v t_+  t_30 t_M }
      35  { t_I t_v t_+  t_30 t_M }
      36  { t_I t_v t_+  t_30 t_M }
      37  { t_I t_v t_+  t_30 t_M }

      38  { t_I t_+ t_40 t_M }
      39  { t_I t_+ t_40 t_M }
      40  { t_I t_+ t_40 t_M }
      41  { t_I t_+ t_40 t_M }
      42  { t_I t_+ t_40 t_M }

      43  { t_I t_v t_+  t_40 t_M }
      44  { t_I t_v t_+  t_40 t_M }
      45  { t_I t_v t_+  t_40 t_M }
      46  { t_I t_v t_+  t_40 t_M }
      47  { t_I t_v t_+  t_40 t_M }

      48  { t_I t_+ t_50 t_M }
      49  { t_I t_+ t_50 t_M }
      50  { t_I t_+ t_50 t_M }
      51  { t_I t_+ t_50 t_M }
      52  { t_I t_+ t_50 t_M }

      53  { t_I t_v t_+  t_50 t_M }
      54  { t_I t_v t_+  t_50 t_M }
      55  { t_I t_v t_+  t_50 t_M }
      56  { t_I t_v t_+  t_50 t_M }
      57  { t_I t_v t_+  t_50 t_M }

      58  { t_I  hH }
      59  { t_I  hH }
    }
    .c configure  -background Green1   ;# ForestGreen
  }

  proc start_DE8 {w} {
    puts "setup for german 24h fuzzyclock#DE2->DE5->DE8"

  # ToDo ...

  }


 ###

  proc start_I1 {w} {
    puts "setup for international fuzzyclock#1"
  # 8x3 panels: "three o'clock twenty five minutes"

    destroy $w;  pack [canvas $w  -width 175  -height 260  -background gray11]
    set ::scX 8
    if { $::pos < 0 } { wm geom . +620+310 }

    makeText $w t_I  "It is"   $::a1
    makeText $w t_AM "AM"      $::b1
    makeText $w t_0  "zero"    $::c1

    makeText $w t_1  "one"     $::a2
    makeText $w t_2  "two"     $::b2
    makeText $w t_3  "three"   $::c2

    makeText $w t_4  "four"    $::a3
    makeText $w t_5  "five"    $::b3
    makeText $w t_6  "six"     $::c3

    makeText $w t_7  "seven"   $::a4
    makeText $w t_8  "eight"   $::b4
    makeText $w t_9  "nine"    $::c4

    makeText $w t_10 "ten"     $::a5
    makeText $w t_11 "eleven"  $::b5
    makeText $w t_12 "twelve"  $::c5

    makeText $w t_C  "o'clock" $::a6
    makeText $w t_x  "ten"     $::b6
    makeText $w t_xv "fifteen" $::c6

    makeText $w t_xx "twenty"  $::a7
    makeText $w t_30 "thirty"  $::b7
    makeText $w t_40 "fourty"  $::c7

    makeText $w t_50 "fifty"   $::a8
    makeText $w t_v  "five"    $::b8
    makeText $w t_M  "minutes" $::c8

    array set ::mTab {
      00  { t_I }
      01  { t_I }
      02  { t_I }

      03  { t_I t_v t_M }
      04  { t_I t_v t_M }
      05  { t_I t_v t_M }
      06  { t_I t_v t_M }
      07  { t_I t_v t_M }

      08  { t_I t_x t_M }
      09  { t_I t_x t_M }
      10  { t_I t_x t_M }
      11  { t_I t_x t_M }
      12  { t_I t_x t_M }

      13  { t_I t_xv t_M }
      14  { t_I t_xv t_M }
      15  { t_I t_xv t_M }
      16  { t_I t_xv t_M }
      17  { t_I t_xv t_M }

      18  { t_I t_xx t_M }
      19  { t_I t_xx t_M }
      20  { t_I t_xx t_M }
      21  { t_I t_xx t_M }
      22  { t_I t_xx t_M }

      23  { t_I t_v t_+ t_xx t_M }
      24  { t_I t_v t_+ t_xx t_M }
      25  { t_I t_v t_+ t_xx t_M }
      26  { t_I t_v t_+ t_xx t_M }
      27  { t_I t_v t_+ t_xx t_M }

      28  { t_I t_30 t_M }
      29  { t_I t_30 t_M }
      30  { t_I t_30 t_M }
      31  { t_I t_30 t_M }
      32  { t_I t_30 t_M }

      33  { t_I t_v t_+  t_30 t_M }
      34  { t_I t_v t_+  t_30 t_M }
      35  { t_I t_v t_+  t_30 t_M }
      36  { t_I t_v t_+  t_30 t_M }
      37  { t_I t_v t_+  t_30 t_M }

      38  { t_I t_40 t_M }
      39  { t_I t_40 t_M }
      40  { t_I t_40 t_M }
      41  { t_I t_40 t_M }
      42  { t_I t_40 t_M }

      43  { t_I t_v t_+  t_40 t_M }
      44  { t_I t_v t_+  t_40 t_M }
      45  { t_I t_v t_+  t_40 t_M }
      46  { t_I t_v t_+  t_40 t_M }
      47  { t_I t_v t_+  t_40 t_M }

      48  { t_I t_50 t_M }
      49  { t_I t_50 t_M }
      50  { t_I t_50 t_M }
      51  { t_I t_50 t_M }
      52  { t_I t_50 t_M }

      53  { t_I t_v t_50 t_M }
      54  { t_I t_v t_50 t_M }
      55  { t_I t_v t_50 t_M }
      56  { t_I t_v t_50 t_M }
      57  { t_I t_v t_50 t_M }

      58  { t_I  hH }
      59  { t_I  hH }
    }
    .c configure  -background FireBrick  ;# maroon
  }

  proc start_I2 {w} {
    puts "setup for international fuzzyclock#2"
  # 8x3 panels: "quarter past three o'clock"

    destroy $w;  pack [canvas $w  -width 175  -height 260  -background grey12]
    set ::scX 8
    if { $::pos < 0 } { wm geom . +820+310 }

    makeText $w t_I  "It is"     $::a1
    makeText $w t_AM "AM"        $::b1
    makeText $w t_x  "ten"       $::c1

    makeText $w t_q  "a quarter" $::a2
    makeText $w t_xx "twenty"    $::b2
    makeText $w t_h  "half"      $::c2

    makeText $w t_v  "five"      $::a3
    makeText $w t_M  "minutes"   $::b3
    makeText $w t_B  "before"    $::c3

    makeText $w t_P  "past"      $::a4
    makeText $w t_0  "zero"      $::b4
    makeText $w t_1  "one"       $::c4

    makeText $w t_2  "two"       $::a5
    makeText $w t_3  "three"     $::b5
    makeText $w t_4  "four"      $::c5

    makeText $w t_5  "five"      $::a6
    makeText $w t_6  "six"       $::b6
    makeText $w t_7  "seven"     $::c6

    makeText $w t_8  "eight"     $::a7
    makeText $w t_9  "nine"      $::b7
    makeText $w t_10 "ten"       $::c7

    makeText $w t_11 "eleven"    $::a8
    makeText $w t_12 "twelve"    $::b8
    makeText $w t_C  "o'clock"   $::c8

    array set ::mTab {
      00  { t_I }
      01  { t_I }
      02  { t_I }

      03  { t_I t_P t_v t_M }
      04  { t_I t_P t_v t_M }
      05  { t_I t_P t_v t_M }
      06  { t_I t_P t_v t_M }
      07  { t_I t_P t_v t_M }

      08  { t_I t_P t_x t_M }
      09  { t_I t_P t_x t_M }
      10  { t_I t_P t_x t_M }
      11  { t_I t_P t_x t_M }
      12  { t_I t_P t_x t_M }

      13  { t_I t_P t_q t_ }
      14  { t_I t_P t_q t_ }
      15  { t_I t_P t_q t_ }
      16  { t_I t_P t_q t_ }
      17  { t_I t_P t_q t_ }

      18  { t_I t_P t_xx t_M }
      19  { t_I t_P t_xx t_M }
      20  { t_I t_P t_xx t_M }
      21  { t_I t_P t_xx t_M }
      22  { t_I t_P t_xx t_M }

      23  { t_I t_P t_v t_xx t_M }
      24  { t_I t_P t_v t_xx t_M }
      25  { t_I t_P t_v t_xx t_M }
      26  { t_I t_P t_v t_xx t_M }
      27  { t_I t_P t_v t_xx t_M }

      28  { t_I t_h t_P }
      29  { t_I t_h t_P }
      30  { t_I t_h t_P }
      31  { t_I t_h t_P }
      32  { t_I t_h t_P }

      33  { t_I t_B t_v t_xx t_M hH }
      34  { t_I t_B t_v t_xx t_M hH }
      35  { t_I t_B t_v t_xx t_M hH }
      36  { t_I t_B t_v t_xx t_M hH }
      37  { t_I t_B t_v t_xx t_M hH }

      38  { t_I t_B t_xx t_M hH }
      39  { t_I t_B t_xx t_M hH }
      40  { t_I t_B t_xx t_M hH }
      41  { t_I t_B t_xx t_M hH }
      42  { t_I t_B t_xx t_M hH }

      43  { t_I t_B t_q t_ hH }
      44  { t_I t_B t_q t_ hH }
      45  { t_I t_B t_q t_ hH }
      46  { t_I t_B t_q t_ hH }
      47  { t_I t_B t_q t_ hH }

      48  { t_I t_B t_x t_M hH }
      49  { t_I t_B t_x t_M hH }
      50  { t_I t_B t_x t_M hH }
      51  { t_I t_B t_x t_M hH }
      52  { t_I t_B t_x t_M hH }

      53  { t_I t_B t_v t_M hH }
      54  { t_I t_B t_v t_M hH }
      55  { t_I t_B t_v t_M hH }
      56  { t_I t_B t_v t_M hH }
      57  { t_I t_B t_v t_M hH }

      58  { t_I hH }
      59  { t_I hH }
    }
    .c configure  -background Red4  ;# OrangeRed4
  }

  proc start_I3 {w} { Dummy start_I3 }         ;# International 24h


 ### ### ###

  proc start_SG1 {w} {
    puts "G1: setup for german fuzzy shipclock / glasen"
  # 8x3 panels - tall: "zweite Tagwache drei Glasen und fünf und zwanzig Minuten"

    destroy $w;  pack [canvas $w  -width 270  -height 260  -background gray70]
    set ::scX 12.5
    if { $::pos < 0 } { wm geom . +50+15 }

    makeText $w t_gI "Es ist"        $::a1
    makeText $w t_Su "Sonntag"       $::b1
    makeText $w t_HN "Mittag"        $::c1

    makeText $w t_w1 "erste"         $::a2   ;# 04:00
    makeText $w t_w2 "zweite"        $::b2   ;# 08:00
    makeText $w t_w3 "dritte"        $::c2   ;# 12:00

    makeText $w t_w4 "vierte"        $::a3   ;# 16:00
    makeText $w t_dw "Tagwache"      $::b3
    makeText $w t_nw "Nachtwache"    $::c3   ;# 20:00 / 00:00

    makeText $w t_g1 "ein  Glasen"   $::a4
    makeText $w t_g2 "zwei Glasen"   $::b4
    makeText $w t_g3 "drei Glasen"   $::c4

    makeText $w t_g4 "vier Glasen"   $::a5
    makeText $w t_g5 "fünf Glasen"   $::b5
    makeText $w t_g6 "sechs Glasen"  $::c5

    makeText $w t_g7 "sieben Glasen" $::a6
    makeText $w t_g8 "acht Glasen"   $::b6
   #makeText $w t_G  "Glasen"        $::c6

    makeText $w t_+1 "und"           $::a7
    makeText $w t_gv "fünf"          $::b7
    makeText $w t_gx "zehn"          $::c7

    makeText $w t_+2 "und"           $::a8
    makeText $w t_gz "zwanzig"       $::b8
    makeText $w t_gM "Minuten"       $::c8


    ## see also: proc upd

    array set ::sTab {
      w1  { t_w1 t_dw }
      w2  { t_w2 t_dw }
      w3  { t_w3 t_dw }
      w4  { t_w4 t_dw }
      w5  { t_w1 t_nw }
      w0  { t_w2 t_nw }
       0  {}
       5  { t_+1 t_gv t_gM }
      10  { t_+1 t_gx t_gM }
      15  { t_+1 t_gv t_gx t_gM }
      20  { t_+1 t_gz t_gM }
      25  { t_+1 t_gv t_+2 t_gz t_gM }
    }
    .c configure  -background blue2  ;# MediumBlue blue4
  }


  proc start_SG2 {w} {
    puts "G2: setup for german fuzzy shipclock / glasen"
  # 3x8 panels - wide: "zweite Tagwache drei Glasen und fünf und zwanzig Minuten"

    global x1 x2 x3 x4 x5 x6 x7 x8  y1 y2 y3 y4 y5 y6 y7 y8  z1 z2 z3 z4 z5 z6 z7 z8

    destroy $w;  pack [canvas $w  -width 615  -height 110  -background gray80]
    set ::scX 9.6
    if { $::pos < 0 } { wm geom . +340+15 }

    makeText $w t_gI "Es ist"        $::x1
    makeText $w t_Su "Sonntag"       $x2

    makeText $w t_HN "Mittag"        $z1

    makeText $w t_w1 "erste"         $x3   ;# 04:00
    makeText $w t_w2 "zweite"        $x4   ;# 08:00
    makeText $w t_w3 "dritte"        $x5   ;# 12:00

    makeText $w t_w4 "vierte"        $x6   ;# 16:00
    makeText $w t_dw "Tagwache"      $x7
    makeText $w t_nw "Nachtwache"    $x8   ;# 20:00 / 00:00

    makeText $w t_g1 "ein  Glasen"   $y1
    makeText $w t_g2 "zwei Glasen"   $y2
    makeText $w t_g3 "drei Glasen"   $y3

    makeText $w t_g4 "vier Glasen"   $y4
    makeText $w t_g5 "fünf Glasen"   $y5
    makeText $w t_g6 "sechs Glasen"  $y6

    makeText $w t_g7 "sieben Glasen" $y7
    makeText $w t_g8 "acht Glasen"   $y8
   #makeText $w t_G  "Glasen"        $y8

    makeText $w t_+1 "und"           $z3
    makeText $w t_gv "fünf"          $z4
    makeText $w t_gx "zehn"          $z5

    makeText $w t_+2 "und"           $z6
    makeText $w t_gz "zwanzig"       $z7
    makeText $w t_gM "Minuten"       $z8


    ## see also: proc upd

    array set ::sTab {
      w1  { t_w1 t_dw }
      w2  { t_w2 t_dw }
      w3  { t_w3 t_dw }
      w4  { t_w4 t_dw }
      w5  { t_w1 t_nw }
      w0  { t_w2 t_nw }
       0  {}
       5  { t_+1 t_gv t_gM }
      10  { t_+1 t_gx t_gM }
      15  { t_+1 t_gv t_gx t_gM }
      20  { t_+1 t_gz t_gM }
      25  { t_+1 t_gv t_+2 t_gz t_gM }
    }
    .c configure  -background MediumBlue  ;# blue4
  }


 ###

  proc start_SB1 {w} {
    puts "SB1: setup for international fuzzy ship's bell"
  # 8x3 panels: "Forenoon watch three bells and twenty five minutes"

    destroy $w;  pack [canvas $w  -width 260  -height 260  -background gray90]
    set ::scX 12
    if { $::pos < 0 } { wm geom . +50+320 }

    makeText $w t_gI "It is"         $::a1
    makeText $w t_Su "Sunday"        $::b1

    makeText $w t_w5 "First"         $::c1   ;# 20:00

    makeText $w t_w0 "Middle"        $::a2   ;# 00:00
    makeText $w t_w1 "Morning"       $::b2   ;# 04:00
    makeText $w t_w2 "Forenoon"      $::c2   ;# 08:00

    makeText $w t_w3 "Afternoon"     $::a3   ;# 12:00
    makeText $w t_w4 "Dog"           $::b3   ;# 16:00
    makeText $w t_gW "watch"         $::c3

    makeText $w t_g1 "one bell"      $::a4
    makeText $w t_g2 "two bells"     $::b4
    makeText $w t_g3 "three bells"   $::c4

    makeText $w t_g4 "four bells"    $::a5
    makeText $w t_g5 "five bells"    $::b5
    makeText $w t_g6 "six  bells"    $::c5

    makeText $w t_g7 "seven bells"   $::a6
    makeText $w t_g8 "eight bells"   $::b6
   #makeText $w t_G  "bells"         $::c6
    makeText $w t_HN "Noon"          $::c6

    makeText $w t_+1 "and"           $::a7
    makeText $w t_gx "ten"           $::b7
    makeText $w t_gF "fifteen"       $::c7

    makeText $w t_gz "twenty"        $::a8
    makeText $w t_gv "five"          $::b8
    makeText $w t_gM "minutes"       $::c8

    array set ::sTab {
      w0  { t_w0 t_gW }
      w1  { t_w1 t_gW }
      w2  { t_w2 t_gW }
      w3  { t_w3 t_gW }
      w4  { t_w4 t_gW }
      w5  { t_w5 t_gW }
       0  {}
       5  { t_+1 t_gv t_gM }
      10  { t_+1 t_gx t_gM }
      15  { t_+1 t_gF t_gM }
      20  { t_+1 t_gz t_gM }
      25  { t_+1 t_gv t_gz t_gM }
    }
    .c configure  -background MidnightBlue  ;# Navy NavyBlue
  }


  proc start_SB2 {w} {
    puts "SB2: setup for international fuzzy ship's bell"
  # 3x8 panels: "Forenoon watch three bells and twenty five minutes"

    destroy $w;  pack [canvas $w  -width 515  -height 110  -background gray90]
    set ::scX 8
    if { $::pos < 0 } { wm geom . +340+320 }

    makeText $w t_gI "It is"         $::x1
    makeText $w t_w5 "First"         $::x2   ;# 20:00
    makeText $w t_w0 "Middle"        $::x3   ;# 00:00
    makeText $w t_w1 "Morning"       $::x4   ;# 04:00
    makeText $w t_w2 "Forenoon"      $::x5   ;# 08:00

    makeText $w t_w3 "Afternoon"     $::x6   ;# 12:00
    makeText $w t_w4 "Dog"           $::x7   ;# 16:00
    makeText $w t_gW "watch"         $::x8

    makeText $w t_g1 "one bell"      $::y1
    makeText $w t_g2 "two bells"     $::y2
    makeText $w t_g3 "three bells"   $::y3
    makeText $w t_g4 "four bells"    $::y4
    makeText $w t_g5 "five bells"    $::y5
    makeText $w t_g6 "six  bells"    $::y6
    makeText $w t_g7 "seven bells"   $::y7
    makeText $w t_g8 "eight bells"   $::y8
   #makeText $w t_G  "bells"         $::y8


    makeText $w t_Su "Sunday"        $::z1
    makeText $w t_HN "Noon"          $::z2

    makeText $w t_+1 "and"           $::z3
    makeText $w t_gx "ten"           $::z4
    makeText $w t_gF "fifteen"       $::z5
    makeText $w t_gz "twenty"        $::z6
    makeText $w t_gv "five"          $::z7
    makeText $w t_gM "minutes"       $::z8

    array set ::sTab {
      w0  { t_w0 t_gW }
      w1  { t_w1 t_gW }
      w2  { t_w2 t_gW }
      w3  { t_w3 t_gW }
      w4  { t_w4 t_gW }
      w5  { t_w5 t_gW }
       0  {}
       5  { t_+1 t_gv t_gM }
      10  { t_+1 t_gx t_gM }
      15  { t_+1 t_gF t_gM }
      20  { t_+1 t_gz t_gM }
      25  { t_+1 t_gv t_gz t_gM }
    }
    .c configure  -background NavyBlue   ;# MidnightBlue MediumBlue
  }


 ### Main:

   wm title . "$Prog(Title) $Prog(Version)"
   puts       "$Prog(Title) $Prog(Version)"

   bind .  <F2>     { console show }
  #catch {console show}        ;##
  #catch {console hide}        ;##

   # Defaults:
   set fc    "DE5"             ;# Layout:  G:Glasen"=german shipclock / SB:ship's bell international
   set pos   -1                ;# screen: -1:distribute the layouts on screen
   set sound  0                ;# sound:   0:none  1:once on full hour  2: ship's bell
   set time   t0               ;# time     0: current  1,2: test
   set lang  "xx"              ;# language: DE=germany  EN=english/international
   set cons   0                ;# console: debug
   set menu   0                ;# menu:    0:off  1:on

   if { $argc > 0 } {
     set i 0
     foreach arg $::argv {
       incr i
       puts "argument $i is $arg"        ;##

       set hyp [string first "-" $arg]
       if { $hyp >= 0 } {
         if {       $arg == "-p0" } {     ;# don't set screen-position
           set pos  0
         } elseif { $arg == "-p1" } {     ;# top left
           set pos  1
         } elseif { $arg == "-p2" } {     ;# top right
           set pos  2

         } elseif { $arg == "-s0" } {     ;# no sound
           set sound  0
         } elseif { $arg == "-s1" } {     ;# once
           set sound  1
         } elseif { $arg == "-s2" } {     ;# ship's bell / Glasen
           set sound  2

         } elseif { $arg == "-t0" } {     ;# time - use current time
           set time  t0
         } elseif { $arg == "-t1" } {     ;# use time from proc t1
           set time  t1
         } elseif { $arg == "-t2" } {     ;#
           set time  t2

         } elseif { $arg == "-m0" } {     ;# no menu
           set menu  0
         } elseif { $arg == "-m1" } {     ;# 
           set menu  1

         } elseif { $arg == "-cS" } {
           catch {console show}           ;##
         } elseif { $arg == "-cH" } {
           catch {console hide}           ;##
         }
       } else {
         set fc $arg
       }

     }
   }
   puts "Args: fc,pos,sound,time: $fc $pos $sound $time"        ;##

   if { $::menu == 1 } { initMenu }
   initKeys

 # Todo: use "start DE1", etc.

   if {         $fc == "1" || $fc == "DE1" || $fc == "DE" } {
       start_DE1 .c   ;#DE1 : german fuzzyclock:   8x3  "fünf Minuten vor halb vier Uhr"
   } elseif {   $fc == "2" || $fc == "DE2"} {
       start_DE2 .c   ;#DE2 : german fuzzyclock:        "drei Uhr fünf und zwanzig Minuten"
   } elseif {   $fc == "3" || $fc == "DE3"} {
       start_DE3 .c   ;#DE3 : german fuzzyclock:        "viertel nach drei"
   } elseif {   $fc == "4" || $fc == "DE4"} {
       start_DE4 .c   ;#DE4 : german fuzzyclock:        "viertel nach drei Uhr"
   } elseif {   $fc == "5" || $fc == "DE5"} {
       start_DE5 .c   ;#DE5 : german fuzzyclock:   5x5  ...
   } elseif {   $fc == "6" || $fc == "DE6"} {
       start_DE6 .c   ;#DE6 : german fuzzyclock:   6x4: "drei Uhr fünf und zwanzig Minuten"
   } elseif {   $fc == "7" || $fc == "DE7"} {
       start_DE7 .c   ;#DE7 : german fuzzyclock:   4x6: "drei Uhr fünf und zwanzig Minuten"

   } elseif {   $fc == "11" || $fc == "I1" || $fc == "i1"} {
       start_I1 .c    ;#11: international fuzzyclock: "three o'clock twenty five minutes"
   } elseif {   $fc == "12" || $fc == "I2" || $fc == "i2"} {
       start_I2 .c    ;#12: international fuzzyclock: "quarter past three o'clock"

   } elseif {   $fc == "51" || $fc == "SB1" || $fc == "SB"} {
       set fc "SB1"
       start_SB1 .c   ;#S1 : international ship's bell: "Forenoon watch three bells and twenty five minutes"
   } elseif {   $fc == "52" || $fc == "SB2"} {
       start_SB2 .c   ;#S2 : int.nat. ship's bell/wide: "Forenoon watch three bells and twenty five minutes"

   } elseif {   $fc == "61" || $fc == "G1" || $fc == "G"} {
       set fc "G1"
       start_SG1 .c   ;#G1 : german shipclock1: 09:55 --> "zweite Tagwache drei Glasen und fünf und zwanzig Minuten"
   } elseif {   $fc == "62" || $fc == "G2"} {
       start_SG2 .c   ;#G2 : german shipclock2: 09:55 --> "zweite Tagwache drei Glasen und fünf und zwanzig Minuten"

   } else {
       puts "Selection invalid: '$fc', using default layout."
       set fc "I2"
       start_I2 .c   ;#12: international fuzzyclock: "quarter past three o'clock"
   }

   if { $::pos == 1 } { p1 }
   if { $::pos == 2 } { p2 }

   focus -f .c
   update

   help

   $time
   after 250
   u

   run2

 ### EOF ###

Output edit

International FuzzyClock #2 German FuzzyClock #2 Ship's bell


Ship's bell - wide layout

Remarks edit

if 0 {

A

MiHa 2015-02-24 - Some bugfixes for the minute-table, and improved wiki-formatting.

MiHa 2015-03-03 - I added two more versions for a german fuzzyclock "morgens viertel nach elf Uhr", meaning "quarter past eleven".
Rearranging the panels is much more easy to do now with the spreadsheet-addressing, then with the old list of coordinates.
To avoid adding another row of panels, the entries for "PM"/"evening" and "minutes" had to be dropped.

Some ideas for further programming:

  • change font of text in lit panels to be bold
  • ESC --> Quit
  • click on panel "it is" --> update clock
  • click on panels "one", "two" etc. --> change layout
  • click on panels "before"/"after" --> change color
  • catch resize-event, and resize panels and text
  • Color-Table (needs some concept)
  • F1 --> Help / Balloon-help when hovering over panels

To sum up the experience:

  • Tcl by itself is quite simple.
  • A demo/HelloWorld-program that shows every feature should be possible in about one printed page
  • Things to be aware of:
    • comments are commands, so quotes and braces inside need to be balanced
    • when to use / not use $ with variablenames ( set i 1; puts $i; incr i $i )
  • Tk is much bigger, and needs going to the docs quite often
  • The help-docs are not bad as such, but are very frustrating to use -->
    • here is still much room for improvement
  • IDE: Geany - code completion for tcl needs work

kpv Also check out Word Clock for another textual clock.

MiHa Yes - it has already been on the list, right before "Designers notes".

B

MiHa 2015-03-04 - Now finally with an international fuzzyclock "quarter before/past".

MiHa 2015-03-05 - I changed the coordinates and scale, to get finer grained text-positioning,
as well as adjustable columnwidth for each of the layouts.
Further, I gave each layout its very own position on the screen.

When starting, the program now looks at argv, and processes the commandline-arguments.
That works both with tclsh and wish.

Currently implemented commandline-arguments to control layout, sound, placement on the screen, menu, and time:

  • -s0 -s1 -s2 : no sound / simple chime (beep) at the full hour / ship's bell every half hour.
    The default is no sound.
  • -p0 -p1 -p2 : no setting of screen-position / top left / top right.
    The default is to give each layout a unique position on screen.
  • -t0 -t1 -t2 : current time / time as set by proc t1, t2 etc.
    The default is the current time.
  • -m0 -m1 : no menu / show the menu.
    The default is no menu, unless the program is started without any arguments (i.e. "interactive", via doubleclick).
  • Everything else is understood as a key to select the layout.
    If not recognized, some default-layout is used.

Recognized are DE1,DE2 .. DE7 for the german clocks,
I1,I2 for the international clocks, and G1,G2, SB1,SB2 for the ship's bells.

With all that plumbing in place, it is now easy to show all the layouts at once, and compare them.
(Re-using my test-setup as a showcase:)

To see this in action, use batchfiles (for Windows) such as the following
to start one tcl-interpreter for each of the layouts:
  start wish FuzzyClock.tcl DE1
  start wish FuzzyClock.tcl DE2
  start wish FuzzyClock.tcl DE3
  start wish FuzzyClock.tcl DE4

  start wish FuzzyClock.tcl DE5
  start wish FuzzyClock.tcl DE6
  start wish FuzzyClock.tcl DE7
  start wish FuzzyClock.tcl DE8

  start wish FuzzyClock.tcl I1
  start wish FuzzyClock.tcl I2
  start wish FuzzyClock.tcl I3

and
  start wish FuzzyClock.tcl G1
  start wish FuzzyClock.tcl G2

  start wish FuzzyClock.tcl SB  
  start wish FuzzyClock.tcl SB2 -s2

That means, all these clocks are running with no sound, except for the one with -s2,
and all the layouts get distributed to different places across the screen.

C

MiHa 2015-03-13 - I have created layouts for ship's bell / "Glasenuhr"
http://en.wikipedia.org/wiki/Ship%27s_bell / http://de.wikipedia.org/wiki/Glasenuhr
with both a german and an international version.

My international ship's bell uses the "simpler system" according to the wikipedia-page,
that is, without the dogwatch split into two parts.
Not being a sailor, that looks like the Standard merchant watch system to me.

To summarise the concept for the ship's clock:

  • In the days of sailing ships, they used hour-glasses for timing,
    one glass running 4 hours and another glass running for 30 minutes.
  • The turning of the glasses are signalled with the ship's bell.
  • The day is divided into "watches" (working shifts) that last 4 hours.
    The current watch is not announced with the bell - everyone on board has to know that it is day/night/afternoon etc.
  • Each watch is divided into half-hour periods, so each watch lasts "8 bells",
    i.e. it starts with "8 bells" ending the previous watch, gets to "1 bell" after half an hour,
    "2 bells" after one hour, etc., and ends with "8 bells" after 4 hours.

To bring those shipclocks to the same "fuzzy precision" as the other clocks, I added 5-minute "lights".
But they wait for the exact time, and don't round up.
That means, at 19:23 the fuzzy clocks would say "twenty five minutes",
but the shipclocks would then still say "twenty minutes", and wait until reaching 19:25 to show "twenty five minutes".

Finally, I changed the "every" and "sync"-mechanism to use a more gentle approach
to bring the screen-updates to occur on multiples of 10 seconds.
The old coding made the program unresponsive during the first few seconds.

MiHa 2015-03-22 - New: "wide layouts" 3x8, used with the new ship's bells "G2" and "SB2".

If you find a bug, or have an idea for some original layout, let me know !
Otherwise, have fun !

D

MiHa 2015-04-16 - Now also with layouts of size 4x6, 6x4 and 5x5,
and options -t0 -t1 etc. to set a fixed time, eg. for testing, comparisons and screenshots.
On the downside, all those layouts cannot be shown on one screen (of size 1024x768), so the ships bells have been split off.
During the hour after midnight, the german clocks now show "zero o'clock". }

MiHa 2015-06-06 - Now featuring a real menu, so you can switch between layouts while the program is running.
Finding the nice, simple and very useful menu-creator m+ by RS was a happy by-product of my work on that GUI-demo Invoice-Demo.

MiHa 2015-06-16 - New: a proper helptext (copied from Spider Solitaire, proc showRules).

MiHa 2015-06-19 - New: the menu can now be switched off (to save screenspace), and on again with hotkey F3.

Next up: layouts with a 24h-clock.