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