10
$\begingroup$

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

enter image description here

$\endgroup$
1
22
$\begingroup$
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]

enter image description here

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]

enter image description here

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}]}]

enter image description here

$\endgroup$
3
  • 1
    $\begingroup$ Since the color of the sun is inverted, also the background should be inverted ;) $\endgroup$ – yarchik Mar 6 at 12:15
  • 1
    $\begingroup$ Weirdly enough, Axes seems to produce artifacts on export, both in the form of a white line underneath the horizon, and a jump down in thickness at each corner. For this reason I'd recommend using something like {Thickness[0.015], InfiniteLine[{{-1,0},{1,0}}]} instead! $\endgroup$ – thorimur Mar 11 at 0:36
  • $\begingroup$ @thorimur, excellent point; thank you. $\endgroup$ – kglr Mar 11 at 0:39
5
$\begingroup$

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}}

enter image description here

$\endgroup$
1
  • $\begingroup$ No horizon line ;) $\endgroup$ – yarchik Mar 6 at 12:12

Your Answer

By clicking “Post Your Answer”, you agree to our terms of service, privacy policy and cookie policy

Not the answer you're looking for? Browse other questions tagged or ask your own question.