Art on mathematica with filled circles and straight paths: how can I reproduce minimalist suns?

Question

I would like to know: how can I  construct minimalist images like this one?

kglr · Accepted Answer

Graphics[{Disk[{0, 0}, 1, {0, Pi}], 
  {Dashing[Riffle[RandomReal[.1, 25], RandomReal[.02, 25]]],
   HalfLine[{{0, 0}, Through[{Cos, Sin}@#]}]} & /@ Subdivide[0, Pi, 50]}, 
 PlotRange -> {{-3/2, 3/2}, {0, 4}},
 Axes -> {True, False},
 AxesStyle -> Directive[Thick, Black],
 Ticks -> None]

raylengths = {2, 10};

Graphics[{Disk[{0, 0}, 1, {0, Pi}], 
   {Dashing[Riffle[RandomReal[.1, 25], RandomReal[.02, 25]]], 
     Line[{{0, 0}, (Last[raylengths = RotateLeft[raylengths]] /. 
          2 -> RandomReal[{2, 3}]) Through[{Cos, Sin}@#]}]} & /@ 
   Subdivide[0, Pi, 60]}, 
 PlotRange -> {{-3/2, 3/2}, {0, 4}}, 
 Axes -> {True, False}, 
 AxesStyle -> Directive[Thick, Black], 
 Ticks -> None]

Show[LinearGradientImage[{Bottom, Top} -> "SolarColors", {300, 400}], 
 Epilog -> {Black, 
    {Dashing[Riffle[RandomReal[{.01, .1}, 25], RandomReal[.02, 25]]], 
      HalfLine[{{150, 0}, {300, 400} Through[{Cos, Sin}@#]}]} & /@ 
         Subdivide[0, Pi, 50], 
    Disk[Scaled[{.5, 0}], 100, {0, Pi}]}]

Daniel Huber · Answer

Something like:
n = 50;
rays = Table[{Dashing[Flatten@Table[{RandomReal[.2], .01}, {10}]],
    , Line[{{0, 0}, 
      If[EvenQ[n ph/Pi], 2, RandomReal[{0.2, 0.9}]] {Sin[ph], 
        Cos[ph]}}]}, {ph, 0, 2 Pi, Pi/n}];
Graphics[{
  Disk[{0, 0}, 0.3], rays
  }, PlotRange -> {{-.6, .6}, {0, 1}}

Art on mathematica with filled circles and straight paths: how can I reproduce minimalist suns?

2 Answers

Add your own answers!

Ask a Question