PlotRegion -> {{-0.22, 1.15}, {-0.5, 1.4}}, DisplayFunction -> Identity ]; finalgraphic = aa[gr]; Export["Moebius Surface " <> ToString[deg] <> ".png", finalgraphic]...
PlotRegion -> {{-0.22, 1.15}, {-0.5, 1.4}}, DisplayFunction -> Identity ]; finalgraphic = aa[gr]; Export["Moebius Surface " <> ToString[deg] <> ".png", finalgraphic]...
PlotRegion -> {{-0.22, 1.15}, {-0.5, 1.4}}, DisplayFunction -> Identity ]; finalgraphic = aa[gr]; Export["Moebius Surface " <> ToString[deg] <> ".png", finalgraphic]...
PlotRegion -> {{-0.22, 1.15}, {-0.5, 1.4}}, DisplayFunction -> Identity ]; finalgraphic = aa[gr]; Export["Moebius Surface " <> ToString[deg] <> ".png", finalgraphic]...
PlotRegion -> {{-0.22, 1.15}, {-0.5, 1.4}}, DisplayFunction -> Identity ]; finalgraphic = aa[gr]; Export["Moebius Surface " <> ToString[deg] <> ".png", finalgraphic]...
PlotRegion -> {{-0.22, 1.15}, {-0.5, 1.4}}, DisplayFunction -> Identity ]; finalgraphic = aa[gr]; Export["Moebius Surface " <> ToString[deg] <> ".png", finalgraphic]...
PlotRegion -> {{-0.22, 1.15}, {-0.5, 1.4}}, DisplayFunction -> Identity ]; finalgraphic = aa[gr]; Export["Moebius Surface " <> ToString[deg] <> ".png", finalgraphic]...
PlotRegion -> {{-0.22, 1.15}, {-0.5, 1.4}}, DisplayFunction -> Identity ]; finalgraphic = aa[gr]; Export["Moebius Surface " <> ToString[deg] <> ".png", finalgraphic]...
PlotRegion -> {{-0.22, 1.15}, {-0.5, 1.4}}, DisplayFunction -> Identity ]; finalgraphic = aa[gr]; Export["Moebius Surface " <> ToString[deg] <> ".png", finalgraphic]...
PlotRegion -> {{-0.22, 1.15}, {-0.5, 1.4}}, DisplayFunction -> Identity ]; finalgraphic = aa[gr]; Export["Moebius Surface " <> ToString[deg] <> ".png", finalgraphic]...