Drexel dragonThe Math ForumDonate to the Math Forum

Search All of the Math Forum:

Views expressed in these public forums are not endorsed by Drexel University or The Math Forum.

Math Forum » Discussions » Software » comp.soft-sys.math.mathematica

Topic: Arranging graphics objects (disks) in rows
Replies: 2   Last Post: Mar 24, 2013 11:23 PM

Advanced Search

Back to Topic List Back to Topic List Jump to Tree View Jump to Tree View   Messages: [ Previous | Next ]
John Fultz

Posts: 736
Registered: 12/7/04
Re: Arranging graphics objects (disks) in rows
Posted: Mar 24, 2013 11:23 PM
  Click to see the message monospaced in plain text Plain Text   Click to reply to this topic Reply

Add this as an option to Pane:

BaseStyle -> {LinebreakAdjustments -> {1., 10, 0, 0, 10}}

John Fultz
User Interface Group
Wolfram Research, Inc.

On Mar 24, 2013, at 3:17 AM, Clif McInnis <c_mcinnis@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"};)]

Point your RSS reader here for a feed of the latest messages in this topic.

[Privacy Policy] [Terms of Use]

© Drexel University 1994-2015. All Rights Reserved.
The Math Forum is a research and educational enterprise of the Drexel University School of Education.