API tools faq
paste
Advertisement
Guest User

Ef9345DisplayEditorX2_tortueformat_201704031556.sdlbas

a guest
Apr 3rd, 2017
88
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
SdlBasic 19.64 KB | None | 0 0
raw download clone embed print report
  1. chcur=90:ikcur=3:ppcur=4: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. sub bindispzoom(xqq,yqq,v,i,p,xcs,ycs)
  101.   ink(p)
  102.   bar(   (xqq*xcs)*zoommode,(yqq*ycs)*zoommode,((xqq*xcs)+(xcs*8)-1)*zoommode,((yqq*ycs)+ycs-1)*zoommode  )
  103.   ink(i)
  104.   for zqq=0 to 7:ik=p:z2=7-zqq
  105.     bar(   ((xqq+zqq)*xcs)*zoommode+1,(yqq*ycs)*zoommode+1,(((xqq+zqq)*xcs)+2)*zoommode,((yqq*ycs)+2)*zoommode )
  106.     next
  107.   for zqq=0 to 7:ik=p:z2=7-zqq
  108.     if bitwiseand(v,2^z2)<>0 then
  109.       bar(   ((xqq+zqq)*xcs)*zoommode+1,(yqq*ycs)*zoommode+1,(((xqq+zqq)*xcs)+xcs-2)*zoommode,((yqq*ycs)+ycs-2)*zoommode )
  110.       end if
  111.     next
  112.   end sub
  113.  
  114. sub hexdumpplot(x,y,a$,i,p)
  115.   for e=0 to (len(a$)/2)-1:v=bytefromhexdump(a$,e)
  116.     for z=0 to 7:ik=p:z2=7-z
  117.       if (((int(v/(2^z2)))mod 2) and (2^z2)) then:ik=i:end if
  118.       'ink(ik):dot(x+z,y+e):next:next
  119.       ink(ik):bar((x+z)*zoommode,(y+e)*zoommode,(x+z)*zoommode+1,(y+e)*zoommode+1):next:next
  120.  end sub
  121.  
  122. sub hexdumpplotctx(xt,yt,cht,i,p)
  123.   ch=cht:a$=z$[ch]:x=xt*8:y=yt*10
  124.   for e=0 to (len(a$)/2)-1:v=bytefromhexdump(a$,e)
  125.     for z=0 to 7:ik=p:z2=7-z  
  126.       if (((int(v/(2^z2)))mod 2) and (2^z2)) then:ik=i:end if
  127.       'ink(ik):dot(x+z,y+e):next:next
  128.       ink(ik):bar((x+z)*zoommode,(y+e)*zoommode,(x+z)*zoommode+1,(y+e)*zoommode+1):next:next
  129.  end sub
  130.  
  131. sub hexdumpplotctxstg(xt,yt,cht,i,p)
  132.   ch=cht:x=xt*8:y=yt*10 '-:a$=z$[ch]
  133.   for e=0 to 9:v=setetg[ch*10+e]
  134.     for z=0 to 7:ik=i:z2=7-z  
  135.       if (((int(v/(2^z2)))mod 2) and (2^z2)) then:ik=p:end if
  136.       ink(ik):bar((x+z)*zoommode,(y+e)*zoommode,(x+z)*zoommode+1,(y+e)*zoommode+1):next:next
  137.  end sub
  138.  
  139. sub printsblo(xlt,ylt,oft,a$)
  140.   xl=xlt:yl=ylt:alen=len(a$)
  141.   for iz=1 to alen
  142.     hx$=z$[ (asc(mid$(a$,iz,1))+oft)mod 256 ]
  143.     hexdumpplot(xl*8,yl*10,hx$,pen,paper):xl=xl+1
  144.     if xl>((displaywidth\8)-1) then:xl=0:yl=yl+1:end if:next
  145.   end sub
  146.  
  147. sub refreshchrpalette(ikt,ppt)
  148.   ik=ikt:pp=ppt
  149.   for y=0 to 7:for x=0 to 15:c=x+(y*16)
  150.     hexdumpplotctxstg(x+52,y+1,c,paleta$[ik mod 8],paleta$[8])
  151.     next:next
  152.   for y=10 to 15:for x=0 to 15:c=x+(y*16)
  153.     hexdumpplotctxstg(x+52,y-1,c,paleta$[ik mod 8],paleta$[8])
  154.     next:next
  155.   for y=16 to 23:for x=0 to 15:c=x+(y*16)
  156.     hexdumpplotctxstg(x+52,y-1,c,paleta$[ik mod 8],paleta$[pp mod 8])
  157.     next:next
  158.   for y=26 to 31:for x=0 to 15:c=x+(y*16)
  159.     hexdumpplotctxstg(x+52,y-3,c,paleta$[ik mod 8],paleta$[pp mod 8])
  160.     next:next
  161.   end sub
  162.  
  163. sub refreshdispedit()
  164.   pplast=0
  165.   for y=0 to 24:for x=0 to 39
  166.     if bitwiseand(mapat[x,y],128)<>0 then
  167.       pplast= (int(mapat[x,y]/16))mod 8  
  168.       end if
  169.     hexdumpplotctxstg(x+1,y+1,mapch[x,y]+(bitwiseand(mapat[x,y],128)*2) ,paleta$[ pplast   ],paleta$[mapat[x,y]mod 8 ])    
  170.     next:next
  171.   end sub
  172.  
  173. function posloc(pmou,poff,pws,pcsz,pzo):
  174.   return ( (pws*10)  + (int (( (pmou/pzo)-(poff*pcsz))/pcsz))  ) mod pws
  175.   end function
  176.  
  177. function posexs(pmou,poff,pws,pcsz,pzo):
  178.   vlou=1
  179.   if (pmou<((poff*pcsz)*pzo)) or (pmou>(((poff+pws)*pcsz))*pzo) then
  180.     vlou=0:end if
  181.   return vlou
  182.   end function
  183.  
  184. sub refreshikppcur()
  185.   ink(0x808080)
  186.   bar((43*8)*zoommode,(1*10)*zoommode,(51*8)*zoommode,(1*10+1)*zoommode)
  187.   bar((43*8)*zoommode,(1*10+8)*zoommode,(51*8)*zoommode,(1*10+9)*zoommode)
  188.   bar((43*8)*zoommode,(2*10)*zoommode,(51*8)*zoommode,(2*10+1)*zoommode)
  189.   bar((43*8)*zoommode,(2*10+8)*zoommode,(51*8)*zoommode,(2*10+9)*zoommode)
  190.   ink(0xC0C0C0)
  191.   bar((  (43+ikcur)  *8)*zoommode,(1*10)*zoommode,((44+ikcur)*8-1)*zoommode,(1*10+1)*zoommode)
  192.   bar((  (43+ikcur)  *8)*zoommode,(1*10+8)*zoommode,((44+ikcur)*8-1)*zoommode,(1*10+9)*zoommode)
  193.   bar((  (43+ppcur)  *8)*zoommode,(2*10)*zoommode,((44+ppcur)*8-1)*zoommode,(2*10+1)*zoommode)
  194.   bar((  (43+ppcur)  *8)*zoommode,(2*10+8)*zoommode,((44+ppcur)*8-1)*zoommode,(2*10+9)*zoommode)
  195.   end sub
  196.  
  197. sub refreshchcur(xmt,ymt)
  198.   ink(0x808080)
  199.   bar((51*8)*zoommode,(0*10)*zoommode,(69*8)*zoommode,(0*10+9)*zoommode)
  200.   bar((51*8)*zoommode,(29*10)*zoommode,(69*8)*zoommode,(29*10+9)*zoommode)
  201.   bar((51*8)*zoommode,(0*10)*zoommode,(51*8+7)*zoommode,(29*10+9)*zoommode)
  202.   bar((68*8)*zoommode,(0*10)*zoommode,(68*8+7)*zoommode,(29*10+9)*zoommode)
  203.   ink(0xC0C0C0)
  204.   bar((xmt*8)*zoommode,(0*10+8)*zoommode,(xmt*8+7)*zoommode,(0*10+9)*zoommode)
  205.   bar((xmt*8)*zoommode,(29*10+0)*zoommode,(xmt*8+7)*zoommode,(29*10+1)*zoommode)
  206.   bar((51*8+6)*zoommode,(ymt*10)*zoommode,(51*8+7)*zoommode,(ymt*10+9)*zoommode)
  207.   bar((68*8)*zoommode,(ymt*10)*zoommode,(68*8+1)*zoommode,(ymt*10+9)*zoommode)
  208.   end sub
  209.  
  210.  
  211. '--------------------------
  212.  
  213. for ee=0 to 511
  214.   for e=0 to (len(z$[ee])/2)-1:v=bytefromhexdump(z$[ee],e)
  215.     setetg[ee*10+e]=v
  216.     next
  217.   next
  218.  
  219.  
  220.  
  221. '- opening display
  222.  
  223. xed=552:yed=280+20:wndwd=1
  224. setdisplay(xed*zoommode,(yed+(debug*20))*zoommode,32,wndwd):paper(paleta$[8]):ink(paleta$[0]):pen(paleta$[0]):cls
  225. setcaption("EF9345 display editor")
  226.  
  227. '- drawing stuff
  228.  
  229. for y=0 to 1:for c=0 to 15
  230.   paper(paleta$[c]):pen(paleta$[c]):ink(paleta$[c])
  231.   'printsblo(42+c,10+(y*1),0," ")
  232.   bar((336+8+c*8)*zoommode,(11+y*10)*zoommode,(344+8+c*8)*zoommode,(18+y*10)*zoommode)
  233.   next:next
  234.  
  235. '- draw zoomed setetg
  236. for y=0 to 9
  237.   'bindispzoom(43,8+y,0xFF,0xffffff,0x808080,8,8)
  238.   bindispzoom(43,8+y,setetg[chcur*10+y],0xffffff,0x808080,8,8)
  239.   next
  240.  
  241.  
  242.  
  243.  
  244. refreshchrpalette(ikcur,ppcur)
  245.  
  246. for y=0 to 24:for x=0 to 39
  247.   chrd=rnd(128)+256:ikrd=int(rnd(79)/10):pprd=int(rnd(79)/10)
  248.   mapch[x,y]=chrd
  249.   mapat[x,y]=ikrd*16+pprd
  250.   next:next
  251.  
  252. refreshdispedit()
  253.  
  254.  
  255. paper(paleta$[7]):pen(paleta$[0])
  256. printsblo(1,27,0,"open")
  257. printsblo(6,27,0,"save")
  258.  
  259. printsblo(44,15,0,"setet/g")
  260. printsblo(44,16,0,"copy to")
  261.  
  262. printsblo(42,18,0,"refresh")
  263.  
  264. printsblo(43,4,0,"x")
  265. printsblo(47,4,0,"x")
  266.  
  267. paper(0x808080):pen(paleta$[0])
  268. printsblo(44,4,0,"x2")
  269. printsblo(48,4,0,"y2")
  270.  
  271.  
  272. paper(paleta$[ppcur]):pen(paleta$[ikcur])
  273.  
  274.  
  275.  
  276. 'bindispzoom(0,0,0xF1,0xFF0000,0x00FF00,8,8)
  277.  
  278. do
  279.   xmou=xmouse:ymou=ymouse
  280.   xmou2=int((xmou/zoommode)/8)
  281.   ymou2=int((ymou/zoommode)/10)
  282.   ymou3=int((ymou/zoommode)/8)
  283.  
  284.  
  285.   '- debugging info
  286.   if debug=1 then:
  287.     paper(0x808080):pen(paleta$[0])
  288.     printsblo(1,28,0, right$("000"+str$(xmou2),3)  )
  289.     printsblo(1,29,0, right$("000"+str$(ymou2),3)  )
  290.     printsblo(6,28,0, right$("000"+str$(posloc(xmou,1,40,8,zoommode)),3)  )
  291.     printsblo(6,29,0, right$("000"+str$(posexs(xmou,1,40,8,zoommode)),3)  )
  292.     printsblo(10,28,0, right$("000"+str$(posloc(ymou,1,25,10,zoommode)),3)  )
  293.     printsblo(10,29,0, right$("000"+str$(posexs(ymou,1,25,10,zoommode)),3)  )
  294.     printsblo(16,28,0, right$("000"+str$(posloc(xmou,52,16,8,zoommode)),3)  )
  295.     printsblo(16,29,0, right$("000"+str$(posexs(xmou,52,16,8,zoommode)),3)  )
  296.     printsblo(20,28,0, right$("000"+str$(posloc(ymou,1,28,10,zoommode)),3)  )
  297.     printsblo(20,29,0, right$("000"+str$(posexs(ymou,1,28,10,zoommode)),3)  )
  298.     uuq1=posloc(ymou,1,32,10,zoommode)
  299.     uuq2=uuq1
  300.     if uuq1>7 then:uuq2=uuq2+2:end if
  301.     if uuq1>21 then:uuq2=uuq2+2:end if
  302.     printsblo(20,30,0, right$("000"+str$(uuq2),3) )
  303.     chq1=uuq2*16+posloc(xmou,52,16,8,zoommode)
  304.     printsblo(20,31,0, right$("000"+str$(chq1),3) )
  305.     printsblo(26,28,0, right$("000"+str$(posloc(xmou,43,8,8,zoommode)),3)  )
  306.     printsblo(26,29,0, right$("000"+str$(posexs(xmou,43,8,8,zoommode)),3)  )
  307.     printsblo(30,28,0, right$("000"+str$(posloc(ymou,8,10,8,zoommode)),3)  )
  308.     printsblo(30,29,0, right$("000"+str$(posexs(ymou,8,10,8,zoommode)),3)  )
  309.     end if
  310.   '------
  311.  
  312.   '- deprecated - remove soon
  313.   x=int(xmouse/(8*2)):y=int(ymouse/(10*2))
  314.  
  315.   if bmouse<>0 then:
  316.  
  317.   '- ink
  318.   if xmou2>=43 and xmou2<=50 and ymou2=1 then
  319.     ikcur=((xmou2-43)mod 8):refreshchrpalette(ikcur,ppcur)
  320.     '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)
  321.     '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)
  322.     refreshikppcur()
  323.     end if
  324.  
  325.   '- paper
  326.   if xmou2>=43 and xmou2<=50 and ymou2=2 then
  327.     ppcur=((xmou2-43)mod 8):refreshchrpalette(ikcur,ppcur)
  328.     refreshikppcur()
  329.     end if
  330.  
  331.   '- putchr
  332.   if  xmou2>=1 and xmou2<=40 and ymou2>=1 and ymou2<=25 then
  333.     if chcur<256 then
  334.       ppcur=mapat[xmou2-1,ymou2-1]mod 8
  335.     end if
  336.       'hexdumpplotctx(xmou2,ymou2,chcur,paleta$[ikcur],paleta$[ppcur])
  337.       hexdumpplotctxstg(xmou2,ymou2,chcur,paleta$[ikcur],paleta$[ppcur])
  338.     mapch[xmou2-1,ymou2-1]=chcur
  339.     mapat[xmou2-1,ymou2-1]=ikcur*16+ppcur
  340.     end if
  341.  
  342.   '- getchr
  343.   if xmou2>=52 and xmou2<=67 and ymou2>=1 and ymou2<=28 then
  344.  
  345.     refreshchcur(xmou2,ymou2)
  346.     chcur=(((xmou2-52)+(ymou2-1)*16)mod 512)
  347.     if chcur>127 then:chcur=chcur+32:end if
  348.     if chcur>383 then:chcur=chcur+32:end if
  349.  
  350.     for y=0 to 9
  351.       bindispzoom(43,8+y,setetg[chcur*10+y],0xffffff,0x808080,8,8)
  352.       next
  353.  
  354.     end if
  355.  
  356.  
  357.   'setet/seteg - important
  358.   if xmou2>=43 and xmou2<=52 and ymou3>=8 and ymou3<=18 and mbutprs=0 then
  359.     if (chcur>=160 and chcur<=255) or (chcur>=256+160 and chcur<=511) then:
  360.       setetg[chcur*10+(ymou3-8)]=bitwisexor(setetg[chcur*10+(ymou3-8)],2^(50-xmou2))
  361.       bindispzoom(43,8+(ymou3-8),setetg[chcur*10+(ymou3-8)],0xffffff,0x808080,8,8)
  362.       refreshchrpalette(ikcur,ppcur)
  363.       mbutprs=1
  364.       end if:end if
  365.  
  366.  
  367.  
  368.   end if
  369.  
  370.   '- open file
  371.   if bmouse<>0 and x>=1 and x<=4 and y=27 then
  372.     shell("a=\"$(zenity --title \"open file...\" --file-selection ~/)\"; cp \"$a\" ./dummy.bin")
  373.     open "dummy.bin" for input as #1
  374.       for y=160 to 255:for x=0 to 9
  375.         setetg[y*10+x]=readbyte(1)
  376.         next:next
  377.       for y=160 to 255:for x=0 to 9
  378.         setetg[2560+y*10+x]=readbyte(1)
  379.         next:next
  380.  
  381.       for y=0 to 24:for x=0 to 39
  382.         mapch[x,y]=readbyte(1)
  383.         mapat[x,y]=readbyte(1)
  384.         next:next
  385.  
  386.       refreshdispedit()
  387.       refreshchrpalette(ikcur,ppcur)
  388.       refreshikppcur()
  389.       refreshchcur(60,1)  '-???? <-fix!!!!! :D
  390.  
  391.       close #1
  392.     end if
  393.  
  394.   '- save file
  395.   if bmouse<>0 and x>=6 and x<=9 and y=27 then
  396.     open "dummy.bin" for output as #1
  397.       for y=160 to 255:for x=0 to 9
  398.         writebyte(1,setetg[y*10+x])
  399.         next:next
  400.       for y=160 to 255:for x=0 to 9
  401.         writebyte(1,setetg[2560+y*10+x])
  402.         next:next
  403.       for y=0 to 24:for x=0 to 39
  404.         writebyte(1,mapch[x,y])
  405.         writebyte(1,bitwiseor(mapat[x,y], (int(mapch[x,y]/256))*128  )  )
  406.         next:next
  407.       close #1
  408.     shell("a=\"$(zenity --title \"save file...\" --save --confirm-overwrite --file-selection ./)\"; cp ./dummy.bin \"$a\"")
  409.     end if
  410.  
  411.   if bmouse=0 then:
  412.     mbutprs=0
  413.     end if
  414.  
  415.   waitvbl
  416.   loop
  417.  
  418. 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!