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(247,16,8))
solid color (rgb(252,86,3))
filled circle (48*mag+x, -45*mag+y, 0*mag)
filled circle (48*mag+x, -45*mag+y, 0*mag)
filled circle (47*mag+x, -45*mag+y, 41*mag)
filled ellipse (50*mag+x, -45*mag+y, 31*mag, 41*mag)
filled ellipse (50*mag+x, -46*mag+y, 18*mag, 40*mag)
line color (rgb(7,7,7))
solid color (rgb(44,44,44))
line color (rgb(250,10,5))
solid color (rgb(252,98,3))
filled ellipse (50*mag+x, -45*mag+y, 9*mag, 40*mag)
line color (rgb(9,9,9))
solid color (rgb(64,64,64))
filled triangle (65*mag+x, -55*mag+y, 78*mag+x, -55*mag+y, 70*mag+x, -69*mag+y)
filled triangle (18*mag+x, -55*mag+y, 30*mag+x, -55*mag+y, 25*mag+x, -71*mag+y)
filled triangle (47*mag+x, -50*mag+y, 54*mag+x, -50*mag+y, 50*mag+x, -40*mag+y)
filled triangle (38*mag+x, -30*mag+y, 67*mag+x, -30*mag+y, 49*mag+x, -13*mag+y)
solid color (rgb(249,11,6))
filled rectangle (43*mag+x, -30*mag+y, 43*mag+x, -28*mag+y)
filled rectangle (43*mag+x, -28*mag+y, 46*mag+x, -29*mag+y)
filled rectangle (49*mag+x, -29*mag+y, 53*mag+x, -28*mag+y)
filled rectangle (56*mag+x, -29*mag+y, 59*mag+x, -28*mag+y)
filled rectangle (59*mag+x, -28*mag+y, 59*mag+x, -28*mag+y)
filled rectangle (47*mag+x, -17*mag+y, 52*mag+x, -17*mag+y)
filled rectangle (47*mag+x, -17*mag+y, 52*mag+x, -17*mag+y)
filled rectangle (52*mag+x, -17*mag+y, 52*mag+x, -17*mag+y)
filled rectangle (52*mag+x, -17*mag+y, 48*mag+x, -18*mag+y)
filled rectangle (48*mag+x, -18*mag+y, 52*mag+x, -19*mag+y)
filled rectangle (58*mag+x, -22*mag+y, 56*mag+x, -22*mag+y)
filled rectangle (56*mag+x, -22*mag+y, 59*mag+x, -23*mag+y)
filled rectangle (44*mag+x, -22*mag+y, 47*mag+x, -23*mag+y)
line color (rgb(24,255,0))
solid color (rgb(24,255,0))
filled rectangle (43*mag+x, -85*mag+y, 52*mag+x, -93*mag+y)