1startshape SUN
2
3shape SUN
4{
5	loop 72 [r 5]
6		LINER(-3…3) [y 5 sat 1 b 0.3]
7}
8
9shape LINER(number angle)
10rule {
11	UTRIANGLE [y 0.5 s 0.86 r 0.5]
12	LINER(=) [r angle b 0.1 hue 0.1 60
13		y 0.75 x 0.4330125 s 0.97]
14}
15rule .1 {
16	LINER(-3…3) []
17}
18
19path UTRIANGLE {
20	MOVETO(0, -0.5)
21	loop 3 [r 120] {
22		CURVEREL(
23			0.25, sqrt(3)/4,
24			-0.05, 0.025,
25			0, sqrt(3)/8
26		)
27		CURVEREL(
28			0.25, sqrt(3)/4,
29			0.25 + 0.025, sqrt(3)/4 - 0.025,
30			CF::Continuous
31		)
32	}
33	CLOSEPOLY(CF::Align)
34	FILL[]
35}
36