Ultra-SiMPLE
xc=xpixels()/2; yc=ypixels()/2
Call image (xc, yc+100, 3.0, 1) @
wait quitkey

Task image (Float x, Float y, Float mag, Int flag)
bf=1.0 //(User-definable "Brightness Factor")
If (flag) zz=mag
Else zz=1.0
line size (1*zz+0.5)
line color (rgb(bf*128,bf*128,bf*128))
solid color (rgb(bf*128,bf*128,bf*128))
point color (rgb(bf*128,bf*128,bf*128))
solid color (rgb(bf*0,bf*238,bf*45))
solid triangle (-77*mag+x, 25*mag+y, 76*mag+x, 25*mag+y, -2*mag+x, -151*mag+y)
solid triangle (-75*mag+x, 0*mag+y, 73*mag+x, 0*mag+y, -2*mag+x, -143*mag+y)
solid triangle (-75*mag+x, -24*mag+y, 74*mag+x, -25*mag+y, -1*mag+x, -150*mag+y)
solid color (rgb(bf*225,bf*118,bf*30))
solid rectangle (-26*mag+x, 26*mag+y, 24*mag+x, 75*mag+y)
solid color (rgb(bf*238,bf*16,bf*17))
solid circle (-21*mag+x, -78*mag+y, 10*mag)
solid color (rgb(bf*29,bf*31,bf*226))
solid circle (15*mag+x, -31*mag+y, 6*mag)
solid color (rgb(bf*18,bf*184,bf*237))
solid circle (-32*mag+x, -13*mag+y, 5*mag)
solid color (rgb(bf*209,bf*208,bf*46))
solid circle (36*mag+x, -53*mag+y, 5*mag)
solid color (rgb(bf*0,bf*246,bf*25))
solid color (rgb(bf*231,bf*152,bf*24))