radial_locke
me
Content:
[setq(p,[u(#388/palettes.water)])]
[null(
 [fbcreate(TEST,50,25)]
 [iter(lnum(50),
  [iter(lnum(50),
   [fbhset(TEST,%i1,%i0,
    [u(#388/palette.ramp,
     [fdiv(dist2d(%i1,%i0,24,24),25)],%qp)]
   )],,)],,)]
)]
[fbflush(TEST,%#)]
[null(fbdestroy(TEST))]

One line version:

[setq(p,[u(#388/palettes.water)])][null([fbcreate(TEST,50,25)][iter(lnum(50),[iter(lnum(50),[fbhset(TEST,%i1,%i0,[u(#388/palette.ramp,[fdiv(dist2d(%i1,%i0,24,24),25)],%qp)])],,)],,)])][fbflush(TEST,%#)][null(fbdestroy(TEST))]