svg2setetg.sdlbas

#! /usr/bin/sdlbrt
finp$="retrorio02.svg" '- svg file in 320x250 pixels size
shell(" convert "+finp$+" "+finp$+".bmp" )
setdisplay(640,250,32,1):paper(8^8-1):ink(0):pen(0):cls
loadimage(finp$+".bmp",1):pasteicon(0,0,1):pasteicon(320,0,1)
shell("rm "+finp$+".bmp" )
dim sttgl$[200],dtal$[200]

for y=0 to 249:for x=0 to 319
  ink(0xFFFFFF)
  if (point(320+x,y)mod 256)<128 then:ink(0x000000):end if
  dot(320+x,y)
  next:next

for ct=0 to 191
  sttgl$[ct]=str$(1100+ct)+" seteg("+str$(255)+")=\"00000000000000000000\""
  next

open finp$+"_.txt" for output as #1
setcaption("?")
ct=0
for y1=0 to 24
 a$=str$(1800+y1)+" data "
 for x1=0 to 39
  q=0
  for y2=0 to 9:for x2=0 to 7
    if (point(x1*8+x2,y1*10+y2)mod 256)<192 then:q=1:end if
    next:next
  if q<>0 then:
    ink(0xFF0000)
    if ct>=192 then:ink(0xFFFF00):end if
    if ct<192 then
      a$=a$+"&\""+right$("00"+hex$(ct),2)+"\","
      end if
    setetgo$=""
    for y2=0 to 9
     btv=0
     for x2=0 to 7
      if (point(320+x1*8+x2,y1*10+y2)mod 256)<128 then:btv+=2^(7-x2):end if
      next
     setetgo$+=right$("00"+hex$(btv),2)
     next

    'sttgl$[ct]=str$(1100+ct)+" setet("+str$(ct)+"),\""+setetgo$+"\""

    if ct<96 then:
      sttgl$[ct]=str$(1100+ct)+" setet("+str$(160+ct)+"),\""+setetgo$+"\""
      end if
    if ct>=96 then:
      sttgl$[ct]=str$(1100+ct)+" seteg("+str$(160+ct-96)+"),\""+setetgo$+"\""
      end if

    bar(x1*8,y1*10,x1*8+7,y1*10+9):ct+=1:setcaption(str$(ct))
    end if
  if q=0 then
      a$=a$+"&\""+right$("00"+hex$(255),2)+"\","
    end if
  next
 dtal$[y1]=a$
 next

for y1=0 to 191
  print #1,sttgl$[y1]:next

print #1,"1400 restore 1800"
print #1,"1401 for i=0 to 999"
print #1,"1402 read a"
print #1,"1403 if a<96 then poke 16384+(i*2),160+a:poke 16385+(i*2),64+7"
print #1,"1404 if a>=96 and a<192 then poke 16384+(i*2),160+a-96:poke 16385+(i*2),240"
print #1,"1405 if a>=192 then poke 16384+(i*2),32:poke 16385+(i*2),64+7"
print #1,"1406 display"
print #1,"1407 next i"

for y1=0 to 24
  print #1,dtal$[y1]:next

setcaption(str$(ct))
close #1

'grab(1,0,0,320,240):saveimage("pic1b.bmp",1)
waitkey