cfid = fopen ( 'clist', 'r' );
mfid = fopen ( 'mlist', 'r' );


mfile = fgetl ( mfid );
cfile = fgetl ( cfid );

cfig = figure ( 'Name', 'C buoy2epic', ...
                'Position', [10   544   560   420] );
mfig = figure ( 'Name', 'Matlab buoy2epic', ...
                'Position', [590   544   560   420] );

while 1

    mfile = fgetl ( mfid );
    cfile = fgetl ( cfid );

    if ~isstr(mfile), break, end

    figure ( cfig );
    set ( cfig, 'Name', sprintf ( 'C buoy2epic %s', cfile ) );
    epic_plot ( cfile );

    figure ( mfig );
    set ( mfig, 'Name', sprintf ( 'Matlab buoy2epic %s', mfile ) );
    epic_plot ( mfile );

    pause


end

