# This file is actually a tcl script
# feel free to automate data generation

set ::room(count) 4
set ::room(0.name) nowhere
set ::root(0.color) grey
set ::room(1.name) head
set ::room(1.color) blue
set ::room(2.name) main
set ::room(2.color) blue
set ::room(3.name) side
set ::room(3.color) green

set tab 0
set ::table($tab.count) 12
set ::table($tab.shape) rectangle
set ::table($tab.room) {}

incr tab
set ::table($tab.count) 12
set ::table($tab.shape) rectangle
set ::table($tab.room) head

for {set x 0} {$x < 10} {incr x} {
	incr tab
	set ::table($tab.count) 10
	set ::table($tab.shape) oval
	if {$x < 5} {
		set ::table($tab.room) main
	} else {
		set ::table($tab.room) side
	}
}

set ::table(count) [incr tab]

set ::clipboard {}