Re: Arranging graphics objects (disks) in rows
- To: mathgroup at smc.vnet.net
- Subject: [mg130236] Re: Arranging graphics objects (disks) in rows
- From: John Fultz <jfultz at wolfram.com>
- Date: Sun, 24 Mar 2013 23:24:10 -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>
Add this as an option to Pane:
BaseStyle -> {LinebreakAdjustments -> {1., 10, 0, 0, 10}}
John Fultz
jfultz at wolfram.com
User Interface Group
Wolfram Research, Inc.
On Mar 24, 2013, at 3: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>
- Arranging graphics objects (disks) in rows