Numbers on rectangles

• To: mathgroup at smc.vnet.net
• Subject: [mg130093] Numbers on rectangles
• From: c_mcinnis at hotmail.com
• Date: Fri, 8 Mar 2013 16:47:48 -0500 (EST)
• Delivered-to: l-mathgroup@mail-archive0.wolfram.com
• Delivered-to: l-mathgroup@wolfram.com
• Delivered-to: mathgroup-newout@smc.vnet.net
• Delivered-to: mathgroup-newsend@smc.vnet.net

```Hello to all,
I am trying to put numbers on rectangles. I found this little demonstration under the heading of =93Rectangles=94->=94Neat Examples=94. I thought that it would be a good tool to help a young student learn to count, however I cannot find a way to put numbers on the rectangles. I looked at a couple of examples in the demonstrations projects where numbers had been assigned to disks, however that didn't seem to work with rectangles. I also saw some documentation in the help section on =93Inset=94 that labeled a circle, but that did not work either. After finding no posts regarding this topic either here or at the education forum, I decided that I might try to ask.

Graphics[{EdgeForm[Black],
Table[{Hue[RandomReal[]],
Rotate[Rectangle[RandomReal[2, 2]], RandomReal[2 Pi]]}, {20}]}]

I have modified the code to produce a random, and smaller, number of rectangles, as is shown below.

Graphics[{EdgeForm[Black],
Table[{Hue[RandomReal[]],
Rotate[Rectangle[RandomReal[2, 2]],
RandomReal[2 Pi]]}, {RandomInteger[{1, 9}]}]}]

Would love to have each rectangle take on a distinct color, the more basic ones if possible, but just having a number on each rectangle would be great. Many thanks for any and all considerations and suggestions.
Clifton

```

• Prev by Date: Re: dark halo around gaussian peak in Plot3D?
• Next by Date: Re: Greek symbols mangled by InputForm
• Previous by thread: Re: Fixed Typo in Code---> Re: updating a simulation
• Next by thread: Re: Numbers on rectangles