floor.tcl

genesis 2000 v9.1软件下载

    set {floorItems(201)} $i
    $w create text 358 209 -text 201 -fill $color -anchor c -tags {floor2 label}
    $w create line 641 186 678 186 -fill $color -tags {floor2 wall}
    $w create line 757 350 757 367 -fill $color -tags {floor2 wall}
    $w create line 634 133 634 144 -fill $color -tags {floor2 wall}
    $w create line 634 144 627 144 -fill $color -tags {floor2 wall}
    $w create line 572 133 572 144 -fill $color -tags {floor2 wall}
    $w create line 572 144 579 144 -fill $color -tags {floor2 wall}
    $w create line 398 129 398 162 -fill $color -tags {floor2 wall}
    $w create line 174 197 175 197 -fill $color -tags {floor2 wall}
    $w create line 175 197 175 227 -fill $color -tags {floor2 wall}
    $w create line 757 206 757 221 -fill $color -tags {floor2 wall}
    $w create line 396 188 408 188 -fill $color -tags {floor2 wall}
    $w create line 727 189 725 189 -fill $color -tags {floor2 wall}
    $w create line 747 167 802 167 -fill $color -tags {floor2 wall}
    $w create line 747 167 747 189 -fill $color -tags {floor2 wall}
    $w create line 755 189 739 189 -fill $color -tags {floor2 wall}
    $w create line 769 224 757 224 -fill $color -tags {floor2 wall}
    $w create line 802 224 802 129 -fill $color -tags {floor2 wall}
    $w create line 802 129 725 129 -fill $color -tags {floor2 wall}
    $w create line 725 189 725 129 -fill $color -tags {floor2 wall}
    $w create line 725 186 690 186 -fill $color -tags {floor2 wall}
    $w create line 676 133 676 186 -fill $color -tags {floor2 wall}
    $w create line 627 144 627 186 -fill $color -tags {floor2 wall}
    $w create line 629 186 593 186 -fill $color -tags {floor2 wall}
    $w create line 579 144 579 186 -fill $color -tags {floor2 wall}
    $w create line 559 129 559 133 -fill $color -tags {floor2 wall}
    $w create line 725 133 559 133 -fill $color -tags {floor2 wall}
    $w create line 484 162 484 129 -fill $color -tags {floor2 wall}
    $w create line 559 129 484 129 -fill $color -tags {floor2 wall}
    $w create line 526 129 526 186 -fill $color -tags {floor2 wall}
    $w create line 540 186 581 186 -fill $color -tags {floor2 wall}
    $w create line 528 186 523 186 -fill $color -tags {floor2 wall}
    $w create line 511 186 475 186 -fill $color -tags {floor2 wall}
    $w create line 496 190 496 186 -fill $color -tags {floor2 wall}
    $w create line 496 205 496 202 -fill $color -tags {floor2 wall}
    $w create line 475 205 527 205 -fill $color -tags {floor2 wall}
    $w create line 558 205 539 205 -fill $color -tags {floor2 wall}
    $w create line 558 205 558 249 -fill $color -tags {floor2 wall}
    $w create line 558 249 475 249 -fill $color -tags {floor2 wall}
    $w create line 662 206 642 206 -fill $color -tags {floor2 wall}
    $w create line 695 206 675 206 -fill $color -tags {floor2 wall}
    $w create line 695 278 642 278 -fill $color -tags {floor2 wall}
    $w create line 642 291 642 206 -fill $color -tags {floor2 wall}
    $w create line 695 291 695 206 -fill $color -tags {floor2 wall}
    $w create line 716 208 716 206 -fill $color -tags {floor2 wall}
    $w create line 757 206 716 206 -fill $color -tags {floor2 wall}
    $w create line 757 221 757 224 -fill $color -tags {floor2 wall}
    $w create line 793 224 802 224 -fill $color -tags {floor2 wall}
    $w create line 757 262 716 262 -fill $color -tags {floor2 wall}
    $w create line 716 220 716 264 -fill $color -tags {floor2 wall}
    $w create line 716 315 716 276 -fill $color -tags {floor2 wall}
    $w create line 757 315 703 315 -fill $color -tags {floor2 wall}
    $w create line 757 325 757 224 -fill $color -tags {floor2 wall}
    $w create line 757 367 644 367 -fill $color -tags {floor2 wall}
    $w create line 689 367 689 315 -fill $color -tags {floor2 wall}
    $w create line 647 315 644 315 -fill $color -tags {floor2 wall}
    $w create line 659 315 691 315 -fill $color -tags {floor2 wall}
    $w create line 600 325 600 391 -fill $color -tags {floor2 wall}
    $w create line 627 325 644 325 -fill $color -tags {floor2 wall}
    $w create line 644 391 644 315 -fill $color -tags {floor2 wall}
    $w create line 615 325 575 325 -fill $color -tags {floor2 wall}
    $w create line 644 391 558 391 -fill $color -tags {floor2 wall}
    $w create line 563 325 558 325 -fill $color -tags {floor2 wall}
    $w create line 558 391 558 314 -fill $color -tags {floor2 wall}
    $w create line 558 327 508 327 -fill $color -tags {floor2 wall}
    $w create line 558 275 484 275 -fill $color -tags {floor2 wall}
    $w create line 558 302 558 275 -fill $color -tags {floor2 wall}
    $w create line 508 327 508 311 -fill $color -tags {floor2 wall}
    $w create line 484 311 508 311 -fill $color -tags {floor2 wall}
    $w create line 484 275 484 311 -fill $color -tags {floor2 wall}
    $w create line 475 208 408 208 -fill $color -tags {floor2 wall}
    $w create line 408 206 408 210 -fill $color -tags {floor2 wall}
    $w create line 408 222 408 227 -fill $color -tags {floor2 wall}
    $w create line 408 227 398 227 -fill $color -tags {floor2 wall}
    $w create line 398 227 398 254 -fill $color -tags {floor2 wall}
    $w create line 408 188 408 194 -fill $color -tags {floor2 wall}
    $w create line 383 188 376 188 -fill $color -tags {floor2 wall}
    $w create line 398 188 398 162 -fill $color -tags {floor2 wall}
    $w create line 398 162 484 162 -fill $color -tags {floor2 wall}
    $w create line 475 162 475 254 -fill $color -tags {floor2 wall}
    $w create line 398 254 475 254 -fill $color -tags {floor2 wall}
    $w create line 484 280 395 280 -fill $color -tags {floor2 wall}
    $w create line 395 311 395 275 -fill $color -tags {floor2 wall}
    $w create line 307 197 293 197 -fill $color -tags {floor2 wall}
    $w create line 278 197 233 197 -fill $color -tags {floor2 wall}
    $w create line 233 197 233 249 -fill $color -tags {floor2 wall}
    $w create line 307 179 284 179 -fill $color -tags {floor2 wall}
    $w create line 233 249 278 249 -fill $color -tags {floor2 wall}
    $w create line 269 179 269 133 -fill $color -tags {floor2 wall}
    $w create line 220 179 220 133 -fill $color -tags {floor2 wall}
    $w create line 155 191 110 191 -fill $color -tags {floor2 wall}
    $w create line 90 190 98 190 -fill $color -tags {floor2 wall}
    $w create line 98 169 98 190 -fill $color -tags {floor2 wall}
    $w create line 52 133 52 165 -fill $color -tags {floor2 wall}
    $w create line 52 214 52 177 -fill $color -tags {floor2 wall}
    $w create line 52 226 52 262 -fill $color -tags {floor2 wall}
    $w create line 52 274 52 276 -fill $color -tags {floor2 wall}
    $w create line 234 275 234 339 -fill $color -tags {floor2 wall}
    $w create line 226 339 258 339 -fill $color -tags {floor2 wall}
    $w create line 211 387 211 339 -fill $color -tags {floor2 wall}
    $w create line 214 339 177 339 -fill $color -tags {floor2 wall}
    $w create line 258 387 60 387 -fill $color -tags {floor2 wall}
    $w create line 3 133 3 339 -fill $color -tags {floor2 wall}
    $w create line 165 339 129 339 -fill $color -tags {floor2 wall}
    $w create line 117 339 80 339 -fill $color -tags {floor2 wall}
    $w create line 68 339 59 339 -fill $color -tags {floor2 wall}
    $w create line 0 339 46 339 -fill $color -tags {floor2 wall}
    $w create line 60 391 0 391 -fill $color -tags {floor2 wall}
    $w create line 0 339 0 391 -fill $color -tags {floor2 wall}
    $w create line 60 387 60 391 -fill $color -tags {floor2 wall}
    $w create line 258 329 258 387 -fill $color -tags {floor2 wall}
    $w create line 350 329 258 329 -fill $color -tags {floor2 wall}
    $w create line 395 311 350 311 -fill $color -tags {floor2 wall}
    $w create line 398 129 315 129 -fill $color -tags {floor2 wall}
    $w create line 176 133 315 133 -fill $color -tags {floor2 wall}
    $w create line 176 129 96 129 -fill $color -tags {floor2 wall}
    $w create line 3 133 96 133 -fill $color -tags {floor2 wall}
    $w create line 66 387 66 339 -fill $color -tags {floor2 wall}
    $w create line 115 387 115 339 -fill $color -tags {floor2 wall}
    $w create line 163 387 163 339 -fill $color -tags {floor2 wall}
    $w create line 234 275 276 275 -fill $color -tags {floor2 wall}
    $w create line 288 275 309 275 -fill $color -tags {floor2 wall}
    $w create line 298 275 298 329 -fill $color -tags {floor2 wall}
    $w create line 341 283 350 283 -fill $color -tags {floor2 wall}
    $w create line 321 275 341 275 -fill $color -tags {floor2 wall}
    $w create line 375 275 395 275 -fill $color -tags {floor2 wall}
    $w create line 315 129 315 170 -fill $color -tags {floor2 wall}
    $w create line 376 170 307 170 -fill $color -tags {floor2 wall}
    $w create line 307 250 307 170 -fill $color -tags {floor2 wall}
    $w create line 376 245 376 170 -fill $color -tags {floor2 wall}
    $w create line 340 241 307 241 -fill $color -tags {floor2 wall}
    $w create line 340 245 340 224 -fill $color -tags {floor2 wall}
    $w create line 340 210 340 201 -fill $color -tags {floor2 wall}
    $w create line 340 187 340 170 -fill $color -tags {floor2 wall}
    $w create line 340 206 307 206 -fill $color -tags {floor2 wall}
    $w create line 293 250 307 250 -fill $color -tags {floor2 wall}
    $w create line 271 179 238 179 -fill $color -tags {floor2 wall}
    $w create line 226 179 195 179 -fill $color -tags {floor2 wall}
    $w create line 176 129 176 179 -fill $color -tags {floor2 wall}
    $w create line 182 179 176 179 -fill $color -tags {floor2 wall}
    $w create line 174 169 176 169 -fill $color -tags {floor2 wall}
    $w create line 162 169 90 169 -fill $color -tags {floor2 wall}
    $w create line 96 169 96 129 -fill $color -tags {floor2 wall}
    $w create line 175 227 90 227 -fill $color -tags {floor2 wall}
    $w create line 90 190 90 227 -fill $color -tags {floor2 wall}
    $w create line 52 179 3 179 -fill $color -tags {floor2 wall}
    $w create line 52 228 3 228 -fill $color -tags {floor2 wall}
    $w create line 52 276 3 276 -fill $color -tags {floor2 wall}
    $w create line 155 177 155 169 -fill $color -tags {floor2 wall}
    $w create line 110 191 110 169 -fill $color -tags {floor2 wall}
    $w create line 155 189 155 197 -fill $color -tags {floor2 wall}
    $w create line 350 283 350 329 -fill $color -tags {floor2 wall}
    $w create line 162 197 155 197 -fill $color -tags {floor2 wall}
    $w create line 341 275 341 283 -fill $color -tags {floor2 wall}
}

# fg3 --
# This procedure represents part of the floorplan database.  When
# invoked, it instantiates the foreground information for the third
# floor (office outlines and numbers).
#
# Arguments:
# w -		The canvas window.
# color -	Color to use for drawing foreground information.

proc fg3 {w color} {
    global floorLabels floorItems
    set i [$w create polygon 89 228 89 180 70 180 70 228 -fill {} -tags {floor3 room}]
    set floorLabels($i) 316
    set {floorItems(316)} $i
    $w create text 79.5 204 -text 316 -fill $color -anchor c -tags {floor3 label}
    set i [$w create polygon 115 368 162 368 162 323 115 323 -fill {} -tags {floor3 room}]
    set floorLabels($i) 309
    set {floorItems(309)} $i
    $w create text 138.5 345.5 -text 309 -fill $color -anchor c -tags {floor3 label}
    set i [$w create polygon 164 323 164 368 211 368 211 323 -fill {} -tags {floor3 room}]
    set floorLabels($i) 308
    set {floorItems(308)} $i
    $w create text 187.5 345.5 -text 308 -fill $color -anchor c -tags {floor3 label}
    set i [$w create polygon 256 368 212 368 212 323 256 323 -fill {} -tags {floor3 room}]
    set floorLabels($i) 307
    set {floorItems(307)} $i
    $w create text 234 345.5 -text 307 -fill $color -anchor c -tags {floor3 label}
    set i [$w create polygon 244 276 297 276 297 327 260 327 260 321 244 321 -fill {} -tags {floor3 room}]
    set floorLabels($i) 305
    set {floorItems(305)} $i
    $w create text 270.5 301.5 -text 305 -fill $color -anchor c -tags {floor3 label}
    set i [$w create polygon 251 219 251 203 244 203 244 219 -fill {} -tags {floor3 room}]
    set floorLabels($i) 324B
    set {floorItems(324B)} $i
    $w create text 247.5 211 -text 324B -fill $color -anchor c -tags {floor3 label}
    set i [$w create polygon 251 249 244 249 244 232 251 232 -fill {} -tags {floor3 room}]
    set floorLabels($i) 324A
    set {floorItems(324A)} $i
    $w create text 247.5 240.5 -text 324A -fill $color -anchor c -tags {floor3 label}
    set i [$w create polygon 223 135 223 179 177 179 177 135 -fill {} -tags {floor3 room}]
    set floorLabels($i) 320
    set {floorItems(320)} $i
    $w create text 200 157 -text 320 -fill $color -anchor c -tags {floor3 label}
    set i [$w create polygon 114 368 114 323 67 323 67 368 -fill {} -tags {floor3 room}]
    set floorLabels($i) 310
    set {floorItems(310)} $i
    $w create text 90.5 345.5 -text 310 -fill $color -anchor c -tags {floor3 label}
    set i [$w create polygon 23 277 23 321 68 321 68 277 -fill {} -tags {floor3 room}]
    set floorLabels($i) 312
    set {floorItems(312)} $i
    $w create text 45.5 299 -text 312 -fill $color -anchor c -tags {floor3 label}
    set i [$w create polygon 23 229 68 229 68 275 23 275 -fill {} -tags {floor3 room}]
    set floorLabels($i) 313
    set {floorItems(313)} $i
    $w create text 45.5 252 -text 313 -fill $color -anchor c -tags {floor3 label}
    set i [$w create polygon 68 227 23 227 23 180 68 180 -fill {} -tags {floor3 room}]
    set floorLabels($i) 314
    set {floorItems(314)} $i
    $w create text 45.5 203.5 -text 314 -fill $color -anchor c -tags {floor3 label}
    set i [$w create polygon 95 179 95 135 23 135 23 179 -fill {} -tags {floor3 room}]
    set floorLabels($i) 315
    set {floorItems(315)} $i
    $w create text 59 157 -text 315 -fill $color -anchor c -tags {floor3 label}
    set i [$w create polygon 99 226 99 204 91 204 91 226 -fill {} -tags {floor3 room}]
    set floorLabels($i) 316B
    set {floorItems(316B)} $i
    $w create text 95 215 -text 316B -fill $color -anchor c -tags {floor3 label}
    se