| 1 | | rectangles = proc do |
| 2 | | 20.times do |
| 3 | | nostroke |
| 4 | | fill rgb((0.6..1.0).rand, (0.1..1.0).rand, (0.2..1.0).rand, (0.4..1.0).rand) |
| 5 | | r = rand(300) + 60 |
| 6 | | rect :left => (10..100).rand, :top => (10..200).rand, :width => r, :height => r |
| | 1 | Shoes.app :width => 400, :height => 500 do |
| | 2 | rectangles = proc do |
| | 3 | 20.times do |
| | 4 | nostroke |
| | 5 | fill rgb((0.6..1.0).rand, (0.1..1.0).rand, (0.2..1.0).rand, (0.4..1.0).rand) |
| | 6 | r = rand(300) + 60 |
| | 7 | rect :left => (10..100).rand, :top => (10..200).rand, :width => r, :height => r |
| | 8 | end |
| | 9 | button "OK", :left => 300, :top => 400 do |
| | 10 | clear &rectangles |
| | 11 | end |