# following statements can be pasted into eTCL console
set silas_convert_from_tablet_decimal [ eval expr 5.+1./2.+3./60.+(1./3.)*(1./60.) ] # 5.5555 liters of  grain
set silas_calculation_decimal  [ eval expr (10.*5.*30.)/(9.*30.)]  # 5.5555 liters of grain 
set numbers_porters [ eval expr (39000.)/(9.*60.)]  # 72 porters
set project_grain_porters [eval expr (10.*39000.)/(9.*60.)] # 722 liters

        # pretty print from autoindent and ased editor
        # Sumerian Hollow Cylinder Formula calculator
        # written on Windows XP on eTCL
        # working under TCL version 8.5.6 and eTCL 1.0.1
        # gold on TCL WIKI, 5may2016
        package require Tk
        namespace path {::tcl::mathop ::tcl::mathfunc}
        frame .frame -relief flat -bg aquamarine4
        pack .frame -side top -fill y -anchor center
        set names {{} {cylinder outer diameter meters:} }
        lappend names {cylinder height meters: }
        lappend names {optional, cylinder ratio numerator no units :}
        lappend names {optional, cylinder ratio denominator no units :}
        lappend names {answers: cylinder outer circumference meters :}
        lappend names {cylinder overall volume cubic meters: }
        lappend names {cylinder inner volume cubic meters: }
        lappend names {cylinder outer volume cubic meters :}
        foreach i {1 2 3 4 5 6 7 8} {
            label .frame.label$i -text [lindex $names $i] -anchor e
            entry .frame.entry$i -width 35 -textvariable side$i
            grid .frame.label$i .frame.entry$i -sticky ew -pady 2 -padx 1 }
        proc about {} {
            set msg "Calculator for Sumerian Hollow Cylinder 
            from TCL WIKI,
            written on eTCL "
            tk_messageBox -title "About" -message $msg } 
       proc pi {} {expr acos(-1)}       
       proc calculate {     } {
            global answer2
            global side1 side2 side3 side4 side5
            global side6 side7 side8
            global testcase_number
            global lateral_surface total_surface_area radius
            incr testcase_number 
            set side1 [* $side1 1. ]
            set side2 [* $side2 1. ]
            set side3 [* $side3 1. ]
            set side4 [* $side4 1. ]
            set side5 [* $side5 1. ]
            set side6 [* $side6 1. ]
            set side7 [* $side7 1. ]
            set side8 [* $side8 1. ]
            set diameter  $side1  
            set overall_circumference $side5
            set height $side2 
            set numerator $side3
            set denominator $side4 
            set overall_circumference [* [pi] $diameter ]
            set radius  [/ $diameter 2. ]
            set ratio_factor [/ [* $numerator $numerator ] [* $denominator $denominator ]]
            set overall_volume [* [pi] $radius $radius  $height ]
            set inner_volume [* $ratio_factor $overall_volume ]
            set outer_volume [* [- 1. $ratio_factor ] $overall_volume ]
            set lateral_surface  [* 2. [pi] $height [+ $denominator $numerator] ]
            set tsa2 [+ $lateral_surface [expr {2.*[pi]*($denominator*$denominator- $numerator*$numerator)} ]]
            set total_surface_area $tsa2
            set side5 $overall_circumference
            set side6 $overall_volume
            set side7 $inner_volume
            set side8 $outer_volume
                    }
        proc fillup {aa bb cc dd ee ff gg hh} {
            .frame.entry1 insert 0 "$aa"
            .frame.entry2 insert 0 "$bb"
            .frame.entry3 insert 0 "$cc"
            .frame.entry4 insert 0 "$dd"
            .frame.entry5 insert 0 "$ee"
            .frame.entry6 insert 0 "$ff" 
            .frame.entry7 insert 0 "$gg"
            .frame.entry8 insert 0 "$hh" 
             }
        proc clearx {} {
            foreach i {1 2 3 4 5 6 7 8 } {
                .frame.entry$i delete 0 end } }
        proc reportx {} {
            global side1 side2 side3 side4 side5
            global side6 side7 side8 
            global testcase_number
            global lateral_surface total_surface_area radius
            console show;
            puts "%|table $testcase_number|printed in| tcl wiki format|% "
            puts "&| quantity| value| comment, if any|& "
            puts "&| testcase number:|$testcase_number | |&"
            puts "&| $side1 :|cylinder outer diameter meters |   |&"
            puts "&| $side2 :|cylinder outer height meters | |& "
            puts "&| $side3 :|cylinder ratio numerator no units|usually 1 |& "
            puts "&| $side4 :|cylinder ratio denominator no units | usually 4  |&"
            puts "&| $side5 :|answers:cylinder outer circumference meters |  |&"
            puts "&| $radius:|radius meters|  |&"
            puts "&| $lateral_surface  :|cylinder lateral surface area square meters|  |&" 
            puts "&| $total_surface_area  :| cylinder total surface area square meters|  |&" 
            puts "&| $side6:| cylinder overall volume cubic meters |  |&"
            puts "&| $side7 :| cylinder inner volume cubic meters|  |&"
            puts "&| $side8  :|cylinder outer volume cubic meters|  |&" 
            }
        frame .buttons -bg aquamarine4
        ::ttk::button .calculator -text "Solve" -command { calculate   }
        ::ttk::button .test2 -text "Testcase1" -command {clearx;fillup .4774 1.0 1.0 4.0  1.5 0.3578 0.0224 0.3354}
        ::ttk::button .test3 -text "Testcase2" -command {clearx;fillup .4774 10.0 1.0 4.0 1.5 3.58 0.223 3.35 }
        ::ttk::button .test4 -text "Testcase3" -command {clearx;fillup 10. 10.0 1.0   4.0 31.4 1570.0  98.1 1472.6 }
        ::ttk::button .clearallx -text clear -command {clearx }
        ::ttk::button .about -text about -command about
        ::ttk::button .cons -text report -command { reportx }
        ::ttk::button .exit -text exit -command {exit}
        pack .calculator  -in .buttons -side top -padx 10 -pady 5
        pack  .clearallx .cons .about .exit .test4 .test3 .test2   -side bottom -in .buttons
        grid .frame .buttons -sticky ns -pady {0 10}
        . configure -background aquamarine4 -highlightcolor brown -relief raised -border 30
        wm title . "Sumerian Hollow Cylinder Formula Calculator"

  puts " %| testcase $testcase_number | value| units |comment |%"
  puts " &| volume| $volume| cubic meters |based on length $side1 and width $side2   |&"