settings.tex = "xelatex";

srand(seconds());

usepackage("xeCJK");
texpreamble(
"\setCJKmainfont{FZSongHeiTi_GB18030}");

Label L =
"\fontsize{16bp}{20bp}\selectfont
\begin{minipage}{3em}
天上星\par
亮晶晶\par
永燦爛\par
長安寧
\end{minipage}";

path unitstar(int n = 5, real r = 0, real angle = 90)
{
    guide g;
    if (n < 2) return nullpath;
    real rot = 180/n;
    if (r == 0) {
	if (n < 5)
	    r = 1/4;
	else
	    r = Cos(2rot) / Cos(rot);
    }
    for (int k = 0; k < n; ++k)
	g = g -- dir(angle+2k*rot) -- r * dir(angle+(2k+1)*rot);
    g = g -- cycle;
    return g;
}

pen operator %(pen p, real x) {return interp(white, p, x/100);}
pen[] colors = {blue%50, yellow%50, red%50, orange%50};
for (int i = 0; i < 100; ++i)
{
    pair pos = (unitrand() * 12cm, unitrand()*9cm);
    int r = rand();
    if (r < randMax/3)
	fill(shift(pos) * scale(2+unitrand()*3) * unitstar(4),
	    colors[rand()%colors.length]);
    else if (r < 2/3*randMax)
	fill(shift(pos) * scale(2+unitrand()*3) * unitstar(5),
	    colors[rand()%colors.length]);
    else
	draw(pos, white+1bp);
}


fill(circle((2cm,8cm),0.5cm), paleyellow);
unfill(circle((1.7cm,7.9cm), 0.5cm));

pair orig=(9cm,0.5cm), end=(1cm,4cm);
path tail = orig{NW} .. {W}end;
path tailN = orig{NW} .. {W}(end+N);
path tailS = orig{NW} .. {W}(end+S);

radialshade(circle(orig, 0.5cm), yellow, orig, 0.1cm, darkblue, orig, 0.5cm);
for (int i = 0; i < 1000; ++i) {
	real t = unitrand()^3;
	real r = (0.2 + t)*cm;
	pair z = point(tail, t) + r*(unitrand()-1/2, unitrand()-1/2);
	draw(z,interp(yellow,white,unitrand())+1bp);
}

label(L, (12cm,9cm), align=SW, yellow, Fill(darkblue+opacity(0.5)));

shipout(bbox(Fill(darkblue)));