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))
line color (rgb(134,237,121))
solid color (rgb(160,64,255))
line color (rgb(10,10,10))
solid color (rgb(255,115,0))
filled ellipse (0*mag+x, 1*mag+y, 16*mag, 16*mag)
filled ellipse (-9*mag+x, 1*mag+y, 18*mag, 16*mag)
ellipse (-16*mag+x, 8*mag+y, 0*mag, 0*mag)
line color (rgb(17,17,17))
solid color (rgb(248,110,7))
solid color (rgb(0,254,5))
filled ellipse (-6*mag+x, -21*mag+y, 2*mag, 8*mag)
filled ellipse (-17*mag+x, -26*mag+y, 12*mag, 3*mag)
filled ellipse (-31*mag+x, -15*mag+y, 4*mag, 13*mag)
filled ellipse (-31*mag+x, -2*mag+y, 3*mag, 12*mag)
filled ellipse (-31*mag+x, 10*mag+y, 7*mag, 1*mag)
filled ellipse (19*mag+x, 11*mag+y, 9*mag, 1*mag)
filled ellipse (27*mag+x, -1*mag+y, 0*mag, 0*mag)
filled ellipse (27*mag+x, 5*mag+y, 1*mag, 9*mag)
filled ellipse (28*mag+x, -3*mag+y, 2*mag, 12*mag)
solid color (rgb(6,6,6))
filled triangle (-12*mag+x, -7*mag+y, -16*mag+x, -2*mag+y, -9*mag+x, -2*mag+y)
filled triangle (-4*mag+x, -2*mag+y, -1*mag+x, -6*mag+y, 1*mag+x, -2*mag+y)
filled triangle (-10*mag+x, 2*mag+y, -4*mag+x, 2*mag+y, -7*mag+x, 9*mag+y)
filled circle (-7*mag+x, 13*mag+y, 3*mag)