floor.tcl

genesis 2000 v9.1软件下载

    $w create text 392 217.5 -text 125 -fill $color -anchor c -tags {floor1 label}
    set i [$w create polygon 399 187 409 187 409 207 474 207 474 164 399 164 -fill {} -tags {floor1 room}]
    set floorLabels($i) 126
    set {floorItems(126)} $i
    $w create text 436.5 185.5 -text 126 -fill $color -anchor c -tags {floor1 label}
    set i [$w create polygon 409 209 409 229 399 229 399 253 486 253 486 239 474 239 474 209 -fill {} -tags {floor1 room}]
    set floorLabels($i) 127
    set {floorItems(127)} $i
    $w create text 436.5 231 -text 127 -fill $color -anchor c -tags {floor1 label}
    set i [$w create polygon 501 164 501 174 495 174 495 188 490 188 490 204 476 204 476 164 -fill {} -tags {floor1 room}]
    set floorLabels($i) MShower
    set {floorItems(MShower)} $i
    $w create text 488.5 184 -text MShower -fill $color -anchor c -tags {floor1 label}
    set i [$w create polygon 497 176 513 176 513 204 492 204 492 190 497 190 -fill {} -tags {floor1 room}]
    set floorLabels($i) Closet
    set {floorItems(Closet)} $i
    $w create text 502.5 190 -text Closet -fill $color -anchor c -tags {floor1 label}
    set i [$w create polygon 476 237 476 206 513 206 513 254 488 254 488 237 -fill {} -tags {floor1 room}]
    set floorLabels($i) WShower
    set {floorItems(WShower)} $i
    $w create text 494.5 230 -text WShower -fill $color -anchor c -tags {floor1 label}
    set i [$w create polygon 486 131 558 131 558 135 724 135 724 166 697 166 697 275 553 275 531 254 515 254 515 174 503 174 503 161 486 161 -fill {} -tags {floor1 room}]
    set floorLabels($i) 130
    set {floorItems(130)} $i
    $w create text 638.5 205 -text 130 -fill $color -anchor c -tags {floor1 label}
    set i [$w create polygon 308 242 339 242 339 248 342 248 342 246 397 246 397 276 393 276 393 309 300 309 300 248 308 248 -fill {} -tags {floor1 room}]
    set floorLabels($i) 102
    set {floorItems(102)} $i
    $w create text 367.5 278.5 -text 102 -fill $color -anchor c -tags {floor1 label}
    set i [$w create polygon 397 255 486 255 486 276 397 276 -fill {} -tags {floor1 room}]
    set floorLabels($i) 128
    set {floorItems(128)} $i
    $w create text 441.5 265.5 -text 128 -fill $color -anchor c -tags {floor1 label}
    set i [$w create polygon 510 309 486 309 486 255 530 255 552 277 561 277 561 325 510 325 -fill {} -tags {floor1 room}]
    set floorLabels($i) 129
    set {floorItems(129)} $i
    $w create text 535.5 293 -text 129 -fill $color -anchor c -tags {floor1 label}
    set i [$w create polygon 696 281 740 281 740 387 642 387 642 389 561 389 561 277 696 277 -fill {} -tags {floor1 room}]
    set floorLabels($i) 133
    set {floorItems(133)} $i
    $w create text 628.5 335 -text 133 -fill $color -anchor c -tags {floor1 label}
    set i [$w create polygon 742 387 742 281 800 281 800 387 -fill {} -tags {floor1 room}]
    set floorLabels($i) 132
    set {floorItems(132)} $i
    $w create text 771 334 -text 132 -fill $color -anchor c -tags {floor1 label}
    set i [$w create polygon 800 168 800 280 699 280 699 168 -fill {} -tags {floor1 room}]
    set floorLabels($i) 134
    set {floorItems(134)} $i
    $w create text 749.5 224 -text 134 -fill $color -anchor c -tags {floor1 label}
    set i [$w create polygon 726 131 726 166 800 166 800 131 -fill {} -tags {floor1 room}]
    set floorLabels($i) 135
    set {floorItems(135)} $i
    $w create text 763 148.5 -text 135 -fill $color -anchor c -tags {floor1 label}
    set i [$w create polygon 340 360 335 363 331 365 326 366 304 366 304 312 396 312 396 288 400 288 404 288 409 290 413 292 418 297 421 302 422 309 421 318 417 325 411 330 405 332 397 333 344 333 340 334 336 336 335 338 332 342 331 347 332 351 334 354 336 357 341 359 -fill {} -tags {floor1 room}]
    set floorLabels($i) {Ramona Stair}
    set {floorItems(Ramona Stair)} $i
    $w create text 368 323 -text {Ramona Stair} -fill $color -anchor c -tags {floor1 label}
    set i [$w create polygon 30 23 30 5 93 5 98 5 104 7 110 10 116 16 119 20 122 28 123 32 123 68 220 68 220 87 90 87 90 23 -fill {} -tags {floor1 room}]
    set floorLabels($i) {University Stair}
    set {floorItems(University Stair)} $i
    $w create text 155 77.5 -text {University Stair} -fill $color -anchor c -tags {floor1 label}
    set i [$w create polygon 282 37 295 40 312 49 323 56 337 70 352 56 358 48 363 39 365 29 348 25 335 22 321 14 300 5 283 1 260 0 246 0 242 2 236 4 231 8 227 13 223 17 221 22 220 34 260 34 -fill {} -tags {floor1 room}]
    set floorLabels($i) {Plaza Stair}
    set {floorItems(Plaza Stair)} $i
    $w create text 317.5 28.5 -text {Plaza Stair} -fill $color -anchor c -tags {floor1 label}
    set i [$w create polygon 220 34 260 34 282 37 295 40 312 49 323 56 337 70 350 83 365 94 377 100 386 104 386 128 220 128 -fill {} -tags {floor1 room}]
    set floorLabels($i) {Plaza Deck}
    set {floorItems(Plaza Deck)} $i
    $w create text 303 81 -text {Plaza Deck} -fill $color -anchor c -tags {floor1 label}
    set i [$w create polygon 257 336 77 336 6 336 6 301 77 301 77 310 257 310 -fill {} -tags {floor1 room}]
    set floorLabels($i) 106
    set {floorItems(106)} $i
    $w create text 131.5 318.5 -text 106 -fill $color -anchor c -tags {floor1 label}
    set i [$w create polygon 146 110 162 110 162 91 130 91 130 115 95 115 95 128 114 128 114 151 157 151 157 153 112 153 112 130 97 130 97 168 175 168 175 131 146 131 -fill {} -tags {floor1 room}]
    set floorLabels($i) 119
    set {floorItems(119)} $i
    $w create text 143.5 133 -text 119 -fill $color -anchor c -tags {floor1 label}
    $w create line 155 191 155 189 -fill $color -tags {floor1 wall}
    $w create line 155 177 155 169 -fill $color -tags {floor1 wall}
    $w create line 96 129 96 169 -fill $color -tags {floor1 wall}
    $w create line 78 169 176 169 -fill $color -tags {floor1 wall}
    $w create line 176 247 176 129 -fill $color -tags {floor1 wall}
    $w create line 340 206 307 206 -fill $color -tags {floor1 wall}
    $w create line 340 187 340 170 -fill $color -tags {floor1 wall}
    $w create line 340 210 340 201 -fill $color -tags {floor1 wall}
    $w create line 340 247 340 224 -fill $color -tags {floor1 wall}
    $w create line 340 241 307 241 -fill $color -tags {floor1 wall}
    $w create line 376 246 376 170 -fill $color -tags {floor1 wall}
    $w create line 307 247 307 170 -fill $color -tags {floor1 wall}
    $w create line 376 170 307 170 -fill $color -tags {floor1 wall}
    $w create line 315 129 315 170 -fill $color -tags {floor1 wall}
    $w create line 147 129 176 129 -fill $color -tags {floor1 wall}
    $w create line 202 133 176 133 -fill $color -tags {floor1 wall}
    $w create line 398 129 315 129 -fill $color -tags {floor1 wall}
    $w create line 258 352 258 387 -fill $color -tags {floor1 wall}
    $w create line 60 387 60 391 -fill $color -tags {floor1 wall}
    $w create line 0 337 0 391 -fill $color -tags {floor1 wall}
    $w create line 60 391 0 391 -fill $color -tags {floor1 wall}
    $w create line 3 114 3 337 -fill $color -tags {floor1 wall}
    $w create line 258 387 60 387 -fill $color -tags {floor1 wall}
    $w create line 52 237 52 273 -fill $color -tags {floor1 wall}
    $w create line 52 189 52 225 -fill $color -tags {floor1 wall}
    $w create line 52 140 52 177 -fill $color -tags {floor1 wall}
    $w create line 395 306 395 311 -fill $color -tags {floor1 wall}
    $w create line 531 254 398 254 -fill $color -tags {floor1 wall}
    $w create line 475 178 475 238 -fill $color -tags {floor1 wall}
    $w create line 502 162 398 162 -fill $color -tags {floor1 wall}
    $w create line 398 129 398 188 -fill $color -tags {floor1 wall}
    $w create line 383 188 376 188 -fill $color -tags {floor1 wall}
    $w create line 408 188 408 194 -fill $color -tags {floor1 wall}
    $w create line 398 227 398 254 -fill $color -tags {floor1 wall}
    $w create line 408 227 398 227 -fill $color -tags {floor1 wall}
    $w create line 408 222 408 227 -fill $color -tags {floor1 wall}
    $w create line 408 206 408 210 -fill $color -tags {floor1 wall}
    $w create line 408 208 475 208 -fill $color -tags {floor1 wall}
    $w create line 484 278 484 311 -fill $color -tags {floor1 wall}
    $w create line 484 311 508 311 -fill $color -tags {floor1 wall}
    $w create line 508 327 508 311 -fill $color -tags {floor1 wall}
    $w create line 559 327 508 327 -fill $color -tags {floor1 wall}
    $w create line 644 391 559 391 -fill $color -tags {floor1 wall}
    $w create line 644 389 644 391 -fill $color -tags {floor1 wall}
    $w create line 514 205 475 205 -fill $color -tags {floor1 wall}
    $w create line 496 189 496 187 -fill $color -tags {floor1 wall}
    $w create line 559 129 484 129 -fill $color -tags {floor1 wall}
    $w create line 484 162 484 129 -fill $color -tags {floor1 wall}
    $w create line 725 133 559 133 -fill $color -tags {floor1 wall}
    $w create line 559 129 559 133 -fill $color -tags {floor1 wall}
    $w create line 725 149 725 167 -fill $color -tags {floor1 wall}
    $w create line 725 129 802 129 -fill $color -tags {floor1 wall}
    $w create line 802 389 802 129 -fill $color -tags {floor1 wall}
    $w create line 739 167 802 167 -fill $color -tags {floor1 wall}
    $w create line 396 188 408 188 -fill $color -tags {floor1 wall}
    $w create line 0 337 9 337 -fill $color -tags {floor1 wall}
    $w create line 58 337 21 337 -fill $color -tags {floor1 wall}
    $w create line 43 391 43 337 -fill $color -tags {floor1 wall}
    $w create line 105 337 75 337 -fill $color -tags {floor1 wall}
    $w create line 91 387 91 337 -fill $color -tags {floor1 wall}
    $w create line 154 337 117 337 -fill $color -tags {floor1 wall}
    $w create line 139 387 139 337 -fill $color -tags {floor1 wall}
    $w create line 227 337 166 337 -fill $color -tags {floor1 wall}
    $w create line 258 337 251 337 -fill $color -tags {floor1 wall}
    $w create line 258 328 302 328 -fill $color -tags {floor1 wall}
    $w create line 302 355 302 311 -fill $color -tags {floor1 wall}
    $w create line 395 311 302 311 -fill $color -tags {floor1 wall}
    $w create line 484 278 395 278 -fill $color -tags {floor1 wall}
    $w create line 395 294 395 278 -fill $color -tags {floor1 wall}
    $w create line 473 278 473 275 -fill $color -tags {floor1 wall}
    $w create line 473 256 473 254 -fill $color -tags {floor1 wall}
    $w create line 533 257 531 254 -fill $color -tags {floor1 wall}
    $w create line 553 276 551 274 -fill $color -tags {floor1 wall}
    $w create line 698 276 553 276 -fill $color -tags {floor1 wall}
    $w create line 559 391 559 327 -fill $color -tags {floor1 wall}
    $w create line 802 389 644 389 -fill $color -tags {floor1 wall}
    $w create line 741 314 741 389 -fill $color -tags {floor1 wall}
    $w create line 698 280 698 167 -fill $color -tags {floor1 wall}
    $w create line 707 280 698 280 -fill $color -tags {floor1 wall}
    $w create line 802 280 731 280 -fill $color -tags {floor1 wall}
    $w create line 741 280 741 302 -fill $color -tags {floor1 wall}
    $w create line 698 167 727 167 -fill $color -tags {floor1 wall}
    $w create line 725 137 725 129 -fill $color -tags {floor1 wall}
    $w create line 514 254 514 175 -fill $color -tags {floor1 wall}
    $w create line 496 175 514 175 -fill $color -tags {floor1 wall}
    $w create line 502 175 502 162 -fill $color -tags {floor1 wall}
    $w create line 475 166 475 162 -fill $color -tags {floor1 wall}
    $w create line 496 176 496 175 -fill $color -tags {floor1 wall}
    $w create line 491 189 496 189 -fill $color -tags {floor1 wall}
    $w create line 491 205 491 189 -fill $color -tags {floor1 wall}
    $w create line 487 238 475 238 -fill $color -tags {floor1 wall}
    $w create line 487 240 487 238 -fill $color -tags {floor1 wall}
    $w create line 487 252 487 254 -fill $color -tags {floor1 wall}
    $w create line 315 133 304 133 -fill $color -tags {floor1 wall}
    $w create line 256 133 280 133 -fill $color -tags {floor1 wall}
    $w create line 78 247 270 247 -fill $color -tags {floor1 wall}
    $w create line 307 247 294 247 -fill $color -tags {floor1 wall}
    $w create line 214 133 232 133 -fill $color -tags {floor1 wall}
    $w create line 217 247 217 266 -fill $color -tags {floor1 wall}
    $w create line 217 309 217 291 -fill $color -tags {floor1 wall}
    $w create line 217 309 172 309 -fill $color -tags {floor1 wall}
    $w create line 154 309 148 309 -fill $color -tags {floor1 wall}
    $w create line 175 300 175 309 -fill $color -tags {floor1 wall}
    $w create line 151 300 175 300 -fill $color -tags {floor1 wall}
    $w create line 151 247 151 309 -fill $color -tags {floor1 wall}
    $w create line 78 237 78 265 -fill $color -tags {floor1 wall}
    $w create line 78 286 78 309 -fill $color -tags {floor1 wall}
    $w create line 106 309 78 309 -fill $color -tags {floor1 wall}
    $w create line 130 309 125 309 -fill $color -tags {floor1 wall}
    $w create line 99 309 99 247 -fill $color -tags {floor1 wall}
    $w create line 127 299 99 299 -fill $color -tags {floor1 wall}
    $w create line 127 309 127 299 -fill $color -tags {floor1 wall}
    $w create line 155 191 137 191 -fill $color -tags {floor1 wall}
    $w create line 137 169 137 191 -fill $color -tags {floor1 wall}
    $w create line 78 171 78 169 -fill $color -tags {floor1 wall}
    $w create line 78 190 78 218 -fill $color -tags {floor1 wall}
    $w create line 86 192 86 169 -fill $color -tags {floor1 wall}
    $w create line 86 192 78 192 -fill $color -tags {floor1 wall}
    $w create line 52 301 3 301 -fill $color -tags {floor1 wall}
    $w create line 52 286 52 301 -fill $color -tags {floor1 wall}
    $w create line 52 252 3 252 -fill $color -tags {floor1 wall}
    $w create line 52 203 3 203 -fill $color -tags {floor1 wall}
    $w create line 3 156 52 156 -fill $color -tags {floor1 wall}
    $w create line 8 25 8 114 -fill $color -tags {floor1 wall}
    $w create line 63 114 3 114 -fill $color -tags {floor1 wall}
    $w create line 75 114 97 114 -fill $color -tags {floor1 wall}
    $w create line 108 114 129 114 -fill $color -tags {floor1 wall}
    $w create line 129 114 129 89 -fill $color -tags {floor1 wall}
    $w create line 52 114 52 128 -fill $color -tags {floor1 wall}
    $w create line 132 89 88 89 -fill $color -tags {floor1 wall}
    $w create line 88 25 88 89 -fill $color -tags {floor1 wall}
    $w create line 88 114 88 89 -fill $color -tags {floor1 wall}
    $w create line 218 89 144 89 -fill $color -tags {floor1 wall}
    $w create line 147 111 147 129 -fill $color -tags {floor1 wall}
    $w create line 162 111 147 111 -fill $color -tags {floor1 wall}
    $w create line 162 109 162 111 -fill $color -tags {floor1 wall}
    $w create line 162 96 162 89 -fill $color -tags {floor1 wall}
    $w create line 218 89 218 94 -fill $color -tags {floor1 wall}
    $w create line 218 89 218 119 -fill $color -tags {floor1 wall}
    $w create line 8 25 88 25 -fill $color -tags {floor1 wall}
    $w create line 258 337 258 328 -fill $color -tags {floor1 wall}
    $w create line 113 129 96 129 -fill $color -tags {floor1 wall}
    $w create line 302 355 258 355 -fill $color -tags {floor1 wall}
    $w create line 386 104 386 129 -fill $color -tags {floor1 wall}
    $w create line 377 100 386 104 -fill $color -tags {floor1 wall}
    $w create line 365 94 377 100 -fill $color -tags {floor1 wall}
    $w create line 350 83 365 94 -fill $color -tags {floor1 wall}
    $w create line 337 70 350 83 -fill $color -tags {floor1 wall}