Manipulate[
 A1 = {Opacity[.2, Blue], RGBColor[0, 0, 1], 
   Polygon[{{0, 0}, {15, 0}, {15, 15}, {0, 15}}]};
 A2 = {Opacity[0.1, Blue], RGBColor[0, 0, 1], 
   Polygon[{{0, 12}, {0, 15}, {3, 15}}]};
 A3 = {Opacity[0.18, Blue], RGBColor[0, 0, 1], 
   Polygon[{{0, 9}, {0, 12}, {3, 15}, {6, 15}}]};
 A4 = {Opacity[0.26, Blue], RGBColor[0, 0, 1], 
   Polygon[{{0, 6}, {0, 9}, {6, 15}, {9, 15}}]};
 A5 = {Opacity[0.34, Blue], RGBColor[0, 0, 1], 
   Polygon[{{0, 3}, {0, 6}, {9, 15}, {12, 15}}]};
 A6 = {Opacity[0.42, Blue], RGBColor[0, 0, 1], 
   Polygon[{{0, 0}, {0, 3}, {12, 15}, {15, 15}}]};
 A7 = {Opacity[0.34, Blue], RGBColor[0, 0, 1], 
   Polygon[{{3, 0}, {0, 0}, {15, 15}, {15, 12}}]};
 A8 = {Opacity[0.26, Blue], RGBColor[0, 0, 1], 
   Polygon[{{6, 0}, {3, 0}, {15, 12}, {15, 9}}]};
 A9 = {Opacity[0.18, Blue], RGBColor[0, 0, 1], 
   Polygon[{{9, 0}, {6, 0}, {15, 9}, {15, 6}}]};
 A10 = {Opacity[0.1, Blue], RGBColor[0, 0, 1], 
   Polygon[{{12, 0}, {9, 0}, {15, 6}, {15, 3}}]};
 A11 = {Opacity[0.2], RGBColor[1, 1, 1], 
   Polygon[{{6, 0}, {3, 0}, {0, 3}, {0, 6}}]};
 A12 = {Opacity[0.2], RGBColor[1, 1, 1], 
   Polygon[{{12, 0}, {9, 0}, {0, 9}, {0, 12}}]};
 A13 = {Opacity[0.2], RGBColor[1, 1, 1], 
   Polygon[{{15, 3}, {15, 0}, {0, 15}, {3, 15}}]};
 A14 = {Opacity[0.2], RGBColor[1, 1, 1], 
   Polygon[{{15, 9}, {15, 6}, {6, 15}, {9, 15}}]};
 A15 = {Opacity[0.2], RGBColor[1, 1, 1], 
   Polygon[{{15, 15}, {15, 12}, {12, 15}}]};
 A16 = Translate[{RGBColor[1, 0, 0], 
    Polygon[{{7.5, 6}, {6.2, 7.4}, {6, 8}, {6.1, 8.5}, {6.3, 
       8.9}, {6.7, 8.9}, {7.5, 8}, {8.3, 8.9}, {8.7, 8.9}, {8.9, 
       8.5}, {9, 8.2}, {8.8, 7.4}}]}, {a, b}];
 A17 = {RGBColor[1, 0, 0], FontSize -> 60, Text["I", {7.5, 12}]};
 A18 = {RGBColor[1, 0, 0], FontSize -> 60, Text["Math 21a", {7.5, 3}]};
 S1 = Jesse = 
   Show[Graphics[{A1, A2, A3, A4, A5, A6, A7, A8, A9, A10, A11, A12, 
      A13, A14, A15, A16, A17, A18}], AspectRatio -> 1], {a, -1, 
  1}, {b, 0, 1}]