#!/usr/bin/perl
#
use Inline C => DATA =>
    INC => '-I/usr/local/trmm/GVBOX/include' =>
    LIBS => '-L/usr/local/trmm/GVBOX/lib -lrsl';

    my $file = shift or die "USAGE: radar.pl file ID\n";
    my $id = shift or die "USAGE: radar.pl file ID\n";
    my_test($file, $id);

__END__
__C__

#include "rsl.h"

int my_test(char* file, char* id) {
    Radar *radar;
    radar = RSL_anyformat_to_radar(file, id);
    RSL_load_refl_color_table();
    RSL_volume_to_gif(radar->v[DZ_INDEX], "dz_sweep", 400, 400, 200.0);
    return(0);
}