>My code attempt as it is...
>
>  MyPict&=FN GETPICTURE (128)
>  DIM rect.8
>  CALL SETRECT(rect,0,0,145,145)
>
>  COLOR=_zBlack
>  FOR I=145 TO 0 STEP -5
>    CALL DRAWPICTURE (MyPict&,rect)
>    BOX FILL 0,0 TO 145,I
>    DELAY 100
>  NEXT I
>
>Anyone have any ideas, sample code snips, places I should look?
>
Jan,

Welcome to the list!

I suspect what you need is to define a clipping rectangle. 

The smoothest thing would be to put your pict in an offscreen gWorld, 
then BITCOPY just the part you need to the screen.

I don't have time to walk you through it right now, but maybe you can 
start investigating, and I'm sure some others will have more helpful 
suggestions.

 0"0
 =J= a  y
  "