%!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
/target get 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 dup /s14 exch def pattern
  //EXTEND_REPEAT set-extend
  set-source
n 0 26 150 30 rectangle
fill+
pop
n 8 8 1000 600 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 dup /s8 exch def pattern
  [1 0 0 1 -8 -34] set-matrix
  mask
(oldCairo.png) write-to-png