Cell[CellGroupData[{Cell[BoxData[
 RowBox[{"Manipulate", "[", "
", 
  RowBox[{
   RowBox[{"With", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"logscale", "=", 
       SuperscriptBox["10", "scale"]}], "}"}], ",", 
     "
", 
     RowBox[{"Graphics", "[", 
      RowBox[{
       RowBox[{"{", "
", "
", 
        RowBox[{
         RowBox[{"Rectangle", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"0", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"6324", ",", "6324"}], "}"}]}], "]"}], ",", 
         "
", "
", 
         RowBox[{"Opacity", "[", ".85", "]"}], ",", 
         "
", "Blue", ",", 
         RowBox[{"Disk", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{".01", ",", ".01"}], "}"}], ",", ".01"}], "]"}], 
         ",", "
", "Red", ",", 
         RowBox[{"Disk", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{".1", ",", ".1"}], "}"}], ",", ".1"}], "]"}], ",",
          "
", "Yellow", ",", 
         RowBox[{"Disk", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"1", ",", "1"}], "}"}], ",", "1"}], "]"}], ",", 
         "
", "Green", ",", 
         RowBox[{"Disk", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"7.8", ",", "7.8"}], "}"}], ",", "7.8"}], "]"}], 
         ",", "
", "Blue", ",", 
         RowBox[{"Disk", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"25", ",", "25"}], "}"}], ",", "25"}], "]"}], ",",
          "
", 
         RowBox[{"Hue", "[", "0.46", "]"}], ",", 
         RowBox[{"Disk", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"109", ",", "109"}], "}"}], ",", "109"}], "]"}], 
         ",", "
", 
         RowBox[{"Hue", "[", "0.7666", "]"}], ",", 
         RowBox[{"Disk", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"650", ",", "650"}], "}"}], ",", "650"}], "]"}], 
         ",", "
", "Yellow", ",", 
         RowBox[{"Disk", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"2000", ",", "2000"}], "}"}], ",", "2000"}], 
          "]"}], ",", "
", "
", 
         RowBox[{"Opacity", "[", "1", "]"}], ",", "White", ",", 
         "
", 
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{"scale", "<", 
            RowBox[{"-", "1.5"}]}], ",", 
           RowBox[{"label", "[", 
            RowBox[{"\"\<Earth\>\"", ",", "0.01"}], "]"}], ",", 
           RowBox[{"{", "}"}]}], "]"}], ",", "
", 
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{"scale", "<", 
            RowBox[{"-", ".5"}]}], ",", 
           RowBox[{"label", "[", 
            RowBox[{"\"\<Jupiter\>\"", ",", ".1"}], "]"}], ",", 
           RowBox[{"{", "}"}]}], "]"}], ",", "
", 
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{"scale", "<", ".5"}], ",", 
           RowBox[{"label", "[", 
            RowBox[{"\"\<Sun\>\"", ",", "1"}], "]"}], ",", 
           RowBox[{"{", "}"}]}], "]"}], ",", "
", 
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{"scale", "<", "1."}], ",", 
           RowBox[{"label", "[", 
            RowBox[{"\"\<Spica\>\"", ",", "7.8"}], "]"}], ",", 
           RowBox[{"{", "}"}]}], "]"}], ",", "
", 
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{"scale", "<", "1.5"}], ",", 
           RowBox[{"label", "[", 
            RowBox[{"\"\<Aldebaran\>\"", ",", "25"}], "]"}], ",", 
           RowBox[{"{", "}"}]}], "]"}], ",", "
", 
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{"scale", "<", "2"}], ",", 
           RowBox[{"label", "[", 
            RowBox[{"\"\<Beta Cygni A\>\"", ",", "109"}], "]"}], ",", 
           
           RowBox[{"{", "}"}]}], "]"}], ",", "
", 
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{"scale", "<", "2.5"}], ",", 
           RowBox[{"label", "[", 
            RowBox[{"\"\<Betelgeuse\>\"", ",", "650"}], "]"}], ",", 
           RowBox[{"{", "}"}]}], "]"}], ",", "
", 
         RowBox[{"label", "[", 
          RowBox[{"\"\<VY Canis Majoris\>\"", ",", "2000"}], "]"}]}], 
        "
", "}"}], ",", "
", 
       RowBox[{"PlotRange", "->", 
        RowBox[{"logscale", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"1", "/", "10."}], ",", "20"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"0", ",", "20"}], "}"}]}], "}"}]}]}], ",", 
       "
", 
       RowBox[{"AspectRatio", "->", "1"}], ",", 
       "
", 
       RowBox[{"ImageSize", "->", 
        RowBox[{"{", 
         RowBox[{"450", ",", "450"}], "}"}]}], ",", 
       "
", 
       RowBox[{"Frame", "->", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"False", ",", "False"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"True", ",", "False"}], "}"}]}], "}"}]}], ",", 
       "
", 
       RowBox[{"FrameLabel", "->", 
        RowBox[{"{", 
         RowBox[{"\"\<solar radii\>\"", ",", "None"}], "}"}]}], ",", 
       "
", 
       RowBox[{"ImagePadding", "->", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"0", ",", "0"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"35", ",", "0"}], "}"}]}], "}"}]}]}], "]"}]}], 
    "]"}], ",", "
", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"scale", ",", 
       RowBox[{"-", "2.5"}]}], "}"}], ",", 
     RowBox[{"-", "3"}], ",", "2.5"}], "}"}], ",", 
   RowBox[{"AutorunSequencing", "->", 
    RowBox[{"{", 
     RowBox[{"{", 
      RowBox[{"1", ",", "25"}], "}"}], "}"}]}], ",", 
   "
", 
   RowBox[{"Initialization", ":>", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"label", "[", 
       RowBox[{"s_String", ",", "r_"}], "]"}], ":=", 
      RowBox[{"Style", "[", 
       RowBox[{
        RowBox[{"Text", "[", 
         RowBox[{"s", ",", 
          RowBox[{"{", 
           RowBox[{"r", ",", 
            RowBox[{"r", "/", "2"}]}], "}"}]}], "]"}], ",", "18", 
        ",", "\"\<Label\>\""}], "]"}]}], "}"}]}]}], 
  "
", "]"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{
  3.35696210375764*^9, {3.406396897552813*^9, 
   3.4063969127326107`*^9}, {3.4064036821401353`*^9, 
   3.4064037271870103`*^9}, 3.4064038579526353`*^9, {
   3.40650570571875*^9, 3.4065057085625*^9}, 3.760826595832446*^9}],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`scale$$ = -2.5, Typeset`show$$ = 
    True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = 
    "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, 
    Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{{
       Hold[$CellContext`scale$$], -2.5}, -3, 2.5}}, 
    Typeset`size$$ = {450., {223., 227.}}, Typeset`update$$ = 0, 
    Typeset`initDone$$, Typeset`skipInitDone$$ = 
    False, $CellContext`scale$417400$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, "Variables" :> {$CellContext`scale$$ = -2.5}, 
      "ControllerVariables" :> {
        Hold[$CellContext`scale$$, $CellContext`scale$417400$$, 0]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$,
         Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, 
        Typeset`initDone$$, Typeset`skipInitDone$$}, "Body" :> 
      With[{$CellContext`logscale$ = 10^$CellContext`scale$$}, 
        Graphics[{
          Rectangle[{0, 0}, {6324, 6324}], 
          Opacity[0.85], Blue, 
          Disk[{0.01, 0.01}, 0.01], Red, 
          Disk[{0.1, 0.1}, 0.1], Yellow, 
          Disk[{1, 1}, 1], Green, 
          Disk[{7.8, 7.8}, 7.8], Blue, 
          Disk[{25, 25}, 25], 
          Hue[0.46], 
          Disk[{109, 109}, 109], 
          Hue[0.7666], 
          Disk[{650, 650}, 650], Yellow, 
          Disk[{2000, 2000}, 2000], 
          Opacity[1], White, 
          If[$CellContext`scale$$ < -1.5, 
           $CellContext`label["Earth", 0.01], {}], 
          If[$CellContext`scale$$ < -0.5, 
           $CellContext`label["Jupiter", 0.1], {}], 
          If[$CellContext`scale$$ < 0.5, 
           $CellContext`label["Sun", 1], {}], 
          If[$CellContext`scale$$ < 1., 
           $CellContext`label["Spica", 7.8], {}], 
          If[$CellContext`scale$$ < 1.5, 
           $CellContext`label["Aldebaran", 25], {}], 
          If[$CellContext`scale$$ < 2, 
           $CellContext`label["Beta Cygni A", 109], {}], 
          If[$CellContext`scale$$ < 2.5, 
           $CellContext`label["Betelgeuse", 650], {}], 
          $CellContext`label["VY Canis Majoris", 2000]}, 
         PlotRange -> $CellContext`logscale$ {{1/10., 20}, {0, 20}}, 
         AspectRatio -> 1, ImageSize -> {450, 450}, 
         Frame -> {{False, False}, {True, False}}, 
         FrameLabel -> {"solar radii", None}, 
         ImagePadding -> {{0, 0}, {35, 0}}]], 
      "Specifications" :> {{{$CellContext`scale$$, -2.5}, -3, 2.5}}, 
      "Options" :> {AutorunSequencing -> {{1, 25}}}, 
      "DefaultOptions" :> {ControllerLinking -> True}],
     ImageSizeCache->{495., {268., 274.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    Initialization:>({$CellContext`label[
         Pattern[$CellContext`s, 
          Blank[String]], 
         Pattern[$CellContext`r, 
          Blank[]]] := Style[
         Text[$CellContext`s, {$CellContext`r, $CellContext`r/2}], 18,
          "Label"]}; Typeset`initDone$$ = True),
    SynchronousInitialization->True,
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{3.7608265958328342`*^9},
 CellID->522544196]
}, {2}]]