API tools faq
paste
Advertisement
Guest User

Ef9345DisplayEditorX2_tortueformat_201704022137.sdlbas

a guest
Apr 2nd, 2017
86
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
SdlBasic 19.32 KB | None | 0 0
raw download clone embed print report
  1. chcur=90:ikcur=4:ppcur=1:mbutprs=0
  2. zoommode=2:debug=0
  3.  
  4. '- to do:
  5. '-  1: test and fix bugs
  6.  
  7. debug=debug mod 2
  8. dim paleta$[16]
  9. dim z$[512]:for i=0 to 511:z$[i]="55aa55aa55aa55aa55aa":next
  10. dim setetg[5120]
  11.  
  12. paleta$[00]="0x000000":paleta$[01]="0xFF0000":paleta$[02]="0x00FF00":paleta$[03]="0xFFFF00"
  13. paleta$[04]="0x0000FF":paleta$[05]="0xFF00FF":paleta$[06]="0x00FFFF":paleta$[07]="0xFFFFFF"
  14. paleta$[08]="0x808080":paleta$[09]="0x808080":paleta$[10]="0x808080":paleta$[11]="0x808080"
  15. paleta$[12]="0x808080":paleta$[13]="0x808080":paleta$[14]="0x808080":paleta$[15]="0x808080"
  16.  
  17. z$[  0]="00384440201000100000":z$[  1]="0010280038447c440000":z$[  2]="0008103c2030203c0000":z$[  3]="000814103810243c0000"
  18. z$[  4]="001028344c444c340000":z$[  5]="00384440404044381020":z$[  6]="0028003c2030203c0000":z$[  7]="0020180038447c440000"
  19. z$[  8]="00201800444444380000":z$[  9]="0010083c2030203c0000":z$[ 10]="003c50505850503c0000":z$[ 11]="0008143c2030203c0000"
  20. z$[ 12]="000010207f2010000000":z$[ 13]="00102800301010380000":z$[ 14]="00000804fe0408000000":z$[ 15]="10101010101054381000"
  21. z$[ 16]="00182418000000000000":z$[ 17]="0010107c1010007c0000":z$[ 18]="00081038447c40380000":z$[ 19]="00280038447c40380000"
  22. z$[ 20]="00280030101010380000":z$[ 21]="00000038404040381020":z$[ 22]="0010280044444c340000":z$[ 23]="002010344c444c340000"
  23. z$[ 24]="000010007c0010000000":z$[ 25]="00201038447c40380000":z$[ 26]="0000003c525e503e0000":z$[ 27]="00102838447c40380000"
  24. z$[ 28]="0040c040444c143e0400":z$[ 29]="0040c0404c5204081e00":z$[ 30]="00e0204024cc143e0400":z$[ 31]="00102800384444380000"
  25. z$[ 32]="00000000000000000000":z$[ 33]="00101010101000100000":z$[ 34]="00282828000000000000":z$[ 35]="0028287c287c28280000"
  26. z$[ 36]="00103850381454381000":z$[ 37]="0060640810204c0c0000":z$[ 38]="00205050205448340000":z$[ 39]="00101020000000000000"
  27. z$[ 40]="00081020202010080000":z$[ 41]="00201008080810200000":z$[ 42]="00105438103854100000":z$[ 43]="000010107c1010000000"
  28. z$[ 44]="00000000000020204000":z$[ 45]="00000000003c00000000":z$[ 46]="00000000000000200000":z$[ 47]="01020204081020204080"
  29. z$[ 48]="00102844444428100000":z$[ 49]="00103010101010100000":z$[ 50]="003844041820407c0000":z$[ 51]="007c0408180444380000"
  30. z$[ 52]="00081828487c08080000":z$[ 53]="007c4078040444380000":z$[ 54]="00182040784444380000":z$[ 55]="007c0408102020200000"
  31. z$[ 56]="00384444384444380000":z$[ 57]="003844443c0404380000":z$[ 58]="00000020000000200000":z$[ 59]="00000020000020204000"
  32. z$[ 60]="00040810201008040000":z$[ 61]="0000007c007c00000000":z$[ 62]="00402010081020400000":z$[ 63]="00384404081000100000"
  33. z$[ 64]="0038445c545c40380000":z$[ 65]="00384444447c44440000":z$[ 66]="00784444784444780000":z$[ 67]="00384440404044380000"
  34. z$[ 68]="00784444444444780000":z$[ 69]="007c40407040407c0000":z$[ 70]="007c4040704040400000":z$[ 71]="00384440404c443c0000"
  35. z$[ 72]="004444447c4444440000":z$[ 73]="00381010101010380000":z$[ 74]="001c0808080848300000":z$[ 75]="00444850605048440000"
  36. z$[ 76]="004040404040407c0000":z$[ 77]="00446c54444444440000":z$[ 78]="00444464544c44440000":z$[ 79]="00384444444444380000"
  37. z$[ 80]="00784444784040400000":z$[ 81]="00384444445448340000":z$[ 82]="00784444785048440000":z$[ 83]="00384440380444380000"
  38. z$[ 84]="007c1010101010100000":z$[ 85]="00444444444444380000":z$[ 86]="00444444282810100000":z$[ 87]="00444444545454280000"
  39. z$[ 88]="00444428102844440000":z$[ 89]="00444428101010100000":z$[ 90]="007c04081020407c0000":z$[ 91]="001c10101010101c0000"
  40. z$[ 92]="80404020100804040201":z$[ 93]="00380808080808380000":z$[ 94]="00103854101010101000":z$[ 95]="000000000000000000ff"
  41. z$[ 96]="00000000ff0000000000":z$[ 97]="000000344c444c340000":z$[ 98]="00404078444444780000":z$[ 99]="00000038404040380000"
  42. z$[100]="0004043c4444443c0000":z$[101]="00000038447c40380000":z$[102]="00182420702020200000":z$[103]="0000003c44443c042418"
  43. z$[104]="00404058644444440000":z$[105]="00100030101010380000":z$[106]="00080018080808084830":z$[107]="00202024283028240000"
  44. z$[108]="00301010101010380000":z$[109]="00000068545454540000":z$[110]="00000058644444440000":z$[111]="00000038444444380000"
  45. z$[112]="00000078444444784040":z$[113]="0000003c4444443c0404":z$[114]="00000058644040400000":z$[115]="00000038403804780000"
  46. z$[116]="00202038202020180000":z$[117]="0000004444444c340000":z$[118]="00000044442828100000":z$[119]="00000044445454280000"
  47. z$[120]="00000044281028440000":z$[121]="00000044444c34044438":z$[122]="0000007c0810207c0000":z$[123]="80808080808080808080"
  48. z$[124]="10101010101010101010":z$[125]="01010101010101010101":z$[126]="ff000000000000000000":z$[127]="ffffffffffffffffffff"
  49.  
  50. z$[128+128]="00000000000000000000":z$[129+128]="70700000000000000000":z$[130+128]="07070000000000000000":z$[131+128]="77770000000000000000"
  51. z$[132+128]="00000070707000000000":z$[133+128]="70700070707000000000":z$[134+128]="07070070707000000000":z$[135+128]="77770070707000000000"
  52. z$[136+128]="00000007070700000000":z$[137+128]="70700007070700000000":z$[138+128]="07070007070700000000":z$[139+128]="77770007070700000000"
  53. z$[140+128]="00000077777700000000":z$[141+128]="70700077777700000000":z$[142+128]="07070077777700000000":z$[143+128]="77770077777700000000"
  54. z$[144+128]="00000000000000707000":z$[145+128]="70700000000000707000":z$[146+128]="07070000000000707000":z$[147+128]="77770000000000707000"
  55. z$[148+128]="00000070707000707000":z$[149+128]="70700070707000707000":z$[150+128]="07070070707000707000":z$[151+128]="77770070707000707000"
  56. z$[152+128]="00000007070700707000":z$[153+128]="70700007070700707000":z$[154+128]="07070007070700707000":z$[155+128]="77770007070700707000"
  57. z$[156+128]="00000077777700707000":z$[157+128]="70700077777700707000":z$[158+128]="07070077777700707000":z$[159+128]="77770077777700707000"
  58. z$[160+128]="00000000000000070700":z$[161+128]="70700000000000070700":z$[162+128]="07070000000000070700":z$[163+128]="77770000000000070700"
  59. z$[164+128]="00000070707000070700":z$[165+128]="70700070707000070700":z$[166+128]="07070070707000070700":z$[167+128]="77770070707000070700"
  60. z$[168+128]="00000007070700070700":z$[169+128]="70700007070700070700":z$[170+128]="07070007070700070700":z$[171+128]="77770007070700070700"
  61. z$[172+128]="00000077777700070700":z$[173+128]="70700077777700070700":z$[174+128]="07070077777700070700":z$[175+128]="77770077777700070700"
  62. z$[176+128]="00000000000000777700":z$[177+128]="70700000000000777700":z$[178+128]="07070000000000777700":z$[179+128]="77770000000000777700"
  63. z$[180+128]="00000070707000777700":z$[181+128]="70700070707000777700":z$[182+128]="07070070707000777700":z$[183+128]="77770070707000777700"
  64. z$[184+128]="00000007070700777700":z$[185+128]="70700007070700777700":z$[186+128]="07070007070700777700":z$[187+128]="77770007070700777700"
  65. z$[188+128]="00000077777700777700":z$[189+128]="70700077777700777700":z$[190+128]="07070077777700777700":z$[191+128]="77770077777700777700"
  66. z$[192+128]="00000000000000000000":z$[193+128]="f0f0f000000000000000":z$[194+128]="0f0f0f00000000000000":z$[195+128]="ffffff00000000000000"
  67. z$[196+128]="000000f0f0f0f0000000":z$[197+128]="f0f0f0f0f0f0f0000000":z$[198+128]="0f0f0ff0f0f0f0000000":z$[199+128]="fffffff0f0f0f0000000"
  68. z$[200+128]="0000000f0f0f0f000000":z$[201+128]="f0f0f00f0f0f0f000000":z$[202+128]="0f0f0f0f0f0f0f000000":z$[203+128]="ffffff0f0f0f0f000000"
  69. z$[204+128]="000000ffffffff000000":z$[205+128]="f0f0f0ffffffff000000":z$[206+128]="0f0f0fffffffff000000":z$[207+128]="ffffffffffffff000000"
  70. z$[208+128]="00000000000000f0f0f0":z$[209+128]="f0f0f000000000f0f0f0":z$[210+128]="0f0f0f00000000f0f0f0":z$[211+128]="ffffff00000000f0f0f0"
  71. z$[212+128]="000000f0f0f0f0f0f0f0":z$[213+128]="f0f0f0f0f0f0f0f0f0f0":z$[214+128]="0f0f0ff0f0f0f0f0f0f0":z$[215+128]="fffffff0f0f0f0f0f0f0"
  72. z$[216+128]="0000000f0f0f0ff0f0f0":z$[217+128]="f0f0f00f0f0f0ff0f0f0":z$[218+128]="0f0f0f0f0f0f0ff0f0f0":z$[219+128]="ffffff0f0f0f0ff0f0f0"
  73. z$[220+128]="000000fffffffff0f0f0":z$[221+128]="f0f0f0fffffffff0f0f0":z$[222+128]="0f0f0ffffffffff0f0f0":z$[223+128]="fffffffffffffff0f0f0"
  74. z$[224+128]="000000000000000f0f0f":z$[225+128]="f0f0f0000000000f0f0f":z$[226+128]="0f0f0f000000000f0f0f":z$[227+128]="ffffff000000000f0f0f"
  75. z$[228+128]="000000f0f0f0f00f0f0f":z$[229+128]="f0f0f0f0f0f0f00f0f0f":z$[230+128]="0f0f0ff0f0f0f00f0f0f":z$[231+128]="fffffff0f0f0f00f0f0f"
  76. z$[232+128]="0000000f0f0f0f0f0f0f":z$[233+128]="f0f0f00f0f0f0f0f0f0f":z$[234+128]="0f0f0f0f0f0f0f0f0f0f":z$[235+128]="ffffff0f0f0f0f0f0f0f"
  77. z$[236+128]="000000ffffffff0f0f0f":z$[237+128]="f0f0f0ffffffff0f0f0f":z$[238+128]="0f0f0fffffffff0f0f0f":z$[239+128]="ffffffffffffff0f0f0f"
  78. z$[240+128]="00000000000000ffffff":z$[241+128]="f0f0f000000000ffffff":z$[242+128]="0f0f0f00000000ffffff":z$[243+128]="ffffff00000000ffffff"
  79. z$[244+128]="000000f0f0f0f0ffffff":z$[245+128]="f0f0f0f0f0f0f0ffffff":z$[246+128]="0f0f0ff0f0f0f0ffffff":z$[247+128]="fffffff0f0f0f0ffffff"
  80. z$[248+128]="0000000f0f0f0fffffff":z$[249+128]="f0f0f00f0f0f0fffffff":z$[250+128]="0f0f0f0f0f0f0fffffff":z$[251+128]="ffffff0f0f0f0fffffff"
  81. z$[252+128]="000000ffffffffffffff":z$[253+128]="f0f0f0ffffffffffffff":z$[254+128]="0f0f0fffffffffffffff":z$[255+128]="ffffffffffffffffffff"
  82.  
  83.  
  84.  
  85.  
  86. dim mapch[40,40]:dim mapat[40,40]
  87.  
  88. '- functions and routines
  89.  
  90. function hexvl(a$)
  91.    e=asc(ucase$(a$))
  92.    hexvl=abs(((e>=48 and e<=57)*(e-48))+((e>=65 and e<=70)*(e-55)))
  93.  end function
  94.  
  95. function bytefromhexdump(a$,byteadr)
  96.    i=(byteadr*2)+1:m1$=mid$(a$,i,1):m2$=mid$(a$,i+1,1)
  97.    tmpr=(hexvl(m1$)*16)+hexvl(m2$):bytefromhexdump=tmpr
  98.  end function
  99.  
  100.  
  101. sub bindispzoom(xqq,yqq,v,i,p,xcs,ycs)
  102.   ink(p)
  103.   bar(   (xqq*xcs)*zoommode,(yqq*ycs)*zoommode,((xqq*xcs)+(xcs*8)-1)*zoommode,((yqq*ycs)+ycs-1)*zoommode  )
  104.   ink(i)
  105.   for zqq=0 to 7:ik=p:z2=7-zqq
  106.     bar(   ((xqq+zqq)*xcs)*zoommode+1,(yqq*ycs)*zoommode+1,(((xqq+zqq)*xcs)+2)*zoommode,((yqq*ycs)+2)*zoommode )
  107.     next
  108.  
  109.   for zqq=0 to 7:ik=p:z2=7-zqq
  110.     if bitwiseand(v,2^z2)<>0 then
  111.       bar(   ((xqq+zqq)*xcs)*zoommode+1,(yqq*ycs)*zoommode+1,(((xqq+zqq)*xcs)+xcs-2)*zoommode,((yqq*ycs)+ycs-2)*zoommode )
  112.       end if
  113.     next
  114.   end sub
  115.  
  116.  
  117. sub hexdumpplot(x,y,a$,i,p)
  118.   for e=0 to (len(a$)/2)-1:v=bytefromhexdump(a$,e)
  119.     for z=0 to 7:ik=p:z2=7-z
  120.       if (((int(v/(2^z2)))mod 2) and (2^z2)) then:ik=i:end if
  121.       'ink(ik):dot(x+z,y+e):next:next
  122.       ink(ik):bar((x+z)*zoommode,(y+e)*zoommode,(x+z)*zoommode+1,(y+e)*zoommode+1):next:next
  123.  end sub
  124.  
  125. sub hexdumpplotctx(xt,yt,cht,i,p)
  126.   ch=cht:a$=z$[ch]:x=xt*8:y=yt*10
  127.   for e=0 to (len(a$)/2)-1:v=bytefromhexdump(a$,e)
  128.     for z=0 to 7:ik=p:z2=7-z  
  129.       if (((int(v/(2^z2)))mod 2) and (2^z2)) then:ik=i:end if
  130.       'ink(ik):dot(x+z,y+e):next:next
  131.       ink(ik):bar((x+z)*zoommode,(y+e)*zoommode,(x+z)*zoommode+1,(y+e)*zoommode+1):next:next
  132.  end sub
  133.  
  134.  
  135. '->>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>><
  136. sub hexdumpplotctxstg(xt,yt,cht,i,p)
  137.   ch=cht:x=xt*8:y=yt*10 '-:a$=z$[ch]
  138.   for e=0 to 9:v=setetg[ch*10+e]
  139.     for z=0 to 7:ik=i:z2=7-z  
  140.       if (((int(v/(2^z2)))mod 2) and (2^z2)) then:ik=p:end if
  141.       ink(ik):bar((x+z)*zoommode,(y+e)*zoommode,(x+z)*zoommode+1,(y+e)*zoommode+1):next:next
  142.  end sub
  143.  
  144.  
  145.  
  146.  
  147.  
  148. sub printsblo(xlt,ylt,oft,a$)
  149.   xl=xlt:yl=ylt:alen=len(a$)
  150.   for iz=1 to alen
  151.     hx$=z$[ (asc(mid$(a$,iz,1))+oft)mod 256 ]
  152.     hexdumpplot(xl*8,yl*10,hx$,pen,paper):xl=xl+1
  153.     if xl>((displaywidth\8)-1) then:xl=0:yl=yl+1:end if:next
  154.   end sub
  155.  
  156. sub filchchc(ikt,ppt)
  157.   ik=ikt:pp=ppt
  158.   for y=0 to 7:for x=0 to 15:c=x+(y*16)
  159.     hexdumpplotctxstg(x+52,y+1,c,paleta$[ik mod 8],paleta$[8])
  160.     next:next
  161.   for y=10 to 15:for x=0 to 15:c=x+(y*16)
  162.     hexdumpplotctxstg(x+52,y-1,c,paleta$[ik mod 8],paleta$[8])
  163.     next:next
  164.   for y=16 to 23:for x=0 to 15:c=x+(y*16)
  165.     hexdumpplotctxstg(x+52,y-1,c,paleta$[ik mod 8],paleta$[pp mod 8])
  166.     next:next
  167.   for y=26 to 31:for x=0 to 15:c=x+(y*16)
  168.     hexdumpplotctxstg(x+52,y-3,c,paleta$[ik mod 8],paleta$[pp mod 8])
  169.     next:next
  170.  
  171.   end sub
  172.  
  173.  
  174. function posloc(pmou,poff,pws,pcsz,pzo):
  175.   return ( (pws*10)  + (int (( (pmou/pzo)-(poff*pcsz))/pcsz))  ) mod pws
  176.   end function
  177.  
  178. function posexs(pmou,poff,pws,pcsz,pzo):
  179.   vlou=1
  180.   if (pmou<((poff*pcsz)*pzo)) or (pmou>(((poff+pws)*pcsz))*pzo) then
  181.     vlou=0:end if
  182.   return vlou
  183.   end function
  184.  
  185.  
  186.  
  187. for ee=0 to 511
  188.   for e=0 to (len(z$[ee])/2)-1:v=bytefromhexdump(z$[ee],e)
  189.     setetg[ee*10+e]=v
  190.     next
  191.   next
  192.  
  193.  
  194.  
  195. '- opening display
  196.  
  197. xed=552:yed=280+20:wndwd=1
  198. setdisplay(xed*zoommode,(yed+(debug*20))*zoommode,32,wndwd):paper(paleta$[8]):ink(paleta$[0]):pen(paleta$[0]):cls
  199. setcaption("EF9345 display editor")
  200.  
  201. '- drawing stuff
  202.  
  203. for y=0 to 1:for c=0 to 15
  204.   paper(paleta$[c]):pen(paleta$[c]):ink(paleta$[c])
  205.   'printsblo(42+c,10+(y*1),0," ")
  206.   bar((336+8+c*8)*zoommode,(11+y*10)*zoommode,(344+8+c*8)*zoommode,(18+y*10)*zoommode)
  207.   next:next
  208.  
  209. '- draw zoomed setetg
  210. for y=0 to 9
  211.   'bindispzoom(43,8+y,0xFF,0xffffff,0x808080,8,8)
  212.   bindispzoom(43,8+y,setetg[chcur*10+y],0xffffff,0x808080,8,8)
  213.   next
  214.  
  215.  
  216.  
  217.  
  218. filchchc(ikcur,ppcur)
  219.  
  220. for y=0 to 24:for x=0 to 39
  221.   chrd=rnd(128)+256:ikrd=int(rnd(79)/10):pprd=int(rnd(79)/10)
  222.   paper(paleta$[pprd]):pen(paleta$[ikrd])
  223.   hexdumpplotctx(x+1,y+1,chrd,pen,paper)
  224.   mapch[x,y]=chrd
  225.   mapat[x,y]=ikrd*16+pprd
  226.   next:next
  227.  
  228. paper(paleta$[7]):pen(paleta$[0])
  229. printsblo(1,27,0,"open")
  230. printsblo(6,27,0,"save")
  231.  
  232. printsblo(44,15,0,"setet/g")
  233. printsblo(44,16,0,"copy to")
  234.  
  235. printsblo(42,18,0,"refresh")
  236.  
  237. printsblo(43,4,0,"x")
  238. printsblo(47,4,0,"x")
  239.  
  240. paper(0x808080):pen(paleta$[0])
  241. printsblo(44,4,0,"x2")
  242. printsblo(48,4,0,"y2")
  243.  
  244.  
  245. paper(paleta$[ppcur]):pen(paleta$[ikcur])
  246.  
  247.  
  248.  
  249. 'bindispzoom(0,0,0xF1,0xFF0000,0x00FF00,8,8)
  250.  
  251. do
  252.   xmou=xmouse:ymou=ymouse
  253.   xmou2=int((xmou/zoommode)/8)
  254.   ymou2=int((ymou/zoommode)/10)
  255.   ymou3=int((ymou/zoommode)/8)
  256.  
  257.  
  258.   '- debugging info
  259.   if debug=1 then:
  260.  
  261.   paper(0x808080):pen(paleta$[0])
  262.   printsblo(1,28,0, right$("000"+str$(xmou2),3)  )
  263.   printsblo(1,29,0, right$("000"+str$(ymou2),3)  )
  264.  
  265.   printsblo(6,28,0, right$("000"+str$(posloc(xmou,1,40,8,zoommode)),3)  )
  266.   printsblo(6,29,0, right$("000"+str$(posexs(xmou,1,40,8,zoommode)),3)  )
  267.   printsblo(10,28,0, right$("000"+str$(posloc(ymou,1,25,10,zoommode)),3)  )
  268.   printsblo(10,29,0, right$("000"+str$(posexs(ymou,1,25,10,zoommode)),3)  )
  269.  
  270.   printsblo(16,28,0, right$("000"+str$(posloc(xmou,52,16,8,zoommode)),3)  )
  271.   printsblo(16,29,0, right$("000"+str$(posexs(xmou,52,16,8,zoommode)),3)  )
  272.   printsblo(20,28,0, right$("000"+str$(posloc(ymou,1,28,10,zoommode)),3)  )
  273.   printsblo(20,29,0, right$("000"+str$(posexs(ymou,1,28,10,zoommode)),3)  )
  274.  
  275.   uuq1=posloc(ymou,1,32,10,zoommode)
  276.   uuq2=uuq1
  277.   if uuq1>7 then:uuq2=uuq2+2:end if
  278.   if uuq1>21 then:uuq2=uuq2+2:end if
  279.   printsblo(20,30,0, right$("000"+str$(uuq2),3) )
  280.  
  281.   chq1=uuq2*16+posloc(xmou,52,16,8,zoommode)
  282.   printsblo(20,31,0, right$("000"+str$(chq1),3) )
  283.  
  284.  
  285.   printsblo(26,28,0, right$("000"+str$(posloc(xmou,43,8,8,zoommode)),3)  )
  286.   printsblo(26,29,0, right$("000"+str$(posexs(xmou,43,8,8,zoommode)),3)  )
  287.   printsblo(30,28,0, right$("000"+str$(posloc(ymou,8,10,8,zoommode)),3)  )
  288.   printsblo(30,29,0, right$("000"+str$(posexs(ymou,8,10,8,zoommode)),3)  )
  289.   end if
  290.   '------
  291.  
  292.   '- deprecated - remove soon
  293.   x=int(xmouse/(8*2)):y=int(ymouse/(10*2))
  294.  
  295.   if bmouse<>0 then:
  296.  
  297.   '- ink
  298.   if xmou2>=43 and xmou2<=50 and ymou2=1 then
  299.     ikcur=((xmou2-43)mod 8):filchchc(ikcur,ppcur)
  300.     'ink(paleta$[8]):box((8*2)*1,(10*2)*18,(8*2)*17,(10*2)*18+1):box((8*2)*1,(10*2)*18+(7*2),(8*2)*17,(10*2)*18+(7*2)+1)
  301.     'ink(paleta$[0]):box((8*2)*x,(10*2)*18,(8*2)*x+(7*2),(10*2)*18+1):box((8*2)*x,(10*2)*18+(7*2),(8*2)*x+(7*2),(10*2)*18+(7*2)+1)
  302.  
  303.     ink(0x808080)
  304.     bar((43*8)*zoommode,(1*10)*zoommode,(51*8)*zoommode,(1*10+1)*zoommode)
  305.     bar((43*8)*zoommode,(1*10+8)*zoommode,(51*8)*zoommode,(1*10+9)*zoommode)
  306.     ink(0xC0C0C0)
  307.     bar((  (43+ikcur)  *8)*zoommode,(1*10)*zoommode,((44+ikcur)*8-1)*zoommode,(1*10+1)*zoommode)
  308.     bar((  (43+ikcur)  *8)*zoommode,(1*10+8)*zoommode,((44+ikcur)*8-1)*zoommode,(1*10+9)*zoommode)
  309.  
  310.     end if
  311.  
  312.   '- paper
  313.   if xmou2>=43 and xmou2<=50 and ymou2=2 then
  314.     ppcur=((xmou2-43)mod 8):filchchc(ikcur,ppcur)
  315.     ink(0x808080)
  316.     bar((43*8)*zoommode,(2*10)*zoommode,(51*8)*zoommode,(2*10+1)*zoommode)
  317.     bar((43*8)*zoommode,(2*10+8)*zoommode,(51*8)*zoommode,(2*10+9)*zoommode)
  318.     ink(0xC0C0C0)
  319.     bar((  (43+ppcur)  *8)*zoommode,(2*10)*zoommode,((44+ppcur)*8-1)*zoommode,(2*10+1)*zoommode)
  320.     bar((  (43+ppcur)  *8)*zoommode,(2*10+8)*zoommode,((44+ppcur)*8-1)*zoommode,(2*10+9)*zoommode)
  321.     end if
  322.  
  323.   '- putchr
  324.   if  xmou2>=1 and xmou2<=40 and ymou2>=1 and ymou2<=25 then
  325.     if chcur<256 then
  326.       ppcur=mapat[xmou2-1,ymou2-1]mod 8
  327.     end if
  328.       'hexdumpplotctx(xmou2,ymou2,chcur,paleta$[ikcur],paleta$[ppcur])
  329.       hexdumpplotctxstg(xmou2,ymou2,chcur,paleta$[ikcur],paleta$[ppcur])
  330.     mapch[xmou2-1,ymou2-1]=chcur
  331.     mapat[xmou2-1,ymou2-1]=ikcur*16+ppcur
  332.     end if
  333.  
  334.   '- getchr
  335.   if xmou2>=52 and xmou2<=67 and ymou2>=1 and ymou2<=28 then
  336.     ink(0x808080)
  337.     bar((51*8)*zoommode,(0*10)*zoommode,(69*8)*zoommode,(0*10+9)*zoommode)
  338.     bar((51*8)*zoommode,(29*10)*zoommode,(69*8)*zoommode,(29*10+9)*zoommode)
  339.     bar((51*8)*zoommode,(0*10)*zoommode,(51*8+7)*zoommode,(29*10+9)*zoommode)
  340.     bar((68*8)*zoommode,(0*10)*zoommode,(68*8+7)*zoommode,(29*10+9)*zoommode)
  341.  
  342.     ink(0xC0C0C0)
  343.     bar((xmou2*8)*zoommode,(0*10+8)*zoommode,(xmou2*8+7)*zoommode,(0*10+9)*zoommode)
  344.     bar((xmou2*8)*zoommode,(29*10+0)*zoommode,(xmou2*8+7)*zoommode,(29*10+1)*zoommode)
  345.  
  346.     bar((51*8+6)*zoommode,(ymou2*10)*zoommode,(51*8+7)*zoommode,(ymou2*10+9)*zoommode)
  347.     bar((68*8)*zoommode,(ymou2*10)*zoommode,(68*8+1)*zoommode,(ymou2*10+9)*zoommode)
  348.  
  349.  
  350.     chcur=(((xmou2-52)+(ymou2-1)*16)mod 512)
  351.     if chcur>127 then:chcur=chcur+32:end if
  352.     if chcur>383 then:chcur=chcur+32:end if
  353.  
  354.     for y=0 to 9
  355.       bindispzoom(43,8+y,setetg[chcur*10+y],0xffffff,0x808080,8,8)
  356.       next
  357.  
  358.     end if
  359.  
  360.  
  361.   'setet/seteg - important
  362.   if xmou2>=43 and xmou2<=52 and ymou3>=8 and ymou3<=18 and mbutprs=0 then
  363.     if (chcur>=160 and chcur<=255) or (chcur>=256+160 and chcur<=511) then:
  364.       setetg[chcur*10+(ymou3-8)]=bitwisexor(setetg[chcur*10+(ymou3-8)],2^(50-xmou2))
  365.       bindispzoom(43,8+(ymou3-8),setetg[chcur*10+(ymou3-8)],0xffffff,0x808080,8,8)
  366.       filchchc(ikcur,ppcur)
  367.       mbutprs=1
  368.       end if:end if
  369.  
  370.  
  371.  
  372.   end if
  373.  
  374.   '- open file
  375.   if bmouse<>0 and x>=1 and x<=4 and y=27 then
  376.     shell("a=\"$(zenity --title \"open file...\" --file-selection ~/)\"; cp \"$a\" ./dummy.bin")
  377.     open "dummy.bin" for input as #1
  378.       for y=160 to 255:for x=0 to 9
  379.         setetg[y*10+x]=readbyte(1)
  380.         next:next
  381.       for y=160 to 255:for x=0 to 9
  382.         setetg[2560+y*10+x]=readbyte(1)
  383.         next:next
  384.       for y=0 to 24:for x=0 to 39
  385.         mapch[x,y]=readbyte(1)
  386.         mapat[x,y]=readbyte(1)
  387.         hexdumpplotctxstg(x+1,y+1,mapch[x,y]+(bitwiseand(mapat[x,y],128)*2) ,paleta$[   (int(mapat[x,y]/16))mod 8     ],paleta$[mapat[x,y]mod 8])
  388.         next:next
  389.       close #1
  390.     end if
  391.  
  392.   '- save file
  393.   if bmouse<>0 and x>=6 and x<=9 and y=27 then
  394.     open "dummy.bin" for output as #1
  395.       for y=160 to 255:for x=0 to 9
  396.         writebyte(1,setetg[y*10+x])
  397.         next:next
  398.       for y=160 to 255:for x=0 to 9
  399.         writebyte(1,setetg[2560+y*10+x])
  400.         next:next
  401.       for y=0 to 24:for x=0 to 39
  402.         writebyte(1,mapch[x,y])
  403.         writebyte(1,bitwiseor(mapat[x,y], (int(mapch[x,y]/256))*128  )  )
  404.         next:next
  405.       close #1
  406.     shell("a=\"$(zenity --title \"save file...\" --save --confirm-overwrite --file-selection ./)\"; cp ./dummy.bin \"$a\"")
  407.     end if
  408.  
  409.   if bmouse=0 then:
  410.     mbutprs=0
  411.     end if
  412.  
  413.   waitvbl
  414.   loop
  415.  
  416. waitkey
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!