Ultra-SiMPLE
xc=xpixels()/2; yc=ypixels()/2
Call image (xc, yc, 1.0, 1) @

Task image (Int x, Int y, Float mag, Int flag)
If (flag) zz=mag
Else zz=1.0
line size (1*zz+0.5)
line color (rgb(128,128,128))
solid color (rgb(128,128,128))
point color (rgb(128,128,128))
solid color (rgb(255,90,0))
solid circle (-37*mag+x, -1*mag+y, 26*mag)
solid circle (39*mag+x, -3*mag+y, 25*mag)
solid circle (-23*mag+x, 0*mag+y, 25*mag)
solid circle (33*mag+x, -3*mag+y, 28*mag)
solid circle (4*mag+x, 3*mag+y, 31*mag)
solid circle (1*mag+x, 21*mag+y, 0*mag)
solid circle (-32*mag+x, 11*mag+y, 23*mag)
solid circle (39*mag+x, 18*mag+y, 23*mag)
line color (rgb(0,0,0))
line (-19*mag+x, -15*mag+y, -24*mag+x, -3*mag+y)
line (-24*mag+x, -2*mag+y, -9*mag+x, -2*mag+y)
line (-9*mag+x, -2*mag+y, -11*mag+x, -17*mag+y)
line (-11*mag+x, -17*mag+y, -18*mag+x, -17*mag+y)
line (13*mag+x, -16*mag+y, 9*mag+x, -3*mag+y)
line (9*mag+x, -3*mag+y, 29*mag+x, -3*mag+y)
line (29*mag+x, -3*mag+y, 24*mag+x, -18*mag+y)
line (23*mag+x, -18*mag+y, 15*mag+x, -16*mag+y)
line (-22*mag+x, 10*mag+y, 34*mag+x, 10*mag+y)
line size (1*zz+0.5)
line (-21*mag+x, 10*mag+y, -18*mag+x, 17*mag+y)
line (-18*mag+x, 17*mag+y, -14*mag+x, 11*mag+y)
line (18*mag+x, 10*mag+y, 18*mag+x, 17*mag+y)
line (18*mag+x, 17*mag+y, 23*mag+x, 11*mag+y)
line color (rgb(0,254,5))
line (10*mag+x, -27*mag+y, 7*mag+x, -36*mag+y)
line (10*mag+x, -27*mag+y, 9*mag+x, -36*mag+y)
line (9*mag+x, -36*mag+y, -7*mag+x, -34*mag+y)
line (-7*mag+x, -34*mag+y, -6*mag+x, -28*mag+y)
line (-6*mag+x, -27*mag+y, 5*mag+x, -29*mag+y)
line (5*mag+x, -29*mag+y, 9*mag+x, -26*mag+y)
line color (rgb(249,249,249))
solid color (rgb(250,250,250))
solid ellipse (19*mag+x, -8*mag+y, 7*mag, 4*mag)
solid ellipse (-16*mag+x, -8*mag+y, 5*mag, 4*mag)
solid ellipse (-18*mag+x, 12*mag+y, 2*mag, 1*mag)
solid ellipse (-16*mag+x, 13*mag+y, 0*mag, 1*mag)
solid ellipse (-18*mag+x, 14*mag+y, 1*mag, 1*mag)
solid ellipse (-16*mag+x, 11*mag+y, 0*mag, 0*mag)
solid ellipse (-16*mag+x, 11*mag+y, 0*mag, 0*mag)
solid ellipse (-16*mag+x, 11*mag+y, 1*mag, 0*mag)
solid ellipse (-19*mag+x, 11*mag+y, 1*mag, 0*mag)
solid ellipse (19*mag+x, 15*mag+y, 0*mag, 2*mag)
solid ellipse (19*mag+x, 13*mag+y, 0*mag, 0*mag)
solid ellipse (20*mag+x, 13*mag+y, 0*mag, 1*mag)
solid ellipse (20*mag+x, 12*mag+y, 0*mag, 0*mag)
solid ellipse (20*mag+x, 11*mag+y, 0*mag, 0*mag)
solid ellipse (19*mag+x, 11*mag+y, 0*mag, 1*mag)
solid ellipse (20*mag+x, 12*mag+y, 1*mag, 0*mag)
solid ellipse (20*mag+x, 11*mag+y, 2*mag, 0*mag)
line color (rgb(251,2,4))
line (19*mag+x, 14*mag+y, 21*mag+x, 15*mag+y)
line (20*mag+x, 14*mag+y, 19*mag+x, 14*mag+y)
line (19*mag+x, 15*mag+y, 19*mag+x, 16*mag+y)
line (19*mag+x, 16*mag+y, 19*mag+x, 17*mag+y)
line (19*mag+x, 17*mag+y, 19*mag+x, 17*mag+y)
line (-19*mag+x, 14*mag+y, -16*mag+x, 14*mag+y)
line (-18*mag+x, 15*mag+y, -18*mag+x, 15*mag+y)
line color (rgb(12,12,12))
solid color (rgb(0,0,0))
solid ellipse (19*mag+x, -8*mag+y, 3*mag, 2*mag)
solid ellipse (-16*mag+x, -8*mag+y, 2*mag, 2*mag)
solid ellipse (24*mag+x, 16*mag+y, 0*mag, 0*mag)
circle (1*mag+x, -2*mag+y, 51*mag)
circle (0*mag+x, -2*mag+y, 38*mag)