Lines Matching defs:tile
29 proc ::city::tile {} {
114 set tile [image create photo -height $tessel -width $tessel]
115 $tile put white -to 0 0 $tessel $tessel
117 if {$cx} { $tile copy $parcel -to $rstart $rstart $rend $rend } ; # center
119 if {$olx} { $tile copy $parcel -to 0 $rstart $cstart $rend } ; # ou left
120 if {$orx} { $tile copy $parcel -to $cend $rstart $tessel $rend } ; # ou right
121 if {$oux} { $tile copy $parcel -to $rstart 0 $rend $cstart } ; # ou up
122 if {$odx} { $tile copy $parcel -to $rstart $cend $rend $tessel } ; # ou down
124 if {$ilx} { $tile copy $parcel -to $cstart $rstart $rstart $rend } ; # in left
125 if {$irx} { $tile copy $parcel -to $rend $rstart $cend $rend } ; # in right
126 if {$iux} { $tile copy $parcel -to $rstart $cstart $rend $rstart } ; # in up
127 if {$idx} { $tile copy $parcel -to $rstart $cend $rend $cend } ; # in down
132 label .l$name -image $tile -bd 2 -relief sunken
137 #puts "run ([linsert $donecmd end set $name $tile])"
138 uplevel #0 [linsert $donecmd end set $name $tile]