#! /usr/bin/sdlbrt

finp$="test2clr.jpg"

'- picture converter - Mattel Aquarius - colour version - Paulo Silva - July'10 - GPL licence
'- converter may take around 1 hour to convert a 80x72 picture into a 40x24 Aquarius picture in text mode

dim paleta[16]
paleta[00]=0x111111:paleta[01]=0xFF1111:paleta[02]=0x11FF11:paleta[03]=0xFFEE11
paleta[04]=0x2222DD:paleta[05]=0xFF11FF:paleta[06]=0x33CCCC:paleta[07]=0xFFFFFF
paleta[08]=0xCCCCCC:paleta[09]=0x22AAAA:paleta[10]=0xCC22CC:paleta[11]=0x441188
paleta[12]=0xFFFF77:paleta[13]=0x22C844:paleta[14]=0xAA2222:paleta[15]=0x333333

xed=512+320:yed=768:onlgr=0
setdisplay(xed,yed,32,1):paper(0xCC8844):ink(0):pen(0):cls

loadimage(finp$,1):pasteicon(512+128,192,1)

function rfromrgb(vrgb1)
  tvrgb1=vrgb1
  return int(tvrgb1/65536)
  end function
function gfromrgb(vrgb1)
  tvrgb1=vrgb1
  return bitwiseand(int(tvrgb1/256),255)
  end function
function bfromrgb(vrgb1)
  tvrgb1=vrgb1
  return bitwiseand(tvrgb1,255)
  end function

function primpoint(xq,yq,pq)
  uq=point(xq,yq)
  uq2=bitwiseand(uq,255)
  if pq=1 then:
    uq2=bitwiseand(int(uq/256),255):end if
  if pq=2 then:
    uq2=bitwiseand(int(uq/65536),255):end if
  return uq2
  end function

function difrgbcel(x1q,y1q,x2q,y2q,xsq,ysq)
  tdif=0
  for yqt=0 to ysq-1:for xqt=0 to xsq-1:for pqt=0 to 2
    tdif+=abs(primpoint(x1q+xqt,y1q+yqt,pqt)-primpoint(x2q+xqt,y2q+yqt,pqt))
    next:next:next
  return tdif
  end function

sub filpic7c(qxx1,qyy1,cq1,cq2,qstq$)
  yyt=qyy1:xxt=qxx1:tstt$=qstq$
  cq1q=cq1:cq2q=cq2
  bq1=bfromrgb(cq1q):gq1=gfromrgb(cq1q):rq1=rfromrgb(cq1q)
  bq2=bfromrgb(cq2q):gq2=gfromrgb(cq2q):rq2=rfromrgb(cq2q)
  for qq=0 to len(tstt$)-1
    qv=val(mid$(tstt$,qq+1,1)):qvi=7-qv
    bd1=int(((bq1*qv)+(bq2*qvi))/7):rd1=int(((rq1*qv)+(rq2*qvi))/7):gd1=int(((gq1*qv)+(gq2*qvi))/7)
    rgbout=(rd1*65536)+(gd1*256)+(bd1)
    ink(rgbout):dot(xxt+qq,yyt)
    next
  end sub

sub filpic7(qxx1,qyy1,qstq$)
  yyt=qyy1:xxt=qxx1:tstt$=qstq$
  for qq=0 to len(tstt$)-1
    qu=(((val(mid$(tstt$,qq+1,1)))*255)/7):ink(rgb(qu,qu,qu)):dot(xxt+qq,yyt):next
  end sub

for zc1=0 to 15:for zc2=0 to 15
  xqqpos=zc1*32:yqqpos=zc2*48
  filpic7c(xqqpos,yqqpos+000,paleta[zc1],paleta[zc2],"45555555674566665555717667175514")
  filpic7c(xqqpos,yqqpos+001,paleta[zc1],paleta[zc2],"47555555564543345555544554453346")
  filpic7c(xqqpos,yqqpos+002,paleta[zc1],paleta[zc2],"56657676774566665555671771761147")
  filpic7c(xqqpos,yqqpos+003,paleta[zc1],paleta[zc2],"22214455335633563255777077070777")
  filpic7c(xqqpos,yqqpos+004,paleta[zc1],paleta[zc2],"55554433334553453233747447474444")
  filpic7c(xqqpos,yqqpos+005,paleta[zc1],paleta[zc2],"77554422442345225633707707777000")
  filpic7c(xqqpos,yqqpos+006,paleta[zc1],paleta[zc2],"77575555454657765766566777777776")
  filpic7c(xqqpos,yqqpos+007,paleta[zc1],paleta[zc2],"77677745466656775775465667667767")
  filpic7c(xqqpos,yqqpos+008,paleta[zc1],paleta[zc2],"77677766677556776767677767776777")
  filpic7c(xqqpos,yqqpos+009,paleta[zc1],paleta[zc2],"55575555654555555555777766776755")
  filpic7c(xqqpos,yqqpos+010,paleta[zc1],paleta[zc2],"55576665555556675565676757557667")
  filpic7c(xqqpos,yqqpos+011,paleta[zc1],paleta[zc2],"56565656765656675657776776776767")
  filpic7c(xqqpos,yqqpos+012,paleta[zc1],paleta[zc2],"45564556454545565556755657455555")
  filpic7c(xqqpos,yqqpos+013,paleta[zc1],paleta[zc2],"45555557555757565557754757555555")
  filpic7c(xqqpos,yqqpos+014,paleta[zc1],paleta[zc2],"56665656565667556656566656666656")
  filpic7c(xqqpos,yqqpos+015,paleta[zc1],paleta[zc2],"45554555465555555555553667547777")
  filpic7c(xqqpos,yqqpos+016,paleta[zc1],paleta[zc2],"56554656575555455657674766746677")
  filpic7c(xqqpos,yqqpos+017,paleta[zc1],paleta[zc2],"67566656675667666667564677557756")
  filpic7c(xqqpos,yqqpos+018,paleta[zc1],paleta[zc2],"57775777757766775767765757676777")
  filpic7c(xqqpos,yqqpos+019,paleta[zc1],paleta[zc2],"77554556554557555557754657455555")
  filpic7c(xqqpos,yqqpos+020,paleta[zc1],paleta[zc2],"77565666565667556656666656566656")
  filpic7c(xqqpos,yqqpos+021,paleta[zc1],paleta[zc2],"67776777577777677777776657577700")
  filpic7c(xqqpos,yqqpos+022,paleta[zc1],paleta[zc2],"45555755565555455655565767676600")
  filpic7c(xqqpos,yqqpos+023,paleta[zc1],paleta[zc2],"56556756675567656655567667577700")
  filpic7c(xqqpos,yqqpos+024,paleta[zc1],paleta[zc2],"33576533774744667766554465232655")
  filpic7c(xqqpos,yqqpos+025,paleta[zc1],paleta[zc2],"00575435554744337700222254230233")
  filpic7c(xqqpos,yqqpos+026,paleta[zc1],paleta[zc2],"00573254444744662200445522652611")
  filpic7c(xqqpos,yqqpos+027,paleta[zc1],paleta[zc2],"77024554447422472707355355556211")
  filpic7c(xqqpos,yqqpos+028,paleta[zc1],paleta[zc2],"77023443567400472707222233332033")
  filpic7c(xqqpos,yqqpos+029,paleta[zc1],paleta[zc2],"44023223777422472707355355556255")
  filpic7c(xqqpos,yqqpos+030,paleta[zc1],paleta[zc2],"77177111670761017616701066066000")
  filpic7c(xqqpos,yqqpos+031,paleta[zc1],paleta[zc2],"77577555472745257454725244244222")
  filpic7c(xqqpos,yqqpos+032,paleta[zc1],paleta[zc2],"77777777676767677676767666666666")
  filpic7c(xqqpos,yqqpos+033,paleta[zc1],paleta[zc2],"77177111670761017616701066066000")
  filpic7c(xqqpos,yqqpos+034,paleta[zc1],paleta[zc2],"57475545270725055444524224042202")
  filpic7c(xqqpos,yqqpos+035,paleta[zc1],paleta[zc2],"17171717070707071616161606060606")
  filpic7c(xqqpos,yqqpos+036,paleta[zc1],paleta[zc2],"74471104664477715577757255556755")
  filpic7c(xqqpos,yqqpos+037,paleta[zc1],paleta[zc2],"61165504441166753357667033533663")
  filpic7c(xqqpos,yqqpos+038,paleta[zc1],paleta[zc2],"20027704664477775517577266555576")
  filpic7c(xqqpos,yqqpos+039,paleta[zc1],paleta[zc2],"65557766225555775517572766557655")
  filpic7c(xqqpos,yqqpos+040,paleta[zc1],paleta[zc2],"66455544225555755557660733356336")
  filpic7c(xqqpos,yqqpos+041,paleta[zc1],paleta[zc2],"75541166554455615577752755555567")
  filpic7c(xqqpos,yqqpos+042,paleta[zc1],paleta[zc2],"77177111670761017616701066066000")
  filpic7c(xqqpos,yqqpos+043,paleta[zc1],paleta[zc2],"75557454452544247252705042224020")
  filpic7c(xqqpos,yqqpos+044,paleta[zc1],paleta[zc2],"71717171616161617070707060606060")
  filpic7c(xqqpos,yqqpos+045,paleta[zc1],paleta[zc2],"77177111670761017616701066066000")
  filpic7c(xqqpos,yqqpos+046,paleta[zc1],paleta[zc2],"55455444250524045242504022022000")
  filpic7c(xqqpos,yqqpos+047,paleta[zc1],paleta[zc2],"11111111010101011010101000000000")
  next:next

yed2a=192:xed2a=512
filpic7(xed2a,yed2a+000,"77000077707770777077707770077077777777777700007777777777777777777770077777700777777700007777777777777777000077777777777700000077")
filpic7(xed2a,yed2a+001,"77077777707707777077077777070777777077777077770777777077770777777700007777700777777770007777707777077777000777777700007700000077")
filpic7(xed2a,yed2a+002,"77077777707077777070777770707777777777770770077077777707707777777070070777700777777700007777000770007777000077777700007777000077")
filpic7(xed2a,yed2a+003,"70000777770700777707007777070077700000770707777000000000000000007770077777700777777000707770007777000777070007777777777777007777")
filpic7(xed2a,yed2a+004,"77077777707770777070707770707077777777770707777000000000000000007770077777700777770007770700077777700070777000777000000777007777")
filpic7(xed2a,yed2a+005,"70077777777707777770007777700077777077770770077077777707707777777770077770700707700077770000777777770000777700070000000077007777")
filpic7(xed2a,yed2a+006,"07070077777000777777707777777077777777777077770777777077770777777770077777000077770777770007777777777000777770770000000077007777")
filpic7(xed2a,yed2a+007,"77777777777777777777777777777777777777777700007777777777777777777770077777700777777777770000777777770000777777770000000077007777")
filpic7(xed2a,yed2a+008,"00000000700000007700007777777777700000077777777770000077777777777000007777700777777777777777000077777777000077770000777777777777")
filpic7(xed2a,yed2a+009,"77000077700000007700007777000077770000777700077777000007770007777700000077000077777777777777000077777777000077770000777777777777")
filpic7(xed2a,yed2a+010,"77000077700007777700007777000077700770077700007777700700770000777770000070077007777777777777000077777777000077770000777777777777")
filpic7(xed2a,yed2a+011,"77000077777007777700007777777777700770077777777777700007777777777700070077077077777777777777000077777777000077770000777777777777")
filpic7(xed2a,yed2a+012,"77000077777007777700007770000007000770007700077777700077770007700000770000077000777700007777777700007777777777777777000000000000")
filpic7(xed2a,yed2a+013,"77777777777007777700007700000000007777007000077777700777700007700077770007000070777700007777777700007777777777777777000000000000")
filpic7(xed2a,yed2a+014,"77777777777007777700007707000070007777007000007777000777007000000777777707700770777700007777777700007777777777777777000000000000")
filpic7(xed2a,yed2a+015,"77777777777007777700007700700700007777007000000077000777007000777777777700700700777700007777777700007777777777777777000000000000")
filpic7(xed2a,yed2a+016,"77777777777077777707077777070777777077777007777777077777777707777770777777707777777077777777777777777777777777777777777777777777")
filpic7(xed2a,yed2a+017,"77777777777077777707077777070777770000777007707770707777777707777707777777770777707070777770777777777777777777777777777777777077")
filpic7(xed2a,yed2a+018,"77777777777077777707077770000077707077777777077770707777777077777077777777777077770007777770777777777777777777777777777777770777")
filpic7(xed2a,yed2a+019,"77777777777077777777777777070777770007777770777777077777777777777077777777777077777077777000007777777777700000777777777777707777")
filpic7(xed2a,yed2a+020,"77777777777077777777777770000077777070777707777770707077777777777077777777777077770007777770777777707777777777777777777777077777")
filpic7(xed2a,yed2a+021,"77777777777777777777777777070777700007777077007770770777777777777707777777770777707070777770777777707777777777777777777770777777")
filpic7(xed2a,yed2a+022,"77777777777077777777777777070777777077777777007777007077777777777770777777707777777077777777777777077777777777777770777777777777")
filpic7(xed2a,yed2a+023,"77777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777")
filpic7(xed2a,yed2a+024,"77000777777077777700077770000077777707777000007777700077700000777700077777000777777777777777777777770777777777777707777777000777")
filpic7(xed2a,yed2a+025,"70777077770077777077707777777077777007777077777777077777777770777077707770777077777777777777777777707777777777777770777770777077")
filpic7(xed2a,yed2a+026,"70770077777077777777707777770777770707777000077770777777777707777077707770777077777077777770777777077777700000777777077777770777")
filpic7(xed2a,yed2a+027,"70707077777077777770077777700777707707777777707770000777777077777700077777000077777777777777777770777777777777777777707777707777")
filpic7(xed2a,yed2a+028,"70077077777077777707777777777077700007777777707770777077770777777077707777777077777077777770777777077777700000777777077777707777")
filpic7(xed2a,yed2a+029,"70777077777077777077777770777077777707777077707770777077770777777077707777770777777777777770777777707777777777777770777777777777")
filpic7(xed2a,yed2a+030,"77000777770007777000007777000777777707777700077777000777770777777700077770007777777777777707777777770777777777777707777777707777")
filpic7(xed2a,yed2a+031,"77777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777")
filpic7(xed2a,yed2a+032,"77000777777077777000077777000777700007777000007770000077770000777077707777000777777770777077707770777777707770777077707777000777")
filpic7(xed2a,yed2a+033,"70777077770707777077707770777077707770777077777770777777707777777077707777707777777770777077077770777777700700777077707770777077")
filpic7(xed2a,yed2a+034,"70707077707770777077707770777777707770777077777770777777707777777077707777707777777770777070777770777777707070777007707770777077")
filpic7(xed2a,yed2a+035,"70700077707770777000077770777777707770777000077770000777707777777000007777707777777770777007777770777777707070777070707770777077")
filpic7(xed2a,yed2a+036,"70700777700000777077707770777777707770777077777770777777707700777077707777707777777770777070777770777777707770777077007770777077")
filpic7(xed2a,yed2a+037,"70777777707770777077707770777077707770777077777770777777707770777077707777707777707770777077077770777777707770777077707770777077")
filpic7(xed2a,yed2a+038,"77000777707770777000077777000777700007777000007770777777770000777077707777000777770007777077707770000077707770777077707777000777")
filpic7(xed2a,yed2a+039,"77777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777")
filpic7(xed2a,yed2a+040,"70000777770007777000077777000777700000777077707770777077707770777077707770777077700000777000007777777777700000777777777777777777")
filpic7(xed2a,yed2a+041,"70777077707770777077707770777077777077777077707770777077707770777077707770777077777770777007777770777777777700777777777777777777")
filpic7(xed2a,yed2a+042,"70777077707770777077707770777777777077777077707770777077707770777707077777070777777707777007777777077777777700777770777777777777")
filpic7(xed2a,yed2a+043,"70000777707770777000077777000777777077777077707770777077707070777770777777707777777077777007777777707777777700777707077777777777")
filpic7(xed2a,yed2a+044,"70777777707070777070777777777077777077777077707770777077707070777707077777707777770777777007777777770777777700777077707777777777")
filpic7(xed2a,yed2a+045,"70777777707707777077077770777077777077777077707777070777700700777077707777707777707777777007777777777077777700777777777777777777")
filpic7(xed2a,yed2a+046,"70777777770070777077707777000777777077777700077777707777707770777077707777707777700000777000007777777777700000777777777770000077")
filpic7(xed2a,yed2a+047,"77777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777")
filpic7(xed2a,yed2a+048,"77077777777777777077777777777777777770777777777777770777777777777077777777707777777707777077777777007777777777777777777777777777")
filpic7(xed2a,yed2a+049,"77077777777777777077777777777777777770777777777777707777777777777077777777777777777777777077777777707777777777777777777777777777")
filpic7(xed2a,yed2a+050,"77707777770070777070077777700077770070777700077777707777770070777000077777007777777707777077077777707777700700777000077777000777")
filpic7(xed2a,yed2a+051,"77777777707700777007707777077777707700777077707777000777707700777077707777707777777707777070777777707777707077077077707770777077")
filpic7(xed2a,yed2a+052,"77777777707770777077707777077777707770777000007777707777707770777077707777707777777707777000777777707777707077077077707770777077")
filpic7(xed2a,yed2a+053,"77777777707700777007707777077777707700777077777777707777770000777077707777707777777707777077077777707777707077077077707770777077")
filpic7(xed2a,yed2a+054,"77777777770070777070077777700077770070777700077777707777777770777077707777000777777707777077707777000777707077077077707777000777")
filpic7(xed2a,yed2a+055,"77777777777777777777777777777777777777777777777777777777770007777777777777777777770077777777777777777777777777777777777777777777")
filpic7(xed2a,yed2a+056,"77777777777777777777777777777777777077777777777777777777777777777777777777777777777777777777007777707777700777777777777700000000")
filpic7(xed2a,yed2a+057,"77777777777777777777777777777777777077777777777777777777777777777777777777777777777777777770777777707777777077777777777700000000")
filpic7(xed2a,yed2a+058,"70700777770070777070077777000077700000777077707770777077707077077077707777077077700000777770777777707777777077777777707700000000")
filpic7(xed2a,yed2a+059,"70077077707700777007777770777777777077777077707770777077707077077707077777077077777707777707777777777777777707777700077700000000")
filpic7(xed2a,yed2a+060,"70777077707770777077777777000777777077777077707777070777707077077770777777077077777077777770777777707777777077777077777700000000")
filpic7(xed2a,yed2a+061,"70077077707700777077777777777077777077777077707777070777707077077707077777000077770777777770777777707777777077777777777700000000")
filpic7(xed2a,yed2a+062,"70700777770070777077777770000777777077777700007777707777770700777077707777777077700000777777007777707777700777777777777700000000")
filpic7(xed2a,yed2a+063,"70777777777770077777777777777777777777777777777777777777777777777777777777000777777777777777777777777777777777777777777700000000")
filpic7(xed2a,yed2a+064,"77777777077777777777777777000007777777770707777707070707777777777777777777777777777007777700007777777777770000070077777777700777")
filpic7(xed2a,yed2a+065,"00000000077777777770007770000077777777777070777770707070777007777777777777777777777007777770077777700077000000770000777777700777")
filpic7(xed2a,yed2a+066,"00000000077777777700007700700777777777770707777707070707770000777777777700000000770000770070070077000077000007770000007777000077")
filpic7(xed2a,yed2a+067,"00000000077777777777777770000777777777777070777770707070700000077777777700000000700000070000000077777777007000770000000077000077")
filpic7(xed2a,yed2a+068,"00000000077777777770007777000777070707070707777707070707700000077777777700000000000000007000000707700077007700000000000070000007")
filpic7(xed2a,yed2a+069,"00000000077777777770000777700777707070707070777770707070770000777777777700000000007007007700007707700007007777000000007770000007")
filpic7(xed2a,yed2a+070,"00000000077777777700000777700077070707070707777707070707777007770000000000000000777007777770077700000700777777700000777700000000")
filpic7(xed2a,yed2a+071,"00000000077777770000000777700077707070707070777770707070777777770000000000000000770000777770077777000700777777770077777700000000")
filpic7(xed2a,yed2a+072,"77777777000000077700007777000077070707077777070777000077007777770007777700007777770077777777007777777777777777777777770000000000")
filpic7(xed2a,yed2a+073,"77777777000000077070770770770707707070707777707070000007007777770007777700007777770007777770007770077007777007777777000000000000")
filpic7(xed2a,yed2a+074,"77777777000000077700007777000077070707077777070700000000007777770007777700007777077000777700077070000007000000007700000070000007")
filpic7(xed2a,yed2a+075,"77777777000000070777777777777770707070777777707000000000007777770007777700007777000000000000000070777707007777000000000070000007")
filpic7(xed2a,yed2a+076,"77777777000000070700007777000070777777777777070700000000007777770007777700007777000000000000000000777700707777070000000077000077")
filpic7(xed2a,yed2a+077,"77777777000000070000000000000000777777777777707000000000007777770007777700007777077000777700077000000000700000077700000077000077")
filpic7(xed2a,yed2a+078,"77777777000000077700007007000077777777777777070770000007007777770007777700007777770007777770007777700777700770077777000077700777")
filpic7(xed2a,yed2a+079,"00000000000000077700007007000077777777777777707077000077007777770007777700007777770077777777007777777777777777777777770077700777")
filpic7(xed2a,yed2a+080,"77777777000077777777000000000000777777770000777777770000000000007777777700007777777700000000000077777777000077777777000000000000")
filpic7(xed2a,yed2a+081,"77777777000077777777000000000000777777770000777777770000000000007777777700007777777700000000000077777777000077777777000000000000")
filpic7(xed2a,yed2a+082,"77777777000077777777000000000000777777770000777777770000000000007777777700007777777700000000000077777777000077777777000000000000")
filpic7(xed2a,yed2a+083,"77777777777777777777777777777777000077770000777700007777000077777777000077770000777700007777000000000000000000000000000000000000")
filpic7(xed2a,yed2a+084,"77777777777777777777777777777777000077770000777700007777000077777777000077770000777700007777000000000000000000000000000000000000")
filpic7(xed2a,yed2a+085,"77777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777")
filpic7(xed2a,yed2a+086,"77777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777")
filpic7(xed2a,yed2a+087,"77777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777")
filpic7(xed2a,yed2a+088,"77777777000077777777000000000000777777770000777777770000000000007777777700007777777700000000000077777777000077777777000000000000")
filpic7(xed2a,yed2a+089,"77777777000077777777000000000000777777770000777777770000000000007777777700007777777700000000000077777777000077777777000000000000")
filpic7(xed2a,yed2a+090,"77777777000077777777000000000000777777770000777777770000000000007777777700007777777700000000000077777777000077777777000000000000")
filpic7(xed2a,yed2a+091,"77777777777777777777777777777777000077770000777700007777000077777777000077770000777700007777000000000000000000000000000000000000")
filpic7(xed2a,yed2a+092,"77777777777777777777777777777777000077770000777700007777000077777777000077770000777700007777000000000000000000000000000000000000")
filpic7(xed2a,yed2a+093,"00007777000077770000777700007777000077770000777700007777000077770000777700007777000077770000777700007777000077770000777700007777")
filpic7(xed2a,yed2a+094,"00007777000077770000777700007777000077770000777700007777000077770000777700007777000077770000777700007777000077770000777700007777")
filpic7(xed2a,yed2a+095,"00007777000077770000777700007777000077770000777700007777000077770000777700007777000077770000777700007777000077770000777700007777")
filpic7(xed2a,yed2a+096,"77777770077777770000000000000077777777777770077777777777777700007770077777777777777777707777770077700777777007777777777777700777")
filpic7(xed2a,yed2a+097,"77777700007777770000000000000077777777777700007777777777777700007770077777777777777777077777700077700777777007777777777777700777")
filpic7(xed2a,yed2a+098,"77777000000777777000000700000077770000777000000777777777777770007770077777777777777770777777000077700777777007777777777777700777")
filpic7(xed2a,yed2a+099,"77770000000077777700007700000077770000770000000077700777777777000000000077777777777707777777000000000000777000000000077777700000")
filpic7(xed2a,yed2a+100,"77700000000007777777777700000077770000770000000077700777777777770000000000777777777077777777000000000000777000000000077777700000")
filpic7(xed2a,yed2a+101,"77000000000000777777777700000077770000777000000777777777777777777770077700077777770777777777000077777777777007777770077777777777")
filpic7(xed2a,yed2a+102,"70000000000000077777777700000077777777777700007777777777777777777770077700007777707777777777700077777777777007777770077777777777")
filpic7(xed2a,yed2a+103,"00000000000000007777777700000077777777777770077777777777777777777770077700007777077777777777770077777777777007777770077777777777")
filpic7(xed2a,yed2a+104,"77770770707077077777777777777777700770077770077777700777777777770777777000007777077777770077777777777777777007777777777777700777")
filpic7(xed2a,yed2a+105,"77077777707770777777777777707777000000007700007777700777777777777077770700007777707777770007777777777777777007777777777777700777")
filpic7(xed2a,yed2a+106,"77777077770700707777777777070077000000007770077777700777777777777707707700077777770777770000777777777777777007777777777777700777")
filpic7(xed2a,yed2a+107,"07777777007770777777777777000707000000007077770777700777777777777770077700777777777077770000777700000000000007777770000000000777")
filpic7(xed2a,yed2a+108,"77707770777077707700007770700077700000070007700077700777777777007770077777777777777707770000777700000000000007777770000000000777")
filpic7(xed2a,yed2a+109,"70777777070070777000000777007077770000777077770777700777777770007707707777777777777770770000777777700777777007777770077777777777")
filpic7(xed2a,yed2a+110,"77770777770777000000000077777077777007777770077777700777777000007077770777777777777777070007777777700777777007777770077777777777")
filpic7(xed2a,yed2a+111,"77777707707707070000000077777777777007777700007777700777777000000777777077777777777777700077777777700777777007777770077777777777")
filpic7(xed2a,yed2a+112,"77777777000077777777000000000000777777770000777777770000000000007777777700007777777700000000000077777777000077777777000000000000")
filpic7(xed2a,yed2a+113,"77777777000077777777000000000000777777770000777777770000000000007777777700007777777700000000000077777777000077777777000000000000")
filpic7(xed2a,yed2a+114,"77777777000077777777000000000000777777770000777777770000000000007777777700007777777700000000000077777777000077777777000000000000")
filpic7(xed2a,yed2a+115,"77777777777777777777777777777777000077770000777700007777000077777777000077770000777700007777000000000000000000000000000000000000")
filpic7(xed2a,yed2a+116,"77777777777777777777777777777777000077770000777700007777000077777777000077770000777700007777000000000000000000000000000000000000")
filpic7(xed2a,yed2a+117,"77770000777700007777000077770000777700007777000077770000777700007777000077770000777700007777000077770000777700007777000077770000")
filpic7(xed2a,yed2a+118,"77770000777700007777000077770000777700007777000077770000777700007777000077770000777700007777000077770000777700007777000077770000")
filpic7(xed2a,yed2a+119,"77770000777700007777000077770000777700007777000077770000777700007777000077770000777700007777000077770000777700007777000077770000")
filpic7(xed2a,yed2a+120,"77777777000077777777000000000000777777770000777777770000000000007777777700007777777700000000000077777777000077777777000000000000")
filpic7(xed2a,yed2a+121,"77777777000077777777000000000000777777770000777777770000000000007777777700007777777700000000000077777777000077777777000000000000")
filpic7(xed2a,yed2a+122,"77777777000077777777000000000000777777770000777777770000000000007777777700007777777700000000000077777777000077777777000000000000")
filpic7(xed2a,yed2a+123,"77777777777777777777777777777777000077770000777700007777000077777777000077770000777700007777000000000000000000000000000000000000")
filpic7(xed2a,yed2a+124,"77777777777777777777777777777777000077770000777700007777000077777777000077770000777700007777000000000000000000000000000000000000")
filpic7(xed2a,yed2a+125,"00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000")
filpic7(xed2a,yed2a+126,"00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000")
filpic7(xed2a,yed2a+127,"00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000")

y1=0:x1=0:c1=0:c2=0:a1=0:a2=0:y2=0:x2=0

for y1=0 to 23:for x1=0 to 39
  cdif=9999
  setcaption(str$(x1)+":"+str$(y1)+"(x1,y1)::"+str$(c1)+":"+str$(c2)+"(c1,c2)::"+str$(a1)+":"+str$(a2)+"(a1,a2)::"+str$(cdif))
  for c1=0 to 15: for c2=0 to 15
   if c1<>c2 then:
    for a1=0 to 15: for a2=0 to 15
      zdif=difrgbcel(512+128+(x1*2),192+(y1*3),(a1*2)+(c1*32),(a2*3)+(c2*48),2,3)
      if zdif<cdif then:
        cdif=zdif
        setcaption(str$(x1)+":"+str$(y1)+"(x1,y1)::"+str$(c1)+":"+str$(c2)+"(c1,c2)::"+str$(a1)+":"+str$(a2)+"(a1,a2)::"+str$(cdif))
        for y2=0 to 7:for x2=0 to 7
          ink(paleta[c2])
          zpo=point(512+(a1*8)+x2,192+(a2*8)+y2)
          if bitwiseand(zpo,255)>128 then:ink(paleta[c1]):end if
          dot(512+(x1*8)+x2,(y1*8)+y2)
          next:next
        end if
        'waitvbl
      next:next
     end if
    next:next
  next:next

fout$="sample_b.bmp":grab(1,512,0,320,192):saveimage(fout$,1):shell("convert "+fout$+" "+fout$+".png"):shell("rm "+fout$)
waitkey