%!CairoScript
<< /content //COLOR_ALPHA /width 800 /height 570 >> surface context
1 0 0 rgb set-source
paint
1 g set-source
//SOURCE set-operator
paint
dup 792 562 //COLOR_ALPHA similar dup /s11 exch def context
1 index /target get exch pop pattern
  set-source
n 0 26 30 30 rectangle
//SOURCE set-operator
fill+
<< /width 1 /height 1 /format //ARGB32 /source <~rr<$!~> >> image pattern
  //EXTEND_REPEAT set-extend
  set-source
n -8 18 150 30 rectangle
fill+
pop
n 8 8 792 562 rectangle
clip+
s11 pattern
  [1 0 0 1 -8 -8] set-matrix
  set-source
//OVER set-operator
<< /width 30 /height 30 /format //ARGB32 /source <|!!!K?Gb"0=!=]#/%)\b72n]SZ,cmH7WiGM/kcoZ<~> >> image pattern
  [1 0 0 1 -8 -34] set-matrix
  mask
(newCairo.png) write-to-png