10
$\begingroup$

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

enter image description here

$\endgroup$
1

2 Answers 2

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, 2021 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, 2021 at 0:36
  • $\begingroup$ @thorimur, excellent point; thank you. $\endgroup$
    – kglr
    Mar 11, 2021 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, 2021 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.