I’d like to set the output cell size to a specified height and width or to full screen as F12 does.
data = Reverse[Sort[RandomReal[1, 5]]]; Module[{t = 0, len = Length[data], sum = Total[data]}, Graphics[Table[{Hue[i/len], EdgeForm[Opacity[.8]], Disk[{0, 0}, 1, {t, t += 2 Pi data[[i]]/sum}]}, {i, len}]]] SelectionMove[EvaluationNotebook[], Next, Cell] SetOptions[NotebookSelection[EvaluationNotebook[]], Background -> Red, TextAlignment -> Center] 