Cross Reference: /ast/src/lib/libtk/library/demos/floor.tcl

Lines Matching refs:outline
41     $w create rect 0 100 1 101 -fill {} -outline {} -tags marker
110 # outline -	Color to use for the floor's outline.
112 proc bg1 {w fill outline} {
127     $w create line 386 129 398 129 -fill $outline -tags {floor1 bg}
128     $w create line 258 355 258 387 -fill $outline -tags {floor1 bg}
129     $w create line 60 387 60 391 -fill $outline -tags {floor1 bg}
130     $w create line 0 337 0 391 -fill $outline -tags {floor1 bg}
131     $w create line 60 391 0 391 -fill $outline -tags {floor1 bg}
132     $w create line 3 114 3 337 -fill $outline -tags {floor1 bg}
133     $w create line 258 387 60 387 -fill $outline -tags {floor1 bg}
134     $w create line 484 162 398 162 -fill $outline -tags {floor1 bg}
135     $w create line 398 162 398 129 -fill $outline -tags {floor1 bg}
136     $w create line 484 278 484 311 -fill $outline -tags {floor1 bg}
137     $w create line 484 311 508 311 -fill $outline -tags {floor1 bg}
138     $w create line 508 327 508 311 -fill $outline -tags {floor1 bg}
139     $w create line 559 327 508 327 -fill $outline -tags {floor1 bg}
140     $w create line 644 391 559 391 -fill $outline -tags {floor1 bg}
141     $w create line 644 389 644 391 -fill $outline -tags {floor1 bg}
142     $w create line 559 129 484 129 -fill $outline -tags {floor1 bg}
143     $w create line 484 162 484 129 -fill $outline -tags {floor1 bg}
144     $w create line 725 133 559 133 -fill $outline -tags {floor1 bg}
145     $w create line 559 129 559 133 -fill $outline -tags {floor1 bg}
146     $w create line 725 129 802 129 -fill $outline -tags {floor1 bg}
147     $w create line 802 389 802 129 -fill $outline -tags {floor1 bg}
148     $w create line 3 337 0 337 -fill $outline -tags {floor1 bg}
149     $w create line 559 391 559 327 -fill $outline -tags {floor1 bg}
150     $w create line 802 389 644 389 -fill $outline -tags {floor1 bg}
151     $w create line 725 133 725 129 -fill $outline -tags {floor1 bg}
152     $w create line 8 25 8 114 -fill $outline -tags {floor1 bg}
153     $w create line 8 114 3 114 -fill $outline -tags {floor1 bg}
154     $w create line 30 25 8 25 -fill $outline -tags {floor1 bg}
155     $w create line 484 278 395 278 -fill $outline -tags {floor1 bg}
156     $w create line 30 25 30 5 -fill $outline -tags {floor1 bg}
157     $w create line 93 5 30 5 -fill $outline -tags {floor1 bg}
158     $w create line 98 5 93 5 -fill $outline -tags {floor1 bg}
159     $w create line 104 7 98 5 -fill $outline -tags {floor1 bg}
160     $w create line 110 10 104 7 -fill $outline -tags {floor1 bg}
161     $w create line 116 16 110 10 -fill $outline -tags {floor1 bg}
162     $w create line 119 20 116 16 -fill $outline -tags {floor1 bg}
163     $w create line 122 28 119 20 -fill $outline -tags {floor1 bg}
164     $w create line 123 32 122 28 -fill $outline -tags {floor1 bg}
165     $w create line 123 68 123 32 -fill $outline -tags {floor1 bg}
166     $w create line 220 68 123 68 -fill $outline -tags {floor1 bg}
167     $w create line 386 129 386 104 -fill $outline -tags {floor1 bg}
168     $w create line 386 104 375 99 -fill $outline -tags {floor1 bg}
169     $w create line 375 99 363 92 -fill $outline -tags {floor1 bg}
170     $w create line 353 85 363 92 -fill $outline -tags {floor1 bg}
171     $w create line 220 68 220 34 -fill $outline -tags {floor1 bg}
172     $w create line 337 70 352 56 -fill $outline -tags {floor1 bg}
173     $w create line 352 56 358 48 -fill $outline -tags {floor1 bg}
174     $w create line 358 48 363 39 -fill $outline -tags {floor1 bg}
175     $w create line 363 39 365 29 -fill $outline -tags {floor1 bg}
176     $w create line 365 29 348 25 -fill $outline -tags {floor1 bg}
177     $w create line 348 25 335 22 -fill $outline -tags {floor1 bg}
178     $w create line 335 22 321 14 -fill $outline -tags {floor1 bg}
179     $w create line 321 14 300 5 -fill $outline -tags {floor1 bg}
180     $w create line 300 5 283 1 -fill $outline -tags {floor1 bg}
181     $w create line 283 1 260 0 -fill $outline -tags {floor1 bg}
182     $w create line 260 0 246 0 -fill $outline -tags {floor1 bg}
183     $w create line 246 0 242 2 -fill $outline -tags {floor1 bg}
184     $w create line 242 2 236 4 -fill $outline -tags {floor1 bg}
185     $w create line 236 4 231 8 -fill $outline -tags {floor1 bg}
186     $w create line 231 8 227 13 -fill $outline -tags {floor1 bg}
187     $w create line 223 17 227 13 -fill $outline -tags {floor1 bg}
188     $w create line 221 22 223 17 -fill $outline -tags {floor1 bg}
189     $w create line 220 34 221 22 -fill $outline -tags {floor1 bg}
190     $w create line 340 360 335 363 -fill $outline -tags {floor1 bg}
191     $w create line 335 363 331 365 -fill $outline -tags {floor1 bg}
192     $w create line 331 365 326 366 -fill $outline -tags {floor1 bg}
193     $w create line 326 366 304 366 -fill $outline -tags {floor1 bg}
194     $w create line 304 355 304 366 -fill $outline -tags {floor1 bg}
195     $w create line 395 288 400 288 -fill $outline -tags {floor1 bg}
196     $w create line 404 288 400 288 -fill $outline -tags {floor1 bg}
197     $w create line 409 290 404 288 -fill $outline -tags {floor1 bg}
198     $w create line 413 292 409 290 -fill $outline -tags {floor1 bg}
199     $w create line 418 297 413 292 -fill $outline -tags {floor1 bg}
200     $w create line 421 302 418 297 -fill $outline -tags {floor1 bg}
201     $w create line 422 309 421 302 -fill $outline -tags {floor1 bg}
202     $w create line 421 318 422 309 -fill $outline -tags {floor1 bg}
203     $w create line 421 318 417 325 -fill $outline -tags {floor1 bg}
204     $w create line 417 325 411 330 -fill $outline -tags {floor1 bg}
205     $w create line 411 330 405 332 -fill $outline -tags {floor1 bg}
206     $w create line 405 332 397 333 -fill $outline -tags {floor1 bg}
207     $w create line 397 333 344 333 -fill $outline -tags {floor1 bg}
208     $w create line 344 333 340 334 -fill $outline -tags {floor1 bg}
209     $w create line 340 334 336 336 -fill $outline -tags {floor1 bg}
210     $w create line 336 336 335 338 -fill $outline -tags {floor1 bg}
211     $w create line 335 338 332 342 -fill $outline -tags {floor1 bg}
212     $w create line 331 347 332 342 -fill $outline -tags {floor1 bg}
213     $w create line 332 351 331 347 -fill $outline -tags {floor1 bg}
214     $w create line 334 354 332 351 -fill $outline -tags {floor1 bg}
215     $w create line 336 357 334 354 -fill $outline -tags {floor1 bg}
216     $w create line 341 359 336 357 -fill $outline -tags {floor1 bg}
217     $w create line 341 359 340 360 -fill $outline -tags {floor1 bg}
218     $w create line 395 288 395 278 -fill $outline -tags {floor1 bg}
219     $w create line 304 355 258 355 -fill $outline -tags {floor1 bg}
220     $w create line 347 80 344 76 -fill $outline -tags {floor1 bg}
221     $w create line 344 76 337 70 -fill $outline -tags {floor1 bg}
222     $w create line 349 82 347 80 -fill $outline -tags {floor1 bg}
223     $w create line 351 84 349 82 -fill $outline -tags {floor1 bg}
224     $w create line 353 85 351 84 -fill $outline -tags {floor1 bg}
235 # outline -	Color to use for the floor's outline.
237 proc bg2 {w fill outline} {
244     $w create line 350 311 350 329 -fill $outline -tags {floor2 bg}
245     $w create line 398 129 398 162 -fill $outline -tags {floor2 bg}
246     $w create line 802 367 802 129 -fill $outline -tags {floor2 bg}
247     $w create line 802 129 725 129 -fill $outline -tags {floor2 bg}
248     $w create line 725 133 725 129 -fill $outline -tags {floor2 bg}
249     $w create line 559 129 559 133 -fill $outline -tags {floor2 bg}
250     $w create line 559 133 725 133 -fill $outline -tags {floor2 bg}
251     $w create line 484 162 484 129 -fill $outline -tags {floor2 bg}
252     $w create line 559 129 484 129 -fill $outline -tags {floor2 bg}
253     $w create line 802 367 644 367 -fill $outline -tags {floor2 bg}
254     $w create line 644 367 644 391 -fill $outline -tags {floor2 bg}
255     $w create line 644 391 558 391 -fill $outline -tags {floor2 bg}
256     $w create line 558 327 558 391 -fill $outline -tags {floor2 bg}
257     $w create line 558 327 508 327 -fill $outline -tags {floor2 bg}
258     $w create line 508 327 508 311 -fill $outline -tags {floor2 bg}
259     $w create line 484 311 508 311 -fill $outline -tags {floor2 bg}
260     $w create line 484 280 484 311 -fill $outline -tags {floor2 bg}
261     $w create line 398 162 484 162 -fill $outline -tags {floor2 bg}
262     $w create line 484 280 395 280 -fill $outline -tags {floor2 bg}
263     $w create line 395 280 395 311 -fill $outline -tags {floor2 bg}
264     $w create line 258 387 60 387 -fill $outline -tags {floor2 bg}
265     $w create line 3 133 3 339 -fill $outline -tags {floor2 bg}
266     $w create line 3 339 0 339 -fill $outline -tags {floor2 bg}
267     $w create line 60 391 0 391 -fill $outline -tags {floor2 bg}
268     $w create line 0 339 0 391 -fill $outline -tags {floor2 bg}
269     $w create line 60 387 60 391 -fill $outline -tags {floor2 bg}
270     $w create line 258 329 258 387 -fill $outline -tags {floor2 bg}
271     $w create line 350 329 258 329 -fill $outline -tags {floor2 bg}
272     $w create line 395 311 350 311 -fill $outline -tags {floor2 bg}
273     $w create line 398 129 315 129 -fill $outline -tags {floor2 bg}
274     $w create line 176 133 315 133 -fill $outline -tags {floor2 bg}
275     $w create line 176 129 96 129 -fill $outline -tags {floor2 bg}
276     $w create line 3 133 96 133 -fill $outline -tags {floor2 bg}
277     $w create line 315 133 315 129 -fill $outline -tags {floor2 bg}
278     $w create line 176 133 176 129 -fill $outline -tags {floor2 bg}
279     $w create line 96 133 96 129 -fill $outline -tags {floor2 bg}
290 # outline -	Color to use for the floor's outline.
292 proc bg3 {w fill outline} {
299     $w create line 96 133 96 129 -fill $outline -tags {floor3 bg}
300     $w create line 176 129 96 129 -fill $outline -tags {floor3 bg}
301     $w create line 176 129 176 133 -fill $outline -tags {floor3 bg}
302     $w create line 315 133 176 133 -fill $outline -tags {floor3 bg}
303     $w create line 315 133 315 129 -fill $outline -tags {floor3 bg}
304     $w create line 399 129 315 129 -fill $outline -tags {floor3 bg}
305     $w create line 399 311 399 129 -fill $outline -tags {floor3 bg}
306     $w create line 399 311 350 311 -fill $outline -tags {floor3 bg}
307     $w create line 350 329 350 311 -fill $outline -tags {floor3 bg}
308     $w create line 350 329 258 329 -fill $outline -tags {floor3 bg}
309     $w create line 258 370 258 329 -fill $outline -tags {floor3 bg}
310     $w create line 60 370 258 370 -fill $outline -tags {floor3 bg}
311     $w create line 60 370 60 391 -fill $outline -tags {floor3 bg}
312     $w create line 60 391 0 391 -fill $outline -tags {floor3 bg}
313     $w create line 0 391 0 331 -fill $outline -tags {floor3 bg}
314     $w create line 21 331 0 331 -fill $outline -tags {floor3 bg}
315     $w create line 21 331 21 133 -fill $outline -tags {floor3 bg}
316     $w create line 96 133 21 133 -fill $outline -tags {floor3 bg}
318 	    -fill $outline -tags {floor3 bg}