z4trg.sdlbas

#! /usr/bin/sdlbrt
finp$="15_80.jpg"
xsiz=80
setdisplay(xsiz*11,xsiz*8,32,1):paper(8^8-1):ink(0):pen(0):cls
loadimage(finp$,1):pasteicon(xsiz*9,0,1)

for y1=0 to xsiz-1 step 3
  for x1=0 to xsiz-1 step 3
    c0=point(xsiz*9+x1+1,y1+0)
    c1=point(xsiz*9+x1+2,y1+1)
    c2=point(xsiz*9+x1+1,y1+2)
    c3=point(xsiz*9+x1+0,y1+1)
    for con=0 to 11
      ink(c0):line( (x1*8)+con       , (y1*8)+con       , ((x1+3)*8)-con-1 , (y1*8)+con       )
      ink(c1):line( ((x1+3)*8)-con-1 , (y1*8)+con       , ((x1+3)*8)-con-1 , ((y1+3)*8)-con-1 )
      ink(c2):line( ((x1+3)*8)-con-1 , ((y1+3)*8)-con-1 , (x1*8)+con       , ((y1+3)*8)-con-1 )
      ink(c3):line( (x1*8)+con       , ((y1+3)*8)-con-1 , (x1*8)+con       , (y1*8)+con       )
      next
    next:next

grab(1,0,0,xsiz*8,xsiz*8):saveimage("_.bmp",1)
shell("convert _.bmp "+finp$+"_.png && rm _.bmp")
'waitkey