rotate but not resize Graphics3D in Dialog
- To: mathgroup at smc.vnet.net
- Subject: [mg101817] rotate but not resize Graphics3D in Dialog
- From: Albert Retey <awnl at gmx-topmail.de>
- Date: Sat, 18 Jul 2009 04:50:07 -0400 (EDT)
Hi, I want to create a Dialog which contains a Manipulate of a Graphics3D, like this: CreateDialog[ Column[{ Manipulate[ Row[{ Graphics3D[{ Cuboid[{0, 0, 0}, {x, 1, 1}], Opacity[0], Cuboid[{0, 0, 0}, {1, 1, 1}] }, ImageSize -> 300, SphericalRegion -> True, Boxed -> False] }, Selectable -> False ], {x, 0, 1} ], Row[{Button["Close", DialogReturn[]], Button["Accept"]}] }] ] With Version 7.0.1 this will not let me rotate the Graphics3D, which is something I would like the user to be able to do. The reason for this is obviously one of the special settings for Dialog-Windows which I can avoid by using CreateDocument instead of CreateDialog and give it some options to mimic some aspects of a Dialog-Window, like this: CreateDocument[ Manipulate[ Graphics3D[{ Cuboid[{0, 0, 0}, {x, 1, 1}], Opacity[0], Cuboid[{0, 0, 0}, {1, 1, 1}] }, ImageSize -> 300, SphericalRegion -> True, Boxed -> False ], {x, 0, 1} ], ShowCellBracket -> False, Background -> LightGray, WindowSize -> FitAll, WindowElements -> {}, WindowFrameElements -> { "CloseBox", "MinimizeBox", "ToolbarBox", "DocumentIcon" }, Deployed -> True ] This is almost what I want, but I would prefer that the user can not resize the Graphics3D. Up to now I only have found methods and hacks to avoid both resizing and rotating, but I want to be able to rotate but not resize. Does anyone out there know a possibility to achieve that? cheers, albert PS: I was surprised to learn that it is not the Deployed->True option to CreateDocument that controls that behavior of Graphics3D, while usually Deploy[Graphics3D[...]] will just do that. Is this a bug, or inconsistent, or do I have a wrong picture?