Re: Automatic grouping of animation cells

*To*: mathgroup at smc.vnet.net*Subject*: [mg19144] Re: Automatic grouping of animation cells*From*: Paul Abbott <paul at physics.uwa.edu.au>*Date*: Thu, 5 Aug 1999 23:58:46 -0400*Organization*: University of Western Australia*References*: <7obah4$3pq@smc.vnet.net>*Sender*: owner-wri-mathgroup at wolfram.com

adam.smith at hillsdale.edu wrote: > Awhile back someone wanted asked how to automatically close a large > number of graphics cells produced for animations. P.J. Hinton replied > with the following (cut from the archives): > > >Do[Plot[Sin[2 Pi f t], {t,0,1}],{f,1,5}]; > >SelectionMove[EvaluationNotebook[], After, EvaluationCell]; > >SelectionMove[EvaluationNotebook[], Next, CellGroup]; > >FrontEndTokenExecute["OpenCloseGroup"] > > Well, this works in closing all the cells and leaving only the input > visible. But what I wanted to do was to group the graphics output and > then collapse it, thus showing only the first frame. Thanks to the > above I started playing around and came up with what I hope is a useful > solution to others: > > Do[Plot[Sin[2 Pi f t], {t,0,1}],{f,1,5}]; > SelectionMove[EvaluationNotebook[], All,GeneratedCell]; > FrontEndTokenExecute["CellGroup"] > FrontEndTokenExecute["OpenCloseGroup"] I am puzzled. Paul Hinton's code behaves exactly as you describe your code working, i.e., it groups the graphics output and then collapses it, showing only the first frame. And your code does not work for me. I suspect that the problem is either that you are not using Cell | Cell Grouping | Automatic Grouping or that you have modified the CellGroupingRules for Graphics cells in your StyleSheet. ____________________________________________________________________ Paul Abbott Phone: +61-8-9380-2734 Department of Physics Fax: +61-8-9380-1014 The University of Western Australia Nedlands WA 6907 mailto:paul at physics.uwa.edu.au AUSTRALIA http://physics.uwa.edu.au/~paul God IS a weakly left-handed dice player ____________________________________________________________________