Services & ResourcesWolfram ForumsMathGroup Archive

[Date Index] [Thread Index] [Author Index]

Re: Arranging graphics objects (disks) in rows

• To: mathgroup at smc.vnet.net
• Subject: [mg130234] Re: Arranging graphics objects (disks) in rows
• From: Bob Hanlon <hanlonr357 at gmail.com>
• Date: Sun, 24 Mar 2013 23:23:30 -0400 (EDT)
• 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
• References: <20130324081746.007A069D2@smc.vnet.net>

Manipulate[Grid[Partition[
   Join[Graphics[{
        Darker[Green], Disk[],
        Text[
         Style[#, Orange, "Label", 24],
         {0, 0}]}] & /@ Range[n],
    Table["", {9}]],
   10], ItemSize -> 3],
 {{n, 1, "Number\nof Disks"}, 1, 20, 1,
  Appearance -> "Labeled"}]


Bob Hanlon


On Sun, Mar 24, 2013 at 4:17 AM, Clif McInnis <c_mcinnis at hotmail.com> wrote:
> I am trying to get the following code to produce two rows of numbers disks.  I would like the program to fill the first row and then wrap to the second row (like words wrap when writing a sentence). The code works well until it reaches the end of the first row at which point it drops 6 disks to the second row and starts filling the rows erratically. I have looked into the properties of Rows, Panes, and GraphicRows (which produced very unsatisfactory results as it greatly reduced the size of each succeeding disk) but have not been able to come up with a code that works better than the one below.
>
> Manipulate[Pane[Row[Table[Graphics[{
>       Darker[Green],
>       Disk[{0, 0}, .5],
>       Text[Style[numerals[[ r]], Orange, "Label", 24], {0, 0}]}], {r,
>      1, n}]], {925, 200}], {n, 1, 20, 1}, Initialization :> (
>    numerals = {"1", "2", "3", "4", "5", "6", "7", "8", "9", "10",
>       "11", "12", "13", "14", "15", "16", "17", "18", "19", "20"};)]
>

• References:
  • Arranging graphics objects (disks) in rows
    • From: Clif McInnis <c_mcinnis@hotmail.com>