--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/Interface.pde	Tue Jul 03 20:56:55 2018 +0300
@@ -0,0 +1,1351 @@
+// This collects UI stuff that's not directly related to the viewport
+// i.e. Icons, color selectors and the like, but also undo/spare
+
+//fixed raster parameters
+int g_raster_offset_x;
+int g_raster_offset_y;
+int g_raster_no;
+
+byte[] g_depressed = new byte[256];
+
+int g_fixedraster[]={
+  1,0,0,0,1,0,0,0,
+  0,0,1,0,0,0,1,0,
+  1,0,0,0,1,0,0,0,
+  0,0,1,0,0,0,1,0,
+  1,0,0,0,1,0,0,0,
+  0,0,1,0,0,0,1,0,
+  1,0,0,0,1,0,0,0,
+  0,0,1,0,0,0,1,0};
+
+int g_rasterpatterns[]={
+  
+  0,1,1,1,0,1,1,1,
+  1,1,1,1,1,1,1,1,
+  1,1,0,1,1,1,0,1,
+  1,1,1,1,1,1,1,1,
+  0,1,1,1,0,1,1,1,
+  1,1,1,1,1,1,1,1,
+  1,1,0,1,1,1,0,1,
+  1,1,1,1,1,1,1,1,
+  
+  0,1,1,1,0,1,1,1,
+  1,1,0,1,1,1,0,1,
+  0,1,1,1,0,1,1,1,
+  1,1,0,1,1,1,0,1,
+  0,1,1,1,0,1,1,1,
+  1,1,0,1,1,1,0,1,
+  0,1,1,1,0,1,1,1,
+  1,1,0,1,1,1,0,1,
+    
+  0,1,1,1,0,1,1,1,
+  1,0,1,0,1,0,1,0,
+  1,1,0,1,1,1,0,1,
+  1,0,1,0,1,0,1,0,
+  0,1,1,1,0,1,1,1,
+  1,0,1,0,1,0,1,0,
+  1,1,0,1,1,1,0,1,
+  1,0,1,0,1,0,1,0,
+  
+  1,0,1,0,1,0,1,0,
+  0,1,0,1,0,1,0,1,
+  1,0,1,0,1,0,1,0,
+  0,1,0,1,0,1,0,1,
+  1,0,1,0,1,0,1,0,
+  0,1,0,1,0,1,0,1,
+  1,0,1,0,1,0,1,0,
+  0,1,0,1,0,1,0,1,
+
+  1,0,0,0,1,0,0,0,
+  0,1,0,1,0,1,0,1,
+  0,0,1,0,0,0,1,0,
+  0,1,0,1,0,1,0,1,
+  1,0,0,0,1,0,0,0,
+  0,1,0,1,0,1,0,1,
+  0,0,1,0,0,0,1,0,
+  0,1,0,1,0,1,0,1,
+  
+  1,0,0,0,1,0,0,0,
+  0,0,1,0,0,0,1,0,
+  1,0,0,0,1,0,0,0,
+  0,0,1,0,0,0,1,0,
+  1,0,0,0,1,0,0,0,
+  0,0,1,0,0,0,1,0,
+  1,0,0,0,1,0,0,0,
+  0,0,1,0,0,0,1,0,
+  
+  1,0,0,0,1,0,0,0,
+  0,0,0,0,0,0,0,0,
+  0,0,1,0,0,0,1,0,
+  0,0,0,0,0,0,0,0,
+  1,0,0,0,1,0,0,0,
+  0,0,0,0,0,0,0,0,
+  0,0,1,0,0,0,1,0,
+  0,0,0,0,0,0,0,0,
+   
+  1,1,1,1,1,1,1,1,
+  0,0,0,0,0,0,0,0,
+  1,1,1,1,1,1,1,1,
+  0,0,0,0,0,0,0,0,
+  1,1,1,1,1,1,1,1,
+  0,0,0,0,0,0,0,0,
+  1,1,1,1,1,1,1,1,
+  0,0,0,0,0,0,0,0,
+  
+  1,0,1,0,1,0,1,0,
+  0,0,0,0,0,0,0,0,
+  1,0,1,0,1,0,1,0,
+  0,0,0,0,0,0,0,0,
+  1,0,1,0,1,0,1,0,
+  0,0,0,0,0,0,0,0,
+  1,0,1,0,1,0,1,0,
+  0,0,0,0,0,0,0,0,
+
+  1,0,1,0,1,0,1,0,
+  1,0,1,0,1,0,1,0,
+  1,0,1,0,1,0,1,0,
+  1,0,1,0,1,0,1,0,
+  1,0,1,0,1,0,1,0,
+  1,0,1,0,1,0,1,0,
+  1,0,1,0,1,0,1,0,
+  1,0,1,0,1,0,1,0  
+};
+
+
+void setup_raster()
+{
+  g_raster_offset_x=0;
+  g_raster_offset_y=0;
+  g_raster_no=3;
+  set_fixed_raster(g_raster_no);
+}
+
+void fixed_raster_command(int par)
+{
+  if(par=='p'){
+    g_raster_no--;
+    if(g_raster_no<0)g_raster_no=9;
+    set_fixed_raster(g_raster_no);
+    g_data['r']=1;
+  }
+  if(par=='n'){
+    g_raster_no++;
+    if(g_raster_no>9)g_raster_no=0;
+    set_fixed_raster(g_raster_no);
+    g_data['r']=1; 
+  }
+  if(par=='x'){
+    g_raster_offset_x++;
+    if(g_raster_offset_x>3)g_raster_offset_x=0;
+  }
+  if(par=='y'){
+    g_raster_offset_y++;
+    if(g_raster_offset_y>3)g_raster_offset_y=0;
+  }  
+}
+
+int magmode()
+{
+  //return the mode "number" based on g_uizoom and 'm' and 'M'
+  //currently valid outputs are 0,10,20,1,11,21,2,12,22
+  int base=0;
+  if(g_uizoom==1)base=10;
+  if(g_uizoom==3)base=20;
+  if(g_data['M']==1&&g_data['m']==1)g_data['m']=0;
+  if(g_data['m']==1)base++;
+  if(g_data['M']==1)base=base+2;
+  return base;
+}
+
+int magx()
+{
+  //return the amount of horizontal 8x8 characters in current mode ('m' or 'M')
+  int psize,mag;
+  psize=g_magpix[magmode()];mag=psize*8;
+  return (width-(33*g_uizoom))/mag;
+}
+
+int magy()
+{
+  //return the amount of vertical 8x8 characters in current mode ('m' or 'M')  
+  int psize,mag;
+  psize=g_magpiy[magmode()];mag=psize*8;
+  return (height-(33*g_uizoom))/mag; //how many chars in a magmode
+}
+
+void ustats()
+{
+//a debug thingie in case the step undo does not work
+//println("UINDEX:"+g_uindex[g_spare]);
+//println("UTOP:"+g_utop[g_spare]);
+//println("UBOTTOM:"+g_ubottom[g_spare]);
+}
+
+void store_undo() //to_undo
+{
+  if(g_spare==0)g_undob[g_uindex[g_spare]]=g_map.clone();
+  if(g_spare==1)g_undobs[g_uindex[g_spare]]=g_map.clone();
+  g_uindex[g_spare]++;
+  if(g_uindex[g_spare]>10)g_uindex[g_spare]=0;
+  if(g_uindex[g_spare]==g_ubottom[g_spare]){
+    g_ubottom[g_spare]++;
+    if(g_ubottom[g_spare]>10)g_ubottom[g_spare]=0;
+  }  
+  g_utop[g_spare]=g_uindex[g_spare];
+  
+  refreshpalette();
+  ustats();
+}
+
+void restore_undo()
+{
+  if(g_uindex[g_spare]==g_ubottom[g_spare])return;
+  if(g_spare==0)g_undob[g_uindex[g_spare]]=g_map.clone();
+  if(g_spare==1)g_undobs[g_uindex[g_spare]]=g_map.clone();
+  g_uindex[g_spare]--;
+  if(g_uindex[g_spare]<0)g_uindex[g_spare]=10;
+  if(g_spare==0)g_map=g_undob[g_uindex[g_spare]].clone();
+  if(g_spare==1)g_map=g_undobs[g_uindex[g_spare]].clone();
+  
+  refreshpalette();
+  ustats();
+}
+
+void redo_undo()
+{
+  if(g_uindex[g_spare]==g_utop[g_spare])return;
+  g_uindex[g_spare]++;
+  if(g_uindex[g_spare]>10)g_uindex[g_spare]=0;
+  if(g_spare==0)g_map=g_undob[g_uindex[g_spare]].clone();
+  if(g_spare==1)g_map=g_undobs[g_uindex[g_spare]].clone();
+  if(g_uindex[g_spare]>10)g_uindex[g_spare]=0;
+  refreshpalette();
+  ustats();
+}
+
+void spare() //dpaint style spare page
+{
+  if(g_spare==0){// in REAL page, change to SPARE page
+       g_swappage=g_sparepage.clone();g_sparepage=g_map.clone();
+       g_map=g_swappage.clone();frame.setTitle(sfilename);
+  }
+  else
+  {// in SPARE page, change to REAL page
+       g_swappage=g_sparepage.clone();g_sparepage=g_map.clone();
+       g_map=g_swappage.clone();frame.setTitle(filename);
+  }
+  g_spare=1-g_spare;
+  g_realfront=byte(g_farge);g_realback=byte(g_backg);
+  refreshpalette();
+}
+
+void switcher(int di)
+{
+  // this achieves varieties of whole screen copying
+  // needed for brush copy and pre-drawing the shapes when a
+  // tool is active etc.
+  switch(di)
+  {
+    case 0:
+      g_rmap=g_map.clone();
+    break;
+    case 1:
+      g_map=g_rmap.clone();
+      for(int i=0;i<1024;i++){
+        if(g_remdo[i]==1){g_remdo[i]=0;g_redo[i]=0;}
+      }
+    break;
+    case 2:
+      g_brush=g_map.clone();
+    break;
+    case 3:
+       g_sparepage=g_map.clone();
+    break;
+    case 4:
+       g_map=g_sparepage.clone();
+    break;
+  }
+}
+
+void sussborder(){  
+  makecolor(259,g_r[g_map[0]],g_g[g_map[0]],g_b[g_map[0]]);
+  g_boxreconstruct=2;
+}
+
+void makecolor(int c, int rr,int gg,int bb)
+{
+  //0-255 go to g_map[] up until 1021-1023
+  //the rest is not stored
+  if(c<256){
+    g_map[256+c*3]=byte(rr);
+    g_map[256+c*3+1]=byte(gg);
+    g_map[256+c*3+2]=byte(bb);
+  }
+  g_r[c]=rr;g_g[c]=gg;g_b[c]=bb;
+  g_rgb[c]=0xff000000;
+  g_rgb[c]=g_rgb[c]+rr*0x00010000;
+  g_rgb[c]=g_rgb[c]+gg*0x00000100;
+  g_rgb[c]=g_rgb[c]+bb*0x00000001;  
+}
+
+int fylli()
+{
+  //for the animated rubberband thingy
+  g_rband++;
+  if(g_rband>g_rbang){
+    g_rband=0;g_rbang++;if(g_rbang>12)g_rbang=8;
+  }
+  if(g_rband>=3)return 0;
+  return 1;
+}
+
+void e_rect(int x1,int y1,int w,int h,int rgb)
+{
+  int ad=x1+y1*width;
+  //updatepixels has to be handled elsewhere
+  for(int yy=0;yy<h;yy++){
+    for(int xx=0;xx<w;xx++){
+      pixels[ad+xx]=rgb;
+    }
+    ad=ad+width;
+  }
+}
+
+void d_rect(int x1,int y1,int w,int h,int rgb)
+{
+  int ad=x1+y1*width;
+  //updatepixels has to be handled elsewhere
+  for(int yy=0;yy<h;yy++){
+    for(int xx=0;xx<w;xx++){
+      if(xx==0||yy==0||xx==w-1||yy==h-1)pixels[ad+xx]=rgb;
+    }
+    ad=ad+width;
+  }
+}
+
+void t_rect(int x1,int y1,int w,int h,int rgb)
+{
+  // transparent rectangle
+  // fixed tp, for grid drawing
+
+  //the updatepixels rigmarole has to be handled elsewhere
+  int r,g,b,s,fout;
+  int ad=x1+y1*width;
+  
+  if(g_gridmode==NEW){
+  for(int yy=0;yy<h;yy++){
+    for(int xx=0;xx<w;xx++){
+      s=pixels[ad+xx];fout=0;
+      if(g_rgb[0]==s)fout=g_grids[0];
+      if(g_rgb[1]==s)fout=g_grids[1];
+      if(g_rgb[2]==s)fout=g_grids[2];
+      if(g_rgb[3]==s)fout=g_grids[3];
+      if(g_rgb[4]==s)fout=g_grids[4];
+      if(g_rgb[5]==s)fout=g_grids[5];
+      if(g_rgb[6]==s)fout=g_grids[6];
+      if(g_rgb[7]==s)fout=g_grids[7];
+      if(g_rgb[8]==s)fout=g_grids[8];
+      if(g_rgb[9]==s)fout=g_grids[9];
+      if(g_rgb[10]==s)fout=g_grids[10];
+      if(g_rgb[11]==s)fout=g_grids[11];
+      if(g_rgb[12]==s)fout=g_grids[12];
+      if(g_rgb[13]==s)fout=g_grids[13];
+      if(g_rgb[14]==s)fout=g_grids[14];
+      if(g_rgb[15]==s)fout=g_grids[15];      
+      pixels[ad+xx]=fout;
+    }
+    ad=ad+width;
+  }
+  return;
+  }
+  
+  for(int yy=0;yy<h;yy++){
+    for(int xx=0;xx<w;xx++){
+      s=pixels[ad+xx];  
+      r=s&0x00ff0000;r=r>>16;
+      g=s&0x0000ff00;g=g>>8;
+      b=s&0x000000ff;
+      g=g+64;
+      r=r*2;g=g*2;b=b*2;
+      r=r/3;g=g/3;b=b/3;
+      pixels[ad+xx]=0xff000000+r*0x10000+g*0x100+b;
+    }
+    ad=ad+width;
+  }  
+}
+
+
+// parameter store/restore in case some functions need to bypass grid, attribute modes etc
+
+void storeparameters()
+{
+  for(int i=0;i<=255;i++)
+  {
+    g_data[767+i]=g_data[i];
+  }
+}
+
+void restoreparameters()
+{
+  for(int i=0;i<=255;i++)
+  {
+    g_data[i]=g_data[767+i];
+  }
+}
+
+void drawtext(int xo,int yo, String ss)
+{
+  //draw a bunch of text maybe not needed
+  for(int i=0;i<ss.length();i++){
+    drawchar(xo+i*8*2,yo,ss.charAt(i));
+  }
+}
+
+void drawicon(int xo,int yo, int t,int mm)
+{
+  //draw one icon
+  int ad,cad,xx,yy,pop,far;
+  int metal;
+  yy=t/16;xx=t-yy*16;xx=xx*2;yy=yy*2;
+  ad=1024+xx*8+yy*2048;
+    for(int y=0;y<=15;y++){            
+       for(int x=0;x<=15;x++){    
+         metal=0xffa0a0a0;
+         far=0xff000000;
+         if(t==18){
+           if(x<15&&y<15)far=int(g_rgb[g_farge]);
+         }
+         if(t==19&&g_backmode==1){
+           if(x<15&&y<15)far=int(g_rgb[g_farge]);
+         }
+         if(g_depressed[t]>0)metal=0xff606060;
+         
+         if(x==0||y==0){
+           metal=0xffe0e0e0;
+           if(g_depressed[t]>0)metal=0xff303030;
+           if(t==56||t==9)metal=0xffa0a0a0;
+         }
+         pop=1;cad=65536+(xx+x/8)+yy*256+y*32; 
+         if(int(g_icons[cad])==0)pop=0;
+         if(int(g_icons[ad+x])==pop){
+            far=metal;
+            if(mm==1)far=0xffffff80;
+         }
+         if(t==66){//raster icon
+           if(x>=1&&y>=2&&x<=13&&y<=12){
+             far=metal;if(mm==1)far=0xffffff80;
+             if(get_raster(x+1,y)==1)far=0xff000000;
+          }
+        }
+        e_rect(xo+x*g_uizoom,yo+y*g_uizoom,g_uizoom,g_uizoom,far);
+      }
+      ad=ad+256;
+    }
+}
+
+void drawchar(int xo,int yo, int t)
+{
+  //characters at the help box
+  int ad,cad,x,y,xx,yy,far;
+  far=0xff000000;
+  t=t-32;yy=t/32;
+  xx=t-yy*32;yy=yy+18;
+    for(y=0;y<=7;y++){     
+       cad=65536+xx+yy*256+y*32;ad=1024+xx*8+yy*2048+y*256;          
+       for(x=0;x<=7;x++){    
+          if(int(g_icons[ad+x])==1){
+             far=0xffb0b0b0;
+             if(g_bsize<4){
+               if(g_bsize+(g_btype*4)+96==t)far=0xffffff80;
+             }
+          }
+          else
+          {
+            far=0xff000000;
+            if(g_spare==1&&t<=95)far=0xff008000;//different background color for spare mode
+            if(g_msgctr>0&&t+32<128)far=0xff0000ff;//different background color
+          }
+          e_rect(xo+x*g_uizoom,yo+y*g_uizoom,g_uizoom,g_uizoom,far);
+        }
+    }
+}
+
+boolean moicon(int xx,int yy,int ww,int hh)
+{
+  //check mouse/icon boundary without actually drawing the icon
+  if(g_data['m']==0&&g_data['M']==0){
+    if(g_mx+g_windowx>=xx&&g_mx+g_windowx<xx+ww&&g_my+g_windowy>=yy&&g_my+g_windowy<yy+hh)return true;
+  }
+  if(g_data['m']==1||g_data['M']==1){
+    if(g_mx>=xx&&g_mx<=xx+ww&&g_my>=yy&&g_my<=yy+hh)return true;
+  }
+  return false;
+}
+
+boolean doicon_drag(int xx,int yy,int ww,int hh)
+{
+   if(g_iconx>=xx&&g_iconx<xx+ww&&g_icony>=yy&&g_icony<yy+hh){
+    g_iconx=-1;g_icony=-1;
+    g_repanel=-2;
+    return true;
+  }
+  if(g_piconx>=xx&&g_piconx<xx+ww&&g_picony>=yy&&g_picony<yy+hh){
+    g_piconx=-1;g_picony=-1;
+    g_repanel=-2;
+    return true;
+  }
+  return false;
+}
+
+boolean doicon(int xx,int yy,int ww,int hh)
+{
+  if(g_iconx>=xx&&g_iconx<xx+ww&&g_icony>=yy&&g_icony<yy+hh){
+    g_iconx=-1;g_icony=-1;
+    g_repanel=-2;    
+    return true;
+  }
+  return false;
+}
+
+void printat(int xx,int yy,String tex)
+{
+  //creating text into the help box
+  for(int tit=0;tit<tex.length();tit++){
+    if(tex.charAt(tit)!='|'){
+      if(g_data[256+xx+yy*12]!=byte(tex.charAt(tit))){
+        g_data[256+xx+yy*12]=byte(tex.charAt(tit));
+        g_chaup[xx+yy*16]=1;
+      }
+    }
+    xx++;
+    if(tex.charAt(tit)=='|'){xx=0;yy++;}
+  }
+}
+
+void clearmsg()
+{
+  for (int y=0;y<=3;y++){
+    for (int x=0;x<=11;x++){
+       g_data[256+x+y*12]=byte(32);
+       g_chaup[x+y*16]=1;
+    }
+  }
+}
+
+void message(String tex)
+{
+  if(tex.equals("*")){g_msgctr=100;return;}
+  clearmsg();
+  printat(0,0,tex);
+  g_msgctr=50;
+}
+
+
+void help(int a)
+{
+  String teks;
+  int b,byt,ad,valu;
+  if(g_msgctr>0)return;
+  teks="No Help";
+  clearmsg();
+  if(a>=1000){
+    a=a-1000;
+    b=a/X;
+    a=a-(b*X);
+    if(tool()==4&&g_phase==1){      
+        a=abs(g_rx2-g_rx)+1;b=abs(g_ry2-g_ry)+1;
+    }
+    if(tool()==6&&g_phase==1){      
+        a=abs(g_rx2-g_rx)+1;b=abs(g_ry2-g_ry)+1;
+    }
+    if(tool()==7&&g_phase==1){      
+        a=abs(g_rx2-g_rx)*2+1;b=abs(g_ry2-g_ry)*2+1;
+    }
+    if(tool()==8&&g_phase==1){      
+        a=abs(g_rx2-g_rx)+1;b=abs(g_ry2-g_ry)+1;
+        if(g_data['c']==1||g_shift){a--;b--;}//purkkaa
+    }   
+    //coordinates
+
+    if(a<X&&b<Y){
+        printat(0,0,str(a));
+        printat(4,0,str(b));
+        printat(0,1,str(a/8));
+        printat(4,1,str(b/8));
+        if(tool()==6&&g_phase==1){
+            printat(0,2,nf(dist(0,0,a-1,b-1),0,2));             
+            float av = getangel(g_rx2-g_rx,g_ry2-g_ry);
+            printat(0,3,nf((av),0,2));  
+        }
+        byt=a/8;
+        ad=1024+byt*8+b*X;
+        valu=g_map[ad+0]*128+g_map[ad+1]*64+g_map[ad+2]*32+g_map[ad+3]*16+g_map[ad+4]*8+g_map[ad+5]*4+g_map[ad+6]*2+g_map[ad+7]*1;
+    }
+    return;
+  }
+  
+  printat(7,3,"Key:"+char(a));
+  
+  switch(a){
+    case '.':
+      teks="Preset pens|.=reset";
+    break;
+    case TAB:
+      teks="Pick color";
+    break;
+    case'<':
+      teks="Swap colors|Right<>Left";
+    break;
+    case'>':
+      teks="Pick backgnd|shift=set";
+      if(g_backmode==0)teks="Pick backgnd|not here";
+    break;
+    case'1':
+      teks="Draw";
+    break;
+    case'2':
+      teks="Spray can";
+    break;
+    case'3':
+      teks="Continuous|Draw";
+    break;
+    case'4':
+      teks="Grab brush";
+    break;
+    case'5':
+      teks="Flood fill";
+    break;
+    case'8':
+      teks="Rectangle";
+    break;
+    case'7':
+      teks="Ellipse";
+    break;
+    case'6':
+      teks="Line";
+    break;
+    case'9':
+      teks="Brush tool";
+    break;    
+    case'0':
+      teks="Magnifier|m=direct";
+    break;    
+    case'a':
+      teks="Bitmap only|on/off";
+    break;
+    case'A':
+      teks="Export as|"+g_expname;
+    break;
+    case'b':
+      teks="A.I.|Behavior|on/off";
+    break;
+    case'B':
+      teks="Set border|[Export=N]";
+      if(g_data['Q']==1)teks="Set border|[Export=Y]";
+    break;
+    case'C':
+      teks="Set backgnd";
+      if(machine==PLUS4M||machine==PLUS4)teks="Set backgnd|V/RMB=back2";
+      if(int(g_map[1])==255)teks="Set backnd|-Not here";
+    break;
+    case'i':
+      teks="Increase|luminance";
+    break;
+    case'k':
+      teks="Decrease|luminance";
+    break;
+    case'r':
+      teks="Fill raster|on/off|RMB=swap";
+    break;
+    case'R':
+      teks="Raster from|brush|on/off";
+    break;
+    case'd':
+      teks="Recolor|right->left|on/off";
+    break;
+    case'p':
+      teks="Brush|recolor|on/off";
+    break;
+    case'q':
+      teks="IQ mode|on/off";
+    break;
+    case't':
+      teks="Tile mode|on/off";
+    break;
+    case'x':
+      teks="Brush|flip X|on/off";
+    break;
+    case'y':
+      teks="Brush|flip Y|on/off";
+    break;
+    case'z':
+      teks="Brush|rotate";
+    break;
+    case'h':
+      teks="Pen size "+(g_bsize+1)+"|LMB/h=less|RMB/H=bigger";
+    break;
+    case'j':
+      if(g_spare==0){ teks="Switch to|spare page|RMB=CopyTo";}
+        else
+      {teks="Switch to|front page|RMB=CopyTo";}
+    break;
+    case'f':
+      teks="Geometry|fill|on/off";
+    break;
+    case'c':
+      teks="Constrain|to grid|on/off";
+    break;
+    case'm':
+      teks="Magnify|on/off";
+    break;
+    case'g':
+      teks="Draw grid|on/off|G=size "+str(g_gridx);
+    break;    
+    case'X':
+      teks="Mirror X|on/off";
+    break;
+    case'Y':
+      teks="Mirror Y|on/off";
+    break;
+    case'l':
+      teks="Load data|bin/png";
+    break;
+    case's':
+      teks="Save as|[RMB=Save]|bin/png";
+    break;
+    case'u':
+      teks="Undo u LMB|Redo U RMB";
+    break;
+    case'U':
+      teks="Redo";
+    break;
+    case'e':
+      teks="Export PNG";
+    break;
+    case'E':
+      teks="Export as|source";
+    break;
+    case'o':
+      teks="Clear|screen";
+    break;
+    case 'O':
+      teks="Export|specific";
+    break;
+    case 'n':
+      teks="Playbrush|on/off|RMB=speed";
+    break;
+    case 'w':
+      teks="Format|Import:|no support";
+      if(g_formatname!="")teks="Import as|"+g_formatname;
+    break;
+    case 'W':
+      teks="Export:|no support";
+      if(g_formatname!="")teks="Export as|"+g_formatname;
+    break;
+  }
+  printat(0,0,teks);
+}
+
+void icontable(int xx,int yy,int tabletype,int realdraw)
+{
+  String pan="";
+  int x,y,ad;
+  g_data['9']=0;
+  if(g_btype==9)g_data['9']=1;
+  
+  // the main and sideboard icon panel order
+  if(tabletype==0)pan=";;h9::123456::78::pzxy::XYtn::lsEAwW::jc0g::uo::.b";
+  if(tabletype==1)pan="BCrRfd";
+  if(tabletype==2)pan="ik";
+  
+  x=0;y=0;
+  
+  for(int tit=0;tit<pan.length();tit++){
+    ad=pan.charAt(tit);
+    if(g_repanel<=0){
+      if(ad!=';'&&ad!=':'&&ad!='.'){
+        if(realdraw==1){
+          int icolor=g_data[ad];
+          if(ad=='j'&&g_spare==1)icolor=1;
+          drawicon(xx+x,yy+y,ad-48,icolor);
+        }
+      }
+      if(ad==';'){//draw the preset brush box
+        if(realdraw==1){
+          drawchar(xx,yy,128);
+          drawchar(xx+8*g_uizoom,yy,129);
+          drawchar(xx+16*g_uizoom,yy,130);
+          drawchar(xx+24*g_uizoom,yy,131);
+          drawchar(xx,yy+8*g_uizoom,132);
+          drawchar(xx+8*g_uizoom,yy+8*g_uizoom,133);
+          drawchar(xx+16*g_uizoom,yy+8*g_uizoom,134);
+          drawchar(xx+24*g_uizoom,yy+8*g_uizoom,135);
+        }      
+      }
+    }
+    
+    //tooltip
+    if(ad!=':'&&ad!=';'&&ad!='.'){
+      if(realdraw==0){
+        if(moicon(xx+x,yy+y,16*g_uizoom,16*g_uizoom))help(ad);
+      }
+      if (doicon(xx+x,yy+y,16*g_uizoom,16*g_uizoom)){
+        //println(g_realbutton);
+        if(ad=='C'&&g_realbutton==39)ad='V';
+        if(ad=='B'&&g_realbutton==39)ad='Q';
+        if(ad=='u'&&g_realbutton==39)ad='U';
+        if(ad=='n'&&g_realbutton==39)ad='N';     
+        if(ad=='h'&&g_realbutton==39)ad='H';
+        if(ad=='s'&&g_realbutton==39)ad='S';
+        if(ad=='j'&&g_realbutton==39)ad='J';
+        if(ad=='g'&&g_realbutton==39)ad='G';
+        if(ad=='r'&&g_realbutton==39){
+          ad=')';if(g_shift)ad='(';
+        }        
+        command(ad);g_msgctr=50;
+      } 
+    }
+    if(ad==';'){
+      for(int ii=0;ii<=3;ii++){
+        for(int jj=0;jj<=1;jj++){
+          if(doicon(xx+ii*8*g_uizoom,yy+jj*8*g_uizoom,8*g_uizoom,8*g_uizoom))command(128+ii+jj*4);
+        }
+      }
+    }
+    if(tabletype==0){
+      x=x+16*g_uizoom;
+      if(ad=='.')x=x-8*g_uizoom;
+      if(x>16*g_uizoom){
+        x=0;y=y+16*g_uizoom;
+        if(ad==':')y=y-14*g_uizoom;
+      }
+    }
+    if(tabletype==1||tabletype==2){
+      y=y+16*g_uizoom;
+      if(y>16*g_uizoom){y=0;x=x+16*g_uizoom;}
+    }
+  }
+  g_data['9']=0;
+}
+
+int nextluminance(int f,int d)
+{
+  int res=f+d;
+  if(machine==PLUS4||machine==PLUS4M){
+    if(f+d*15>120)return f;
+    if(f+d*15<1)return f;
+    if(d==1)return f+15;
+    if(d==-1)return f-15;
+    return res;
+  }
+  
+  if(g_map[13]==C64){//here the "C64" is generic across C64,C64M and potential FLI modes
+    int out[]={6,1,11,15,8,10,9,13,14,2,3,4,5,1,12,7}; // from "Ptoing"
+    if(d==1)res=out[f];
+    if(d==-1){
+      if(f==0)return 0;
+      for(int i=0;i<g_maxcolors;i++){
+          if(out[i]==f)res=i;
+      }
+    }
+  }
+  
+  if(g_map[13]==MSX){
+    int out[]={ 1, 4, 9,10, 6,12,13,14, 5, 3, 7,15, 2, 8,11,15}; // calculated Y
+    if(d==1)res=out[f];
+    if(d==-1)
+    {
+      if(f==0)return 0;
+        for(int i=0;i<g_maxcolors-1;i++){
+            if(out[i]==f)res=i;
+        }
+    }
+  }
+  return res;
+}
+
+
+
+int tool()
+{
+  //returns the current tool #, for convenience
+  //as there is no "tool" variable really 
+  for(int i='0';i<='9';i++){
+    if(g_data[i]==1)return i-'0';
+  }
+  return 0;
+}
+
+void set_tool(int s)
+{
+  //set current tool, for convenience
+  for(int i='0';i<='9';i++){
+    g_data[i]=0;
+  }
+  g_data[48+s]=byte(1);
+  g_map[12]=byte(s);
+}
+
+void selectcolor(int hand,int x)
+{
+  if(x>=g_maxcolors)x=x-g_maxcolors;
+  if(x<0)x=x+g_maxcolors;
+  if(hand==0){
+    g_farge=x;g_ofarge=x; //kludgey, the colour and the "original colour"
+    if(g_btype==9)g_data['p']=1;
+    g_realfront=byte(g_farge);
+    g_realback=byte(g_backg);
+  }
+  if(hand==1){
+    g_backg=x;
+    g_realback=byte(g_backg);
+    g_realfront=byte(g_farge);
+  }
+}
+
+void refresh()
+{
+  //refreshes all "dirty chars" and icon panels
+  for(int i=0;i<MX*MY;i++){
+    g_redo[i]=byte(0);g_remdo[i]=byte(1);
+  }
+  if(g_boxreconstruct==0)g_boxreconstruct=1;
+  //elsewhere use g_boxreconstruct=2 for complete window reconstruction
+}
+
+void refresh_all()
+{
+  refresh();g_boxreconstruct=2;
+}
+
+void palettebox(float x0,int y0,float x1)
+{
+   if(g_palsteps==0)return;
+   float expand=((x1-x0)/g_palsteps);
+   int divs=int(255/(g_palsteps-1));
+   for(int i=0;i<g_palsteps;i++){   
+       if(doicon_drag(int(x0+expand*i),y0,int(expand),7*g_uizoom)){g_r[g_farge]=int(i*divs);message("RED:"+i);makecolor(g_farge,g_r[g_farge],g_g[g_farge],g_b[g_farge]);refresh();g_boxreconstruct=2;}
+       if(doicon_drag(int(x0+expand*i),y0+10*g_uizoom,int(expand),7*g_uizoom)){g_g[g_farge]=int(i*divs);message("GREEN:"+i);makecolor(g_farge,g_r[g_farge],g_g[g_farge],g_b[g_farge]);refresh();g_boxreconstruct=2;}
+       if(doicon_drag(int(x0+expand*i),y0+20*g_uizoom,int(expand),7*g_uizoom)){g_b[g_farge]=int(i*divs);message("BLUE:"+i);makecolor(g_farge,g_r[g_farge],g_g[g_farge],g_b[g_farge]);refresh();g_boxreconstruct=2;}
+   }
+   e_rect(int(x0),y0,int(x1-x0),7*g_uizoom,g_rgb[258]);   
+   e_rect(int(x0),y0+10*g_uizoom,int(x1-x0),7*g_uizoom,g_rgb[258]);
+   e_rect(int(x0),y0+20*g_uizoom,int(x1-x0),7*g_uizoom,g_rgb[258]);
+    
+   for(int i=1;i<g_palsteps;i++){
+     e_rect(int(x0+expand*i),y0,g_uizoom,2*g_uizoom,g_rgb[257]);
+     e_rect(int(x0+expand*i),y0+10*g_uizoom,g_uizoom,2*g_uizoom,g_rgb[257]);
+     e_rect(int(x0+expand*i),y0+20*g_uizoom,g_uizoom,2*g_uizoom,g_rgb[257]);     
+   }        
+   e_rect(int(x0+expand*g_r[g_farge]/divs),y0, int(expand),7*g_uizoom,g_rgb[260]);
+   e_rect(int(x0+expand*g_g[g_farge]/divs),y0+10*g_uizoom, int(expand),7*g_uizoom,g_rgb[261]);
+   e_rect(int(x0+expand*g_b[g_farge]/divs),y0+20*g_uizoom, int(expand),7*g_uizoom,g_rgb[262]);
+}
+
+void colorselector(int xo,int yo)
+{
+  int x,y,ad,yfat;
+  int far,xonko,yhei,maxp,xloc,yloc;
+  int bfat;
+  float expand,divus;
+  xonko=16*g_uizoom;yhei=16*g_uizoom;expand=1;yfat=4*g_uizoom;bfat=1*g_uizoom;
+  if(g_maxcolors>60){yhei=4*g_uizoom;yfat=0;bfat=1;}
+  divus=255/g_palsteps;
+  x=0;y=0;far=0xff000000;
+  
+  maxp=g_maxcolors;xonko=512/g_maxcolors;
+  xonko=xonko/2;xonko=xonko*g_uizoom;
+   
+  if(g_maxcolors>32){maxp=g_maxcolors/2;xonko=1024/g_maxcolors;}
+  if(machine==PLUS4||machine==PLUS4M)xonko=15*g_uizoom;
+   
+     for(x=0;x<g_maxcolors;x++){
+       xloc=xo+x*xonko;yloc=yo+8*g_uizoom;
+         if(g_maxcolors>60){yloc=yo+yhei*7;
+           if(x>15&&x<=30){xloc=xo+(x-15)*xonko;yloc=yo+yhei*6+yfat*2;}
+           if(x>30&&x<=45){xloc=xo+(x-30)*xonko;yloc=yo+yhei*5+yfat*4;}
+           if(x>45&&x<=60){xloc=xo+(x-45)*xonko;yloc=yo+yhei*4+yfat*6;}
+           if(x>60&&x<=75){xloc=xo+(x-60)*xonko;yloc=yo+yhei*3+yfat*8;}
+           if(x>75&&x<=90){xloc=xo+(x-75)*xonko;yloc=yo+yhei*2+yfat*10;}
+           if(x>90&&x<=105){xloc=xo+(x-90)*xonko;yloc=yo+yhei*1+yfat*12;}
+           if(x>105&&x<=120){xloc=xo+(x-105)*xonko;yloc=yo+yhei*0+yfat*14;}      
+         }
+      if(doicon_drag(xloc,yloc,xonko,yhei))
+      {
+        if(mouseButton==LEFT||mouseButton==CENTER){
+          selectcolor(0,x);
+        }  
+        if(mouseButton==RIGHT){
+          selectcolor(1,x);g_button=LEFT;
+        }
+      }
+    
+      if(g_repanel<=0){
+        int index;
+        index=x;
+        if(machine==MSX&&x==0)index=g_map[1];
+        e_rect(xloc,yloc,xonko,yhei,g_rgb[index]); // the colour blocks
+        far=0xff000000;
+        if(g_farge==x)far=0xff808080;
+        e_rect(xloc,yloc-yfat,xonko,yfat,far);
+        if(doicon(xloc,yloc-yfat,xonko,yfat))selectcolor(0,x);
+        
+        far=0xff000000;     
+        if(g_backg==x&&yfat>0)far=0xff808080;
+        
+        e_rect(xloc,yloc+yhei,xonko,yfat,far); 
+        if(doicon(xloc,yloc+yhei,xonko,yfat))selectcolor(1,x);
+        if(yfat==0){
+          if(g_farge==x){
+            e_rect(xloc,yloc,xonko/4,yhei/4,far);
+            e_rect(xloc,yloc+1,xonko/8,yhei/4,far);
+          }
+          if(g_backg==x){
+            e_rect(xloc+xonko-xonko/4,yloc+yhei-2,xonko/4,yhei/4,far);
+            e_rect(xloc+xonko-xonko/8,yloc+yhei-3,xonko/8,yhei/4,far);
+          }
+        }
+        if(int(g_map[0])==x){
+          far=0xff000000;
+          if(dist(g_r[x],g_g[x],g_b[x],0,0,0)<1)far=0xffffffff;
+          e_rect(xloc,yloc,xonko,bfat,far);
+          e_rect(xloc,yloc+yhei-bfat,xonko,bfat,far);
+          e_rect(xloc,yloc,bfat,yhei,far);
+          e_rect(xloc+xonko-bfat,yloc,bfat,yhei,far);
+        }
+        if(int(g_map[1])==x){
+          far=0xff000000;
+          if(dist(g_r[x],g_g[x],g_b[x],0,0,0)<1)far=0xffffffff;       
+          e_rect(xloc+xonko/4,yloc+yhei/4,xonko/4,yhei/4,far);
+        }
+        if(machine==PLUS4||machine==PLUS4M){
+          if(int(g_map[1])!=255&&int(g_map[2])==x){
+          far=0xff000000;
+          if(dist(g_r[x],g_g[x],g_b[x],0,0,0)<1)far=0xffffffff;            
+            e_rect(xloc+xonko-(xonko/4)*2,yloc+yhei-(yhei/4)*2,xonko/4,yhei/4,far);
+          }
+        }
+    }
+  }
+}
+
+void messagebox(int ox,int oy)
+{
+  int cz=8*g_uizoom;
+  // lcd character display chardisplay textbox
+  // coordinates. has its own "dirtychar"
+  for(int xx=0;xx<=11;xx++){
+    for(int yy=0;yy<=3;yy++){
+      if(g_chaup[xx+yy*16]==1){
+        g_chaup[xx+yy*16]=0;
+        drawchar(ox+xx*cz,oy+yy*cz,g_data[256+xx+yy*12]);
+      }
+    }
+  }
+}
+
+void colorindicator(int ox,int oy)
+{
+  int bs=8*g_uizoom;
+  int h=0;
+  if(g_button==RIGHT)h=1;
+  e_rect(ox,oy,bs*2,bs*4,g_rgb[int(g_realback)]);
+  e_rect(ox+bs/2,oy+4*g_uizoom,12*g_uizoom,bs*2,g_rgb[int(g_realfront)]);  
+  if(doicon(ox,oy,bs*2,bs*3))command('<');
+  if(machine==C64M||machine==MSX||machine==AMIGA){
+    e_rect(ox,oy+bs*3,bs*2,bs,g_rgb[int(g_map[1])]);
+    d_rect(ox,oy+bs*3,bs*2,bs,g_rgb[int(257)]);
+    if(doicon(ox,oy+bs*3,bs*2,bs))
+    {
+      if(g_shift==false)selectcolor(h,int(g_map[1]));
+      if(g_shift)command('C');
+    }
+  }
+  if(machine==PLUS4M){
+    e_rect(ox,oy+bs*3,bs,bs,g_rgb[int(g_map[1])]);    
+    e_rect(ox+8*g_uizoom,oy+bs*3,bs,bs,g_rgb[int(g_map[2])]);
+    d_rect(ox,oy+bs*3,bs,bs,g_rgb[int(257)]);    
+    d_rect(ox+8*g_uizoom,oy+bs*3,bs,bs,g_rgb[int(257)]);    
+    if(doicon(ox,oy+bs*3,bs,bs))
+    {
+      if(g_shift==false)selectcolor(h,int(g_map[1]));
+      if(g_shift)command('C');
+    }
+    if(doicon(ox+8*g_uizoom,oy+bs*3,bs,bs))
+    {
+      if(g_shift==false)selectcolor(h,int(g_map[2])); 
+      if(g_shift)command('V');  
+    }
+  }
+}
+
+void update_ui()
+{
+  if(g_iconmode==1){
+    for(int i=0;i<=80000;i++){
+      g_icons[i]=g_map[i];
+    }
+  }
+  
+  if(g_repanel<=0)g_repanel++;
+  messagebox(width-12*8*g_uizoom,height-4*8*g_uizoom);   
+
+  // when tooltipping, the panels are not really
+  // drawn but used for easy coordinate reference
+      
+  if(g_repanel>0){
+    icontable(width-32*g_uizoom,0,0,0);
+    icontable(272*g_uizoom,height-32*g_uizoom,1,0);
+    if(machine==PLUS4M||machine==PLUS4){ 
+      icontable(240*g_uizoom,height-32*g_uizoom,2,0); 
+    }    
+    return;
+  }
+
+  if(g_repanel>0)return;
+   
+  icontable(width-32*g_uizoom-1,0,0,1);
+  icontable(272*g_uizoom,height-32*g_uizoom,1,1);
+  palettebox(g_uizoom*324+4,height-32*g_uizoom,width-(96*g_uizoom)-4);
+  if(machine==PLUS4M||machine==PLUS4){ 
+    icontable(240*g_uizoom,height-32*g_uizoom,2,1); 
+  }
+  colorselector(0,height-32*g_uizoom);
+  colorindicator(256*g_uizoom,height-32*g_uizoom);
+}
+
+void magport()
+{
+  int b=g_uizoom*2;
+  int xo=0;int yo=0;
+  for(int y=0;y<Y;y++){
+    for(int x=0;x<X;x++){
+      int raddr=(xo*24+x)+(yo*24+y)*width;
+      pixels[raddr]=int(g_rgb[easygetcolor(x,y)]);
+    }
+  }
+}
+
+void viewport()
+{
+  // formerly void redo()
+  // main machine screen redraw
+  // and dirty char update
+  int xx,yy,xo,yo,xwin,ywin,x,y,winsux,winsuy,rubx;
+  int ad,cad,a,b,c,mmode,fari,psize;
+  int zonx,zony,maxx,mayy,mag,raddr;
+  int left=32*g_uizoom;
+  raddr=0;winsux=0;winsuy=0;
+  if(g_backmode==0)g_map[1]=0;//some computers have overall background
+
+  mmode=magmode();
+  fari=0;
+  makecolor(259,g_r[g_map[0]],g_g[g_map[0]],g_b[g_map[0]]);//use border color
+  if(g_data['M']==1&&g_data['m']==1)g_data['m']=0;
+  if(g_data['m']==1)makecolor(259,48,48,48);//don't use border color in mag modes
+  if(g_data['M']==1)makecolor(259,48,48,48);
+
+  psize=g_magpix[mmode];mag=psize*8;
+  maxx=magx();mayy=magy();
+  
+  if(g_boxreconstruct==1){
+    g_boxreconstruct=0;
+    e_rect(0,(mayy*psize)*8,maxx*psize*8,height-((g_vedge+g_uizoom*2)+(mayy*psize*8)),g_rgb[259]);
+    e_rect((maxx*psize)*8,0,width-(maxx*psize*8+(g_hedge+g_uizoom*2)),height-(g_vedge+g_uizoom),g_rgb[259]);   
+  }
+  if(g_boxreconstruct==2){//in case of full window update
+    g_boxreconstruct=0;
+    e_rect(0,0,width-(g_hedge+g_uizoom*2),height-(g_vedge+g_uizoom*2),g_rgb[259]);
+  }
+  
+  maxx--;mayy--;
+  zonx=MX-magx();zony=MY-magy();
+   
+  if(g_ofx>zonx)g_ofx=zonx;
+  if(g_ofy>zony)g_ofy=zony;
+  if(g_ofx<0)g_ofx=0;
+  if(g_ofy<0)g_ofy=0;
+
+  if(mmode==10){g_ofx=0;g_ofy=0;maxx=MX-1;mayy=MY-1;winsux=g_windowx;winsuy=g_windowy;mag=16;}//mini  
+  if(mmode==0){g_ofx=0;g_ofy=0;maxx=MX-1;mayy=MY-1;winsux=g_windowx;winsuy=g_windowy;mag=24;}//normal
+  if(mmode==20){g_ofx=0;g_ofy=0;maxx=MX-1;mayy=MY-1;winsux=g_windowx;winsuy=g_windowy;mag=32;}//maxi
+
+  b=0;c=0;a=5;
+  
+  if(mmode==1||mmode==2||mmode==11||mmode==12||mmode==21||mmode==22){
+    winsux=0;winsuy=0;fill(32,32,32);
+  }
+  
+  for(ywin=0;ywin<=mayy;ywin++){
+    for(xwin=0;xwin<=maxx;xwin++){
+  
+      // source coords: is 0,0 if not magged
+      xx=g_ofx+xwin;yy=g_ofy+ywin;
+      // divided into character area blocks
+      // which are only updated if necessary
+      xo=xwin;yo=ywin;
+    
+      if(int(g_redo[xx+yy*MX])==0){
+    
+        for(y=0;y<=7;y++){//pixel rows inside "char"
+
+          switch(g_multic){
+            case 0:
+              cad=65536+xx+((yy*X)+y*MX);
+              a=int(g_map[cad]);b=int(g_map[(MX*MY)*8+cad]);c=int(g_map[(MX*MY)*8+cad]);
+            break;
+            case 1:
+              cad=65536+xx+(yy*MX);
+              a=int(g_map[cad]);b=int(g_map[cad+1000]);c=int(g_map[cad+2000]);
+              if(machine==PLUS4M){c=int(g_map[2]);}
+            break;
+            case 2:
+              cad=65536+xx+((yy*X)+y*MX);
+              a=int(g_map[cad]);b=int(g_map[(MX*MY)*8+cad]);c=int(g_map[(MX*MY)*8+cad]);
+            break;
+          }
+    
+          ad=1024+xx*8+yy*(X*8)+y*X;
+              
+          int po,vop;
+          
+          for(x=0;x<=7;x++){//pixel columns inside pixel row
+            vop=x/2;
+            if(g_multic==0){
+              if(int(g_map[ad+x])==1){
+                fari=a;if(fari==0)fari=g_map[1];
+              }
+              else{
+                fari=b;if(fari==0)fari=g_map[1];
+              }
+            }
+            if(g_multic==1)
+            {
+              po=int(g_map[ad+vop*2])+int(g_map[ad+vop*2+1]*2);
+              if(po==0)fari=g_map[1];//00 comes from $d021 in real c64 and background 1 in plus/4
+              if(po==1)fari=a;//10
+              if(po==2)fari=b;//01
+              if(po==3)fari=c; //g_map[2];//11 // comes from $d800 in real c64 and background 2 in plus/4             
+            }
+            if(g_multic==2){// "amiga" mode
+              fari=int(g_map[ad+x]);
+            }
+            
+            if(g_rubbermode==1){// rubberband mode
+              rubx=x;if(g_multic==1||g_hzoomer==2){rubx=x/2;rubx=rubx*2;}
+              if(fylli()==1){
+                if(xx*8+rubx==g_rx||xx*8+rubx==g_rx2)
+                {
+                  if(yy*8+y>=g_ry&&yy*8+y<=g_ry2)fari=256;              
+                  if(yy*8+y>=g_ry&&yy*8+y<=g_ry2)fari=256;                  
+                }
+                if(yy*8+y==g_ry||yy*8+y==g_ry2){
+                  if(xx*8+x>=g_rx&&xx*8+x<=g_rx2)fari=256;
+                  if(xx*8+x>=g_rx&&xx*8+x<=g_rx2)fari=256;
+                }
+              }
+            }
+            
+           color ari=g_rgb[fari];
+            switch(mmode){
+              case 0:
+                    raddr=(xo*24+x*3)+(yo*24+y*3)*width;raddr=raddr+g_windowx+g_windowy*width;              
+                    pixels[raddr]=ari;pixels[raddr+1]=ari;pixels[raddr+2]=ari;
+                    raddr=raddr+width;             
+                    pixels[raddr]=ari;pixels[raddr+1]=ari;pixels[raddr+2]=ari;
+                    raddr=raddr+width;
+                    pixels[raddr]=ari;pixels[raddr+1]=ari;pixels[raddr+2]=ari;               
+              break;
+              case 1:
+                    raddr=(xo*64+x*8)+(yo*64+y*8)*width;              
+                    pixels[raddr]=ari;pixels[raddr+1]=ari;pixels[raddr+2]=ari;pixels[raddr+3]=ari;pixels[raddr+4]=ari;pixels[raddr+5]=ari;pixels[raddr+6]=ari;pixels[raddr+7]=ari;              
+                    raddr=raddr+width;             
+                    pixels[raddr]=ari;pixels[raddr+1]=ari;pixels[raddr+2]=ari;pixels[raddr+3]=ari;pixels[raddr+4]=ari;pixels[raddr+5]=ari;pixels[raddr+6]=ari;pixels[raddr+7]=ari;   
+                    raddr=raddr+width;
+                    pixels[raddr]=ari;pixels[raddr+1]=ari;pixels[raddr+2]=ari;pixels[raddr+3]=ari;pixels[raddr+4]=ari;pixels[raddr+5]=ari;pixels[raddr+6]=ari;pixels[raddr+7]=ari;
+                    raddr=raddr+width;
+                    pixels[raddr]=ari;pixels[raddr+1]=ari;pixels[raddr+2]=ari;pixels[raddr+3]=ari;pixels[raddr+4]=ari;pixels[raddr+5]=ari;pixels[raddr+6]=ari;pixels[raddr+7]=ari;
+                    raddr=raddr+width;             
+                    pixels[raddr]=ari;pixels[raddr+1]=ari;pixels[raddr+2]=ari;pixels[raddr+3]=ari;pixels[raddr+4]=ari;pixels[raddr+5]=ari;pixels[raddr+6]=ari;pixels[raddr+7]=ari;   
+                    raddr=raddr+width;
+                    pixels[raddr]=ari;pixels[raddr+1]=ari;pixels[raddr+2]=ari;pixels[raddr+3]=ari;pixels[raddr+4]=ari;pixels[raddr+5]=ari;pixels[raddr+6]=ari;pixels[raddr+7]=ari;
+                    raddr=raddr+width;
+                    pixels[raddr]=ari;pixels[raddr+1]=ari;pixels[raddr+2]=ari;pixels[raddr+3]=ari;pixels[raddr+4]=ari;pixels[raddr+5]=ari;pixels[raddr+6]=ari;pixels[raddr+7]=ari;
+                    raddr=raddr+width;
+                    pixels[raddr]=ari;pixels[raddr+1]=ari;pixels[raddr+2]=ari;pixels[raddr+3]=ari;pixels[raddr+4]=ari;pixels[raddr+5]=ari;pixels[raddr+6]=ari;pixels[raddr+7]=ari;        
+              break;
+              case 2:
+                    e_rect(xo*(64*g_uizoom)+x*(8*g_uizoom),yo*(64*g_uizoom)+y*(8*g_uizoom),8*g_uizoom,8*g_uizoom,g_rgb[fari]);
+              break;
+              // mini modes
+              case 10:  
+                    raddr=(xo*16+x*2)+(yo*8+y)*width*2;raddr=raddr+g_windowx+g_windowy*width;           
+                    pixels[raddr]=ari;pixels[raddr+1]=ari;
+                    raddr=raddr+width;
+                    pixels[raddr]=ari;pixels[raddr+1]=ari;              
+              break;
+              case 11:  
+                    raddr=(xo*48+x*6)+(yo*48+y*6)*width;         
+                    pixels[raddr]=ari;pixels[raddr+1]=ari;pixels[raddr+2]=ari;pixels[raddr+3]=ari;pixels[raddr+4]=ari;pixels[raddr+5]=ari;          
+                    raddr=raddr+width;
+                    pixels[raddr]=ari;pixels[raddr+1]=ari;pixels[raddr+2]=ari;pixels[raddr+3]=ari;pixels[raddr+4]=ari;pixels[raddr+5]=ari;           
+                    raddr=raddr+width;   
+                    pixels[raddr]=ari;pixels[raddr+1]=ari;pixels[raddr+2]=ari;pixels[raddr+3]=ari;pixels[raddr+4]=ari;pixels[raddr+5]=ari;           
+                    raddr=raddr+width;   
+                    pixels[raddr]=ari;pixels[raddr+1]=ari;pixels[raddr+2]=ari;pixels[raddr+3]=ari;pixels[raddr+4]=ari;pixels[raddr+5]=ari;         
+                    raddr=raddr+width;
+                    pixels[raddr]=ari;pixels[raddr+1]=ari;pixels[raddr+2]=ari;pixels[raddr+3]=ari;pixels[raddr+4]=ari;pixels[raddr+5]=ari;            
+                    raddr=raddr+width;
+                    pixels[raddr]=ari;pixels[raddr+1]=ari;pixels[raddr+2]=ari;pixels[raddr+3]=ari;pixels[raddr+4]=ari;pixels[raddr+5]=ari;         
+              break;     
+              case 12:
+                    e_rect(xo*(64*g_wzoom)+x*(8*g_wzoom),yo*(64*g_wzoom)+y*(8*g_wzoom),8*g_wzoom,8*g_wzoom,g_rgb[fari]);
+              break;
+              // maxi modes
+              case 20:
+                    raddr=(xo*(8*4)+x*4)+(yo*(8*4)+y*4)*width;raddr=raddr+g_windowx+g_windowy*width;              
+                    pixels[raddr]=ari;pixels[raddr+1]=ari;pixels[raddr+2]=ari;pixels[raddr+3]=ari;
+                    raddr=raddr+width;             
+                    pixels[raddr]=ari;pixels[raddr+1]=ari;pixels[raddr+2]=ari;pixels[raddr+3]=ari;
+                    raddr=raddr+width;
+                    pixels[raddr]=ari;pixels[raddr+1]=ari;pixels[raddr+2]=ari;pixels[raddr+3]=ari;
+                    raddr=raddr+width;              
+                    pixels[raddr]=ari;pixels[raddr+1]=ari;pixels[raddr+2]=ari;pixels[raddr+3]=ari;
+              break;    
+              case 21:
+                    e_rect(xo*(32*g_wzoom)+x*(4*g_wzoom),yo*(32*g_wzoom)+y*(4*g_wzoom),4*g_wzoom,4*g_wzoom,g_rgb[fari]);        
+              break;
+              case 22:
+                    e_rect(xo*(64*g_wzoom)+x*(8*g_wzoom),yo*(64*g_wzoom)+y*(8*g_wzoom),8*g_wzoom,8*g_wzoom,g_rgb[fari]);        
+              break;
+            }
+        }//one pixel inside pixel row
+    }//one pixel row inside char
+    
+    //draw grid
+    //can in principle be non-square
+    if(int(g_data['g'])==1){
+      int lapx;
+      lapx=(xx*8)/g_gridx;lapx=lapx*g_gridx;
+      if(lapx==(xx*8)){
+        t_rect(xo*mag+winsux,yo*mag+winsuy,1,mag,g_rgb[257]);
+        if(g_gridx==4){
+          t_rect(xo*mag+winsux+4*psize,yo*mag+winsuy+1,1,mag/2-2,g_rgb[257]);
+          t_rect(xo*mag+winsux+4*psize,yo*mag+winsuy+mag-mag/2+2,1,mag/2-2,g_rgb[257]);          
+        }
+      }
+      lapx=(yy*8)/g_gridy;lapx=lapx*g_gridy;
+      if(lapx==(yy*8)){
+        t_rect(xo*mag+winsux+1,yo*mag+winsuy,mag-1,1,g_rgb[257]);
+        if(g_gridy==4){
+          t_rect(xo*mag+winsux+1,yo*mag+winsuy+4*psize,mag/2-2,1,g_rgb[257]);
+          t_rect(xo*mag+winsux+2+mag-mag/2,yo*mag+winsuy+4*psize,mag/2-2,1,g_rgb[257]);          
+        }
+      }
+    }
+    g_redo[xx+yy*MX]=byte(1);
+  } //dirty char?
+  }//x char
+ }//y char
+}
+

--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/draw_inputs.pde	Tue Jul 03 20:56:55 2018 +0300
@@ -0,0 +1,297 @@
+// Collect all that "reads" the virtual image in some way or other
+// plus other passive manipulations
+
+int odd(int v)
+{
+    if((v|1)==v)return 1;
+    return 0;
+}
+
+int even(int v)
+{
+    if(v>>1==v)return 1;
+    return 0;
+}
+
+float getangel(float xx,float yy)
+{
+    float ang=degrees(atan2(xx,-yy));
+    if(ang<0)return 360+ang;
+    return ang;
+}
+
+int zxcolor(int col)
+{
+  //something that allows different zx brightness colors treated logically as the same
+  //i.e. bright red and dark red the same. handy for brush transparency
+  if(g_britemode==0)return col;
+  if(col>7)return col-8;
+  return col;
+}
+
+//the "slow" call to mark "dirty block"
+void updatepoint(int xx,int yy)
+{
+  if(yy<0||xx<0||xx>=X||yy>=Y)return;
+  xx=xx/8;yy=yy/8;xx=xx+yy*MX;
+  g_redo[xx]=byte(0);//block update
+  g_remdo[xx]=byte(1);//block update
+}
+
+int getmultibrush(int x1,int y1)
+{
+  
+  //returns the multicolor color on point x1,y1 at brush
+    
+  int ad,looks,mmc; 
+  if(g_multic==2)return g_brush[1024+x1+y1*X];
+  
+  ad=1024+x1+y1*X;
+  looks=65536+(x1/8)+(y1/8)*MX;
+  mmc=g_brush[ad]+g_brush[ad+1]*2;
+  switch(mmc)
+  {
+    case 0:
+      return g_map[1];
+    case 1:
+      return g_brush[looks];
+    case 2:
+      return g_brush[looks+1000];
+    case 3:
+      if(machine==PLUS4M)return int(g_map[2]);
+      return g_brush[looks+2000];
+  }
+  return g_brush[ad]+g_brush[ad+1]*2;
+}
+
+int getmultic(int x1,int y1,int mode) //mode 0=screen 1=brush
+{
+  
+  //returns the multicolor color on point x1,y1
+    
+  int ad,looks,mmc,source1,source2;
+   
+  if(g_multic==2){
+    looks=1024+x1+y1*X;
+    if(mode==0)return g_map[looks];
+    if(mode==1)return g_brush[looks];
+  }
+  x1=x1/2;x1=x1*2;
+  ad=1024+x1+y1*X;
+  source1=0;source2=0;
+  looks=65536+(x1/8)+(y1/8)*MX;
+  if(mode==0){source1=g_map[ad];source2=g_map[ad+1];}
+  if(mode==1){source1=g_brush[ad];source2=g_brush[ad+1];}
+  mmc=source1+source2*2;
+  //source1=0
+  //source2=+1
+  //00=zeroc =0
+  //01=color1=2
+  //10=color2=1
+  //11=color3=3
+  
+  if(mode==0){
+    switch(mmc)
+    {
+      case 0:
+        return g_map[1];
+      case 1:
+        return g_map[looks];
+      case 2:
+        return g_map[looks+1000];
+      case 3:
+        if(machine==PLUS4M)return int(g_map[2]);
+        return g_map[looks+2000];
+    }
+  }
+  if(mode==1){
+    switch(mmc)
+    {
+      case 0:
+        return g_map[1];
+      case 1:
+        return g_brush[looks];
+      case 2:
+        return g_brush[looks+1000];
+      case 3:
+        if(machine==PLUS4M)return int(g_map[2]);
+        return g_brush[looks+2000];
+    }
+  }  
+  return source1+source2;
+}
+
+int getattra(int xx,int yy,int mode) //mode foreground backround
+{
+  //returns the internal foreground / background color on point xx,yy
+  int xv,yv,val;
+  if(g_multic==2){
+    if(mode==0)return getmultic(xx,yy,0);
+    return g_backg;
+  }
+  if(g_multic==1){
+   if(mode==0)return getmultic(xx,yy,0);
+   return g_map[1];// was 0?
+  }
+  xx=xx/8;
+  yv=yy/8;
+  int ad=65536+xx+yy*MX; 
+  if(mode==0){
+    val=g_map[ad];
+    if(g_britemode==1&&val==8)return 0;
+    return val;
+  }
+//  if(mode==1)
+  val=g_map[ad+(MX*MY)*8];
+  if(g_britemode==1&&val==8)return 0;
+  return val;
+}
+
+int getabsa(int xx,int yy,int mode)//mode 0=screen 1=brush
+{
+  // returns the visible colour on point xx,yy
+  int sad,ssap,ad,val;
+  int chek;
+  val=0;sad=1024+xx+yy*X;
+  xx=xx/8;
+  ad=65536+xx+yy*MX;
+  chek=int(g_map[sad]);
+  if(chek==100||chek==200)return chek;
+  
+  if(mode==0){
+    ssap=int(g_map[sad]);
+  }else{
+    ssap=int(g_brush[sad]);
+  }
+  
+  if(ssap==1){
+    if(mode==0){val=g_map[ad];}else{val=g_brush[ad];}
+    if(g_britemode==1&&val==8)return 0;
+    return val;
+  }
+  if(ssap==0){         
+    if(mode==0){val=g_map[ad+(MX*MY)*8];}else{val=g_brush[ad+(MX*MY)*8];;}
+    if(g_britemode==1&&val==8)return 0;
+    return val;
+  }
+  return g_map[sad];
+}
+
+//the most accessible way to get a color index from a point
+int easygetcolor(int xx,int yy)
+{
+  if(yy<0||xx<0||xx>=X||yy>=Y)return 0;
+  if(g_multic>0)return getmultic(xx,yy,0);
+  if(g_multic==0)return getabsa(xx,yy,0);
+  return 0;
+}
+
+void infersize()
+{
+  int xx,yy,cp,molox,okay;
+  int bx,by;
+  storeparameters();
+  xx=0;molox=1;okay=0;
+  if(g_multic==1||g_hzoomer==2)molox=2;
+  cp=easygetcolor(0,0);
+  for(xx=0;xx<X;xx=xx+molox){
+    if(easygetcolor(xx,0)==cp&&okay==0){g_animx=xx;}
+    else{
+      okay=1;
+    }
+  }
+  okay=0;
+  for(yy=0;yy<Y;yy++){
+    if(easygetcolor(0,yy)==cp&&okay==0){g_animy=yy;}
+    else{
+      okay=1;
+    }
+  }
+
+  g_animx=g_animx+molox;
+  g_animy=g_animy+1;
+  if(g_animx>63||g_animy>63||g_animx<=2||g_animy<=2){
+    message("BAD SIZE|See manual");restoreparameters();g_data['n']=0;
+    return;
+  }
+  int boldsourcex=g_bsourcex;
+  int boldsourcey=g_bsourcey;
+  int boldsourcex2=g_bsourcex2;
+  int boldsourcey2=g_bsourcey2;
+  
+  g_bsourcex=g_animx;
+  g_bsourcey=0;
+  g_bsourcex2=g_animx+g_animx-molox;
+  g_bsourcey2=g_animy-1;
+  g_animframes=0;
+  g_animno=1;
+  int raamit=-1;
+  for(yy=0;yy<=Y;yy=yy+g_animy){
+    for(xx=0;xx<=X;xx=xx+g_animx){
+      okay=1;
+      for(bx=0;bx<g_animx;bx=bx+molox){
+        for(by=0;by<g_animy;by++){
+          if(easygetcolor(xx+bx,yy+by)!=cp)okay=0;
+        }
+      }
+      if(okay==1&&g_animframes<=1)g_animframes=raamit;
+      if(xx+g_animx<X||xx+g_animx==X)raamit++;
+    }
+  }
+  if(g_animframes<=0){
+    message("BAD BOOKEND|See manual");restoreparameters();g_data['n']=0;
+    g_bsourcex=boldsourcex;g_bsourcey=boldsourcey;
+    g_bsourcex2=boldsourcex2;g_bsourcey2=boldsourcey2;
+    return;
+  }
+  message("Play Brush|"+g_animx+" x "+g_animy+"|"+g_animframes+" frames");
+}
+
+void animbrush_do()
+{
+  int bx,by;
+  int horisize;
+  int molox=1;
+  if(g_multic==1)molox=2;
+  horisize=X/g_animx;
+  g_animno=g_animno+1;
+  if(g_animno>g_animframes)g_animno=1;
+  by=g_animno/horisize;
+  bx=g_animno-(by*horisize);
+  g_bsourcex=bx*g_animx;
+  g_bsourcey=by*g_animy;
+  g_bsourcex2=g_bsourcex+g_animx-molox;
+  g_bsourcey2=g_bsourcey+g_animy-1;
+}
+
+void set_fixed_raster(int set)
+{
+  for(int i=0;i<64;i++){
+    g_fixedraster[i]=g_rasterpatterns[set*64+i];
+  }
+}
+
+int get_raster(int xx,int yy)
+{
+  int molox=1;
+  if(g_multic==1||g_hzoomer==2)molox=2;
+  xx=xx+g_raster_offset_x*molox;
+  yy=yy+g_raster_offset_y;
+  if(g_multic==1||g_hzoomer==2){
+    xx=xx/2;
+  }
+  int mx=xx/8;
+  int my=yy/8;
+  mx=mx*8;my=my*8;xx=xx-mx;yy=yy-my;
+  return g_fixedraster[xx+yy*8];
+}
+
+void refreshpalette()
+{
+ //relevant for alterable palettes, such as amiga or cpc
+ if(g_palsteps==0)return;
+  for(int i=0;i<g_maxcolors;i++){
+    makecolor(i,int(g_map[256+i*3]),int(g_map[256+i*3+1]),int(g_map[256+i*3+2]));
+  }
+}
+

--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/draw_outputs.pde	Tue Jul 03 20:56:55 2018 +0300
@@ -0,0 +1,966 @@
+// Collect all that "writes" the virtual image in some way or other
+// plus other active manipulations
+
+void createpoint(int x,int y,int mo)
+{
+  if(mo==LEFT)makepoint(x,y);
+  if(mo==RIGHT)clearpoint(x,y);
+}
+
+void doborx(int xf,int yf,int xt,int yt)
+{
+  //rectangle for brush drawing
+  for(int ii=xf;ii<=xt;ii++){
+    for(int jj=yf;jj<=yt;jj++){
+      createpoint(ii,jj,g_button);
+    }
+  }
+}
+
+void docircx(int xf,int yf,int hh,int vv)
+{
+  //circle for brush drawing
+  float prop,fh,fv;
+  fh=hh;fv=vv;
+  if(vv>0){prop=fh/fv;}else{prop=1;}
+  hh++;
+  for(int ii=-hh;ii<=hh;ii++){
+    for(int jj=-vv;jj<=vv;jj++){
+      if(dist(xf+ii,yf+jj*prop,xf,yf)<=hh-1){
+        createpoint(xf+ii,yf+jj,g_button);
+      }
+    }
+  }
+}
+
+void craft(int x,int y, int c)
+{
+  //foundational brush control
+  //whether hard coded, circular or bitmap brush
+  int calc,mb;
+  int a1,b1,s1,x0,y0,midx,midy,molox,passes,ofx,ofy;
+  ofx=x;ofy=y;mb=g_button;
+  if(g_btype==1){
+    if(g_bsize<4){
+      //some hardcoded brushes
+          switch(g_bsize)
+          {
+          case 0:
+            doborx(ofx,ofy,ofx+1,ofy+1);
+          break;
+          case 1:
+            if(g_data['c']==1||g_shift==true){
+              ofx=ofx+1;ofy=ofy+1;
+            }
+            doborx(ofx-1,ofy-1,ofx+1,ofy+1);
+          break;
+          case 2:
+            if(g_data['c']==1||g_shift==true){
+              ofx=ofx+2;ofy=ofy+2;
+            }
+            doborx(ofx-2,ofy-2,ofx+1,ofy+1);
+          break;
+          case 3:
+          if(g_data['c']==1||g_shift==true){
+              ofx=ofx+3;ofy=ofy+3;
+            }
+            doborx(ofx-3,ofy-3,ofx+4,ofy+4);
+          break;
+          }
+    }
+    else
+    {  //larger size brushes
+      calc=g_bsize-3;
+      calc=calc*calc;calc=calc+4;
+      doborx(x-calc,y-calc,x+calc,y+calc);
+    }
+  return;
+  }
+
+  if(g_btype==9){ //bitmap brush
+    passes=2;
+    molox=1;
+    int tempox,tempoy,tempx,tempy,moloy;
+    moloy=1;
+    tempox=g_bsourcex;tempoy=g_bsourcey;
+    tempx=g_bsourcex2;tempy=g_bsourcey2;
+    if(g_data['t']==1){
+        if(tempx>g_bsourcex+16)tempx=g_bsourcex+16;
+        if(tempy>g_bsourcey+16)tempy=g_bsourcey+16;
+    }
+    midx=(g_bsourcex2-g_bsourcex)/2;
+    midy=(g_bsourcey2-g_bsourcey)/2;
+    if(g_data['c']==1||g_shift==true){
+      if(g_data['q']==1){
+        midy=midy/g_gridx;midy=midy*g_gridx;
+        midx=midx/g_gridx;midx=midx*g_gridx;
+      }
+    }
+    int orient;
+    orient=g_data['x']*100+g_data['y']*10+g_data['q'];
+    if(g_multic==1||g_hzoomer==2){x=x/2;x=x*2;molox=2;passes=1;}
+
+    for(int pp=1;pp<=passes;pp++){
+      for(int yy=tempoy;yy<=tempy;yy=yy+moloy){
+        for(int xx=tempox;xx<=tempx;xx=xx+molox){
+          s1=int(g_brush[1024+xx+yy*X]);
+          if(g_multic==0)s1=getabsa(xx,yy,1);
+          if(g_multic>0)s1=getmultibrush(xx,yy);
+          if(s1!=g_backg){ 
+            x0=x+xx-g_bsourcex;
+            y0=y+yy-g_bsourcey;
+    
+            if(g_data['q']==1){
+              x0=x-(yy-g_bsourcey2);
+              y0=y+(xx-g_bsourcex);
+              x0=x0+midx;x0=x0-midy;
+              y0=y0+midy;y0=y0-midx;
+            }  
+    
+            if(g_data['x']==1){
+              x0=x0-(x+midx);
+              x0=-x0;
+              x0=x0+(x+midx);  
+            }
+
+            if(g_data['y']==1){
+              y0=y0-(y+midy);
+              y0=-y0;
+              y0=y0+(y+midy);
+            }
+          
+           if(g_data['c']==1||g_shift){
+              if(orient==10)y0=y0+1;
+              if(orient==11)y0=y0+g_gridy-molox;
+              if(orient==100)x0=x0+1;
+              if(orient==101)x0=x0+g_gridx-1;
+              if(orient==110){x0=x0+1;y0=y0+1;}
+              if(orient==111){x0=x0+g_gridx-1;y0=y0+g_gridy-molox;}
+           }
+            
+           if(mb==LEFT){  
+             if(g_multic>0){
+                g_farge=s1;
+                if(g_data['p']==1)g_farge=g_ofarge;
+                if(g_multic==1||g_hzoomer==2){
+                  if(g_data['q']==0)makepoint(x0,y0);
+                  if(g_data['q']==1){
+                    makepoint(x0-x+x0,y+(y0-y));
+                    makepoint(x0-x+x0,y+(y0-y)+1);
+                  }
+                }else{    
+               makepoint(x0,y0);
+               }              
+              }else
+              {
+                g_farge=s1;
+                if(zxcolor(g_farge)!=zxcolor(g_backg)){
+                  if(g_data['p']==1)g_farge=g_ofarge;
+                  makepoint(x0,y0);
+                }
+              }
+            }
+  
+            if(mb==RIGHT){
+
+              if(g_multic>0){
+                if(g_multic==1||g_hzoomer==2){
+                  if(g_data['q']==0)clearpoint(x0,y0);
+                  if(g_data['q']==1){
+                    clearpoint(x0-x+x0,y+(y0-y));
+                    clearpoint(x0-x+x0,y+(y0-y)+1);
+                  }
+                }else{              
+               clearpoint(x0,y0);}
+              }else
+              {
+               clearpoint(x0,y0);
+              }
+             }
+            }
+           }
+          }
+         }
+    g_farge=g_ofarge;
+    return;
+  }
+
+  if(g_bsize<4){
+    switch(g_bsize)
+    {
+    case 0:
+      createpoint(x,y,g_button);
+    break;
+    case 1:
+      createpoint(x,y+1,g_button);createpoint(x,y-1,g_button);
+      createpoint(x,y,g_button);
+      createpoint(x-1,y,g_button);createpoint(x+1,y,g_button);
+    break;
+    case 2:        
+      doborx(x-1,y-2,x+1,y+2);doborx(x-2,y-1,x+2,y+1);       
+    break;
+    case 3:
+      doborx(x-3,y-1,x+3,y+1);
+      doborx(x-1,y-3,x+1,y+3);
+      doborx(x-2,y-2,x+2,y+2);
+    break;
+    }
+  }else
+  {
+    calc=g_bsize-3;
+    calc=calc*calc;calc=calc+4;
+    docircx(x,y,calc,calc);
+  }
+}
+
+void doline(int xfrom,int yfrom,int xto,int yto,int prevent)
+{
+  //bresenham almost exactly from Wikipedia
+  int swap,molox,pex,pey;
+  boolean steep;
+  molox=1;
+  //multicolor 160 pixel reso
+  if(g_multic==1||g_hzoomer==2){xfrom=xfrom/2;xfrom=xfrom*2;xto=xto/2;xto=xto*2;}
+
+  craft(xfrom,yfrom,0);
+  pex=xfrom;pey=yfrom;
+  
+  if(prevent==0)craft(xto,yto,0);  
+  
+  if(g_multic==1||g_hzoomer==2){xfrom=xfrom/2;xto=xto/2;molox=2;}
+  
+  int x0=xfrom;
+  int y0=yfrom;
+  int x1=xto;
+  int y1=yto;
+  
+  steep=abs(y1 - y0) > abs(x1 - x0);
+
+  if(steep){
+    swap=x0;x0=y0;y0=swap;
+    swap=x1;x1=y1;y1=swap;
+  }  
+
+  float deltax = abs(x1 - x0);
+  float deltay = abs(y1 - y0);
+  float error = deltax/2;
+  int ystep;
+   
+  if(deltax==0)return;
+  
+  int y = y0;
+  int inc;
+   
+  if(x0<x1){inc=1;}else{inc=-1;}
+  if(y0<y1){ystep=1;}else{ystep=-1;}
+  int x;
+  x=x0;
+  while(x!=x1){
+    if(steep){
+      if(y*molox!=pex||x!=pey){
+        craft(y*molox,x,0);
+        pex=y*molox;pey=x;
+      }
+    }
+    else
+    {
+      if(x*molox!=pex||y!=pey){
+        craft(x*molox,y,0);
+        pex=x*molox;pey=y;
+      }
+    }
+     
+    error=error-deltay;
+    if(error<0){
+      y=y+ystep;
+      error=error+deltax;  
+    }
+    x=x+inc;
+  }
+}
+
+void docircle_new(int x1,int y1,int x2,int y2)
+{
+  int hh,vv;
+  float prop;
+  int xf,yf;
+  float fh,fv;
+  if(x2<x1)x2=x1-(x2-x1);
+  if(y2<y1)y2=y1-(y2-y1);
+  xf=x1;yf=y1;
+  hh=x2-x1;vv=y2-y1;
+  fh=hh;fv=vv;
+  if(vv>0){
+    prop=fh/fv;}else{prop=1;}
+    hh++;
+    for(int ii=-hh;ii<=hh;ii++){
+      for(int jj=-vv;jj<=vv;jj++){
+        if(dist(xf+ii,yf+jj*prop,xf,yf)<=hh-1){
+          createpoint(xf+ii,yf+jj,g_button);
+        }
+      }
+    }
+}
+  
+void docircle(int x1,int y1,int x2,int y2)
+{
+  float dds,a,t,sx,sy,gear1,gear2,x0,y0;
+  int kimea,prex,prey;
+  dds=dist(x1,y1,x2,y2);
+  gear1=int(dds);
+  if(gear1<=12)gear1=12;
+  if(gear1>120)gear1=120;
+  gear2=int(gear1*2);
+
+  if(x2<x1)x2=x1-(x2-x1);
+  if(y2<y1)y2=y1-(y2-y1);
+  
+  if(g_data['t']==1&&x2>x1+15)x2=x1+16;
+  if(g_data['t']==1&&y2>y1+15)y2=y1+16; 
+  
+  prex=0;prey=0;
+  kimea=y1-(y2-y1);
+  
+  if(g_data['f']==1&&g_btype!=9){
+    if(g_multic==1&&g_data['d']==0){
+      g_farge=g_map[1];
+      docircx(x1,y1,abs(x2-int(x1)),abs(y2-int(y1)));
+      g_farge=g_ofarge;     
+    }
+    docircx(x1,y1,abs(x2-int(x1)),abs(y2-int(y1)));
+  }
+     
+  for(t=0;t<=(gear2);t++){
+   a=t/(gear1)*PI;
+   sx=(x2-x1)*sin(a);sy=(y1-y2)*cos(a);
+   if(t>0)doline(prex,prey,x1+int(sx),y1+int(sy),1);  
+   prex=(x1+int(sx));prey=(y1+int(sy)); 
+  }
+}
+
+void rectangle(int x1,int y1,int x2,int y2)
+{
+  int x0,y0,molox;
+  int yt,xt;
+  int xf,yf;
+  xf=x1/8;xf=xf*8;xt=x2/8;xt=xt*8;
+  yf=y1/8;yf=yf*8;yt=y2/8;yt=yt*8;yt=yt+7;xt=xt+6;
+  molox=1;
+  if(g_multic==1||g_hzoomer==2)molox=2;
+  if(x2<x1){x0=x2;x2=x1;x1=x0;}
+  if(y2<y1){y0=y2;y2=y1;y1=y0;}
+  
+  if(g_data['t']==1&&x2>x1+15)x2=x1+16;
+  if(g_data['t']==1&&y2>y1+15)y2=y1+16;  
+  
+  if(g_btype!=9){
+    if(g_data['c']==1||g_shift){
+      if(x2>x1)x2--;
+      if(y2>y1)y2--;
+    }
+  }
+
+  if(g_data['f']==1&&g_btype!=9){
+    if(g_multic==1&&g_data['d']==0){
+       g_farge=g_map[1];
+       for(int y=y1;y<=y2;y++){
+        for(int x=x1;x<=x2;x=x+molox){
+          if(x>=xf&&y>=yf&&x<=xt&&y<=yt){
+           makepoint(x,y);
+          }
+        }
+      }
+    }
+    g_farge=g_ofarge;
+    if(g_button==RIGHT)g_farge=g_backg;
+    for(int y=y1;y<=y2;y++){
+      for(int x=x1;x<=x2;x=x+molox){
+        makepoint(x,y);
+      }
+    }
+  }
+  if(g_data['f']==0||g_btype==9){
+    if(g_data['c']==1&&g_btype==1){
+      if(x2>x1){
+        if(g_bsize==0)x2--;
+        if(g_bsize==1)x2=x2-2;
+        if(g_bsize==2)x2=x2-3;
+        if(g_bsize==3)x2++;
+      }
+      if(y2>y1){
+        if(g_bsize==0)y2--;
+        if(g_bsize==1)y2=y2-2;
+        if(g_bsize==2)y2=y2-3;
+        if(g_bsize==3)y2++;
+      }      
+    }
+    doline(x1,y1,x2,y1,0);
+    doline(x1,y1,x1,y2,0);
+    doline(x1,y2,x2,y2,0);
+    doline(x2,y2,x2,y1,0);
+  }
+  g_farge=g_ofarge;
+}
+
+void makepoint(int xx,int yy)
+{
+  //central pixelmaking function
+  //has become very messy but what are you gonna do
+    int uses[]=new int[8];
+    int fars[]=new int[8];
+    int mirrix=0;
+    int mirriy=0;
+    int tiler=0;
+    int ignore=0;
+    int fari;
+      
+  //for the X/Y mirrors & tiler, the function calls itself with x+10000 or y+10000
+  //resolved here
+    if(xx>=20000){
+      xx=xx-20000;mirrix=0;mirriy=0;tiler=1;
+    }
+    if(xx>=10000){xx=xx-10000;mirrix=1;mirriy=1;}
+    if(yy>=10000){yy=yy-10000;mirriy=1;mirrix=1;}
+    if(xx<0)return;
+    if(yy<0)return;
+    if(xx>=X)return;
+    if(yy>=Y)return;
+    
+    // adaptive color unless with floodfill (which has its own system)
+    if(int(g_map[12])!=5){
+      if(g_multic==2)skaveri(xx,yy,g_farge,0);
+      
+      if(g_multic!=2){
+      if(g_data['b']==0){ 
+         if(g_multic==1){
+           mkaveri(xx,yy,g_farge,0);
+         }else{ 
+           kaveri(xx,yy,g_farge,0);
+         }
+       }
+       else
+       {
+         //old iq
+         kaveri_iq(xx,yy,g_farge,0);
+       }
+      }
+    }
+    
+    if(g_multic==1||g_hzoomer==2){
+      xx=xx/2;xx=xx*2;
+    }
+
+    if(g_data['r']==1){//simple raster
+      if(get_raster(xx,yy)==0)ignore=1;
+    }
+  
+  if(g_data['R']==1){//user defined raster
+    if(g_bsourcex2>g_bsourcex&&g_bsourcey2>g_bsourcey){
+
+    int x0=xx/((g_bsourcex2+1)-g_bsourcex);
+    int y0=yy/((g_bsourcey2+1)-g_bsourcey);
+    int x1=xx-x0*((g_bsourcex2+1)-g_bsourcex);
+    int y1=yy-y0*((g_bsourcey2+1)-g_bsourcey);
+    int xr=g_bsourcex+x1;
+    int yr=g_bsourcey+y1;
+    if(g_multic==1||g_hzoomer==2){
+       x0=xx/((g_bsourcex2+2)-g_bsourcex);
+       y0=yy/((g_bsourcey2+1)-g_bsourcey);
+       x1=xx-x0*((g_bsourcex2+2)-g_bsourcex);x1=x1/2;x1=x1*2;
+       y1=yy-y0*((g_bsourcey2+1)-g_bsourcey);
+       xr=g_bsourcex+x1;xr=xr/2;xr=xr*2;
+       yr=g_bsourcey+y1;    
+       if(getmultic(xr,yr,1)==g_backg)ignore=1;
+    }else{
+       if(getabsa(xr,yr,1)==g_backg)ignore=1;
+    }
+//    if(g_brush[1024+xr+yr*X]==0){ignore=1;}
+    }
+  }
+  
+ int xc,yc;
+ 
+ if(ignore==0&&g_data['d']==1&&g_attrimode<=1){
+   int aba,baba,ii,jj,miny,maxy,ojox,ojoy;
+    aba=getattra(xx,yy,0);
+    baba=getattra(xx,yy,1);
+    if(g_multic==0){
+       ojox=xx/8;ojoy=yy/8;
+       ojox=ojox*8;ojoy=ojoy*8;
+       miny=(yy-ojoy);maxy=miny;
+       if(g_attrimode==1){miny=0;maxy=7;}
+       if(baba==g_backg)simplepaint(xx,yy,1,g_farge);
+       if(aba==g_backg)simplepaint(xx,yy,0,g_farge);
+       ignore=1;
+       if(g_farge==baba&&g_farge==aba){
+          for(jj=miny;jj<=maxy;jj++){
+             for(ii=0;ii<8;ii++){
+               g_map[1024+ojox+ojoy*X+ii+jj*X]=0;
+             }
+           }
+         }
+    }
+    else
+    {
+      if(aba==g_backg){
+        ignore=0;}else{ignore=1;}
+    }
+    xc=xx/8;
+    yc=yy/8;
+    g_redo[xc+yc*MX]=byte(0);//block update
+    g_remdo[xc+yc*MX]=byte(1);//block update
+ }
+ 
+ if(ignore==0){
+   xc=xx/8;yc=yy/8;
+   g_redo[xc+yc*MX]=byte(0);//block update
+   g_remdo[xc+yc*MX]=byte(1);//block update    
+
+   switch (g_multic)
+   {
+   case 0://1-bit + attribute i.e. spectrum
+     fari=g_farge;
+     if(machine==MSX&&fari==int(g_map[1]))fari=0;
+     if(g_britemode==1&&fari==8)fari=0;
+
+     if(getattra(xx,yy,1)==0&&fari==g_map[1]){
+       g_map[1024+xx+yy*X]=byte(0); 
+     }else
+     {
+     if(getattra(xx,yy,1)==fari){
+        g_map[1024+xx+yy*X]=byte(0);
+     }else
+     {
+       int ojox=xx/8;
+       int ojoy=yy/8;
+       int mac,macpre,maxos;
+       int maxoy,miny,maxy;
+       ojox=ojox*8;ojoy=ojoy*8;mac=0;macpre=0;
+       miny=0;maxy=7;maxos=64;
+       if(g_attrimode==0){miny=(yy-ojoy);maxy=miny;maxos=8;}//MSX
+       for(int j=miny;j<=maxy;j++){
+         for(int i=0;i<8;i++){
+           if(g_map[1024+ojox+ojoy*X+j*X]==1)macpre++;
+         }
+       }
+       g_map[1024+xx+yy*X]=byte(1);
+       for(int j=miny;j<=maxy;j++){
+         for(int i=0;i<8;i++){
+           if(g_map[1024+ojox+ojoy*X+i+j*X]==1)mac++;
+         }
+       }
+       if(mac==maxos){
+         for(int j=miny;j<=maxy;j++){
+           int vad=1024+ojox+(ojoy+j)*X;
+           for(int i=0;i<8;i++){
+             g_map[vad]=0;vad++;
+           }
+         }
+         simplepaint(xx,yy,1,fari);   
+       }else{
+         simplepaint(xx,yy,0,fari);
+       }
+     }
+     }
+ break;
+ case 1: //c64 style zoomed multicolour
+    
+      //foreg
+      int looks,skippo;
+      byte bit1,bit2,valu1,valu2;
+      int metax,metay,mex,mey,metamax;
+      fari=g_farge;
+      int zeroc=int(g_map[1]);int zeroc2=int(g_map[2]);
+      boolean cut=false;
+      if(fari==zeroc){ //shortcut
+           g_map[1024+xx+yy*X]=byte(0);g_map[1024+xx+yy*X+1]=byte(0);
+           cut=true;
+      }
+      if(machine==PLUS4M&&fari==zeroc2){ //shortcut
+           g_map[1024+xx+yy*X]=byte(1);g_map[1024+xx+yy*X+1]=byte(1);
+           cut=true;
+      }
+      if(cut){
+           // X Y mirrors      
+           if(g_data['t']==1){
+             if(tiler==0){
+               int ex=X/g_gridx;
+               int ey=Y/g_gridy;
+               for(int tilx=-ex;tilx<=ex;tilx++){
+                 for(int tily=-ey;tily<=ey;tily++){
+                     makepoint(20000+xx+(X/ex)*tilx,yy+(Y/ey)*tily);
+                 }
+               }
+             }
+             return;
+           }           
+           if(g_data['X']==1&&mirrix==0)makepoint(10000+(X-1)-xx,yy);
+           if(g_data['Y']==1&&mirriy==0)makepoint(xx,10000+(Y-1)-yy);
+           if(g_data['X']==1&&g_data['Y']==1){if(mirrix==0){makepoint(10000+(X-1)-xx,10000+(Y-1)-yy);}}
+           return;
+      }     
+      
+      uses[0]=0;uses[1]=0;uses[2]=0;uses[3]=0;
+      fars[0]=zeroc;fars[1]=zeroc;fars[2]=zeroc;fars[3]=zeroc;
+      mex=xx/8;mey=yy/8;looks=65536+mex+mey*MX;
+      mex=mex*8;mey=mey*8;
+      int saps=1024+mex+mey*X;
+       
+      for(metay=0;metay<=7;metay++){
+       for(metax=0;metax<=3;metax++){
+         int pars=g_map[saps]+g_map[saps+1]*2;
+         uses[pars]=1;
+         if(pars==0)fars[0]=zeroc;
+         if(pars==1)fars[1]=int(g_map[looks]);
+         if(pars==2)fars[2]=int(g_map[looks+1000]);
+         if(pars==3){
+           if(machine==C64M)fars[3]=int(g_map[looks+2000]);
+           if(machine==PLUS4M)fars[3]=zeroc2;
+         }   
+         saps=saps+2;    
+       }
+       saps=saps-8+X;
+      }
+
+      bit1=0;bit2=0;skippo=0;
+      
+      // mega-escape, if it's not possible to draw at all don't bother
+      if(uses[0]==1&&uses[1]==1&&uses[2]==1&&uses[3]==1){
+        if(fari!=fars[0]&&fari!=fars[1]&&fari!=fars[2]&&fari!=fars[3])skippo=100;
+      }
+ 
+      if(skippo==0){
+        int okay=0;
+        metamax=3;
+        if(machine==PLUS4M)metamax=2;
+        
+        // if the color is already in the 4x8 area?
+        
+        for(metay=0;metay<=metamax;metay++){
+          if(uses[metay]==1){
+              if(fars[metay]==fari){
+                if(metay==1){bit1=1;bit2=0;g_map[looks]=byte(fari);}
+                if(metay==2){bit1=0;bit2=1;g_map[looks+1000]=byte(fari);}
+                if(metay==3){
+                  bit1=1;bit2=1;
+                  if(machine==C64M)g_map[looks+2000]=byte(fari);
+                  if(machine==PLUS4M)g_map[looks+2000]=byte(zeroc2);
+                }
+                g_map[1024+xx+yy*X]=bit1;
+                g_map[1024+xx+yy*X+1]=bit2;
+                okay=1;       
+            }
+          }
+        }
+    
+        //if the color is not in the 4x8 area
+        
+        if(okay==0){
+          for(metay=1;metay<=metamax;metay++){
+            if(uses[metay]==0){
+               uses[metay]=1;
+               if(metay==1){bit1=1;bit2=0;g_map[looks]=byte(fari);uses[2]=1;}
+               if(metay==2){bit1=0;bit2=1;g_map[looks+1000]=byte(fari);uses[3]=1;}
+               if(metay==3){bit1=1;bit2=1;
+                 if(machine==C64M)g_map[looks+2000]=byte(fari);
+                 if(machine==PLUS4M)g_map[looks+2000]=byte(zeroc2);
+               }   
+               g_map[1024+xx+yy*X]=bit1;
+               g_map[1024+xx+yy*X+1]=bit2;    
+            }
+          }  
+        }
+    
+    }//skippo0
+    
+ break;
+ 
+ case 2: // VGA style i.e. Amiga, CPC
+   fari=g_farge;
+      
+   if(g_data['d']==1){
+       if(g_map[1024+xx+yy*X]==byte(g_backg)){
+         g_map[1024+xx+yy*X]=byte(g_farge);
+         if(g_hzoomer==2)g_map[1024+xx+yy*X+1]=byte(g_farge);
+       }
+     }
+     else
+     {
+       g_map[1024+xx+yy*X]=byte(g_farge);
+       if(g_hzoomer==2)g_map[1024+xx+yy*X+1]=byte(g_farge);
+     }
+   break;
+ }
+ }
+ 
+ // end ignore
+ 
+ // X Y mirrors & tiler
+ 
+ if(g_data['t']==1){
+   if(tiler==0){
+     int ex=X/g_gridx;
+     int ey=Y/g_gridy;
+     for(int tilx=-(ex);tilx<=ex;tilx++){
+       for(int tily=-(ey);tily<=ey;tily++){
+           makepoint(20000+xx+(X/ex)*tilx,yy+(Y/ey)*tily);
+         }
+       }
+   }
+   return;
+ }
+ if(g_data['X']==1&&mirrix==0)makepoint(10000+(X-1)-xx,yy);
+ if(g_data['Y']==1&&mirriy==0)makepoint(xx,10000+(Y-1)-yy); 
+ if(g_data['X']==1&&g_data['Y']==1){if(mirrix==0){makepoint(10000+(X-1)-xx,10000+(Y-1)-yy);}}
+}
+
+void clearpoint(int xx,int yy)
+{
+  if(g_multic==2){
+    g_farge=g_backg;makepoint(xx,yy);g_farge=g_ofarge;return;
+  }
+  if(g_multic==1){
+    xx=xx/2;xx=xx*2;
+  }
+  g_farge=g_backg;makepoint(xx,yy);g_farge=g_ofarge;return;
+}
+
+
+void absolute_clearpoint(int xx,int yy)
+{
+  int mirrix=0;
+  int mirriy=0;
+  int ignore=0;
+  if(xx>=10000){xx=xx-10000;mirrix=1;mirriy=1;}
+  if(yy>=10000){yy=yy-10000;mirriy=1;mirrix=1;}
+  if(xx<0)return;
+  if(yy<0)return;
+  if(xx>=X)return;
+  if(yy>=Y)return;
+  
+  if(g_multic==2&&g_hzoomer!=2){
+    g_farge=g_backg;makepoint(xx,yy);g_farge=g_ofarge;return;
+  }
+  if(g_multic==1||g_hzoomer==2){
+    xx=xx/2;xx=xx*2;
+  }
+  if(g_data['b']==1)return;
+  if(g_data['r']==1){//raster
+    if(get_raster(xx,yy)==0)ignore=1;
+  }
+  
+  if(g_data['R']==1){ //user defined raster
+    if(g_bsourcex2>g_bsourcex&&g_bsourcey2>g_bsourcey){
+      int x0=xx/((g_bsourcex2+1)-g_bsourcex);
+      int y0=yy/((g_bsourcey2+1)-g_bsourcey);
+      int x1=xx-x0*((g_bsourcex2+1)-g_bsourcex);
+      int y1=yy-y0*((g_bsourcey2+1)-g_bsourcey);
+      int xr=g_bsourcex+x1;
+      int yr=g_bsourcey+y1;
+      if(g_brush[1024+xr+yr*X]==0)ignore=1;
+    }
+  }
+  
+  if(ignore==0){
+    g_map[1024+xx+yy*X]=byte(0);
+    if(g_multic==1||g_hzoomer==2)g_map[1024+xx+yy*X+1]=byte(0);
+    int xc=xx/8;
+    int yc=yy/8;
+    g_redo[xc+yc*MX]=byte(0);//block update
+    g_remdo[xc+yc*MX]=byte(1);//block update
+  }
+  if(g_data['X']==1&&mirrix==0)clearpoint(10000+(X-1)-xx,yy);
+  if(g_data['Y']==1&&mirriy==0)clearpoint(xx,10000+(Y-1)-yy);
+  if(g_data['X']==1&&g_data['Y']==1){
+    if(mirrix==0)clearpoint(10000+(X-1)-xx,10000+(Y-1)-yy);
+  }
+}
+
+void simplepaint(int xx,int yy,int mode,int attr)
+{
+  int ad,swad,j,miny,maxy,ojyx;
+  xx=xx/8;
+  ojyx=yy/8;ojyx=ojyx*8;
+  ad=0;swad=0;
+  miny=yy-ojyx;maxy=miny;
+  if(g_attrimode==1){
+    miny=0;maxy=7;
+  }
+  for(j=miny;j<=maxy;j++){
+     if(mode==0){ad=65536+xx+(ojyx+j)*MX;swad=65536+xx+(ojyx+j)*MX+(MX*MY)*8;}
+     if(mode==1){ad=65536+xx+(ojyx+j)*MX+(MX*MY)*8;swad=65536+xx+(ojyx+j)*MX;}
+     if(g_britemode==1){
+       if(attr==8)attr=0;
+       if(attr>0){
+         if(attr>=8&&g_map[swad]<=7)g_map[swad]=byte(g_map[swad]+8);
+         if(attr<=7&&g_map[swad]>=8)g_map[swad]=byte(g_map[swad]-8);
+       }
+     }
+     g_map[ad]=byte(attr);
+  }
+}
+
+void do_tool(int x,int y,int mb)
+{
+  int tt,ox,oy,psizex,psizey;
+  tt=tool();
+  psizex=g_magpix[magmode()];
+  psizey=g_magpiy[magmode()];
+  
+  //handles different tool behavior
+  
+  if(g_data['m']==0&&g_data['M']==0){
+    if(g_uizoom==1){x=x/2;y=y/2;}
+    if(g_uizoom==2){x=x/3;y=y/3;}
+    if(g_uizoom==3){x=x/4;y=y/4;}
+  }
+  
+  if(g_data['m']==1||g_data['M']==1){
+      x=x/psizex;y=y/psizey;
+      x=x+g_ofx*8;
+      y=y+g_ofy*8;
+  }
+
+  ox=x;oy=y;g_storedcoordx=x;g_storedcoordy=y;
+ 
+  int midx=0;
+  int midy=0;
+  //brush handle mid point
+  //some tools are exempted
+  if(g_btype==9&&tool()!=4&&tool()!=0&&mb!=255){
+      midx=(g_bsourcex2-g_bsourcex)/2;
+      midy=(g_bsourcey2-g_bsourcey)/2;
+      x=x-midx;y=y-midy;
+  } 
+  if(g_data['c']==1||g_shift){
+      x=x/g_gridx;x=x*g_gridx;
+      y=y/g_gridy;y=y*g_gridy;
+  }
+  
+  if(g_multic==1||g_hzoomer==2){x=x/2;x=x*2;ox=ox/2;ox=ox*2;}
+
+  if(mb==254){//block picker
+      switcher(2);g_data['n']=0;g_data['x']=0;g_data['y']=0;g_data['q']=0;g_data['z']=0;
+      x=ox/g_gridx;x=x*g_gridx;y=oy/g_gridy;y=y*g_gridy;
+      g_bsourcex=x;g_bsourcey=y;
+      g_bsourcex2=x+g_gridx-1;g_bsourcey2=y+g_gridy-1;
+      //set_tool(1);
+      g_btype=9;
+      return;
+  }
+  
+  if(mb==255){ // color picker
+    if(g_multic==2){
+        if(g_hzoomer==2){ox=ox/2;ox=ox*2;}
+        selectcolor(0,getmultic(ox,oy,0));return;
+    }
+    selectcolor(0,getabsa(ox,oy,0));
+    if(g_multic==1||g_hzoomer==2){
+      ox=ox/2;ox=ox*2;
+      selectcolor(0,getattra(ox,oy,0));
+    }
+    g_ofarge=g_farge;
+    if(g_btype==9)g_data['p']=1;
+    g_realfront=byte(g_farge);
+    return;
+  }
+  
+  if(x>=0&&y>=0&&x<X&&y<Y&&g_mx<width-g_hedge&&g_my<height-g_vedge)help(1000+x+y*X);
+  if(g_phase>0)help(1000+x+y*X);
+  
+  if(tt==1)craft(x,y,0); //pixeller
+  
+  if(tt==2){ //spraycan
+    //if(random(100)<50){fixed_raster_command('x');}
+    //if(random(100)<50){fixed_raster_command('y');}    
+    for(int i=0;i<=12;i++){
+      int rx=x-10+int(random((10)*2));
+      int ry=y-10+int(random((10)*2));
+      if(mb==LEFT){
+        if(dist(x,y,rx,ry)<10)craft(rx,ry,0);
+      }
+      else
+      {
+        if(dist(x,y,rx,ry)<10)craft(rx,ry,0);
+      }     
+    }
+  }
+  
+  if(tt==3){//cont line
+    if(g_phase==0){
+      g_prex=x;g_prey=y;craft(x,y,0);
+    }
+    doline(x,y,g_prex,g_prey,0);
+    g_prex=x;g_prey=y;
+  }  
+   
+  if(tt==5){//floodfill
+    if(g_klikkeri==0){
+      g_klikkeri=1;
+      storeparameters();
+      g_data['X']=0;g_data['Y']=0;
+      g_data['c']=0;g_data['t']=0;
+      if(ox>=0&&ox<X&&oy>=0&oy<Y){
+        store_undo();// exceptional!
+        if(g_multic!=0){floodfillmc(ox,oy,mb);}
+          else
+          {floodfill_iq(ox,oy,mb);}
+      }
+      restoreparameters();
+    }
+  }
+  
+  if(tt==6||tt==7||tt==8){//line,circle,rect
+    if(g_phase==0){g_rx=x;g_ry=y;g_rx2=x;g_ry2=y;g_rubbermode=0;}
+    if(g_phase==1){g_rx2=x;g_ry2=y;}
+  }
+
+  if(tt==0){ // magnifier graphic tool
+    g_data['m']=1;
+    g_rx=x-(magx()/2)*8;g_orx=x;
+    g_ry=y-(magy()/2)*8;g_ory=y;
+    g_rx2=x+(magx()/2+odd(magx()))*8;
+    g_ry2=y+(magy()/2+odd(magy()))*8;
+    g_data['m']=0;
+    g_rubbermode=1;
+    if(g_phase==1){
+       g_rubbermode=0;g_data['m']=1;set_tool(g_prevtool);g_phase=0;
+       g_ofx=x/8-magx()/2;g_ofy=y/8-magy()/2;
+       refresh();g_repanel=-2;
+    }
+  }
+  
+  if(tt==4){ //brush grabber grab brush
+    if(g_phase==0){
+       g_rx=x;g_orx=x;
+       g_ry=y;g_ory=y;
+       g_rx2=x;g_ry2=y;
+    }
+  
+    if(g_phase==1){
+      g_rx2=x;g_rx=g_orx;
+      g_ry2=y;g_ry=g_ory;
+      if(x<g_orx){g_rx2=g_orx;g_rx=x;}
+      if(y<g_ory){g_ry2=g_ory;g_ry=y;}
+      if(g_data['c']==1||g_shift){
+        g_rx2--;g_ry2--;
+        if(g_multic==1||g_hzoomer==2)g_rx2--;
+      }
+    }
+    g_rubbermode=1;
+  }
+  
+  if(tt==0||tt==4){
+    if(g_rubbermode==1){
+      for(int xx=g_rx;xx<=g_rx2+2;xx++){
+        updatepoint(xx,g_ry);
+        updatepoint(xx,g_ry2);
+      }
+      for(int yy=g_ry;yy<=g_ry2;yy++){
+        updatepoint(g_rx,yy);
+        updatepoint(g_rx2,yy);
+      }
+    }
+  }
+}
+

--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/draw_smart.pde	Tue Jul 03 20:56:55 2018 +0300
@@ -0,0 +1,642 @@
+//all "intelligent" stuff, the color behavior
+//and flood fills
+
+void consistency()
+{
+  int xx,yy,ad,a,b,x0,y0,x2,y2;
+  int pat,mat,fad,bad,maxxy,mulu,ymax;
+  if(g_multic==1||g_multic==2)return;
+  maxxy=MY;mat=64;mulu=8;ymax=7;
+  if(g_attrimode==0){mat=8;mulu=1;maxxy=Y;ymax=0;}
+  for(yy=0;yy<MY;yy++){
+    for(xx=0;xx<MX;xx++){
+      a=getattra(xx*8,yy*mulu,0);
+      b=getattra(xx*8,yy*mulu,1);
+      if(a==b){
+          for(y0=0;y0<=ymax;y0++){
+             for(x0=0;x0<=7;x0++){
+               ad=1024+(xx*8)+(yy*X*mulu)+x0+y0*X;
+               g_map[ad]=byte(0);
+           }
+        }
+      }
+      pat=0;
+       for(y0=0;y0<=ymax;y0++){
+         for(x0=0;x0<=7;x0++){
+           ad=1024+(xx*8)+(yy*X*mulu)+x0+y0*X;
+           pat=pat+int(g_map[ad]);
+         }
+      }
+      if(pat==mat||pat==0){
+        for(y0=0;y0<=ymax;y0++){
+          fad=65536+xx+(yy*mulu+y0)*MX;  
+          bad=fad+(MX*MY*8);  
+          if(pat==0)g_map[fad]=g_map[bad];
+          if(pat==mat)g_map[bad]=g_map[fad];
+        }      
+      }
+   }
+  }
+}
+
+void floodfillmc(int xx,int yy,int mou)
+{
+  int x,y,molox,ax,ay,valid,okay,par,npar;
+  npar=0;par=0;molox=1;
+
+  for(x=0;x<X;x++){
+    for(y=0;y<Y;y++){
+      g_fillmap[1024+x+y*X]=0;
+    }
+  }
+  
+  if(g_multic==1||g_hzoomer==2)molox=2;
+  if(molox==2){xx=xx/2;xx=xx*2;}
+  if(mou==LEFT){par=g_farge;npar=getmultic(xx,yy,0);}
+  if(mou==RIGHT){par=g_backg;npar=getmultic(xx,yy,0);}
+
+  g_fillmap[1024+xx+yy*X]=byte(100);
+  if(molox==2)g_fillmap[1024+xx+yy*X+1]=byte(0);
+  valid=0;okay=0;
+  
+  while(okay==0){
+    
+    valid=0;
+
+    for(x=0;x<X;x=x+molox){
+      for(y=0;y<Y;y++){
+        ax=int(g_fillmap[1024+x+y*X]);
+        if(ax>=100&&ax<=199){
+        valid=1;   
+        if(y>0){
+         if(getmultic(x,y-1,0)==npar&&g_fillmap[1024+x+(y-1)*X]==0){g_fillmap[1024+x+(y-1)*X]=byte(100);
+           if(molox==2){g_fillmap[1024+x+(y-1)*X+1]=byte(0);}
+           valid=1;} 
+        }
+        if(x>0){
+         if(getmultic(x-molox,y,0)==npar&&g_fillmap[1024+(x-molox)+(y)*X]==0){g_fillmap[1024+(x-molox)+y*X]=byte(100);
+           if(molox==2){g_fillmap[1024+(x-molox)+y*X+1]=byte(0);}
+           valid=1;} 
+        }      
+        if(x<X-2){
+         if(getmultic(x+molox,y,0)==npar&&g_fillmap[1024+(x+molox)+(y)*X]==0){g_fillmap[1024+(x+molox)+y*X]=byte(100);
+           if(molox==2){g_fillmap[1024+(x+molox)+y*X+1]=byte(0);}
+           valid=1;} 
+        }          
+        if(y<Y-1){
+         if(getmultic(x,y+1,0)==npar&&g_fillmap[1024+x+(y+1)*X]==0){g_fillmap[1024+x+(y+1)*X]=byte(100);
+           if(molox==2){g_fillmap[1024+x+(y+1)*X+1]=byte(0);}
+           valid=1;} 
+        }      
+        
+         g_fillmap[1024+x+y*X]=byte(200);
+         if(molox==2)g_fillmap[1024+x+y*X+1]=byte(0);
+       }
+    }
+  }
+  
+  if(valid==0)okay=1;
+  
+  }  
+  
+  for(x=0;x<X;x=x+molox){
+    for(y=0;y<Y;y++){
+      if(int(g_fillmap[1024+x+y*X])>=200){g_farge=par;mkaveri(x,y,par,0);makepoint(x,y);g_farge=g_ofarge;}
+   }
+  }  
+}
+
+void transchar(int xx,int yy)
+{
+  int fad,bad,ad,pt,x0,y0;
+  int aa,bb,pp,ya,yb;
+    ya=0;yb=0;
+    xx=xx/8;
+    
+    if(g_attrimode==1){yy=yy/8;yy=yy*8;ya=0;yb=7;}//zx spec etc
+    if(g_attrimode==0){ya=0;yb=0;}//msx
+    
+    for(y0=ya;y0<=yb;y0++){
+       fad=65536+xx+(yy+y0)*MX;  
+       bad=fad+(MX*MY*8);   
+       aa=int(g_map[fad]);
+       bb=int(g_map[bad]);
+       g_map[fad]=byte(bb);
+       g_map[bad]=byte(aa);
+    }
+    for(y0=ya;y0<=yb;y0++){
+      for(x0=0;x0<=7;x0++){
+         ad=1024+(xx*8)+(yy*X)+x0+y0*X;
+         pp=int(g_map[ad]);
+         pp=1-pp;
+         g_map[ad]=byte(pp);
+     }
+    }
+}
+
+void prepare_char(int xx,int yy,int farbe)
+{
+
+  //changes the char foreg/backg into "favorable" relative to used color
+  //needed in floodfill
+  
+  int fad,bad,ad,pt,x0,y0;
+  int aa,bb,pp,ya,yb;
+  ya=0;yb=0;
+  
+  pt=int(g_map[1024+xx+yy*X]);
+  if(pt==0&&g_data['r']==0&&g_data['R']==0){
+    //println("trans char "+xx+"."+yy);
+    xx=xx/8;
+    if(g_attrimode==1){yy=yy/8;yy=yy*8;ya=0;yb=7;}//zx spec etc
+    if(g_attrimode==0){ya=0;yb=0;}//msx style
+    for(y0=ya;y0<=yb;y0++){
+      fad=65536+xx+(yy+y0)*MX;  
+      bad=fad+(MX*MY*8);   
+      aa=int(g_map[fad]);
+      bb=int(g_map[bad]);
+      g_map[fad]=byte(bb);
+      g_map[bad]=byte(aa);
+    }
+    for(y0=ya;y0<=yb;y0++){
+     for(x0=0;x0<=7;x0++){
+       ad=1024+(xx*8)+(yy*X)+x0+y0*X;
+       pp=int(g_map[ad]);
+       pp=1-pp;
+       g_map[ad]=byte(pp);
+     }
+    }
+  }
+}
+
+void floodfill_iq(int xx,int yy,int mou)
+{
+  int x,y,ax,ay,valid,okay,par,npar;
+  npar=0;par=0;
+  if(mou==LEFT)par=g_farge;
+  if(mou==RIGHT)par=g_backg;
+  if(getabsa(xx,yy,0)==par)return;
+  consistency();
+  npar=getabsa(xx,yy,0);
+  prepare_char(xx,yy,npar);
+  for(x=0;x<X;x++){
+    for(y=0;y<Y;y++){
+      g_fillmap[1024+x+y*X]=0;
+    }
+  }
+  g_fillmap[1024+xx+yy*X]=byte(100);
+  valid=0;okay=0;
+  while(okay==0){
+    valid=0;
+
+    for(x=0;x<X;x++){
+      for(y=0;y<Y;y++){
+        ax=int(g_fillmap[1024+x+y*X]);
+        if(ax==100){
+          valid=1;   
+          if(y>0){
+             if(getabsa(x,y-1,0)==npar&&g_fillmap[1024+x+(y-1)*X]==0){prepare_char(x,y-1,npar);g_fillmap[1024+x+(y-1)*X]=byte(100);valid=1;} 
+          }
+          if(x>0){
+             if(getabsa(x-1,y,0)==npar&&g_fillmap[1024+(x-1)+y*X]==0){prepare_char(x-1,y,npar);g_fillmap[1024+(x-1)+y*X]=byte(100);valid=1;} 
+          }      
+          if(x<X-1){
+             if(getabsa(x+1,y,0)==npar&&g_fillmap[1024+(x+1)+y*X]==0){prepare_char(x+1,y,npar);g_fillmap[1024+(x+1)+y*X]=byte(100);valid=1;} 
+          }          
+          if(y<Y-1){
+             if(getabsa(x,y+1,0)==npar&&g_fillmap[1024+x+(y+1)*X]==0){prepare_char(x,y+1,npar);g_fillmap[1024+x+(y+1)*X]=byte(100);valid=1;} 
+          }      
+          g_fillmap[1024+x+y*X]=byte(200);
+      }
+    }
+  }
+  if(valid==0)okay=1;
+  }
+  
+  for(x=0;x<X;x++){
+    for(y=0;y<Y;y++){
+      ax=int(g_fillmap[1024+x+y*X]);
+      if(ax==200){
+         g_farge=par;
+         makepoint(x,y);
+         g_fillmap[1024+x+y*X]=0;
+      } 
+    }
+  }
+  g_farge=g_ofarge; 
+}
+
+//adaptive color helper for low-attribute modes
+//reasons the background color for each char as you draw
+//=changed
+
+void fixattr(int x,int y,int foreg,int backg)
+{
+  int bad,cad,miny,maxy;
+  
+  if(g_britemode==1){
+    if(foreg==8||backg==8||foreg==0||backg==0)return;
+  }
+  
+  miny=y/8;miny=miny*8;maxy=y-miny;miny=maxy;
+  y=y/8;y=y*8;
+  if(g_attrimode==1){miny=0;maxy=7;}
+  
+  for(int i=miny;i<=maxy;i++){
+    bad=65536+(x/8)+(y+i)*MX;
+    cad=bad+MX*(MY*8);
+    if(foreg>=0){
+      g_map[bad]=byte(foreg);
+      if(foreg>=8&&g_map[cad]<8)g_map[cad]=byte(g_map[cad]+8);
+      if(foreg<8&&g_map[cad]>=8)g_map[cad]=byte(g_map[cad]-8);    
+    }
+    if(backg>=0){
+      g_map[cad]=byte(backg);
+      if(backg>=8&&g_map[bad]<8)g_map[bad]=byte(g_map[bad]+8);
+      if(backg<8&&g_map[bad]>=8)g_map[bad]=byte(g_map[bad]-8);        
+    }
+  }
+  updatepoint(x,y);
+}
+
+//multicolor color behavior
+//different behavior depending on whether color area already has max colors,
+//or if forcecolor is pressed.
+//bit different for C64 and PLUS4M
+
+void skaveri(int x,int y,int foreg,int backg)
+{
+  int mx=x/8;
+  int my=y/8;
+  if(g_control==false)return;
+  int cc=easygetcolor(x,y);
+  mx=mx*8;my=my*8;
+  for(int xx=0;xx<=7;xx++){
+    for(int yy=0;yy<=7;yy++){
+      if(easygetcolor(mx+xx,my+yy)==cc){
+        g_map[1024+mx+xx+(my+yy)*X]=byte(foreg);
+      }
+    }
+  }
+  updatepoint(x,y);
+}
+
+void mkaveri(int x,int y,int foreg,int backg)
+{
+  int mx=x/8;
+  int my=y/8;
+  int ad,bad,cad,dad,b0,b1;
+  int f0,f1,f2,f3,free1,free2,free3;
+  int f,order,numb,suffocatelimit;
+  int targetbit0,targetbit1;
+  order=0;numb=0;targetbit0=0;targetbit1=0;suffocatelimit=7;
+  
+  f=getmultic(x,y,0);
+  if(g_data['d']==1&&f!=g_backg)return;
+  
+  cad=65536+mx+(my*MX);
+  
+  f0=int(g_map[1]); 
+  f1=int(g_map[cad]);free1=1;        
+  f2=int(g_map[cad+1000]);free2=1;
+  f3=int(g_map[cad+2000]);free3=1;
+  if(machine==PLUS4M){free3=0;suffocatelimit=3;f3=int(g_map[2]);}
+  
+  if(foreg==g_map[1]&&g_control==false)return;
+  
+  if(foreg!=f1&&foreg!=f2&&foreg!=f3||g_control==true){
+   for(int yy=0;yy<=7;yy++){
+      for(int xx=0;xx<=3;xx++){
+        ad=1024+(mx*8+xx*2)+(my*8+yy)*X;
+        if(g_map[ad]==0&&g_map[ad+1]==0){//00 = 00
+          if(f0==f)order=4;
+        }        
+        if(g_map[ad]==1&&g_map[ad+1]==0){//01 = 10
+          numb=numb|1;free1=0;
+          if(f1==f)order=1;
+        }
+        if(g_map[ad]==0&&g_map[ad+1]==1){//02 = 01
+          numb=numb|2;free2=0;
+          if(f2==f)order=2;
+        }
+        if(g_map[ad]==1&&g_map[ad+1]==1){//03 = 11
+          if(machine==C64M){numb=numb|4;free3=0;}
+          if(f3==f){order=3;targetbit0=1;targetbit1=1;}
+        }      
+      }
+    }
+   
+   boolean zoink=false;
+   if(order==4)zoink=true;
+   if(order==3&&machine==PLUS4M)zoink=true;
+   
+   if((zoink||numb!=suffocatelimit)&&g_control==true){
+     if(zoink){ 
+       //println("foreg:"+foreg+" f0:"+f0+" f1:"+f1+" f2:"+f2+" f3:"+f3+" free1:"+free1+" free2:"+free2+" free3:"+free3);
+       b0=-1;b1=-1;
+       if(foreg==f1&&free1==0){b0=1;b1=0;}
+       if(foreg==f2&&free2==0){b0=0;b1=1;}
+       if(foreg==f3&&machine==C64M&&free3==0){b0=1;b1=1;}
+       if(foreg==f3&&machine==PLUS4M){b0=1;b1=1;}
+       
+       if(free1==1){
+         free2=0;free3=0;b0=1;b1=0;g_map[cad]=byte(foreg);
+       }
+       if(free2==1){
+         free3=0;b0=0;b1=1;g_map[cad+1000]=byte(foreg);
+       }
+       if(free3==1){
+         b0=1;b1=1;g_map[cad+2000]=byte(foreg);
+       }
+       
+       for(int yy=0;yy<=7;yy++){
+          for(int xx=0;xx<=3;xx++){
+              ad=1024+(mx*8+xx*2)+(my*8+yy)*X;
+            if(g_map[ad]==targetbit0&&g_map[ad+1]==targetbit1){
+              if(b0>=0){
+                g_map[ad]=byte(b0);g_map[ad+1]=byte(b1);
+              }
+            }
+          }
+       }
+     }
+   }
+   
+   //if all color positions are filled, we'll just change the existing one
+   
+    if(numb==suffocatelimit||g_control==true){
+      if(order==1){g_map[cad]=byte(foreg);}//10==1
+      if(order==2){g_map[cad+1000]=byte(foreg);}//01==2
+      if(order==3&&machine==C64M){g_map[cad+2000]=byte(foreg);}//11==3      
+    }
+    
+    //color redundancy check
+    
+      for(int yy=0;yy<=7;yy++){
+          for(int xx=0;xx<=3;xx++){
+            ad=1024+(mx*8+xx*2)+(my*8+yy)*X;
+            
+            if(machine==C64M){
+              if(g_map[cad]==g_map[cad+2000]){
+                if(g_map[ad]==1&&g_map[ad+1]==1){
+                  g_map[ad]=1;g_map[ad+1]=0;
+                }
+              }
+              if(g_map[cad+1000]==g_map[cad+2000]){
+                if(g_map[ad]==1&&g_map[ad+1]==1){
+                  g_map[ad]=0;g_map[ad+1]=1;
+                }
+              }          
+            }                
+            
+            if(g_map[cad]==g_map[cad+1000]){
+              if(g_map[ad]==0&&g_map[ad+1]==1){
+                g_map[ad]=1;g_map[ad+1]=0;
+              }
+            }
+            if(g_map[1]==g_map[cad]){
+                if(g_map[ad]==1&&g_map[ad+1]==0){
+                g_map[ad]=0;g_map[ad+1]=0;
+                }
+            }
+            if(g_map[1]==g_map[cad+1000]){
+                if(g_map[ad]==0&&g_map[ad+1]==1){
+                  g_map[ad]=0;g_map[ad+1]=0;
+                }
+            }
+            
+            if(machine==PLUS4M){
+              if(g_map[2]==g_map[cad]){
+                  if(g_map[ad]==1&&g_map[ad+1]==0){
+                  g_map[ad]=1;g_map[ad+1]=1;
+                  }
+              }
+              if(g_map[2]==g_map[cad+1000]){
+                  if(g_map[ad]==0&&g_map[ad+1]==1){
+                    g_map[ad]=1;g_map[ad+1]=1;
+                  }
+              }
+              if(g_map[1]==g_map[2]){
+                if(g_map[ad]==1&&g_map[ad+1]==1){
+                  g_map[ad]=0;g_map[ad+1]=0;
+                }
+              }              
+            }
+            
+            if(machine==C64M){
+              if(g_map[1]==g_map[cad+2000]){
+                  if(g_map[ad]==1&&g_map[ad+1]==1){
+                    g_map[ad]=0;g_map[ad+1]=0;
+                  }
+              }               
+            }
+          }
+      }
+    }
+    updatepoint(x,y);
+}
+
+void kaveri(int x,int y,int foreg,int backg)
+{
+  int k_max;
+  int maxy,miny;
+  int ad,bad,cad;
+  int mx,my,val;
+  int farge0,farge1;
+  if(g_multic!=0||g_hzoomer==2)return;
+  if(g_data['d']==1)return;
+  mx=x/8;my=y/8;
+ 
+  if(g_attrimode==1)
+    {k_max=64;miny=0;maxy=7;}
+  else
+    {k_max=8;miny=y/8;miny=miny*8;maxy=y-miny;miny=maxy;}
+  
+  if(g_britemode==1&&foreg==8)foreg=0;
+
+  //check the amount of colors in the area
+  //if there is only one, return & draw "normally"
+  
+  if(g_control==false){
+    
+    val=0;
+    
+    for(int yy=miny;yy<=maxy;yy++){
+      ad=1024+(mx*8)+(my*8+yy)*X;
+      for(int xx=0;xx<=7;xx++){
+        val=val+g_map[ad+xx];
+      }
+    }
+    
+    if(val>=k_max||val==0)return;
+  
+    //check the two colors the color area is made of
+    //if either of the intended color already exists inside the color area, return & draw "normally"
+    
+    bad=65536+mx+y*MX;
+    cad=bad+MX*(MY*8);
+    farge0=g_map[bad];//if(g_britemode==1&&farge0==8){farge0=0;}
+    farge1=g_map[cad];//if(g_britemode==1&&farge1==8){farge1=0;}
+    
+    if(g_britemode==1){
+      if(farge0<8){
+        if(foreg==farge0+8){
+          fixattr(x,y,foreg,-1);return;
+        }
+      }    
+      if(farge1<8){
+        if(foreg==farge1+8){
+          fixattr(x,y,-1,foreg);return;
+        }        
+      }
+      if(farge0>=8){
+        if(foreg==farge0-8){
+          fixattr(x,y,foreg,-1);return;
+        }
+      }        
+      if(farge1>=8){
+        if(foreg==farge1-8){
+          fixattr(x,y,-1,foreg);return;
+        }        
+      }
+    }
+    if(foreg==farge0)return;
+    if(foreg==farge1)return;
+
+  //new IQ: simply change the underlying color into the intended one, return & draw "normally"
+  
+  }
+  
+  int piksuf;
+  int bg,fg;
+  piksuf=getabsa(x,y,0);
+  if(g_britemode==1&&piksuf==8)piksuf=0;
+  bad=0;cad=0;
+  for(int yy=miny;yy<=maxy;yy++){
+      bad=65536+mx+(my*8)*MX+yy*MX;
+      cad=bad+MX*(MY*8);
+      fg=g_map[bad];if(g_britemode==1&&fg==8)fg=0;
+      bg=g_map[cad];if(g_britemode==1&&bg==8)bg=0;
+        if(piksuf==fg){
+          g_map[bad]=byte(foreg);
+          if(g_britemode==1){
+            if(foreg>7&&g_map[cad]<8&&g_map[cad]!=0){
+              g_map[cad]=byte(g_map[cad]+8);
+            }
+            if(foreg<8&&g_map[cad]>8&&foreg!=0){
+              g_map[cad]=byte(g_map[cad]-8);
+            }          
+          }
+        }
+        if(piksuf==bg){
+          g_map[cad]=byte(foreg);      
+          if(g_britemode==1){
+            if(foreg>7&&g_map[bad]<8&&g_map[bad]!=0){
+              g_map[bad]=byte(g_map[bad]+8);
+            }
+            if(foreg<8&&g_map[bad]>8&&foreg!=0){
+              g_map[bad]=byte(g_map[bad]-8);
+            }
+          }          
+        }
+  } 
+  
+  // if the result is same color, zero the pixel data
+  
+  if(g_map[bad]==g_map[cad]){
+    for(int yy=miny;yy<=maxy;yy++){
+       for(int xx=0;xx<=7;xx++){
+         ad=1024+(mx*8+xx)+(my*8+yy)*X;
+         g_map[ad]=byte(0);
+     }
+    }
+  }
+  updatepoint(x,y);
+}
+
+void kaveri_iq(int x,int y,int f1,int f2)
+{
+  int k_xx,k_yy,k_ad,k_bad,k_ojox,k_ojoy,k_miny,k_maxy,k_xv,k_yv;
+  int k_c1,k_c2,k_v0,k_v1,k_tipping,k_maximum;
+  byte k_p;
+  
+  if(g_multic!=0||g_hzoomer==2)return;
+  
+  int exist;
+
+  exist=getabsa(x,y,0);
+  
+  if(g_britemode==1){
+    if(exist==8){if(g_farge<8){exist=0;}}
+    if(exist==0){if(g_farge>7){exist=0;}}
+  }
+  
+  k_v0=0;k_v1=0;k_tipping=4;
+  k_xx=x/8;k_yy=y/8;k_yy=k_yy*8;k_ojox=x/8;k_ojoy=y/8;
+  k_ojox=k_ojox*8;k_ojoy=k_ojoy*8;k_miny=(y-k_ojoy);k_maxy=k_miny;k_maximum=8;
+  
+  if(g_attrimode==1){k_miny=0;k_maxy=7;k_tipping=32;k_maximum=64;}//spectrum&c64 style
+  
+  k_ad=65536+k_xx+(k_yy+k_miny)*MX;k_bad=k_ad+MX*(MY*8);
+  k_c1=g_map[k_ad];k_c2=g_map[k_bad];
+  
+  if(g_britemode==1){
+    if(k_c1==8)k_c1=0;
+    if(k_c2==8)k_c2=0;
+  }
+  
+  k_bad=1024+k_xx*8+k_yy*X;
+  
+  //do we have more 0's or 1's
+  for(k_yv=k_miny;k_yv<=k_maxy;k_yv++){
+    k_ad=k_bad+k_yv*X;
+    for(k_xv=0;k_xv<=7;k_xv++){
+        if(g_map[k_ad]==1){k_v1++;}else{k_v0++;}
+        k_ad++;
+    }
+  }
+  
+  //force color
+  
+  if(g_control){
+    
+    k_v1=k_tipping+1;
+    
+    if(k_c1==exist){k_c1=g_farge;  
+      if(k_c1==8&&g_britemode==1)k_c1=0;
+    }
+    if(k_c2==exist){k_c2=g_farge;
+      if(k_c2==8&&g_britemode==1)k_c2=0;
+    }
+    
+    if(g_britemode==1){
+      if(g_farge>=8){
+        if(k_c1<=7)k_c1=k_c1+8;
+        if(k_c2<=7)k_c2=k_c2+8;
+      }
+    if(g_farge<=7){
+        if(k_c1>=8)k_c1=k_c1-8;
+        if(k_c2>=8)k_c2=k_c2-8;
+      }
+    }
+    
+  }
+  
+  if(k_v1>k_tipping){
+      for(k_yv=k_miny;k_yv<=k_maxy;k_yv++){
+        k_ad=65536+k_xx+(k_yy+k_yv)*MX;
+        k_bad=k_ad+MX*(MY*8);g_map[k_ad]=byte(k_c2);g_map[k_bad]=byte(k_c1);
+      }
+      for(k_yv=k_miny;k_yv<=k_maxy;k_yv++){
+        k_ad=1024+k_xx*8+(k_yy+k_yv)*X;
+        for(k_xv=0;k_xv<=7;k_xv++){
+          k_p=g_map[k_ad];
+          g_map[k_ad]=byte(1-k_p);
+          if(k_c1==k_c2)g_map[k_ad]=byte(0);
+          k_ad++;
+      }
+    }    
+  }
+  updatepoint(x,y);
+}
+

--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/events.pde	Tue Jul 03 20:56:55 2018 +0300
@@ -0,0 +1,735 @@
+//collects mouse/key events and directly related command parsing
+
+void keyPressed()
+{
+  if(key==ESC)
+  {
+    key=0;
+    return;
+  }
+  if(key==CODED){ 
+    if(keyCode==RIGHT)g_ofx++;refresh();
+    if(keyCode==LEFT)g_ofx--;refresh();
+    if(keyCode==UP)g_ofy--;refresh();
+    if(keyCode==DOWN)g_ofy++;refresh();        
+    if(keyCode==SHIFT)g_shift=true;
+    if(platform==MACOSX)
+    {
+      if(keyCode==COMMAND)g_control=true;
+    }
+    else
+    {
+      if(keyCode==CONTROL)g_control=true;
+    }  
+    return;
+  }
+  
+  //send to the indirect key handling
+  //so commands can be invoked elsewhere too
+  command(key);
+}
+
+void keyReleased()
+{
+  if(key==CODED){
+    if(keyCode==CONTROL)g_control=false;
+    if(keyCode==SHIFT)g_shift=false;
+    if(platform==MACOSX)
+    {
+      if(keyCode==COMMAND)
+      g_control=false;
+    }
+      else
+    {
+      if(keyCode==CONTROL)
+      g_control=false;
+    }  
+  }
+}
+
+void mouseDragged()
+{
+  int msx,msy;
+  g_iconx=mouseX;
+  g_icony=mouseY;
+  if(insidewindow(g_iconx,g_icony)){
+      if(g_phase==0){
+        g_piconx=g_iconx;g_picony=g_icony; g_iconx=-1;g_icony=-1;
+        g_repanel=-2;g_tooltrigger=100;
+        return;
+      }else{
+          g_iconx=-1;g_icony=-1;
+          g_piconx=-1;g_picony=-1;        
+      }
+  }else
+  {
+    if(g_data['m']==0&&g_data['M']==0){
+      msx=g_iconx-(g_windowx);
+      msy=g_icony-(g_windowy);
+      msx=g_msx-(g_windowx);msy=g_msy-(g_windowy);
+   
+    }else{
+      msx=g_iconx;msy=g_icony;
+    }
+    
+    g_iconx=-1;g_icony=-1;
+  }
+  g_iconx=-1;g_icony=-1;
+  if(mouseButton==CENTER)return;
+  if(g_tooltrigger==0)g_tooltrigger=1;
+}
+
+boolean insidewindow(int x,int y)
+{
+  if(x>width-g_hedge||y>height-g_vedge)return true;
+  return false;
+}
+
+void mousePressed()
+{
+    int msx,msy;
+    g_iconx=mouseX;g_icony=mouseY;
+    g_button=mouseButton;g_realbutton=g_button;
+ 
+    if(insidewindow(g_iconx,g_icony)){
+        if(g_phase==0){
+          g_repanel=-2;g_tooltrigger=100;g_piconx=g_iconx;g_picony=g_icony;
+        }else{
+          g_iconx=-1;g_icony=-1;
+        }
+      return;
+     }
+      else
+     {
+        g_msx=g_iconx;g_msy=g_icony;
+        if(g_data['m']==0&&g_data['M']==0){
+          msx=g_iconx-(g_windowx);
+          msy=g_icony-(g_windowy);
+          msx=g_msx-(g_windowx);msy=g_msy-(g_windowy);
+       
+        }else{
+          msx=g_iconx;msy=g_icony;
+        }
+            
+        if(g_button!=CENTER){
+          if(tool()!=5&&tool()!=4)store_undo();
+          if(tool()==4){//cut brush results in undo
+            if(g_button==RIGHT)store_undo();
+          }
+        }
+      if(g_button==CENTER){g_button=255;g_repanel=-2;
+        if(g_shift)g_button=254;
+      }
+      g_phase=0;
+      do_tool(msx,msy,g_button);
+      g_phase=1;
+   }
+}
+
+void mouseReleased()
+{
+  int swap;
+  g_tooltrigger=0;
+  g_klikkeri=0;
+  if(tool()==8){
+    if(g_phase==1){
+      g_phase=0;
+      rectangle(g_rx,g_ry,g_rx2,g_ry2);
+    }
+  }
+  if(tool()==7){//circle
+    if(g_phase==1){
+      g_phase=0;
+      docircle(g_rx,g_ry,g_rx2,g_ry2);
+    }
+  }  
+  if(tool()==6){
+    if(g_phase==1){
+      g_phase=0;
+      doline(g_rx,g_ry,g_rx2,g_ry2,0);
+    }
+  }
+  
+  if(g_data['4']==1){ 
+    if(g_phase==1){
+      g_phase=0;g_rubbermode=0;refresh();
+      g_data['4']=0;g_data['d']=0;
+      g_data['r']=0;g_data['R']=0;
+      g_data['x']=0;g_data['y']=0;
+      g_data['q']=0;g_data['p']=0;
+      g_data['t']=0;g_data['n']=0;
+      switcher(2);
+      if(g_multic==1||g_hzoomer==2){g_rx=g_rx/2;g_rx=g_rx*2;g_rx2=g_rx2/2;g_rx2=g_rx2*2;}
+      g_bsourcex=g_rx;g_bsourcey=g_ry;
+      g_bsourcex2=g_rx2;g_bsourcey2=g_ry2;
+      if(g_bsourcex<=0)g_bsourcex=0;
+      if(g_bsourcey<=0)g_bsourcey=0;
+      if(g_bsourcex>=X)g_bsourcex=X-1;
+      if(g_bsourcey>=Y)g_bsourcex=Y-1;    
+      if(g_bsourcex2<=0)g_bsourcex2=0;
+      if(g_bsourcey2<=0)g_bsourcey2=0;
+      if(g_bsourcex2>=X)g_bsourcex2=X-1;
+      if(g_bsourcey2>=Y)g_bsourcey2=Y-1;
+      
+      set_tool(1);
+      g_btype=9;
+      g_repanel=-2;
+      if(g_button==RIGHT){
+        storeparameters();
+        g_data['f']=1;g_data['X']=0;g_data['Y']=0;       
+        doborx(g_rx,g_ry,g_rx2,g_ry2);
+        restoreparameters();
+      }
+    }
+  consistency();
+  }
+  if(g_phase==1){
+     g_phase=0;g_rubbermode=0;refresh(); //needed otherwise the pen color is kept e.g. after right mousebutton
+  }
+}
+
+void macro_command(int ckey)
+{
+    //filter out load/save
+    if(ckey=='s'||ckey=='S'||ckey=='l'||ckey=='E'||ckey=='w'||ckey=='W'||ckey=='A')return;
+    command(ckey);
+}
+
+void command(int ckey)
+{
+  int swap;
+  
+  //keypresses change g_data[] values directly as 1/0 switches
+  //handling these presses "indirectly" adds complexity here
+  //but is valuable elsewhere = corresponding icons have shortcuts automatically
+  
+  if(ckey=='-')ckey='h';
+  if(ckey=='+')ckey='H';
+  
+  if(ckey==TAB){
+    if(g_shift==false){
+      if(g_britemode==1){
+        if(g_realfront==7)g_realfront=-1;
+        if(g_realfront==15)g_realfront=7;
+      }
+      selectcolor(0,g_realfront+1);g_repanel=-2;
+    }else{
+      if(g_britemode==1){
+        if(g_realfront==8)g_realfront=16;
+        if(g_realfront==0)g_realfront=8;
+      }
+      selectcolor(0,g_realfront-1);g_repanel=-2;
+    }
+  }
+      
+  //println("ckey+"+ckey);
+  if(g_control==true){
+    int UNDO=26,
+    REDO=25,
+    PASTE=22,
+    SAVE=19,
+    LOAD=15,
+    NEW=14,
+    COPY=3,
+    COPYALT=24,
+    ALL=1;
+            
+    if(platform==MACOSX){
+      UNDO=122;
+      REDO=25;
+      PASTE=22;
+      SAVE=115;
+      LOAD=111;
+      NEW=110;
+      COPY=99;
+      COPYALT=120;
+      ALL=97;        
+    }
+        
+    if(ckey==UNDO){
+      ckey='u';
+      if(g_shift)ckey='U';
+    }//undo
+    if(ckey==REDO)ckey='U';
+    if(ckey==PASTE)ckey='9';
+    if(ckey==SAVE){
+      ckey='S';
+      if(g_shift)ckey='s';
+    }//save
+    if(ckey==LOAD)ckey='l';
+    if(ckey==NEW)ckey='o';
+    if(ckey==COPY||ckey==COPYALT)ckey='4';
+    if(ckey==ALL){
+      switcher(2);
+      g_bsourcex=0;g_bsourcey=0;
+      g_bsourcex2=X-1;g_bsourcey2=Y-1;
+      ckey='9';
+      g_data['p']=0;g_data['x']=0;g_data['y']=0;g_data['q']=0;g_data['z']=0;
+      g_phase=0;g_rubbermode=0;
+      set_tool(1);
+    }
+  }
+  
+  if(ckey>=128&&ckey<=131){
+    g_bsize=ckey-128;g_btype=0;
+  }
+  
+  if(ckey>=132&&ckey<=135){
+    g_bsize=ckey-132;g_btype=1;
+  }
+  
+  if(ckey==' '||ckey=='.'){
+    if(ckey=='.'){g_bsize=0;g_btype=0;g_data['n']=0;}
+    ckey='3';
+    if(ckey==' '){}    
+  }
+    
+  if(ckey>=0&&ckey<=255){
+    //g_depressed[ckey-48]=10;
+  }
+    
+  if(ckey==','){
+      g_repanel=-2;
+      do_tool(mouseX,mouseY,255);
+      do_tool(g_mx,g_my,255);
+      return;
+  }
+  
+  if(ckey=='v'){
+    g_repanel=-2;
+   // do_tool(mouseX,mouseY,254);
+    do_tool(g_mx,g_my,254);
+    return;
+  }
+  
+  if(ckey=='['){
+      fixed_raster_command('x');
+      message("R.OFFSET "+str(g_raster_offset_x)+"."+str(g_raster_offset_y));
+      g_repanel=-2;
+      return;
+  }
+  if(ckey==']'){
+      fixed_raster_command('y');
+      message("R.OFFSET "+str(g_raster_offset_x)+"."+str(g_raster_offset_y));
+      g_repanel=-2;
+      return;
+  }  
+  if(ckey=='('){
+      fixed_raster_command('p');
+      message("RASTER "+str(g_raster_no)+"/9|[=PREV|]=NEXT");
+      g_repanel=-2;
+      return;
+  }
+  
+  if(ckey==')'){
+      fixed_raster_command('n');
+      message("RASTER "+str(g_raster_no)+"/9|[=PREV|]=NEXT");
+      g_repanel=-2;
+      return;
+  }
+  
+  if(ckey=='>'){
+    selectcolor(0,g_rgb[int(g_map[1])]);
+    message("Current=Back");    
+    g_repanel=-2;
+    return;
+  }
+  if(ckey=='<'){
+    g_repanel=-2;
+    swap=g_farge;
+    g_farge=g_backg;g_ofarge=g_farge;
+    g_backg=swap;
+    g_realfront=byte(g_farge);
+    g_realback=byte(g_backg);
+  }
+  
+  if(ckey=='0'){
+      if(g_data['m']==0&&g_data['M']==0){
+        if(tool()!=0){
+          g_prevtool=tool();
+        }
+      }else
+      {
+        ckey='m';
+      }
+   }
+      
+   if(ckey=='9'){
+     g_repanel=-2;
+     g_btype=9;
+     return;
+   }
+   if(ckey>='0'&&ckey<='8'){
+     g_repanel=-2;
+     set_tool(ckey-48);
+     g_phase=0;g_rubbermode=0;
+     g_rx=-1;g_ry=-1;g_rx2=-1;g_ry2=-1;
+     if(g_data[ckey]>1)g_data[ckey]=0;
+     if(ckey=='4'){
+       g_data['x']=0;
+       g_data['y']=0;
+       g_data['h']=0;
+       g_data['q']=0;
+       g_data['t']=0;
+       g_data['n']=0;
+     }
+  }
+  
+  if(ckey>='A'&&ckey<='Z'){
+    g_repanel=-2;
+    g_data[ckey]++;
+    if(g_data[ckey]>1)g_data[ckey]=0;
+    
+    if(ckey=='Q'){g_repanel=-2;g_msgctr=0;help('B');g_msgctr=50;}
+    if(ckey=='G'){
+      g_data['G']=0;
+      switch(g_gridx){
+        case 8:
+          g_gridx=16;g_gridy=16;
+        break;
+        case 16:
+          g_gridx=4;g_gridy=4;
+        break;
+        case 4:
+          g_gridx=8;g_gridy=8;
+        break;
+      }
+      g_repanel=-2;g_msgctr=0;help('g');g_msgctr=50;
+    }
+    
+    if(ckey=='I'){
+       // message("sprites shitted");
+        //poopsprites();
+       // poopspecialsprites();
+    }
+    
+    if(ckey=='T'){
+     //   message("chars shitted");
+      //  poopultimachars();
+//        poopsprites();
+    }
+    if(ckey=='G'){
+       if(g_data['g']==0)g_data['g']=1;
+    }
+    if(g_data['M']==0)g_boxreconstruct=2;
+    
+    if(g_data['M']==1){
+      if(ckey=='M'){
+        g_ofx=g_storedcoordx/8-magx()/2;
+        g_ofy=g_storedcoordy/8-magy()/2;
+        g_data['m']=0;message("Super|Magnify");
+        if(tool()==0){set_tool(g_prevtool);g_phase=0;g_rubbermode=0;}
+      }
+    }
+    if(g_data['B']==1){
+      g_data['B']=0;
+      if(machine!=MSX){
+        store_undo();
+        g_map[0]=byte(zxcolor(g_farge));
+        sussborder();
+        message("Set border");
+      }
+      if(machine==MSX){
+        g_data['C']=1;
+      }
+    }
+    if(g_data['C']==1){
+      g_data['C']=0;
+      if(int(g_map[1])!=255){
+        store_undo();
+        if(machine==PLUS4M&&g_farge==g_map[2]){
+            message("1st and 2nd|can't be|same");
+            refresh();
+            return;          
+        }
+        g_map[1]=byte(g_farge);
+        
+        if(machine==MSX){g_map[0]=byte(g_farge);sussborder();}
+        message("Set back|color");
+       }
+    }
+    if(g_data['V']==1){
+      g_data['V']=0;
+      if(int(g_map[1])!=255){
+        store_undo();
+        if(machine==PLUS4M&&g_farge==g_map[1]){
+          message("1st and 2nd|can't be|same");
+          refresh();
+          return;
+        }
+          g_map[2]=byte(g_farge);
+        message("Set 2nd|back color");
+       }
+    }      
+    if(g_data['W']==1){
+      g_data['W']=0; 
+      if(g_formatextension!=""){
+        gui=true;exportfmt=true;
+        message("Format|export");
+      }
+        else
+      {
+        message("None for|"+g_name);
+      }
+    }
+    if(g_data['N']==1){
+        g_data['N']=0;
+        int i=g_animspeed;
+        i++;
+        if(i>3)i=0;
+        g_animspeed=i;
+        message("Playbrush|speed="+g_animspeed);
+      }
+    refresh();
+  }
+  
+  if(ckey>='a'&&ckey<='z'){
+    g_repanel=-2;
+    g_data[ckey]++;
+    if(g_data[ckey]>1){
+      if(ckey=='m'||ckey=='M'){g_boxreconstruct=2;g_data['M']=0;g_data['m']=0;}
+      g_data[ckey]=0;
+    }
+    
+    if(g_data['t']==1){
+      if(ckey=='t')message("Tile mode");
+    }
+    
+    if(ckey=='n'){if(g_data['n']==1){
+      switcher(2);infersize();
+      if(g_data['n']==1){
+        command('1');command('9');
+        g_data['p']=0;g_data['x']=0;g_data['y']=0;
+        g_data['q']=0;g_data['t']=0;
+        }
+      }
+    }    
+    
+    if(g_data['i']==1){
+      g_data['i']=0;
+      selectcolor(0,nextluminance(g_farge,1));
+    }
+    if(g_data['k']==1){
+      g_data['k']=0;
+      selectcolor(0,nextluminance(g_farge,-1));
+    }
+    if(g_data['d']==0){
+      if(ckey=='d')consistency();
+    }
+    if(g_data['z']==1){
+      g_data['z']=0;
+      int orient;
+      orient=g_data['x']*100+g_data['y']*10+g_data['q'];
+      if(orient==0){
+        g_data['x']=0;g_data['y']=0;g_data['q']=1;
+      }
+      if(orient==1){
+        g_data['x']=1;g_data['y']=1;g_data['q']=0;
+      }  
+      if(orient==110){
+        g_data['x']=1;g_data['y']=1;g_data['q']=1;
+      } 
+      if(orient==111){
+        g_data['x']=0;g_data['y']=0;g_data['q']=0;
+      }
+      if(orient==100){
+        g_data['x']=0;g_data['y']=1;g_data['q']=1;
+      }
+      if(orient==11){
+        g_data['x']=0;g_data['y']=1;g_data['q']=0;
+      }  
+      if(orient==10){
+        g_data['x']=1;g_data['y']=0;g_data['q']=1;
+      }
+      if(orient==101){
+        g_data['x']=1;g_data['y']=0;g_data['q']=0;
+      }      
+      message("Rotate|brush");
+    }    
+
+    if(ckey=='m'){
+      if(g_data['M']==1){
+        g_data['M']=0;g_data['m']=0;ckey=0;g_boxreconstruct=2;
+      }
+      g_data['M']=0;        
+    }
+    if(g_data['m']==1){
+      if(ckey=='m'){
+       g_data['M']=0;
+       int moux,mouy;
+       moux=g_mx/g_wzoom;mouy=g_my/g_wzoom;
+       g_ofx=moux/(8)-magx()/2;
+       g_ofy=mouy/(8)-magy()/2;
+       message("Magnify");
+       if(tool()==0){set_tool(g_prevtool);g_phase=0;g_rubbermode=0;}
+      }
+    }
+    refresh();
+  }
+  
+  if(g_data['J']==1){
+    g_data['J']=0;g_data['j']=0;
+    spare();
+    store_undo();
+    switch(g_spare){
+      case 0:
+        message("Copied to|Front");
+        switcher(4);
+      break;
+      case 1:
+        message("Copied to|Spare");
+        switcher(4);        
+      break;
+    }
+    spare(); 
+  }
+  
+  if(g_data['j']==1){
+    g_data['j']=0;
+    if(g_spare==0)message("Spare Page");
+    if(g_spare==1)message("Front Page");
+    spare();
+    makecolor(259,g_r[g_map[0]],g_g[g_map[0]],g_b[g_map[0]]);
+    g_boxreconstruct=2;
+  }
+  if(g_data['E']==1){
+    g_data['E']=0;
+    message("Source|export");    
+    gui=true;exporttxt=true;
+    //machine_export(1);  
+  }
+  if(g_data['A']==1){
+    g_data['A']=0;
+    message("Executable|export");   
+    gui=true;exportemu=true;
+    //machine_export(0);  
+  }
+  if(g_data['w']==1){
+    g_data['w']=0;
+    gui=true;importfmt=true;
+  }   
+  if(g_data['O']==1){
+    g_data['O']=0;
+    store_undo();
+    for(int xx=0;xx<X*Y;xx++){
+        g_map[1024+xx]=0;
+    }    
+    for(int xx=0;xx<X;xx++){
+      for(int yy=0;yy<Y;yy++){
+        g_farge=g_backg;
+        makepoint(xx,yy);
+        g_farge=g_ofarge;      
+      }
+    }
+  }
+  
+  if(g_data['o']==1){
+    g_data['o']=0;
+    message("Clear all");
+    store_undo();
+    storeparameters();
+    g_data['r']=0;g_data['R']=0;g_data['d']=0;g_data['t']=0;
+           
+    for(int xx=0;xx<X*Y;xx++){
+        g_map[1024+xx]=0;
+    }
+ 
+    for(int xx=0;xx<X;xx++){
+      for(int yy=0;yy<Y;yy++){
+        g_farge=g_backg;
+        makepoint(xx,yy);
+        g_farge=g_ofarge;      
+      }
+    }
+    
+    restoreparameters();
+  }
+  
+  if(g_data['e']==1){
+    g_data['e']=0;
+  }
+ 
+  if(g_data['h']==1){
+    g_data['h']=0;
+    g_bsize--;if(g_bsize<0)g_bsize=0;
+    g_msgctr=-2;
+    help('h');  
+  }
+  if(g_data['H']==1){
+    g_data['H']=0;
+    g_bsize++;if(g_bsize>10)g_bsize=10;
+    g_msgctr=-2;
+    help('h');
+  }  
+  if(g_data['u']==1){
+    g_data['u']=0;
+    message("Undo");
+    restore_undo();refresh();g_boxreconstruct=2;
+  }
+  if(g_data['U']==1){
+    g_data['U']=0;
+    message("Redo");
+    redo_undo();refresh();
+  }
+  if(g_data['S']==1){
+    g_data['S']=0;
+    if(g_spare==0)elename=filename;
+    if(g_spare==1)elename=sfilename;
+    
+    if(elename.length()>3){
+    
+      if(g_iconmode==0){
+        if(g_spare==0){
+          message("Page saved");
+          store(elename);
+        }
+        if(g_spare==1){
+          message("Spare page|saved");
+          store(elename);
+        }
+      }
+    
+    }
+      else
+    {
+      message("No filename!");
+      message("*");
+      g_data['S']=0;g_data['s']=0;
+    }
+  }
+  
+  if(machine==SPECTRUM&&debugger==1){
+      if(g_data['i']==1){
+          g_data['i']=0;
+          if(g_iconmode==0){
+            message("Icons|not loaded!");
+          }
+            else
+          {
+            message("Store|icons");
+            store("icons.bin");
+          }
+      }
+      if(g_data['I']==1){
+        g_data['I']=0;
+        store_undo();
+        message("Restore|icons");
+        restore("icons.bin");
+        refresh();
+        g_iconmode=1;
+      }  
+  }
+  if(g_data['l']==1){
+    g_data['l']=0;
+    gui=true;fileselect=true;
+  }
+  if(g_data['s']==1){
+    g_data['s']=0;
+    gui=true;saveas=true;
+  }  
+  if(g_data['L']==1){
+    g_data['L']=0;
+  }
+}
+
+