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(226,0,188))
solid color (rgb(233,116,0))
filled ellipse (-21*mag+x, 1*mag+y, 24*mag, 32*mag)
filled ellipse (3*mag+x, 1*mag+y, 23*mag, 31*mag)
solid ellipse (-9*mag+x, -6*mag+y, 22*mag, 21*mag)
solid ellipse (-6*mag+x, 10*mag+y, 20*mag, 18*mag)
line color (rgb(30,255,0))
solid color (rgb(48,72,207))
filled triangle (-20*mag+x, -19*mag+y, -33*mag+x, -6*mag+y, -7*mag+x, -6*mag+y)
filled triangle (6*mag+x, -18*mag+y, -6*mag+x, -6*mag+y, 18*mag+x, -6*mag+y)
filled triangle (-6*mag+x, -2*mag+y, -16*mag+x, 9*mag+y, 3*mag+x, 9*mag+y)
filled rectangle (-24*mag+x, 14*mag+y, 11*mag+x, 26*mag+y)
solid color (rgb(216,8,200))
solid rectangle (-20*mag+x, 15*mag+y, -14*mag+x, 20*mag+y)
solid rectangle (-9*mag+x, 15*mag+y, -2*mag+x, 20*mag+y)
solid rectangle (0*mag+x, 15*mag+y, 7*mag+x, 20*mag+y)
solid triangle (9*mag+x, 20*mag+y, 10*mag+x, 19*mag+y, 10*mag+x, 21*mag+y)
solid rectangle (-14*mag+x, 25*mag+y, 5*mag+x, 22*mag+y)
solid color (rgb(228,36,27))
solid triangle (-23*mag+x, 19*mag+y, -23*mag+x, 24*mag+y, -18*mag+x, 22*mag+y)
solid triangle (8*mag+x, -30*mag+y, 23*mag+x, -16*mag+y, 33*mag+x, -35*mag+y)
solid triangle (-26*mag+x, -30*mag+y, -43*mag+x, -17*mag+y, -47*mag+x, -35*mag+y)
solid color (rgb(32,97,0))
solid rectangle (-13*mag+x, -27*mag+y, -3*mag+x, -39*mag+y)
solid color (rgb(63,3,0))
solid circle (-21*mag+x, -10*mag+y, 2*mag)
solid circle (5*mag+x, -9*mag+y, 2*mag)
solid color (rgb(0,0,0))
solid triangle (-8*mag+x, -23*mag+y, -13*mag+x, -17*mag+y, -2*mag+x, -17*mag+y)
solid color (rgb(70,1,1))
solid circle (-8*mag+x, -19*mag+y, 2*mag)
solid color (rgb(24,30,231))
solid circle (-21*mag+x, -9*mag+y, 0*mag)
solid circle (-21*mag+x, -10*mag+y, 1*mag)
solid circle (5*mag+x, -9*mag+y, 1*mag)
solid circle (-8*mag+x, -19*mag+y, 1*mag)