Services & ResourcesWolfram ForumsMathGroup Archive

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

Arranging graphics objects (disks) in rows

• To: mathgroup at smc.vnet.net
• Subject: [mg130232] Arranging graphics objects (disks) in rows
• From: Clif McInnis <c_mcinnis at hotmail.com>
• Date: Sun, 24 Mar 2013 04:17:45 -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

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"};)]

• Follow-Ups:
  • Re: Arranging graphics objects (disks) in rows
    • From: John Fultz <jfultz@wolfram.com>
  • Re: Arranging graphics objects (disks) in rows
    • From: Bob Hanlon <hanlonr357@gmail.com>