%!CairoScript - surf
dict
  /width 123 set
  /height 1451 set
  /format //ARGB32 set
  image dup /s0 exch def
dict
  /type /xlib set
  /drawable 16!1600041 set
  /content //COLOR set
  /width 800 set
  /height 600 set
  surface dup /s1 exch def
s1 context % c0
//COLOR_ALPHA push-group
528 568 38 19 rectangle
clip
s0 49 1178 18 8 subsurface % s1
dup /s1 exch def
pattern % p0
exch 538 579 translate
1 index set-source % p0
0 0 18 8 rectangle
fill
exch pop % p0 destroyed
/s1 undef
pop-group set-source