PageRenderTime 75ms CodeModel.GetById 15ms RepoModel.GetById 0ms app.codeStats 0ms

/Master/tlpkg/tlperl/lib/Tk/demos/widget_lib/floor.pl

https://bitbucket.org/preining/tex-live
Perl | 726 lines | 645 code | 56 blank | 25 comment | 9 complexity | 2d877fe8a5c213099744a73c72759e23 MD5 | raw file
    

  1. # floor.pl
    2. 

  2. 

  3. use Tk::Trace;
    4. 

  4. use subs qw/floor_bg1 floor_bg2 floor_bg3 floor_display floor_fg1 floor_fg2
    5. 

  5. 	    floor_fg3 floor_room_changed/;
    6. 

  6. use vars qw/$TOP/;
    7. 

  7. 

  8. sub floor {
    9. 

  9. 

  10.     # Create a top-level window containing a Canvas that displays the
    11. 

  11.     # floorplan for DEC's Western Research Laboratory.
    12. 

    13. 

  13.     my($demo) = @_;
    14. 

  14.     $TOP = $MW->WidgetDemo(
    15. 

  15. 	-name     => $demo,
    16. 

  16. 	-text     => ['This window contains a canvas widget showing the floorplan of Digital Equipment Corporation\'s Western Research Laboratory.  It has three levels.  At any given time one of the levels is active, meaning that you can see its room structure.  To activate a level, click the left mouse button anywhere on it.  As the mouse moves over the active level, the room under the mouse lights up and its room number appears in the "Room:" entry.  You can also type a room number in the entry and the room will light up.', qw/-wraplength 8i/],
    17. 

  17. 	-title    => 'Floorplan Canvas Demonstration',
    18. 

  18. 	-iconname => 'floor',
    19. 

  19.     );
    20. 

  20. 

  21.     my $c = $TOP->Scrolled(qw/Canvas -width 900 -height 500 -relief sunken
    22. 

  22. 			   -borderwidth 2 -scrollbars se/);
    23. 

  23.     $c->pack(qw/-expand yes -fill both/);
    24. 

  24. 

  25.     # Create an Entry for displaying and typing in current room.
    26. 

  26. 

  27.     $floor::current_room = '';
    28. 

  28.     my $c_entry = $c->Entry(qw/-width 10 -relief sunken -borderwidth 2
    29. 

  29. 			    -textvariable/ => \$floor::current_room);
    30. 

  30. 

  31.     # Choose colors, then fill in the floorplan.
    32. 

  32. 

  33.     my %cinfo;                  # color information hash
    34. 

  34.     if ($TOP->depth > 1) {
    35. 

  35. 	$cinfo{'floor_bg1'} = '#a9c1da';
    36. 

  36. 	$cinfo{outline1} = '#77889a';
    37. 

  37. 	$cinfo{'floor_bg2'} = '#9ab0c6';
    38. 

  38. 	$cinfo{outline2} = '#687786';
    39. 

  39. 	$cinfo{'floor_bg3'} = '#8ba0b3';
    40. 

  40. 	$cinfo{outline3} = '#596673';
    41. 

  41. 	$cinfo{offices} = 'Black';
    42. 

  42. 	$cinfo{active} = '#c4d1df';
    43. 

  43.     } else {
    44. 

  44. 	$cinfo{'floor_bg1'} = 'white';
    45. 

  45. 	$cinfo{outline1} = 'black';
    46. 

  46. 	$cinfo{'floor_bg2'} = 'white';
    47. 

  47. 	$cinfo{outline2} = 'black';
    48. 

  48. 	$cinfo{'floor_bg3'} = 'white';
    49. 

  49. 	$cinfo{outline3} = 'black';
    50. 

  50. 	$cinfo{offices} = 'Black';
    51. 

  51. 	$cinfo{active} = 'black';
    52. 

  52.     }
    53. 

  53. 

  54.     my %floor_labels = ();
    55. 

  55.     my %floor_items = ();
    56. 

  56.     my $active_floor = 0;
    57. 

  57.     floor_display $c->Subwidget('canvas'), 3, \%floor_labels, \%floor_items,
    58. 

  58. 	\%cinfo, \$active_floor, $c_entry;
    59. 

  59. 

  60.     # Set up event bindings for the Canvas.
    61. 

  61. 

  62.     my $floor_number;
    63. 

  63.     for $floor_number (1..3) {
    64. 

  64. 	$c->bind("floor${floor_number}", '<1>' =>
    65. 

  65. 	    [\&floor_display, $floor_number, \%floor_labels, \%floor_items,
    66. 

  66. 	    \%cinfo, \$active_floor, $c_entry],
    67. 

  67. 	);
    68. 

  68.     }
    69. 

  69.     $c->bind('room', '<Enter>' => sub {
    70. 

  70. 	my($c) = @_;
    71. 

  71. 	my $id = $c->find('withtag' => 'current');
    72. 

  72. 	$id = $id->[0] if ref($id) eq 'ARRAY';
    73. 

  73. 	$floor::current_room  = $floor_labels{$id} if defined $id;
    74. 

  74. 	$c->idletasks;
    75. 

  75.     });
    76. 

  76.     $c->bind('room', '<Leave>' => sub {$floor::current_room = ''});
    77. 

  77.     $c->CanvasBind('<2>' => sub {
    78. 

  78. 	my($c) = @_;
    79. 

  79. 	my $e = $c->XEvent;
    80. 

  80. 	$c->scanMark($e->x, $e->y);
    81. 

  81.     });
    82. 

  82.     $c->CanvasBind('<B2-Motion>' => sub {
    83. 

  83. 	my($c) = @_;
    84. 

  84. 	my $e = $c->XEvent;
    85. 

  85. 	$c->scanDragto($e->x, $e->y);
    86. 

  86.     });
    87. 

  87.     $c->CanvasBind('<Enter>', => [sub {shift; shift->focus}, $c_entry]);
    88. 

  88. 

  89.     $c->traceVariable(\$floor::current_room, 'w' =>
    90. 

  90. 	[sub {
    91. 

  91. 	    my($index, $value, $op, $floor_items, $cinfo) = @_;
    92. 

  92. 	    return if $op eq 'u';
    93. 

  93. 	    $floor_current_room = $value;
    94. 

  94. 	    &floor_room_changed($c->Subwidget('canvas'), $floor_items, $cinfo);
    95. 

  95. 	    $value;             # always return variable's new value
    96. 

  96. 	}, \%floor_items, \%cinfo],
    97. 

  97.     );
    98. 

  98. 

  99. } # floor
    100. 

  100. 

  101. sub floor_display {
    102. 

  102. 

  103.     # The following procedure recreates the floorplan display in the
    104. 

  104.     # Canvas given by "w".  The floor given by "active" (1, 2, or 3) is
    105. 

  105.     # displayed on top, with office structure visible.  (Used as a callback
    106. 

  106.     # and a normal function.)
    107. 

  107. 

  108.     my($c, $active, $floor_labels, $floor_items, $cinfo, $active_floor,
    109. 

  109.        $c_entry) = @_;
    110. 

  110. 

  111.     return if $$active_floor eq $active;
    112. 

  112. 

  113.     $c->delete('all');
    114. 

  114.     $$active_floor = $active;
    115. 

  115. 

  116.     # First go through the three floors, displaying the backgrounds for
    117. 

  117.     # each floor.
    118. 

  118. 

  119.     floor_bg1 $c, $cinfo->{'floor_bg1'}, $cinfo->{outline1};
    120. 

  120.     floor_bg2 $c, $cinfo->{'floor_bg2'}, $cinfo->{outline2};
    121. 

  121.     floor_bg3 $c, $cinfo->{'floor_bg3'}, $cinfo->{outline3};
    122. 

  122. 

  123.     # Raise the background for the active floor so that it's on top.
    124. 

    125. 

  125.     $c->raise("floor${active}");
    126. 

  126. 

  127.     # Create a dummy item just to mark this point in the display list, so
    128. 

  128.     # we can insert highlights here.
    129. 

  129. 

  130.     $c->create('rectangle', 0, 100, 1, 101, -fill => undef, -outline => undef,
    131. 

  131. 	       -tags => 'marker');
    132. 

  132. 

  133.     # Add the walls and labels for the active floor, along with transparent
    134. 

  134.     # polygons that define the rooms on the floor.  Make sure that the room
    135. 

  135.     # polygons are on top.
    136. 

  136. 

  137.     my $cmd = "floor_fg${active}";
    138. 

  138.     {
    139. 

  139. 	no strict qw(refs);
    140. 

  140. 	&$cmd($c, $cinfo->{offices}, $floor_labels, $floor_items);
    141. 

  141.     }
    142. 

  142.     $c->raise('room');
    143. 

  143. 

  144.     # Offset the floors diagonally from each other.
    145. 

  145. 

  146.     $c->move(qw(floor1 2c 2c));
    147. 

  147.     $c->move(qw(floor2 1c 1c));
    148. 

  148. 

  149.     # Create items for the room entry and its label.
    150. 

  150. 

  151.     $c->create('window', 600, 100, -anchor => 'w', -window => $c_entry);
    152. 

  152.     $c->create('text', 600, 100, -anchor => 'e', -text => 'Room: ');
    153. 

  153.     $c->configure(-scrollregion => [$c->bbox('all')]);
    154. 

  154. 

  155. } # end floor_display
    156. 

  156. 

  157. 

  158. sub floor_room_changed {
    159. 

  159. 

  160.     # Whenever the current_room variable changes, this procedure highlights
    161. 

  161.     # the current room and unhighlights any previous room.
    162. 

  162. 

  163.     my($w, $floor_items, $cinfo) = @_;
    164. 

  164. 

  165.     $w->delete('highlight');
    166. 

  166.     my $item = $floor_items->{$floor::current_room};
    167. 

  167.     return if not defined $item;
    168. 

  168.     my(@c) = $w->coords($item);
    169. 

  169.     if ($c[0]) {
    170. 

  170. 	$w->raise(
    171. 

  171. 	    $w->create('polygon', @c,
    172. 

  172. 		-fill => $cinfo->{active},
    173. 

  173. 		-tags => 'highlight',
    174. 

  174. 	    ),
    175. 

  175. 	'marker');
    176. 

  176.     } # ifend we have coordinates
    177. 

  177. 

  178. } # end floor_room_changed
    179. 

  179. 

  180. # The following procedures are invoked to instantiate various portions of
    181. 

  181. # the building floorplan.  The bodies of these procedures were generated
    182. 

  182. # automatically from database files describing the building.
    183. 

  183. 

  184. 

  185. sub floor_bg1 {
    186. 

  186. 

  187.     my ($w, $fill, $outline) = @_;
    188. 

  188. 

  189.     $w->create('poly', qw(347 80 349 82 351 84 353 85 363 92 375 99 386 104 386 129 398 129 398 162 484 162 484 129 559 129 559
    190. 

  190. 	133 725 133 725 129 802 129 802 389 644 389 644 391 559 391 559 327 508 327 508 311 484 311 484 278 395 278 395 288 400
    191. 

  191. 	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
    192. 

  192. 	338 332 342 331 347 332 351 334 354 336 357 341 359 340 360 335 363 331 365 326 366 304 366 304 355 258 355 258 387 60
    193. 

  193. 	387 60 391 0 391 0 337 3 337 3 114 8 114 8 25 30 25 30 5 93 5 98 5 104 7 110 10 116 16 119 20 122 28 123 32 123 68 220
    194. 

  194. 	68 220 34 221 22 223 17 227 13 231 8 236 4 242 2 246 0 260 0 283 1 300 5 321 14 335 22 348 25 365 29 363 39 358 48 352
    195. 

  195. 	56 337 70 344 76 347 80), -tags => ['floor1', 'bg'], -fill => $fill);
    196. 

  196. 

  197.     $w->create('line', qw(386 129 398 129), -fill => $outline, -tags => ['floor1', 'bg']);
    198. 

  198.     $w->create('line', qw(258 355 258 387), -fill => $outline, -tags => ['floor1', 'bg']);
    199. 

  199.     $w->create('line', qw(60 387 60 391), -fill => $outline, -tags => ['floor1', 'bg']);
    200. 

  200.     $w->create('line', qw(0 337 0 391), -fill => $outline, -tags => ['floor1', 'bg']);
    201. 

  201.     $w->create('line', qw(60 391 0 391), -fill => $outline, -tags => ['floor1', 'bg']);
    202. 

  202.     $w->create('line', qw(3 114 3 337), -fill => $outline, -tags => ['floor1', 'bg']);
    203. 

  203.     $w->create('line', qw(258 387 60 387), -fill => $outline, -tags => ['floor1', 'bg']);
    204. 

  204.     $w->create('line', qw(484 162 398 162), -fill => $outline, -tags => ['floor1', 'bg']);
    205. 

  205.     $w->create('line', qw(398 162 398 129), -fill => $outline, -tags => ['floor1', 'bg']);
    206. 

  206.     $w->create('line', qw(484 278 484 311), -fill => $outline, -tags => ['floor1', 'bg']);
    207. 

  207.     $w->create('line', qw(484 311 508 311), -fill => $outline, -tags => ['floor1', 'bg']);
    208. 

  208.     $w->create('line', qw(508 327 508 311), -fill => $outline, -tags => ['floor1', 'bg']);
    209. 

  209.     $w->create('line', qw(559 327 508 327), -fill => $outline, -tags => ['floor1', 'bg']);
    210. 

  210.     $w->create('line', qw(644 391 559 391), -fill => $outline, -tags => ['floor1', 'bg']);
    211. 

  211.     $w->create('line', qw(644 389 644 391), -fill => $outline, -tags => ['floor1', 'bg']);
    212. 

  212.     $w->create('line', qw(559 129 484 129), -fill => $outline, -tags => ['floor1', 'bg']);
    213. 

  213.     $w->create('line', qw(484 162 484 129), -fill => $outline, -tags => ['floor1', 'bg']);
    214. 

  214.     $w->create('line', qw(725 133 559 133), -fill => $outline, -tags => ['floor1', 'bg']);
    215. 

  215.     $w->create('line', qw(559 129 559 133), -fill => $outline, -tags => ['floor1', 'bg']);
    216. 

  216.     $w->create('line', qw(725 129 802 129), -fill => $outline, -tags => ['floor1', 'bg']);
    217. 

  217.     $w->create('line', qw(802 389 802 129), -fill => $outline, -tags => ['floor1', 'bg']);
    218. 

  218.     $w->create('line', qw(3 337 0 337), -fill => $outline, -tags => ['floor1', 'bg']);
    219. 

  219.     $w->create('line', qw(559 391 559 327), -fill => $outline, -tags => ['floor1', 'bg']);
    220. 

  220.     $w->create('line', qw(802 389 644 389), -fill => $outline, -tags => ['floor1', 'bg']);
    221. 

  221.     $w->create('line', qw(725 133 725 129), -fill => $outline, -tags => ['floor1', 'bg']);
    222. 

  222.     $w->create('line', qw(8 25 8 114), -fill => $outline, -tags => ['floor1', 'bg']);
    223. 

  223.     $w->create('line', qw(8 114 3 114), -fill => $outline, -tags => ['floor1', 'bg']);
    224. 

  224.     $w->create('line', qw(30 25 8 25), -fill => $outline, -tags => ['floor1', 'bg']);
    225. 

  225.     $w->create('line', qw(484 278 395 278), -fill => $outline, -tags => ['floor1', 'bg']);
    226. 

  226.     $w->create('line', qw(30 25 30 5), -fill => $outline, -tags => ['floor1', 'bg']);
    227. 

  227.     $w->create('line', qw(93 5 30 5), -fill => $outline, -tags => ['floor1', 'bg']);
    228. 

  228.     $w->create('line', qw(98 5 93 5), -fill => $outline, -tags => ['floor1', 'bg']);
    229. 

  229.     $w->create('line', qw(104 7 98 5), -fill => $outline, -tags => ['floor1', 'bg']);
    230. 

  230.     $w->create('line', qw(110 10 104 7), -fill => $outline, -tags => ['floor1', 'bg']);
    231. 

  231.     $w->create('line', qw(116 16 110 10), -fill => $outline, -tags => ['floor1', 'bg']);
    232. 

  232.     $w->create('line', qw(119 20 116 16), -fill => $outline, -tags => ['floor1', 'bg']);
    233. 

  233.     $w->create('line', qw(122 28 119 20), -fill => $outline, -tags => ['floor1', 'bg']);
    234. 

  234.     $w->create('line', qw(123 32 122 28), -fill => $outline, -tags => ['floor1', 'bg']);
    235. 

  235.     $w->create('line', qw(123 68 123 32), -fill => $outline, -tags => ['floor1', 'bg']);
    236. 

  236.     $w->create('line', qw(220 68 123 68), -fill => $outline, -tags => ['floor1', 'bg']);
    237. 

  237.     $w->create('line', qw(386 129 386 104), -fill => $outline, -tags => ['floor1', 'bg']);
    238. 

  238.     $w->create('line', qw(386 104 375 99), -fill => $outline, -tags => ['floor1', 'bg']);
    239. 

  239.     $w->create('line', qw(375 99 363 92), -fill => $outline, -tags => ['floor1', 'bg']);
    240. 

  240.     $w->create('line', qw(353 85 363 92), -fill => $outline, -tags => ['floor1', 'bg']);
    241. 

  241.     $w->create('line', qw(220 68 220 34), -fill => $outline, -tags => ['floor1', 'bg']);
    242. 

  242.     $w->create('line', qw(337 70 352 56), -fill => $outline, -tags => ['floor1', 'bg']);
    243. 

  243.     $w->create('line', qw(352 56 358 48), -fill => $outline, -tags => ['floor1', 'bg']);
    244. 

  244.     $w->create('line', qw(358 48 363 39), -fill => $outline, -tags => ['floor1', 'bg']);
    245. 

  245.     $w->create('line', qw(363 39 365 29), -fill => $outline, -tags => ['floor1', 'bg']);
    246. 

  246.     $w->create('line', qw(365 29 348 25), -fill => $outline, -tags => ['floor1', 'bg']);
    247. 

  247.     $w->create('line', qw(348 25 335 22), -fill => $outline, -tags => ['floor1', 'bg']);
    248. 

  248.     $w->create('line', qw(335 22 321 14), -fill => $outline, -tags => ['floor1', 'bg']);
    249. 

  249.     $w->create('line', qw(321 14 300 5), -fill => $outline, -tags => ['floor1', 'bg']);
    250. 

  250.     $w->create('line', qw(300 5 283 1), -fill => $outline, -tags => ['floor1', 'bg']);
    251. 

  251.     $w->create('line', qw(283 1 260 0), -fill => $outline, -tags => ['floor1', 'bg']);
    252. 

  252.     $w->create('line', qw(260 0 246 0), -fill => $outline, -tags => ['floor1', 'bg']);
    253. 

  253.     $w->create('line', qw(246 0 242 2), -fill => $outline, -tags => ['floor1', 'bg']);
    254. 

  254.     $w->create('line', qw(242 2 236 4), -fill => $outline, -tags => ['floor1', 'bg']);
    255. 

  255.     $w->create('line', qw(236 4 231 8), -fill => $outline, -tags => ['floor1', 'bg']);
    256. 

  256.     $w->create('line', qw(231 8 227 13), -fill => $outline, -tags => ['floor1', 'bg']);
    257. 

  257.     $w->create('line', qw(223 17 227 13), -fill => $outline, -tags => ['floor1', 'bg']);
    258. 

  258.     $w->create('line', qw(221 22 223 17), -fill => $outline, -tags => ['floor1', 'bg']);
    259. 

  259.     $w->create('line', qw(220 34 221 22), -fill => $outline, -tags => ['floor1', 'bg']);
    260. 

  260.     $w->create('line', qw(340 360 335 363), -fill => $outline, -tags => ['floor1', 'bg']);
    261. 

  261.     $w->create('line', qw(335 363 331 365), -fill => $outline, -tags => ['floor1', 'bg']);
    262. 

  262.     $w->create('line', qw(331 365 326 366), -fill => $outline, -tags => ['floor1', 'bg']);
    263. 

  263.     $w->create('line', qw(326 366 304 366), -fill => $outline, -tags => ['floor1', 'bg']);
    264. 

  264.     $w->create('line', qw(304 355 304 366), -fill => $outline, -tags => ['floor1', 'bg']);
    265. 

  265.     $w->create('line', qw(395 288 400 288), -fill => $outline, -tags => ['floor1', 'bg']);
    266. 

  266.     $w->create('line', qw(404 288 400 288), -fill => $outline, -tags => ['floor1', 'bg']);
    267. 

  267.     $w->create('line', qw(409 290 404 288), -fill => $outline, -tags => ['floor1', 'bg']);
    268. 

  268.     $w->create('line', qw(413 292 409 290), -fill => $outline, -tags => ['floor1', 'bg']);
    269. 

  269.     $w->create('line', qw(418 297 413 292), -fill => $outline, -tags => ['floor1', 'bg']);
    270. 

  270.     $w->create('line', qw(421 302 418 297), -fill => $outline, -tags => ['floor1', 'bg']);
    271. 

  271.     $w->create('line', qw(422 309 421 302), -fill => $outline, -tags => ['floor1', 'bg']);
    272. 

  272.     $w->create('line', qw(421 318 422 309), -fill => $outline, -tags => ['floor1', 'bg']);
    273. 

  273.     $w->create('line', qw(421 318 417 325), -fill => $outline, -tags => ['floor1', 'bg']);
    274. 

  274.     $w->create('line', qw(417 325 411 330), -fill => $outline, -tags => ['floor1', 'bg']);
    275. 

  275.     $w->create('line', qw(411 330 405 332), -fill => $outline, -tags => ['floor1', 'bg']);
    276. 

  276.     $w->create('line', qw(405 332 397 333), -fill => $outline, -tags => ['floor1', 'bg']);
    277. 

  277.     $w->create('line', qw(397 333 344 333), -fill => $outline, -tags => ['floor1', 'bg']);
    278. 

  278.     $w->create('line', qw(344 333 340 334), -fill => $outline, -tags => ['floor1', 'bg']);
    279. 

  279.     $w->create('line', qw(340 334 336 336), -fill => $outline, -tags => ['floor1', 'bg']);
    280. 

  280.     $w->create('line', qw(336 336 335 338), -fill => $outline, -tags => ['floor1', 'bg']);
    281. 

  281.     $w->create('line', qw(335 338 332 342), -fill => $outline, -tags => ['floor1', 'bg']);
    282. 

  282.     $w->create('line', qw(331 347 332 342), -fill => $outline, -tags => ['floor1', 'bg']);
    283. 

  283.     $w->create('line', qw(332 351 331 347), -fill => $outline, -tags => ['floor1', 'bg']);
    284. 

  284.     $w->create('line', qw(334 354 332 351), -fill => $outline, -tags => ['floor1', 'bg']);
    285. 

  285.     $w->create('line', qw(336 357 334 354), -fill => $outline, -tags => ['floor1', 'bg']);
    286. 

  286.     $w->create('line', qw(341 359 336 357), -fill => $outline, -tags => ['floor1', 'bg']);
    287. 

  287.     $w->create('line', qw(341 359 340 360), -fill => $outline, -tags => ['floor1', 'bg']);
    288. 

  288.     $w->create('line', qw(395 288 395 278), -fill => $outline, -tags => ['floor1', 'bg']);
    289. 

  289.     $w->create('line', qw(304 355 258 355), -fill => $outline, -tags => ['floor1', 'bg']);
    290. 

  290.     $w->create('line', qw(347 80 344 76), -fill => $outline, -tags => ['floor1', 'bg']);
    291. 

  291.     $w->create('line', qw(344 76 337 70), -fill => $outline, -tags => ['floor1', 'bg']);
    292. 

  292.     $w->create('line', qw(349 82 347 80), -fill => $outline, -tags => ['floor1', 'bg']);
    293. 

  293.     $w->create('line', qw(351 84 349 82), -fill => $outline, -tags => ['floor1', 'bg']);
    294. 

  294.     $w->create('line', qw(353 85 351 84), -fill => $outline, -tags => ['floor1', 'bg']);
    295. 

  295. 

  296. } # end floor_bg1
    297. 

  297. 

  298. sub floor_bg2 {
    299. 

  299. 

  300.     my ($w, $fill, $outline) = @_;
    301. 

  301. 

  302.     $w->create('poly', qw(559 129 484 129 484 162 398 162 398 129 315 129 315 133 176 133 176 129 96 129 96 133 3 133 3 339 0
    303. 

  303. 	339 0 391 60 391 60 387 258 387 258 329 350 329 350 311 395 311 395 280 484 280 484 311 508 311 508 327 558 327 558 391
    304. 

  304. 	644 391 644 367 802 367 802 129 725 129 725 133 559 133 559 129), -tags => ['floor2', 'bg'], -fill => $fill);
    305. 

  305.     $w->create('line', qw(350 311 350 329), -fill => $outline, -tags => ['floor2', 'bg']);
    306. 

  306.     $w->create('line', qw(398 129 398 162), -fill => $outline, -tags => ['floor2', 'bg']);
    307. 

  307.     $w->create('line', qw(802 367 802 129), -fill => $outline, -tags => ['floor2', 'bg']);
    308. 

  308.     $w->create('line', qw(802 129 725 129), -fill => $outline, -tags => ['floor2', 'bg']);
    309. 

  309.     $w->create('line', qw(725 133 725 129), -fill => $outline, -tags => ['floor2', 'bg']);
    310. 

  310.     $w->create('line', qw(559 129 559 133), -fill => $outline, -tags => ['floor2', 'bg']);
    311. 

  311.     $w->create('line', qw(559 133 725 133), -fill => $outline, -tags => ['floor2', 'bg']);
    312. 

  312.     $w->create('line', qw(484 162 484 129), -fill => $outline, -tags => ['floor2', 'bg']);
    313. 

  313.     $w->create('line', qw(559 129 484 129), -fill => $outline, -tags => ['floor2', 'bg']);
    314. 

  314.     $w->create('line', qw(802 367 644 367), -fill => $outline, -tags => ['floor2', 'bg']);
    315. 

  315.     $w->create('line', qw(644 367 644 391), -fill => $outline, -tags => ['floor2', 'bg']);
    316. 

  316.     $w->create('line', qw(644 391 558 391), -fill => $outline, -tags => ['floor2', 'bg']);
    317. 

  317.     $w->create('line', qw(558 327 558 391), -fill => $outline, -tags => ['floor2', 'bg']);
    318. 

  318.     $w->create('line', qw(558 327 508 327), -fill => $outline, -tags => ['floor2', 'bg']);
    319. 

  319.     $w->create('line', qw(508 327 508 311), -fill => $outline, -tags => ['floor2', 'bg']);
    320. 

  320.     $w->create('line', qw(484 311 508 311), -fill => $outline, -tags => ['floor2', 'bg']);
    321. 

  321.     $w->create('line', qw(484 280 484 311), -fill => $outline, -tags => ['floor2', 'bg']);
    322. 

  322.     $w->create('line', qw(398 162 484 162), -fill => $outline, -tags => ['floor2', 'bg']);
    323. 

  323.     $w->create('line', qw(484 280 395 280), -fill => $outline, -tags => ['floor2', 'bg']);
    324. 

  324.     $w->create('line', qw(395 280 395 311), -fill => $outline, -tags => ['floor2', 'bg']);
    325. 

  325.     $w->create('line', qw(258 387 60 387), -fill => $outline, -tags => ['floor2', 'bg']);
    326. 

  326.     $w->create('line', qw(3 133 3 339), -fill => $outline, -tags => ['floor2', 'bg']);
    327. 

  327.     $w->create('line', qw(3 339 0 339), -fill => $outline, -tags => ['floor2', 'bg']);
    328. 

  328.     $w->create('line', qw(60 391 0 391), -fill => $outline, -tags => ['floor2', 'bg']);
    329. 

  329.     $w->create('line', qw(0 339 0 391), -fill => $outline, -tags => ['floor2', 'bg']);
    330. 

  330.     $w->create('line', qw(60 387 60 391), -fill => $outline, -tags => ['floor2', 'bg']);
    331. 

  331.     $w->create('line', qw(258 329 258 387), -fill => $outline, -tags => ['floor2', 'bg']);
    332. 

  332.     $w->create('line', qw(350 329 258 329), -fill => $outline, -tags => ['floor2', 'bg']);
    333. 

  333.     $w->create('line', qw(395 311 350 311), -fill => $outline, -tags => ['floor2', 'bg']);
    334. 

  334.     $w->create('line', qw(398 129 315 129), -fill => $outline, -tags => ['floor2', 'bg']);
    335. 

  335.     $w->create('line', qw(176 133 315 133), -fill => $outline, -tags => ['floor2', 'bg']);
    336. 

  336.     $w->create('line', qw(176 129 96 129), -fill => $outline, -tags => ['floor2', 'bg']);
    337. 

  337.     $w->create('line', qw(3 133 96 133), -fill => $outline, -tags => ['floor2', 'bg']);
    338. 

  338.     $w->create('line', qw(315 133 315 129), -fill => $outline, -tags => ['floor2', 'bg']);
    339. 

  339.     $w->create('line', qw(176 133 176 129), -fill => $outline, -tags => ['floor2', 'bg']);
    340. 

  340.     $w->create('line', qw(96 133 96 129), -fill => $outline, -tags => ['floor2', 'bg']);
    341. 

  341. 

  342. } # end floor_bg2
    343. 

  343. 

  344. sub floor_bg3 {
    345. 

  345. 

  346.     my ($w, $fill, $outline) = @_;
    347. 

  347. 

  348.     $w->create('poly', qw(159 300 107 300 107 248 159 248 159 129 96 129 96 133 21 133 21 331 0 331 0 391 60 391 60 370 159 370
    349. 

  349. 	159 300), -tags => ['floor3', 'bg'], -fill => $fill);
    350. 

  350.     $w->create('poly', qw(258 370 258 329 350 329 350 311 399 311 399 129 315 129 315 133 176 133 176 129 159 129 159 370 258
    351. 

  351. 	370), -tags =>['floor3', 'bg'], -fill => $fill);
    352. 

  352.     $w->create('line', qw(96 133 96 129), -fill => $outline, -tags => ['floor3', 'bg']);
    353. 

  353.     $w->create('line', qw(176 129 96 129), -fill => $outline, -tags => ['floor3', 'bg']);
    354. 

  354.     $w->create('line', qw(176 129 176 133), -fill => $outline, -tags => ['floor3', 'bg']);
    355. 

  355.     $w->create('line', qw(315 133 176 133), -fill => $outline, -tags => ['floor3', 'bg']);
    356. 

  356.     $w->create('line', qw(315 133 315 129), -fill => $outline, -tags => ['floor3', 'bg']);
    357. 

  357.     $w->create('line', qw(399 129 315 129), -fill => $outline, -tags => ['floor3', 'bg']);
    358. 

  358.     $w->create('line', qw(399 311 399 129), -fill => $outline, -tags => ['floor3', 'bg']);
    359. 

  359.     $w->create('line', qw(399 311 350 311), -fill => $outline, -tags => ['floor3', 'bg']);
    360. 

  360.     $w->create('line', qw(350 329 350 311), -fill => $outline, -tags => ['floor3', 'bg']);
    361. 

  361.     $w->create('line', qw(350 329 258 329), -fill => $outline, -tags => ['floor3', 'bg']);
    362. 

  362.     $w->create('line', qw(258 370 258 329), -fill => $outline, -tags => ['floor3', 'bg']);
    363. 

  363.     $w->create('line', qw(60 370 258 370), -fill => $outline, -tags => ['floor3', 'bg']);
    364. 

  364.     $w->create('line', qw(60 370 60 391), -fill => $outline, -tags => ['floor3', 'bg']);
    365. 

  365.     $w->create('line', qw(60 391 0 391), -fill => $outline, -tags => ['floor3', 'bg']);
    366. 

  366.     $w->create('line', qw(0 391 0 331), -fill => $outline, -tags => ['floor3', 'bg']);
    367. 

  367.     $w->create('line', qw(21 331 0 331), -fill => $outline, -tags => ['floor3', 'bg']);
    368. 

  368.     $w->create('line', qw(21 331 21 133), -fill => $outline, -tags => ['floor3', 'bg']);
    369. 

  369.     $w->create('line', qw(96 133 21 133), -fill => $outline, -tags => ['floor3', 'bg']);
    370. 

  370.     $w->create('line', qw(107 300 159 300 159 248 107 248 107 300), -fill => $outline, -tags => ['floor3', 'bg']);
    371. 

  371. 

  372. } # end floor_bg3
    373. 

  373. 

  374. sub floor_fg1 {
    375. 

  375. 

  376.     my($w, $color, $fl, $fi) = @_;
    377. 

  377. 

  378.     my($i);
    379. 

  379.     $i = $w->create('polygon', qw(375 246 375 172 341 172 341 246), -fill => undef, -tags => ['floor1', 'room']);
    380. 

  380.     $fl->{$i} = 101;
    381. 

  381.     $fi->{101} = $i;
    382. 

  382.     $w->create('text', qw(358 209), -text => '101', -fill => $color, -anchor => 'c', -tags => ['floor1', 'label']);
    383. 

  383.     $i = $w->create('polygon', qw(307 240 339 240 339 206 307 206), -fill => undef, -tags => ['floor1', 'room']);
    384. 

  384.     $fl->{$i} = 'Pub Lift1';
    385. 

  385.     $fi->{'Pub Lift1'} = $i;
    386. 

  386.     $w->create('text', qw(323 223), -text => 'Pub Lift1', -fill => $color, -anchor => 'c', -tags => ['floor1', 'label']);
    387. 

  387.     $i = $w->create('polygon', qw(339 205 307 205 307 171 339 171), -fill => undef, -tags => ['floor1', 'room']);
    388. 

  388.     $fl->{$i} = 'Priv Lift1';
    389. 

  389.     $fi->{'Priv Lift1'} = $i;
    390. 

  390.     $w->create('text', qw(323 188), -text => 'Priv Lift1', -fill => $color, -anchor => 'c', -tags => ['floor1', 'label']);
    391. 

  391.     $i = $w->create('polygon', qw(42 389 42 337 1 337 1 389), -fill => undef, -tags => ['floor1', 'room']);
    392. 

  392.     $fl->{$i} = 110;
    393. 

  393.     $fi->{110} = $i;
    394. 

  394.     $w->create('text', qw(21.5 363), -text => '110', -fill => $color, -anchor => 'c', -tags => ['floor1', 'label']);
    395. 

  395.     $i = $w->create('polygon', qw(59 389 59 385 90 385 90 337 44 337 44 389), -fill => undef, -tags => ['floor1', 'room']);
    396. 

  396.     $fl->{$i} = 109;
    397. 

  397.     $fi->{109} = $i;
    398. 

  398.     $w->create('text', qw(67 363), -text => '109', -fill => $color, -anchor => 'c', -tags => ['floor1', 'label']);
    399. 

  399.     $i = $w->create('polygon', qw(51 300 51 253 6 253 6 300), -fill => undef, -tags => ['floor1', 'room']);
    400. 

  400.     $fl->{$i} = 111;
    401. 

  401.     $fi->{111} = $i;
    402. 

  402.     $w->create('text', qw(28.5 276.5), -text => '111', -fill => $color, -anchor => 'c', -tags => ['floor1', 'label']);
    403. 

  403.     $i = $w->create('polygon', qw(98 248 98 309 79 309 79 248), -fill => undef, -tags => ['floor1', 'room']);
    404. 

  404.     $fl->{$i} = '117B';
    405. 

  405.     $fi->{'117B'} = $i;
    406. 

  406.     $w->create('text', qw(88.5 278.5), -text => '117B', -fill => $color, -anchor => 'c', -tags => ['floor1', 'label']);
    407. 

  407.     $i = $w->create('polygon', qw(51 251 51 204 6 204 6 251), -fill => undef, -tags => ['floor1', 'room']);
    408. 

  408.     $fl->{$i} = 112;
    409. 

  409.     $fi->{112} = $i;
    410. 

  410.     $w->create('text', qw(28.5 227.5), -text => '112', -fill => $color, -anchor => 'c', -tags => ['floor1', 'label']);
    411. 

  411.     $i = $w->create('polygon', qw(6 156 51 156 51 203 6 203), -fill => undef, -tags => ['floor1', 'room']);
    412. 

  412.     $fl->{$i} = 113;
    413. 

  413.     $fi->{113} = $i;
    414. 

  414.     $w->create('text', qw(28.5 179.5), -text => '113', -fill => $color, -anchor => 'c', -tags => ['floor1', 'label']);
    415. 

  415.     $i = $w->create('polygon', qw(85 169 79 169 79 192 85 192), -fill => undef, -tags => ['floor1', 'room']);
    416. 

  416.     $fl->{$i} = '117A';
    417. 

  417.     $fi->{'117A'} = $i;
    418. 

  418.     $w->create('text', qw(82 180.5), -text => '117A', -fill => $color, -anchor => 'c', -tags => ['floor1', 'label']);
    419. 

  419.     $i = $w->create('polygon', qw(77 302 77 168 53 168 53 302), -fill => undef, -tags => ['floor1', 'room']);
    420. 

  420.     $fl->{$i} = 117;
    421. 

  421.     $fi->{117} = $i;
    422. 

  422.     $w->create('text', qw(65 235), -text => '117', -fill => $color, -anchor => 'c', -tags => ['floor1', 'label']);
    423. 

  423.     $i = $w->create('polygon', qw(51 155 51 115 6 115 6 155), -fill => undef, -tags => ['floor1', 'room']);
    424. 

  424.     $fl->{$i} = 114;
    425. 

  425.     $fi->{114} = $i;
    426. 

  426.     $w->create('text', qw(28.5 135), -text => '114', -fill => $color, -anchor => 'c', -tags => ['floor1', 'label']);
    427. 

  427.     $i = $w->create('polygon', qw(95 115 53 115 53 168 95 168), -fill => undef, -tags => ['floor1', 'room']);
    428. 

  428.     $fl->{$i} = 115;
    429. 

  429.     $fi->{115} = $i;
    430. 

  430.     $w->create('text', qw(74 141.5), -text => '115', -fill => $color, -anchor => 'c', -tags => ['floor1', 'label']);
    431. 

  431.     $i = $w->create('polygon', qw(87 113 87 27 10 27 10 113), -fill => undef, -tags => ['floor1', 'room']);
    432. 

  432.     $fl->{$i} = 116;
    433. 

  433.     $fi->{116} = $i;
    434. 

  434.     $w->create('text', qw(48.5 70), -text => '116', -fill => $color, -anchor => 'c', -tags => ['floor1', 'label']);
    435. 

  435.     $i = $w->create('polygon', qw(89 91 128 91 128 113 89 113), -fill => undef, -tags => ['floor1', 'room']);
    436. 

  436.     $fl->{$i} = 118;
    437. 

  437.     $fi->{118} = $i;
    438. 

  438.     $w->create('text', qw(108.5 102), -text => '118', -fill => $color, -anchor => 'c', -tags => ['floor1', 'label']);
    439. 

  439.     $i = $w->create('polygon', qw(178 128 178 132 216 132 216 91 163 91 163 112 149 112 149 128), -fill => undef, -tags => ['floor1', 'room']);
    440. 

  440.     $fl->{$i} = 120;
    441. 

  441.     $fi->{120} = $i;
    442. 

  442.     $w->create('text', qw(189.5 111.5), -text => '120', -fill => $color, -anchor => 'c', -tags => ['floor1', 'label']);
    443. 

  443.     $i = $w->create('polygon', qw(79 193 87 193 87 169 136 169 136 192 156 192 156 169 175 169 175 246 79 246), -fill => undef, -tags => ['floor1', 'room']);
    444. 

  444.     $fl->{$i} = 122;
    445. 

  445.     $fi->{122} = $i;
    446. 

  446.     $w->create('text', qw(131 207.5), -text => '122', -fill => $color, -anchor => 'c', -tags => ['floor1', 'label']);
    447. 

  447.     $i = $w->create('polygon', qw(138 169 154 169 154 191 138 191), -fill => undef, -tags => ['floor1', 'room']);
    448. 

  448.     $fl->{$i} = 121;
    449. 

  449.     $fi->{121} = $i;
    450. 

  450.     $w->create('text', qw(146 180), -text => '121', -fill => $color, -anchor => 'c', -tags => ['floor1', 'label']);
    451. 

  451.     $i = $w->create('polygon', qw(99 300 126 300 126 309 99 309), -fill => undef, -tags => ['floor1', 'room']);
    452. 

  452.     $fl->{$i} = '106A';
    453. 

  453.     $fi->{'106A'} = $i;
    454. 

  454.     $w->create('text', qw(112.5 304.5), -text => '106A', -fill => $color, -anchor => 'c', -tags => ['floor1', 'label']);
    455. 

  455.     $i = $w->create('polygon', qw(128 299 128 309 150 309 150 248 99 248 99 299), -fill => undef, -tags => ['floor1', 'room']);
    456. 

  456.     $fl->{$i} = 105;
    457. 

  457.     $fi->{105} = $i;
    458. 

  458.     $w->create('text', qw(124.5 278.5), -text => '105', -fill => $color, -anchor => 'c', -tags => ['floor1', 'label']);
    459. 

  459.     $i = $w->create('polygon', qw(174 309 174 300 152 300 152 309), -fill => undef, -tags => ['floor1', 'room']);
    460. 

  460.     $fl->{$i} = '106B';
    461. 

  461.     $fi->{'106B'} = $i;
    462. 

  462.     $w->create('text', qw(163 304.5), -text => '106B', -fill => $color, -anchor => 'c', -tags => ['floor1', 'label']);
    463. 

  463.     $i = $w->create('polygon', qw(176 299 176 309 216 309 216 248 152 248 152 299), -fill => undef, -tags => ['floor1', 'room']);
    464. 

  464.     $fl->{$i} = 104;
    465. 

  465.     $fi->{104} = $i;
    466. 

  466.     $w->create('text', qw(184 278.5), -text => '104', -fill => $color, -anchor => 'c', -tags => ['floor1', 'label']);
    467. 

  467.     $i = $w->create('polygon', qw(138 385 138 337 91 337 91 385), -fill => undef, -tags => ['floor1', 'room']);
    468. 

  468.     $fl->{$i} = 108;
    469. 

  469.     $fi->{108} = $i;
    470. 

  470.     $w->create('text', qw(114.5 361), -text => '108', -fill => $color, -anchor => 'c', -tags => ['floor1', 'label']);
    471. 

  471.     $i = $w->create('polygon', qw(256 337 140 337 140 385 256 385), -fill => undef, -tags => ['floor1', 'room']);
    472. 

  472.     $fl->{$i} = 107;
    473. 

  473.     $fi->{107} = $i;
    474. 

  474.     $w->create('text', qw(198 361), -text => '107', -fill => $color, -anchor => 'c', -tags => ['floor1', 'label']);
    475. 

  475.     $i = $w->create('polygon', qw(300 353 300 329 260 329 260 353), -fill => undef, -tags => ['floor1', 'room']);
    476. 

  476.     $fl->{$i} = 'Smoking';
    477. 

  477.     $fi->{Smoking} = $i;
    478. 

  478.     $w->create('text', qw(280 341), -text => 'Smoking', -fill => $color, -anchor => 'c', -tags => ['floor1', 'label']);
    479. 

  479.     $i = $w->create('polygon', qw(314 135 314 170 306 170 306 246 177 246 177 135), -fill => undef, -tags => ['floor1', 'room']);
    480. 

  480.     $fl->{$i} = 123;
    481. 

  481.     $fi->{123} = $i;
    482. 

  482.     $w->create('text', qw(245.5 190.5), -text => '123', -fill => $color, -anchor => 'c', -tags => ['floor1', 'label']);
    483. 

  483.     $i = $w->create('polygon', qw(217 248 301 248 301 326 257 326 257 310 217 310), -fill => undef, -tags => ['floor1', 'room']);
    484. 

  484.     $fl->{$i} = 103;
    485. 

  485.     $fi->{103} = $i;
    486. 

  486.     $w->create('text', qw(259 287), -text => '103', -fill => $color, -anchor => 'c', -tags => ['floor1', 'label']);
    487. 

  487.     $i = $w->create('polygon', qw(396 188 377 188 377 169 316 169 316 131 396 131), -fill => undef, -tags => ['floor1', 'room']);
    488. 

  488.     $fl->{$i} = 124;
    489. 

  489.     $fi->{124} = $i;
    490. 

  490.     $w->create('text', qw(356 150), -text => '124', -fill => $color, -anchor => 'c', -tags => ['floor1', 'label']);
    491. 

  491.     $i = $w->create('polygon', qw(397 226 407 226 407 189 377 189 377 246 397 246), -fill => undef, -tags => ['floor1', 'room']);
    492. 

  492.     $fl->{$i} = 125;
    493. 

  493.     $fi->{125} = $i;
    494. 

  494.     $w->create('text', qw(392 217.5), -text => '125', -fill => $color, -anchor => 'c', -tags => ['floor1', 'label']);
    495. 

  495.     $i = $w->create('polygon', qw(399 187 409 187 409 207 474 207 474 164 399 164), -fill => undef, -tags => ['floor1', 'room']);
    496. 

  496.     $fl->{$i} = 126;
    497. 

  497.     $fi->{126} = $i;
    498. 

  498.     $w->create('text', qw(436.5 185.5), -text => '126', -fill => $color, -anchor => 'c', -tags => ['floor1', 'label']);
    499. 

  499.     $i = $w->create('polygon', qw(409 209 409 229 399 229 399 253 486 253 486 239 474 239 474 209), -fill => undef, -tags => ['floor1', 'room']);
    500. 

  500.     $fl->{$i} = 127;
    501. 

  501.     $fi->{127} = $i;
    502. 

  502.     $w->create('text', qw(436.5 231), -text => '127', -fill => $color, -anchor => 'c', -tags => ['floor1', 'label']);
    503. 

  503.     $i = $w->create('polygon', qw(501 164 501 174 495 174 495 188 490 188 490 204 476 204 476 164), -fill => undef, -tags => ['floor1', 'room']);
    504. 

  504.     $fl->{$i} = 'MShower';
    505. 

  505.     $fi->{MShower} = $i;
    506. 

  506.     $w->create('text', qw(488.5 184), -text => 'MShower', -fill => $color, -anchor => 'c', -tags => ['floor1', 'label']);
    507. 

  507.     $i = $w->create('polygon', qw(497 176 513 176 513 204 492 204 492 190 497 190), -fill => undef, -tags => ['floor1', 'room']);
    508. 

  508.     $fl->{$i} = 'Closet';
    509. 

  509.     $fi->{Closet} = $i;
    510. 

  510.     $w->create('text', qw(502.5 190), -text => 'Closet', -fill => $color, -anchor => 'c', -tags => ['floor1', 'label']);
    511. 

  511.     $i = $w->create('polygon', qw(476 237 476 206 513 206 513 254 488 254 488 237), -fill => undef, -tags => ['floor1', 'room']);
    512. 

  512.     $fl->{$i} = 'WShower';
    513. 

  513.     $fi->{WShower} = $i;
    514. 

  514.     $w->create('text', qw(494.5 230), -text => 'WShower', -fill => $color, -anchor => 'c', -tags => ['floor1', 'label']);
    515. 

  515.     $i = $w->create('polygon', qw(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 => undef, -tags => ['floor1', 'room']);
    516. 

  516.     $fl->{$i} = 130;
    517. 

  517.     $fi->{130} = $i;
    518. 

  518.     $w->create('text', qw(638.5 205), -text => '130', -fill => $color, -anchor => 'c', -tags => ['floor1', 'label']);
    519. 

  519.     $i = $w->create('polygon', qw(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 => undef, -tags => ['floor1', 'room']);
    520. 

  520.     $fl->{$i} = 102;
    521. 

  521.     $fi->{102} = $i;
    522. 

  522.     $w->create('text', qw(367.5 278.5), -text => '102', -fill => $color, -anchor => 'c', -tags => ['floor1', 'label']);
    523. 

  523.     $i = $w->create('polygon', qw(397 255 486 255 486 276 397 276), -fill => undef, -tags => ['floor1', 'room']);
    524. 

  524.     $fl->{$i} = 128;
    525. 

  525.     $fi->{128} = $i;
    526. 

  526.     $w->create('text', qw(441.5 265.5), -text => '128', -fill => $color, -anchor => 'c', -tags => ['floor1', 'label']);
    527. 

  527.     $i = $w->create('polygon', qw(510 309 486 309 486 255 530 255 552 277 561 277 561 325 510 325), -fill => undef, -tags => ['floor1', 'room']);
    528. 

  528.     $fl->{$i} = 129;
    529. 

  529.     $fi->{129} = $i;
    530. 

  530.     $w->create('text', qw(535.5 293), -text => '129', -fill => $color, -anchor => 'c', -tags => ['floor1', 'label']);
    531. 

  531.     $i = $w->create('polygon', qw(696 281 740 281 740 387 642 387 642 389 561 389 561 277 696 277), -fill => undef, -tags => ['floor1', 'room']);
    532. 

  532.     $fl->{$i} = 133;
    533. 

  533.     $fi->{133} = $i;
    534. 

  534.     $w->create('text', qw(628.5 335), -text => '133', -fill => $color, -anchor => 'c', -tags => ['floor1', 'label']);
    535. 

  535.     $i = $w->create('polygon', qw(742 387 742 281 800 281 800 387), -fill => undef, -tags => ['floor1', 'room']);
    536. 

  536.     $fl->{$i} = 132;
    537. 

  537.     $fi->{132} = $i;
    538. 

  538.     $w->create('text', qw(771 334), -text => '132', -fill => $color, -anchor => 'c', -tags => ['floor1', 'label']);
    539. 

  539.     $i = $w->create('polygon', qw(800 168 800 280 699 280 699 168), -fill => undef, -tags => ['floor1', 'room']);
    540. 

  540.     $fl->{$i} = 134;
    541. 

  541.     $fi->{134} = $i;
    542. 

  542.     $w->create('text', qw(749.5 224), -text => '134', -fill => $color, -anchor => 'c', -tags => ['floor1', 'label']);
    543. 

  543.     $i = $w->create('polygon', qw(726 131 726 166 800 166 800 131), -fill => undef, -tags => ['floor1', 'room']);
    544. 

  544.     $fl->{$i} = 135;
    545. 

  545.     $fi->{135} = $i;
    546. 

  546.     $w->create('text', qw(763 148.5), -text => '135', -fill => $color, -anchor => 'c', -tags => ['floor1', 'label']);
    547. 

  547.     $i = $w->create('polygon', qw(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 => undef, -tags => ['floor1', 'room']);
    548. 

  548.     $fl->{$i} = 'Ramona Stair';
    549. 

  549.     $fi->{'Ramona Stair'} = $i;
    550. 

  550.     $w->create('text', qw(368 323), -text => 'Ramona Stair', -fill => $color, -anchor => 'c', -tags => ['floor1', 'label']);
    551. 

  551.     $i = $w->create('polygon', qw(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 => undef, -tags => ['floor1', 'room']);
    552. 

  552.     $fl->{$i} = 'University Stair';
    553. 

  553.     $fi->{'University Stair'} = $i;
    554. 

  554.     $w->create('text', qw(155 77.5), -text => 'University Stair', -fill => $color, -anchor => 'c', -tags => ['floor1', 'label']);
    555. 

  555.     $i = $w->create('polygon', qw(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 => undef, -tags => ['floor1', 'room']);
    556. 

  556.     $fl->{$i} = 'Plaza Stair';
    557. 

  557.     $fi->{'Plaza Stair'} = $i;
    558. 

  558.     $w->create('text', qw(317.5 28.5), -text => 'Plaza Stair', -fill => $color, -anchor => 'c', -tags => ['floor1', 'label']);
    559. 

  559.     $i = $w->create('polygon', qw(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 => undef, -tags => ['floor1', 'room']);
    560. 

  560.     $fl->{$i} = 'Plaza Deck';
    561. 

  561.     $fi->{'Plaza Deck'} = $i;
    562. 

  562.     $w->create('text', qw(303 81), -text => 'Plaza Deck', -fill => $color, -anchor => 'c', -tags => ['floor1', 'label']);
    563. 

  563.     $i = $w->create('polygon', qw(257 336 77 336 6 336 6 301 77 301 77 310 257 310), -fill => undef, -tags => ['floor1', 'room']);
    564. 

  564.     $fl->{$i} = 106;
    565. 

  565.     $fi->{106} = $i;
    566. 

  566.     $w->create('text', qw(131.5 318.5), -text => '106', -fill => $color, -anchor => 'c', -tags => ['floor1', 'label']);
    567. 

  567.     $i = $w->create('polygon', qw(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 => undef, -tags => ['floor1', 'room']);
    568. 

  568.     $fl->{$i} = 119;
    569. 

  569.     $fi->{119} = $i;
    570. 

  570.     $w->create('text', qw(143.5 133), -text => '119', -fill => $color, -anchor => 'c', -tags => ['floor1', 'label']);
    571. 

  571.     $w->create('line', qw(155 191 155 189), -fill => $color, -tags => ['floor1', 'wall']);
    572. 

  572.     $w->create('line', qw(155 177 155 169), -fill => $color, -tags => ['floor1', 'wall']);
    573. 

  573.     $w->create('line', qw(96 129 96 169), -fill => $color, -tags => ['floor1', 'wall']);
    574. 

  574.     $w->create('line', qw(78 169 176 169), -fill => $color, -tags => ['floor1', 'wall']);
    575. 

  575.     $w->create('line', qw(176 247 176 129), -fill => $color, -tags => ['floor1', 'wall']);
    576. 

  576.     $w->create('line', qw(340 206 307 206), -fill => $color, -tags => ['floor1', 'wall']);
    577. 

  577.     $w->create('line', qw(340 187 340 170), -fill => $color, -tags => ['floor1', 'wall']);
    578. 

  578.     $w->create('line', qw(340 210 340 201), -fill => $color, -tags => ['floor1', 'wall']);
    579. 

  579.     $w->create('line', qw(340 247 340 224), -fill => $color, -tags => ['floor1', 'wall']);
    580. 

  580.     $w->create('line', qw(340 241 307 241), -fill => $color, -tags => ['floor1', 'wall']);
    581. 

  581.     $w->create('line', qw(376 246 376 170), -fill => $color, -tags => ['floor1', 'wall']);
    582. 

  582.     $w->create('line', qw(307 247 307 170), -fill => $color, -tags => ['floor1', 'wall']);
    583. 

  583.     $w->create('line', qw(376 170 307 170), -fill => $color, -tags => ['floor1', 'wall']);
    584. 

  584.     $w->create('line', qw(315 129 315 170), -fill => $color, -tags => ['floor1', 'wall']);
    585. 

  585.     $w->create('line', qw(147 129 176 129), -fill => $color, -tags => ['floor1', 'wall']);
    586. 

  586.     $w->create('line', qw(202 133 176 133), -fill => $color, -tags => ['floor1', 'wall']);
    587. 

  587.     $w->create('line', qw(398 129 315 129), -fill => $color, -tags => ['floor1', 'wall']);
    588. 

  588.     $w->create('line', qw(258 352 258 387), -fill => $color, -tags => ['floor1', 'wall']);
    589. 

  589.     $w->create('line', qw(60 387 60 391), -fill => $color, -tags => ['floor1', 'wall']);
    590. 

  590.     $w->create('line', qw(0 337 0 391), -fill => $color, -tags => ['floor1', 'wall']);
    591. 

  591.     $w->create('line', qw(60 391 0 391), -fill => $color, -tags => ['floor1', 'wall']);
    592. 

  592.     $w->create('line', qw(3 114 3 337), -fill => $color, -tags => ['floor1', 'wall']);
    593. 

  593.     $w->create('line', qw(258 387 60 387), -fill => $color, -tags => ['floor1', 'wall']);
    594. 

  594.     $w->create('line', qw(52 237 52 273), -fill => $color, -tags => ['floor1', 'wall']);
    595. 

  595.     $w->create('line', qw(52 189 52 225), -fill => $color, -tags => ['floor1', 'wall']);
    596. 

  596.     $w->create('line', qw(52 140 52 177), -fill => $color, -tags => ['floor1', 'wall']);
    597. 

  597.     $w->create('line', qw(395 306 395 311), -fill => $color, -tags => ['floor1', 'wall']);
    598. 

  598.     $w->create('line', qw(531 254 398 254), -fill => $color, -tags => ['floor1', 'wall']);
    599. 

  599.     $w->create('line', qw(475 178 475 238), -fill => $color, -tags => ['floor1', 'wall']);
    600. 

  600.     $w->create('line', qw(502 162 398 162), -fill => $color, -tags => ['floor1', 'wall']);
    601. 

  601.     $w->create('line', qw(398 129 398 188), -fill => $color, -tags => ['floor1', 'wall']);
    602. 

  602.     $w->create('line', qw(383 188 376 188), -fill => $color, -tags => ['floor1', 'wall']);
    603. 

  603.     $w->create('line', qw(408 188 408 194), -fill => $color, -tags => ['floor1', 'wall']);
    604. 

  604.     $w->create('line', qw(398 227 398 254), -fill => $color, -tags => ['floor1', 'wall']);
    605. 

  605.     $w->create('line', qw(408 227 398 227), -fill => $color, -tags => ['floor1', 'wall']);
    606. 

  606.     $w->create('line', qw(408 222 408 227), -fill => $color, -tags => ['floor1', 'wall']);
    607. 

  607.     $w->create('line', qw(408 206 408 210), -fill => $color, -tags => ['floor1', 'wall']);
    608. 

  608.     $w->create('line', qw(408 208 475 208), -fill => $color, -tags => ['floor1', 'wall']);
    609. 

  609.     $w->create('line', qw(484 278 484 311), -fill => $color, -tags => ['floor1', 'wall']);
    610. 

  610.     $w->create('line', qw(484 311 508 311), -fill => $color, -tags => ['floor1', 'wall']);
    611. 

  611.     $w->create('line', qw(508 327 508 311), -fill => $color, -tags => ['floor1', 'wall']);
    612. 

  612.     $w->create('line', qw(559 327 508 327), -fill => $color, -tags => ['floor1', 'wall']);
    613. 

  613.     $w->create('line', qw(644 391 559 391), -fill => $color, -tags => ['floor1', 'wall']);
    614. 

  614.     $w->create('line', qw(644 389 644 391), -fill => $color, -tags => ['floor1', 'wall']);
    615. 

  615.     $w->create('line', qw(514 205 475 205), -fill => $color, -tags => ['floor1', 'wall']);
    616. 

  616.     $w->create('line', qw(496 189 496 187), -fill => $color, -tags => ['floor1', 'wall']);
    617. 

  617.     $w->create('line', qw(559 129 484 129), -fill => $color, -tags => ['floor1', 'wall']);
    618. 

  618.     $w->create('line', qw(484 162 484 129), -fill => $color, -tags => ['floor1', 'wall']);
    619. 

  619.     $w->create('line', qw(725 133 559 133), -fill => $color, -tags => ['floor1', 'wall']);
    620. 

  620.     $w->create('line', qw(559 129 559 133), -fill => $color, -tags => ['floor1', 'wall']);
    621. 

  621.     $w->create('line', qw(725 149 725 167), -fill => $color, -tags => ['floor1', 'wall']);
    622. 

  622.     $w->create('line', qw(725 129 802 129), -fill => $color, -tags => ['floor1', 'wall']);
    623. 

  623.     $w->create('line', qw(802 389 802 129), -fill => $color, -tags => ['floor1', 'wall']);
    624. 

  624.     $w->create('line', qw(739 167 802 167), -fill => $color, -tags => ['floor1', 'wall']);
    625. 

  625.     $w->create('line', qw(396 188 408 188), -fill => $color, -tags => ['floor1', 'wall']);
    626. 

  626.     $w->create('line', qw(0 337 9 337), -fill => $color, -tags => ['floor1', 'wall']);
    627. 

  627.     $w->create('line', qw(58 337 21 337), -fill => $color, -tags => ['floor1', 'wall']);
    628. 

  628.     $w->create('line', qw(43 391 43 337), -fill => $color, -tags => ['floor1', 'wall']);
    629. 

  629.     $w->create('line', qw(105 337 75 337), -fill => $color, -tags => ['floor1', 'wall']);
    630. 

  630.     $w->create('line', qw(91 387 91 337), -fill => $color, -tags => ['floor1', 'wall']);
    631. 

  631.     $w->create('line', qw(154 337 117 337), -fill => $color, -tags => ['floor1', 'wall']);
    632. 

  632.     $w->create('line', qw(139 387 139 337), -fill => $color, -tags => ['floor1', 'wall']);
    633. 

  633.     $w->create('line', qw(227 337 166 337), -fill => $color, -tags => ['floor1', 'wall']);
    634. 

  634.     $w->create('line', qw(258 337 251 337), -fill => $color, -tags => ['floor1', 'wall']);
    635. 

  635.     $w->create('line', qw(258 328 302 328), -fill => $color, -tags => ['floor1', 'wall']);
    636. 

  636.     $w->create('line', qw(302 355 302 311), -fill => $color, -tags => ['floor1', 'wall']);
    637. 

  637.     $w->create('line', qw(395 311 302 311), -fill => $color, -tags => ['floor1', 'wall']);
    638. 

  638.     $w->create('line', qw(484 278 395 278), -fill => $color, -tags => ['floor1', 'wall']);
    639. 

  639.     $w->create('line', qw(395 294 395 278), -fill => $color, -tags => ['floor1', 'wall']);
    640. 

  640.     $w->create('line', qw(473 278 473 275), -fill => $color, -tags => ['floor1', 'wall']);
    641. 

  641.     $w->create('line', qw(473 256 473 254), -fill => $color, -tags => ['floor1', 'wall']);
    642. 

  642.     $w->create('line', qw(533 257 531 254), -fill => $color, -tags => ['floor1', 'wall']);
    643. 

  643.     $w->create('line', qw(553 276 551 274), -fill => $color, -tags => ['floor1', 'wall']);
    644. 

  644.     $w->create('line', qw(698 276 553 276), -fill => $color, -tags => ['floor1', 'wall']);
    645. 

  645.     $w->create('line', qw(559 391 559 327), -fill => $color, -tags => ['floor1', 'wall']);
    646. 

  646.     $w->create('line', qw(802 389 644 389), -fill => $color, -tags => ['floor1', 'wall']);
    647. 

  647.     $w->create('line', qw(741 314 741 389), -fill => $color, -tags => ['floor1', 'wall']);
    648. 

  648.     $w->create('line', qw(698 280 698 167), -fill => $color, -tags => ['floor1', 'wall']);
    649. 

  649.     $w->create('line', qw(707 280 698 280), -fill => $color, -tags => ['floor1', 'wall']);
    650. 

  650.     $w->create('line', qw(802 280 731 280), -fill => $color, -tags => ['floor1', 'wall']);
    651. 

  651.     $w->create('line', qw(741 280 741 302), -fill => $color, -tags => ['floor1', 'wall']);
    652. 

  652.     $w->create('line', qw(698 167 727 167), -fill => $color, -tags => ['floor1', 'wall']);
    653. 

  653.     $w->create('line', qw(725 137 725 129), -fill => $color, -tags => ['floor1', 'wall']);
    654. 

  654.     $w->create('line', qw(514 254 514 175), -fill => $color, -tags => ['floor1', 'wall']);
    655. 

  655.     $w->create('line', qw(496 175 514 175), -fill => $color, -tags => ['floor1', 'wall']);
    656. 

  656.     $w->create('line', qw(502 175 502 162), -fill => $color, -tags => ['floor1', 'wall']);
    657. 

  657.     $w->create('line', qw(475 166 475 162), -fill => $color, -tags => ['floor1', 'wall']);
    658. 

  658.     $w->create('line', qw(496 176 496 175), -fill => $color, -tags => ['floor1', 'wall']);
    659. 

  659.     $w->create('line', qw(491 189 496 189), -fill => $color, -tags => ['floor1', 'wall']);
    660. 

  660.     $w->create('line', qw(491 205 491 189), -fill => $color, -tags => ['floor1', 'wall']);
    661. 

  661.     $w->create('line', qw(487 238 475 238), -fill => $color, -tags => ['floor1', 'wall']);
    662. 

  662.     $w->create('line', qw(487 240 487 238), -fill => $color, -tags => ['floor1', 'wall']);
    663. 

  663.     $w->create('line', qw(487 252 487 254), -fill => $color, -tags => ['floor1', 'wall']);
    664. 

  664.     $w->create('line', qw(315 133 304 133), -fill => $color, -tags => ['floor1', 'wall']);
    665. 

  665.     $w->create('line', qw(256 133 280 133), -fill => $color, -tags => ['floor1', 'wall']);
    666. 

  666.     $w->create('line', qw(78 247 270 247), -fill => $color, -tags => ['floor1', 'wall']);
    667. 

  667.     $w->create('line', qw(307 247 294 247), -fill => $color, -tags => ['floor1', 'wall']);
    668. 

  668.     $w->create('line', qw(214 133 232 133), -fill => $color, -tags => ['floor1', 'wall']);
    669. 

  669.     $w->create('line', qw(217 247 217 266), -fill => $color, -tags => ['floor1', 'wall']);
    670. 

  670.     $w->create('line', qw(217 309 217 291), -fill => $color, -tags => ['floor1', 'wall']);
    671. 

  671.     $w->create('line', qw(217 309 172 309), -fill => $color, -tags => ['floor1', 'wall']);
    672. 

  672.     $w->create('line', qw(154 309 148 309), -fill => $color, -tags => ['floor1', 'wall']);
    673. 

  673.     $w->create('line', qw(175 300 175 309), -fill => $color, -tags => ['floor1', 'wall']);
    674. 

  674.     $w->create('line', qw(151 300 175 300), -fill => $color, -tags => ['floor1', 'wall']);
    675. 

  675.     $w->create('line', qw(151 247 151 309), -fill => $color, -tags => ['floor1', 'wall']);
    676. 

  676.     $w->create('line', qw(78 237 78 265), -fill => $color, -tags => ['floor1', 'wall']);
    677. 

  677.     $w->create('line', qw(78 286 78 309), -fill => $color, -tags => ['floor1', 'wall']);
    678. 

  678.     $w->create('line', qw(106 309 78 309), -fill => $color, -tags => ['floor1', 'wall']);
    679. 

  679.     $w->create('line', qw(130 309 125 309), -fill => $color, -tags => ['floor1', 'wall']);
    680. 

  680.     $w->create('line', qw(99 309 99 247), -fill => $color, -tags => ['floor1', 'wall']);
    681. 

  681.     $w->create('line', qw(127 299 99 299), -fill => $color, -tags => ['floor1', 'wall']);
    682. 

  682.     $w->create('line', qw(127 309 127 299), -fill => $color, -tags => ['floor1', 'wall']);
    683. 

  683.     $w->create('line', qw(155 191 137 191), -fill => $color, -tags => ['floor1', 'wall']);
    684. 

  684.     $w->create('line', qw(137 169 137 191), -fill => $color, -tags => ['floor1', 'wall']);
    685. 

  685.     $w->create('line', qw(78 171 78 169), -fill => $color, -tags => ['floor1', 'wall']);
    686. 

  686.     $w->create('line', qw(78 190 78 218), -fill => $color, -tags => ['floor1', 'wall']);
    687. 

  687.     $w->create('line', qw(86 192 86 169), -fill => $color, -tags => ['floor1', 'wall']);
    688. 

  688.     $w->create('line', qw(86 192 78 192), -fill => $color, -tags => ['floor1', 'wall']);
    689. 

  689.     $w->create('line', qw(52 301 3 301), -fill => $color, -tags => ['floor1', 'wall']);
    690. 

  690.     $w->create('line', qw(52 286 52 301), -fill => $color, -tags => ['floor1', 'wall']);
    691. 

  691.     $w->create('line', qw(52 252 3 252), -fill => $color, -tags => ['floor1', 'wall']);
    692. 

  692.     $w->create('line', qw(52 203 3 203), -fill => $color, -tags => ['floor1', 'wall']);
    693. 

  693.     $w->create('line', qw(3 156 52 156), -fill => $color, -tags => ['floor1', 'wall']);
    694. 

  694.     $w->create('line', qw(8 25 8 114), -fill => $color, -tags => ['floor1', 'wall']);
    695. 

  695.     $w->create('line', qw(63 114 3 114), -fill => $color, -tags => ['floor1', 'wall']);
    696. 

  696.     $w->create('line', qw(75 114 97 114), -fill => $color, -tags => ['floor1', 'wall']);
    697. 

  697.     $w->create('line', qw(108 114 129 114), -fill => $color, -tags => ['floor1', 'wall']);
    698. 

  698.     $w->create('line', qw(129 114 129 89), -fill => $color, -tags => ['floor1', 'wall']);
    699. 

  699.     $w->create('line', qw(52 114 52 128), -fill => $color, -tags => ['floor1', 'wall']);
    700. 

  700.     $w->create('line', qw(132 89 88 89), -fill => $color, -tags => ['floor1', 'wall']);
    701. 

  701.     $w->create('line', qw(88 25 88 89), -fill => $color, -tags => ['floor1', 'wall']);
    702. 

  702.     $w->create('line', qw(88 114 88 89), -fill => $color, -tags => ['floor1', 'wall']);
    703. 

  703.     $w->create('line', qw(218 89 144 89), -fill => $color, -tags => ['floor1', 'wall']);
    704. 

  704.     $w->create('line', qw(147 111 147 129), -fill => $color, -tags => ['floor1', 'wall']);
    705. 

  705.     $w->create('line', qw(162 111 147 111), -fill => $color, -tags => ['floor1', 'wall']);
    706. 

  706.     $w->create('line', qw(162 109 162 111), -fill => $color, -tags => ['floor1', 'wall']);
    707. 

  707.     $w->create('line', qw(162 96 162 89), -fill => $color, -tags => ['floor1', 'wall']);
    708. 

  708.     $w->create('line', qw(218 89 218 94), -fill => $color, -tags => ['floor1', 'wall']);
    709. 

  709.     $w->create('line', qw(218 89 218 119), -fill => $color, -tags => ['floor1', 'wall']);
    710. 

  710.     $w->create('line', qw(8 25 88 25), -fill => $color, -tags => ['floor1', 'wall']);
    711. 

  711.     $w->create('line', qw(258 337 258 328), -fill => $color, -tags => ['floor1', 'wall']);
    712. 

  712.     $w->create('line', qw(113 129 96 129), -fill => $color, -tags => ['floor1', 'wall']);
    713. 

  713.     $w->create('line', qw(302 355 258 355), -fill => $color, -tags => ['floor1', 'wall']);
    714. 

  714.     $w->create('line', qw(386 104 386 129), -fill => $color, -tags => ['floor1', 'wall']);
    715. 

  715.     $w->create('line', qw(377 100 386 104), -fill => $color, -tags => ['floor1', 'wall']);
    716. 

  716.     $w->create('line', qw(365 94 377 100), -fill => $color, -tags => ['floor1', 'wall']);
    717. 

  717.     $w->create('line', qw(350 83 365 94), -fill => $color, -tags => ['floor1', 'wall']);
    718. 

  718.     $w->create('line', qw(337 70 350 83), -fill => $color, -tags => ['floor1', 'wall']);
    719. 

  719.     $w->create('line', qw(337 70 323 56), -fill => $color, -tags => ['floor1', 'wall']);
    720. 

  720.     $w->create('line', qw(312 49 323 56), -fill => $color, -tags => ['floor1', 'wall']);
    721. 

  721.     $w->create('line', qw(295 40 312 49), -fill => $color, -tags => ['floor1', 'wall']);
    722. 

  722.     $w->create('line', qw(282 37 295 40), -fill => $color, -tags => ['floor1', 'wall']);
    723. 

  723.     $w->create('line', qw(260 34 282 37), -fill => $color, -tags => ['floor1', 'wall']);
    724. 

  724.     $w->create('line', qw(253 34 260 34), -fill => $color, -tags => ['floor1', 'wall']);
    725. 

  725.     $w->create('line', qw(386 128 386 104), -fill => $color, -tags => ['floor1', 'wall']);
    726. 

  726.     $w->create('line', qw(113 152 156 152), -fill => $color, -tags => ['f
    727.