Add files via upload

AMIGA2.PAS

@@ -23,6 +23,7 @@ uses
   uparticl,
   ufractal,
   uiff32,
+  uloader,
   upaint;
 {$O  uturtle3 }
 {$O  umapping }
@@ -35,6 +36,7 @@ uses
 {$O  uparticl }
 {$O  ufractal }
 {$O  uiff32   }
+{$O  uloader  }
 {$O  upaint   }
 var
  command,yesno : char;
@@ -58,11 +60,6 @@ begin
   TextColor(2);
   clrscr;
   window(41,1,80,24);
-  if RpalP<>nil then begin
-(*    writeln('Find resident palette. ',hexstr(seg(RpalP^)));
-    end else begin
-	writeln('Not find resident palette.'); *)
-    end;
 
   emsinit;
   frameinit;
@@ -100,6 +97,7 @@ begin
     writeln('  [P] Picture operation');
     writeln('  [Z] EMS     operation');
     writeln('  [@] anim32  operation');
+    writeln('  [L] Load other picture');
     writeln('  [!] quit   (Return to OS)');
     writeln;
     write( '>');
@@ -124,9 +122,10 @@ begin
       '8' : turtle3d;
       '9' : fractal;
       'A' : particle;
-      '@' : iff32;
       'P' : picop;
       'Z' : emsop;
+      '@' : iff32;
+      'L' : load_pics;
       '?' : checksystem;
     end;
   until (command = '!') and (yesno = 'Y');

FMMOUSE.PAS

@@ -295,39 +295,45 @@ end;
 procedure revbox(x1,y1,x2,y2 : integer);
 var i,xx1,yy1,xx2,yy2 : integer;
 begin
-  if (x1 <> x2) or (x1 <> x2) then
+  if (x1 <> x2) or (y1 <> y2) then
   begin
-    if x1 > x2 then
+    if x1 < x2 then
     begin
-      xx1 := x1;
-      xx2 := x2
+      if y1 < y2 then
+      begin
+        xx1 := x1; xx2 := x2;
+        yy1 := y1; yy2 := y2;
+      end else
+      begin
+        xx1 := x1; xx2 := x2;
+        yy1 := y2; yy2 := y1;
+      end
     end else
     begin
-      xx1 := x2;
-      xx2 := x1
+      if y1 < y2 then
+      begin
+        xx1 := x2; xx2 := x1;
+        yy1 := y1; yy2 := y2;
+      end else
+      begin
+        xx1 := x2; xx2 := x1;
+        yy1 := y2; yy2 := y1;
+      end
     end;
-    if y1 > y2 then
-    begin
-      yy1 := y1;
-      yy2 := y2
-    end else
+    for i := xx1 to xx2 do
     begin
-      yy1 := y2;
-      yy2 := y1
+      revpset(i,yy1);
+      revpset(i,yy2)
     end;
-    for i := x1 to x2 do
+    for i := yy1 to yy2 do
     begin
-      revpset(i,y1);
-      revpset(i,y2)
+      revpset(xx1,i);
+      revpset(xx2,i)
     end;
-    for i := y1 to y2 do
-    begin
-      revpset(x1,i);
-      revpset(x2,i)
-    end
-  end
+  end;
 end;
 
+
 procedure revxyline(x,y:integer);
 var i : integer;
 begin

README.md

@@ -2,6 +2,7 @@
  (Deluxe Paint III like) animation paint system for UNZ(FM-TOWNS emulator) 
 
 ![スイカの行進](https://github.com/clouddan4/amiga2/blob/master/SUIKA.gif)
+![スイカの行進](https://github.com/clouddan4/amiga2/blob/master/SUIKA.png)
 
 20 years ago, I used Amiga500,Amiga4000,X68000 and FM-Towns(This program).  
 Original source skelton is 'Turbo Graphics (PC-9801) by Anzai Tosihiro' and  
@@ -39,6 +40,7 @@ Add feature from 'Deluxe Paint III'
 	- light table
 	- (tool) step Animation
 - and more....
+![16color](https://github.com/clouddan4/amiga2/blob/master/submenu.png)
 
 ### New feature
 - 3 Animation tracks
@@ -59,7 +61,6 @@ built-in external Anim_geneator module
 - Particle (poor)
 - Fractal (jumble of good and bad)
 
-![スイカの行進](https://github.com/clouddan4/amiga2/blob/master/SUIKA.png)
 ---
 
 #### near future plans