SET COLOR MODE "NATIVE"

GLOAD "bai1.gif"
ASK PIXEL SIZE (0,0; 1,1) a,b
DIM p(a,b)
ASK PIXEL ARRAY (0,1) p

GLOAD "bai2.gif"
ASK PIXEL SIZE (0,0; 1,1) a,b
DIM q(a,b)
ASK PIXEL ARRAY (0,1) q

SET BITMAP SIZE 200,200
CLEAR
SET WINDOW -100, 150, -100, 150
FOR i=0 TO 1000
   IF i=1 THEN
      WAIT DELAY 2
   END IF
   SET DRAW mode hidden
   CLEAR
   DRAW pict1 WITH SHIFT(-83,-10)*SCALE(1-i/1000,1)
   SET DRAW mode explicit
NEXT i

SET BITMAP SIZE 200,200
CLEAR
SET WINDOW -100, 150, -100, 150
FOR i=0 TO 1000
   SET DRAW mode hidden
   CLEAR
   DRAW pict2 WITH SHIFT(-83,-10)*SCALE(i/1000,1)
   SET DRAW mode explicit
NEXT i

PICTURE pict1
   MAT PLOT CELLS, IN  1,b ; a,1 : p
END PICTURE

PICTURE pict2
   MAT PLOT CELLS, IN  1,b ; a,1 : q
END PICTURE

END



################################################################################



SET COLOR MODE "NATIVE"

GLOAD "bai1.gif"
ASK PIXEL SIZE (0,0; 1,1) a,b
DIM p(a,b)
ASK PIXEL ARRAY (0,1) p

GLOAD "bai3.gif"
ASK PIXEL SIZE (0,0; 1,1) a,b
DIM q(a,b)
ASK PIXEL ARRAY (0,1) q

SET BITMAP SIZE 200,200
CLEAR
SET WINDOW -100, 150, -100, 150
FOR i=0 TO 1000
   IF i=1 THEN
      WAIT DELAY 2
   END IF
   SET DRAW mode hidden
   CLEAR
   DRAW pict1 WITH SHIFT(-83,-10+0.00001*i^2)*SCALE(1,1-i/1000)
   SET DRAW mode explicit
NEXT i

SET BITMAP SIZE 200,200
CLEAR
SET WINDOW -100, 150, -100, 150
FOR i=0 TO 1000
   SET DRAW mode hidden
   CLEAR
   DRAW pict2 WITH SHIFT(-83,-0.00001*i^2)*SCALE(1,i/1000)
   SET DRAW mode explicit
NEXT i

PICTURE pict1
   MAT PLOT CELLS, IN  1,b ; a,1 : p
END PICTURE

PICTURE pict2
   MAT PLOT CELLS, IN  1,b ; a,1 : q
END PICTURE

END