# A good - but not perfect - early program

# Table program - take in width and deph and make calculations
# Sample answer to class exercise, November 2013

# Written by Graham Ellis / version 1.0
# To learn more about this - http://www.wellho.net/course/tlfull.html

set PLACEWIDTH 850
set CLOTHWEIGHT 160
set DROPDOWN 100

puts "Work out what you can do with a table in various ways"
puts "Please enter dimension in millimetres ..."

# Note - following code repeats pattern - "must be an easier way"

puts -nonewline "How wide is the table? "
flush stdout
set width [gets stdin]

puts -nonewline "How deep is the table? "
flush stdout
set depth [gets stdin]

# Caluclate number of people who can be seated at table
# Area and weight of cloth
# Doggie distance (centre of table to nearest edge)

set people [expr (int($width / $PLACEWIDTH ) + int ($depth / $PLACEWIDTH)) * 2]

set clotharea [expr ($width + 2 * $DROPDOWN) * ($depth + 2 * $DROPDOWN) / 1000000.0]
set clothweight [expr $clotharea * $CLOTHWEIGHT]

if {$width < $depth} {
        set dogdist [expr $width / 2.0]
} else {
        set dogdist [expr $depth / 2.0]
}

puts "You can seat $people people at a table that is $width x $depth"
puts "The weight of the table cloth will be $clothweight"
puts "The doggie distance of this table (centre point min dist from edge) is $dogdist"

exit

# ------------------------------------------------------------------------------------------

munchkin:n13tcl grahamellis$ tclsh day2
Work out what you can do with a table in various ways
Please enter dimension in millimetres ...
How wide is the table? 1200
How deep is the table? 700
You can seat 2 people at a table that is 1200 x 700
The weight of the table cloth will be 201.6
The doggie distance of this table (centre point min dist from edge) is 350.0
munchkin:n13tcl grahamellis$