Spat_Plot.c File Reference

GUI and Callbacks for Plotting spectra. More...

#include <windows.h>
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <malloc.h>
#include <math.h>
#include <io.h>
#include <direct.h>
#include <fcntl.h>
#include <sys/stat.h>
#include "mgui.h"
#include "DAS_Spatram.h"
#include "dcl.h"
#include "dil.h"
#include "bil.h"
#include "DOAS.h"

Include dependency graph for Spat_Plot.c:

Go to the source code of this file.

Functions
float *	AllocFloatMat (int hp, int vp)
long *	AllocLongMat (int hp, int vp)
void	AllocMat ()
unsigned short *	AllocUSMat (int hp, int vp)
void	AssZeroMat (int hp, int vp)
void	CloseFile (FILE *fd, int hp, int vp)
void	CloseFile_BIN (int fd, int hp, int vp)
void	ClosePlotCB (MOBJECT p, void *od, void *ad)
void	D_AssignLabelPlot (void)
void	D_AssignOrigin (MOBJECT obj)
int	D_findmaxmin (unsigned short plotmat[], int xinf, int xsup, int yinf, int ysup, int bp)
void	D_pbr_CB (MOBJECT p, void *od, void *ad)
void	D_PButt_CB (MOBJECT p, void *od, void *ad)
void	D_PlotAxis (MOBJECT ob, MIMAGE mim, int sx, int sy, int ex, int ey, MTColor col)
void	D_PlotGrid (MOBJECT ob, MIMAGE mim, int sx, int sy, int ex, int ey)
void	D_PlotOneLine (int n, int sel, MOBJECT obj, MOBJECT pb[], MIMAGE mim, unsigned short plotmat[], int idx, int idy, unsigned long pe[], double costx, double costy, int min, int max, int ox, int oy, int bp)
void	D_PlotTools (void)
void	DB_AreaInput (MOBJECT obj, MEvent *pe, void *a_data)
int	DB_CloseImage (int s)
void	DB_DisplayCB (MOBJECT p, void *od, void *ad)
void	DB_EqTypePlotCB (MOBJECT o, void *a, void *v)
void	DB_FilterCB (MOBJECT p, void *od, void *ad)
	Filter positioning callback. More...
double	DB_FindMaxMin (int idx, int idy, unsigned int *mx, unsigned int *mi, int bp)
void	DB_SpikesCB (MOBJECT p, void *od, void *ad)
void	DB_XUnitsCB (MOBJECT o, void *id, void *a_data)
void	deallocamat ()
float *	DeallocFloatMat (float *mat)
unsigned short *	DeallocUSMat (unsigned short *mat)
void	DestroyArrayObj (MOBJECT obj[], int n)
int	DrawAreaPlotCB (MOBJECT obj, MEvent *pexp, void *a_data)
void	DrawButtons (int nhidlbef, int nhidlaft, int nr)
void	DrawImg (MIMAGE img, int a, int c, int x, int y)
void	DrawXLine (MIMAGE img, int yfix, int xs, int xe, int r, int g, int b)
void	DrawYLine (MIMAGE img, int xfix, int ys, int ye, int r, int g, int b)
void	GrafoIMG (int mode)
int	HeaderInPlot (void)
	Shows the measurements parameters . More...
void	ImatGrafInImat (void)
void	ImatInImatGraf (void)
void	InitImage (MIMAGE img, int xd, int yd, int rb, int gb, int bb)
void	LoadIo (int mod, char *fname)
void	LogRatioSpectrum (void)
void	MakeItemSensitiveCB (MOBJECT obj, void *item, void *udata)
void	MakeItemUnsensitiveCB (MOBJECT obj, void *item, void *udata)
int	MD_CreateBRowShell (int nrows)
	Create windows of buttons. During the plotting of the measurements, create a shell of buttons if the raws of the CCD are more than 16. More...
void	MenuFileOLP_CB (MOBJECT o, void *id, void *a_data)
void	MenuToolsOLP_CB (MOBJECT o, void *id, void *a_data)
void	PButtSelAll_CB (MOBJECT p, void *od, void *ad)
void	PBYScale_CB (MOBJECT p, void *od, void *ad)
void	PlotSpectrum (MOBJECT obj, MOBJECT pb[], MIMAGE mim, unsigned short plotmat[], int idx, int idy, unsigned long pe[], double costx, double costy, int min, int max, int ox, int oy, int bp, int hlb, int hla)
void	PlotToolsPBs (MOBJECT o, void *id, void *a_data)
void	PopUp_CB (MOBJECT obj, void *item, void *data)
void	PopupMenuCB (MOBJECT obj, MEvent *pe, void *pdown)
void	PoslblX (MOBJECT lbl, int xs, int xe, int xc)
void	PoslblY (unsigned int l, unsigned int h)
int	ReadHeader_ASCII (int mod, FILE *fd)
	Read ASCII Header of the measurement. . More...
int	ReadHeader_BIN (int fd)
	read the BINARY header of the stored spectrum More...
void	ReadIMG (FILE *file, unsigned short *mat, int hp, int vp)
	Read ASCII Image (Spectral Data only) . More...
void	ReadIMG_BIN (int fd, unsigned short *mat, int hp, int vp)
	read the BINARY stored spectrum More...
void	ReadIMG_old (FILE *file, int hp, int vp)
	NOT Used . More...
int	SaveImage (int fmt, int imgw, int imgh, int np)
int	SaveIo (char *buff)
int	SaveSpectrum (char *buff)
int	SetAsIo (void)
void	SwapMatrix (unsigned short *source, unsigned short *dest, int hp, int vp)
	Copy the source matrix in the Destination one . More...
int	ViewNext (FILE *nf)
int	ViewNext_BIN (int nf)
int	ViewPlot (int mod)
	Create the plot shell. Procedure that build the plot shell for the data visualization. More...
int	ViewPre (FILE *nf, long position)
int	ViewPre_BIN (int nf, long position)
int	Visualizza (int mod, char *nomefile)
void	WriteIMG (FILE *file, unsigned short *mat, int hp, int vp)
void	WriteIMG_BIN (int fd, unsigned short *mat, int hp, int vp)
int	X2Counts (int x)
unsigned int	Y2Counts (int y)

Variables
MTFont	alfont
bil	BIL
config	Cfg
das	DAS
	DAS structure. More...
ccd	DC_CCD
ptf	DC_HP
dil	DIL
doas	DOAS
palette	DPAL
char *	ffilenames []
MENU_ITEM	Fitem [6]
int	flagclear = 0
MOBJECT	Fmenu
MENU_ITEM	item_pd
unsigned int *	mattempbuff
int	maxploth
int	maxplotw
MTFont	newfont
char	NFileNameF [32]
MOBJECT	Optmenu
MTFont	plfont
MOBJECT	popup_pd
MENU_ITEM	Titem [4]
MOBJECT	Tmenu

Detailed Description

GUI and Callbacks for Plotting spectra.

Author

Daniele Bortoli

Definition in file Spat_Plot.c.

Function Documentation

AllocFloatMat()

float* AllocFloatMat	(	int	hp,
		int	vp
	)

Definition at line 2009 of file Spat_Plot.c.

Referenced by BrowseLog(), BuildLogRatio(), InitTempAD(), RunLogMode(), and WriteSelColandSmoothed().

{

    unsigned long mx;
    float   *mat;
    mx = (unsigned long) hp * (unsigned long) vp;
    mat = (float *) calloc( mx, sizeof(float));
//  if(mat == NULL ) //Only for malloc
//      return 1;

    return mat;

}

Here is the caller graph for this function:

AllocLongMat()

long* AllocLongMat	(	int	hp,
		int	vp
	)

Definition at line 2024 of file Spat_Plot.c.

{

    unsigned long mx;
    long    *mat;
    mx = (unsigned long) hp * (unsigned long) vp;
    mat = (long *) calloc( mx, sizeof(long));
//  if(mat == NULL ) //Only for malloc
//      return 1;

    return mat;

}

AllocMat()

void AllocMat

(

)

Definition at line 124 of file Spat_Plot.c.

References spectrumheader::ccdnr, spectrumheader::ccdwx, bil::DPLOT, IDX, IDY, d_view::ImatGraf, d_view::ImatOrig, and bil::SPH.

{

    unsigned long mx;


//  IDX = (BIL.SPH.ccdex - BIL.SPH.ccdsx);
//  IDY = (BIL.SPH.ccdey - BIL.SPH.ccdsy) / BIL.SPH.ccdvb;

    IDX = BIL.SPH.ccdwx ;
    IDY = BIL.SPH.ccdnr +1;

    
    mx = (unsigned long) IDX * (unsigned long) IDY;
    BIL.DPLOT.ImatGraf = (unsigned short *) calloc( mx, sizeof(unsigned short));
    
    BIL.DPLOT.ImatOrig = (unsigned short *) calloc( mx, sizeof(unsigned short));
}

AllocUSMat()

unsigned short* AllocUSMat	(	int	hp,
		int	vp
	)

Definition at line 1994 of file Spat_Plot.c.

Referenced by DatOrBinFormat(), DB_CalcFluxI(), DB_Column(), DB_InitCamera(), DrawAreaPlotCB(), DT_CorrFileEvora(), DT_CorrHeader(), LoadIo(), SaveIo(), and Visualizza().

{

    unsigned long mx;
    unsigned short  *mat;
    mx = (unsigned long) hp * (unsigned long) vp;
    mat = (unsigned short *) calloc( mx, sizeof(unsigned short));
//  if(mat == NULL ) //Only for malloc
//      return 1;

    return mat;

}

Here is the caller graph for this function:

AssZeroMat()

void AssZeroMat	(	int	hp,
		int	vp
	)

Definition at line 1223 of file Spat_Plot.c.

References bil::DPLOT, and d_view::ImatGraf.

{

    
    int x, y;

    for(y = 0; y < vp; y++)
    {
        for(x = 0; x < hp; x++)
        {
                BIL.DPLOT.ImatGraf[y * hp + x] = x+y;
        }
    }
}

CloseFile()

void CloseFile	(	FILE *	fd,
		int	hp,
		int	vp
	)

Definition at line 1304 of file Spat_Plot.c.

References spectrumheader::ccdnr, viewformobj::cmdpb, ContFP, DB_CloseImage(), DeallocUSMat(), DOASMODE, das::DOption, bil::DPLOT, flag::exemode, Fitem, das::Flag, optionini::hlineafter, optionini::hlinebefore, d_view::ImatGraf, d_view::ImatOrig, MMenuItemSetSensitive(), MMenuItemSetUnsensitive(), MObjectSetSensitive(), MObjectSetText(), MObjectSetUnsensitive(), MObjectUnmap(), MShellDestroy(), MShellSetTitle(), MShellUnrealize(), OFFLINEPLOT, d_view::pbr, d_view::RowShell, viewformobj::selallpb, Server, bil::SPH, bil::VFO, viewformobj::View_Sh, and viewformobj::YScalePB.

Referenced by D_PButt_CB(), MenuFileOLP_CB(), and ViewNext().

{

    int i;
    

    fclose(fd); //Close Data file


//  MObjectSetBackgroundRGB(BIL.DPLOT.drawapl, 0, 0, 0);    

    if(BIL.DPLOT.RowShell != 0)
    {
        MShellUnrealize(BIL.DPLOT.RowShell);
        MShellDestroy(BIL.DPLOT.RowShell);
        BIL.DPLOT.RowShell = 0;
        BIL.DPLOT.ImatGraf = DeallocUSMat(BIL.DPLOT.ImatGraf);
        BIL.DPLOT.ImatOrig = DeallocUSMat(BIL.DPLOT.ImatOrig);

    }
    else
    {
        for (i=DAS.DOption.hlinebefore; i < BIL.SPH.ccdnr - DAS.DOption.hlineafter; i++)
            MObjectUnmap(BIL.DPLOT.pbr[i]);
            BIL.DPLOT.ImatGraf = DeallocUSMat(BIL.DPLOT.ImatGraf);
            BIL.DPLOT.ImatOrig = DeallocUSMat(BIL.DPLOT.ImatOrig);
        

    }

    MShellSetTitle(BIL.VFO.View_Sh,"PLOTTING File: None");


    MObjectSetText(BIL.VFO.cmdpb[0], "Open");
    MObjectSetSensitive(BIL.VFO.cmdpb[0]);  //Set Button "Open" Sensitive
    MObjectSetUnsensitive(BIL.VFO.cmdpb[1]); //Set button "Next" Unsensitive
    MObjectSetUnsensitive(BIL.VFO.cmdpb[8]); //Set button "Previuos" Unsensitive
    MObjectSetUnsensitive(BIL.VFO.cmdpb[3]); // Set "CloseFile" button as Unsensitive
    MObjectSetUnsensitive(BIL.VFO.cmdpb[4]); // Set "Print" button as Unsensitive
    MObjectSetUnsensitive(BIL.VFO.cmdpb[7]); 
    MObjectSetUnsensitive(BIL.VFO.cmdpb[6]); 
    MObjectSetSensitive(BIL.VFO.cmdpb[5]);  //Set Button "CloseWin" Sensitive
    MObjectSetUnsensitive(BIL.VFO.cmdpb[2]); // Set "Set as Io" button as Unsensitive

    if( (!DAS.Flag.exemode == OFFLINEPLOT) | (!DAS.Flag.exemode == DOASMODE))
    {
        MObjectSetUnsensitive(BIL.VFO.selallpb);
        MObjectSetUnsensitive(BIL.VFO.YScalePB); 
    }

    if (ContFP)
        ContFP = 0;


    if(DAS.Flag.exemode == OFFLINEPLOT )
    {
        DB_CloseImage(Server);  
        MMenuItemSetSensitive(Fitem[0]);
        MMenuItemSetUnsensitive(Fitem[1]);
        MMenuItemSetUnsensitive(Fitem[2]);
        MMenuItemSetUnsensitive(Fitem[3]);
        MMenuItemSetUnsensitive(Fitem[4]);
        MMenuItemSetSensitive(Fitem[5]);
    }
    else if(DAS.Flag.exemode == DOASMODE)
    {
        MMenuItemSetSensitive(Fitem[0]);
        MMenuItemSetUnsensitive(Fitem[1]);
        MMenuItemSetUnsensitive(Fitem[2]);
        MMenuItemSetUnsensitive(Fitem[3]);
        MMenuItemSetUnsensitive(Fitem[4]);
        MMenuItemSetSensitive(Fitem[5]);

    }


}   

Here is the call graph for this function:

Here is the caller graph for this function:

CloseFile_BIN()

void CloseFile_BIN	(	int	fd,
		int	hp,
		int	vp
	)

Definition at line 1382 of file Spat_Plot.c.

References spectrumheader::ccdnr, viewformobj::cmdpb, ContFP, DB_CloseImage(), DeallocUSMat(), DOASMODE, das::DOption, bil::DPLOT, flag::exemode, Fitem, das::Flag, optionini::hlineafter, optionini::hlinebefore, d_view::ImatGraf, d_view::ImatOrig, MMenuItemSetSensitive(), MMenuItemSetUnsensitive(), MObjectSetSensitive(), MObjectSetText(), MObjectSetUnsensitive(), MObjectUnmap(), MShellDestroy(), MShellSetTitle(), MShellUnrealize(), OFFLINEPLOT, d_view::pbr, d_view::RowShell, viewformobj::selallpb, Server, bil::SPH, bil::VFO, viewformobj::View_Sh, and viewformobj::YScalePB.

Referenced by D_PButt_CB(), MenuFileOLP_CB(), and ViewNext_BIN().

{

    int i;
    

    close(fd);  //Close Data file


//  MObjectSetBackgroundRGB(BIL.DPLOT.drawapl, 0, 0, 0);    

    if(BIL.DPLOT.RowShell != 0)
    {
        MShellUnrealize(BIL.DPLOT.RowShell);
        MShellDestroy(BIL.DPLOT.RowShell);
        BIL.DPLOT.RowShell = 0;
        BIL.DPLOT.ImatGraf = DeallocUSMat(BIL.DPLOT.ImatGraf);
        BIL.DPLOT.ImatOrig = DeallocUSMat(BIL.DPLOT.ImatOrig);

    }
    else
    {
        for (i=DAS.DOption.hlinebefore; i < BIL.SPH.ccdnr - DAS.DOption.hlineafter; i++)
            MObjectUnmap(BIL.DPLOT.pbr[i]);
            BIL.DPLOT.ImatGraf = DeallocUSMat(BIL.DPLOT.ImatGraf);
            BIL.DPLOT.ImatOrig = DeallocUSMat(BIL.DPLOT.ImatOrig);
        

    }

    MShellSetTitle(BIL.VFO.View_Sh,"PLOTTING File: None");


    MObjectSetText(BIL.VFO.cmdpb[0], "Open");
    MObjectSetSensitive(BIL.VFO.cmdpb[0]);  //Set Button "Open" Sensitive
    MObjectSetUnsensitive(BIL.VFO.cmdpb[1]); //Set button "Next" Unsensitive
    MObjectSetUnsensitive(BIL.VFO.cmdpb[8]); //Set button "Previuos" Unsensitive
    MObjectSetUnsensitive(BIL.VFO.cmdpb[3]); // Set "CloseFile" button as Unsensitive
    MObjectSetUnsensitive(BIL.VFO.cmdpb[4]); // Set "Print" button as Unsensitive
    MObjectSetUnsensitive(BIL.VFO.cmdpb[7]); 
    MObjectSetUnsensitive(BIL.VFO.cmdpb[6]); 
    MObjectSetSensitive(BIL.VFO.cmdpb[5]);  //Set Button "CloseWin" Sensitive
    MObjectSetUnsensitive(BIL.VFO.cmdpb[2]); // Set "Set as Io" button as Unsensitive

    if( (!DAS.Flag.exemode == OFFLINEPLOT) | (!DAS.Flag.exemode == DOASMODE))
    {
        MObjectSetUnsensitive(BIL.VFO.selallpb);
        MObjectSetUnsensitive(BIL.VFO.YScalePB); 
    }


    if (ContFP)
        ContFP = 0;



    if(DAS.Flag.exemode == OFFLINEPLOT )
    {
        DB_CloseImage(Server);
        MMenuItemSetSensitive(Fitem[0]);
        MMenuItemSetUnsensitive(Fitem[1]);
        MMenuItemSetUnsensitive(Fitem[2]);
        MMenuItemSetUnsensitive(Fitem[3]);
        MMenuItemSetUnsensitive(Fitem[4]);
        MMenuItemSetSensitive(Fitem[5]);
    }
    else if(DAS.Flag.exemode == DOASMODE)
    {
        MMenuItemSetSensitive(Fitem[0]);
        MMenuItemSetUnsensitive(Fitem[1]);
        MMenuItemSetUnsensitive(Fitem[2]);
        MMenuItemSetUnsensitive(Fitem[3]);
        MMenuItemSetUnsensitive(Fitem[4]);
        MMenuItemSetSensitive(Fitem[5]);
    }


}   

Here is the call graph for this function:

Here is the caller graph for this function:

ClosePlotCB()

void ClosePlotCB	(	MOBJECT	p,
		void *	od,
		void *	ad
	)

Definition at line 2514 of file Spat_Plot.c.

References bil::BLENS, ContFP, DeallocUSMat(), bil::DPLOT, flag::exemode, das::Flag, d_view::ImatGraf, d_view::ImatOrig, blens::Imim, MFreeImage(), MGUITerm(), MShellDestroy(), MShellUnrealize(), OFFLINEPLOT, and d_view::RowShell.

Referenced by D_PButt_CB(), MenuFileOLP_CB(), and ViewPlot().

{

    if(BIL.DPLOT.RowShell != 0)
    {
        MShellUnrealize(BIL.DPLOT.RowShell);
        MShellDestroy(BIL.DPLOT.RowShell);
        BIL.DPLOT.RowShell = 0;
    }

    MShellUnrealize(p);
    MShellDestroy(p);

    BIL.DPLOT.ImatGraf = DeallocUSMat(BIL.DPLOT.ImatGraf);
    BIL.DPLOT.ImatOrig = DeallocUSMat(BIL.DPLOT.ImatOrig);
    MFreeImage(BIL.BLENS.Imim);

    if (ContFP)
        ContFP = 0;

    if(DAS.Flag.exemode == OFFLINEPLOT)
    {
        
        MGUITerm();
        exit(0);
    }

}

Here is the call graph for this function:

Here is the caller graph for this function:

D_AssignLabelPlot()

void D_AssignLabelPlot

(

void

)

!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!ATTENZIONE|||

Definition at line 1661 of file Spat_Plot.c.

References spectrumheader::altitude, BlindPix, spectrumheader::ccdex, spectrumheader::ccdey, spectrumheader::ccdmax, spectrumheader::ccdmin, spectrumheader::ccdnr, spectrumheader::ccdsx, spectrumheader::ccdsy, spectrumheader::ccdtemp, spectrumheader::ccdtexp, spectrumheader::ccdvb, spectrumheader::ccdwx, spectrumheader::ccdwy, ddate::da_day, ddate::da_mon, ddate::da_year, spectrumheader::DATE, das::DOption, spectrumheader::dummy1, spectrumheader::dummy2, spectrumheader::dummy3, spectrumheader::dummy4, spectrumheader::filpos, optionini::filtertype, IDX, IDY, spectrumheader::latitude, viewformobj::lblalt, viewformobj::lblAzimuth, viewformobj::lblccdex, viewformobj::lblccdey, viewformobj::lblccdsx, viewformobj::lblccdsy, viewformobj::lblccdtemp, viewformobj::lblccdtexp, viewformobj::lblccdwx, viewformobj::lblccdwy, viewformobj::lbldate, viewformobj::lblfilter, viewformobj::lbllat, viewformobj::lblloc, viewformobj::lbllong, viewformobj::lblmax, viewformobj::lblmin, viewformobj::lblmirpos, viewformobj::lblndfilter, viewformobj::lblnr, viewformobj::lblnummeas, viewformobj::lblsza, viewformobj::lbltime, viewformobj::lblvb, viewformobj::lblwaveleng, viewformobj::lblZenith, spectrumheader::location, spectrumheader::longitude, spectrumheader::mirpos, MObjectSetText(), NDFil_Code, bil::SPH, spectrumheader::sza, dtime::ti_hour, dtime::ti_min, dtime::ti_sec, spectrumheader::TIME, bil::VFO, and spectrumheader::wavelen.

Referenced by ReadHeader_ASCII(), ViewNext_BIN(), and Visualizza().

{

    unsigned char   str[128];

    
    sprintf(str,"%s",BIL.SPH.location);
    MObjectSetText(BIL.VFO.lblloc, str);

    sprintf(str,"%.2lf", BIL.SPH.latitude);
    MObjectSetText(BIL.VFO.lbllat, str);

    sprintf(str,"%.2lf", BIL.SPH.longitude);
    MObjectSetText(BIL.VFO.lbllong, str);

    sprintf(str,"%u", BIL.SPH.altitude);
    MObjectSetText(BIL.VFO.lblalt, str);

    sprintf(str,"%.2lf", BIL.SPH.sza);
    MObjectSetText(BIL.VFO.lblsza, str);

    sprintf(str,"%.2lf", (float)BIL.SPH.dummy1/100);
    MObjectSetText(BIL.VFO.lblZenith, str);

    sprintf(str,"%.2lf", (float)BIL.SPH.dummy2/100);
    MObjectSetText(BIL.VFO.lblAzimuth, str);



    sprintf(str,"%d/%02d/%02d", BIL.SPH.DATE.da_year,BIL.SPH.DATE.da_mon, BIL.SPH.DATE.da_day);
    MObjectSetText(BIL.VFO.lbldate, str);

    sprintf(str,"%02d:%02d:%02d", BIL.SPH.TIME.ti_hour, BIL.SPH.TIME.ti_min, BIL.SPH.TIME.ti_sec);
    MObjectSetText(BIL.VFO.lbltime, str);

    MObjectSetText(BIL.VFO.lblmirpos, BIL.SPH.mirpos);

    sprintf(str,"%d", BIL.SPH.wavelen);
    MObjectSetText(BIL.VFO.lblwaveleng, str);

    MObjectSetText(BIL.VFO.lblfilter, BIL.SPH.filpos);


    /***********************************************************************/
    //Neutral Density Filter section
    if(DAS.DOption.filtertype == 1) // Double filter wheel
    {
        
        MObjectSetText(BIL.VFO.lblndfilter, NDFil_Code[BIL.SPH.dummy3]);
        
        
    }
    if(DAS.DOption.filtertype == 2) // Filter Wheel + Torque motor
    {
        if (BIL.SPH.dummy3)
            MObjectSetText(BIL.VFO.lblndfilter, "ON");
        else
            MObjectSetText(BIL.VFO.lblndfilter, "OFF");
        
    }
    
    
    
    /***********************************************************************/
    



    sprintf(str,"%.2lf", BIL.SPH.ccdtemp);
    MObjectSetText(BIL.VFO.lblccdtemp, str);

    sprintf(str,"%.3lf", BIL.SPH.ccdtexp);
    MObjectSetText(BIL.VFO.lblccdtexp, str);

    sprintf(str,"%d", BIL.SPH.dummy4);
    MObjectSetText(BIL.VFO.lblnummeas, str);
    
    sprintf(str,"%u", BIL.SPH.ccdmax);
    MObjectSetText(BIL.VFO.lblmax, str);

    sprintf(str,"%u", BIL.SPH.ccdmin);
    MObjectSetText(BIL.VFO.lblmin, str);


    sprintf(str,"%d", BIL.SPH.ccdwx);
    MObjectSetText(BIL.VFO.lblccdwx, str);

    sprintf(str,"%d", BIL.SPH.ccdwy);
    MObjectSetText(BIL.VFO.lblccdwy, str);



    sprintf(str,"%d", BIL.SPH.ccdsx);
    MObjectSetText(BIL.VFO.lblccdsx, str);

    sprintf(str,"%d", BIL.SPH.ccdsy);
    MObjectSetText(BIL.VFO.lblccdsy, str);

    sprintf(str,"%d", BIL.SPH.ccdex);
    MObjectSetText(BIL.VFO.lblccdex, str);

    sprintf(str,"%d", BIL.SPH.ccdey);
    MObjectSetText(BIL.VFO.lblccdey, str);

    sprintf(str,"%d", BIL.SPH.ccdvb);
    MObjectSetText(BIL.VFO.lblvb, str);

    sprintf(str,"%d", BIL.SPH.ccdnr);
    MObjectSetText(BIL.VFO.lblnr, str);

    //IDX = BIL.SPH.ccdex - BIL.SPH.ccdsx + 1;

    IDX = BIL.SPH.ccdwx;
    
    //if (DAS.Paramini.EqType == SPATRAM2 || DAS.Paramini.EqType == GASCODNG3 || DAS.Paramini.EqType == GASCODNG4)
    if(BIL.SPH.ccdwy == 256)
        IDY = BIL.SPH.ccdnr + 1;
    else
        IDY = BIL.SPH.ccdnr;
    
    if(BIL.SPH.ccdnr == 253)
    {
        IDY = IDY + 1;
    }
    
    if (BIL.SPH.ccdwx - (BIL.SPH.ccdex +1) != 0) // se i pixel del sensore sono piu' di quelli in param.ini
    {
        
        BlindPix  = BIL.SPH.ccdwx - (BIL.SPH.ccdex +1) ;

    }
    


}

Here is the call graph for this function:

Here is the caller graph for this function:

D_AssignOrigin()

void D_AssignOrigin

(

MOBJECT

obj

)

Definition at line 432 of file Spat_Plot.c.

References bil::DPLOT, d_view::eX, d_view::eY, d_view::hsize, MObjectGetHeight(), MObjectGetWidth(), d_view::oX, d_view::oY, and d_view::wsize.

Referenced by D_pbr_CB(), DrawAreaPlotCB(), and LoadIo().

{

    BIL.DPLOT.wsize = MObjectGetWidth(obj);
    BIL.DPLOT.hsize = MObjectGetHeight(obj);

    BIL.DPLOT.oX = 10;         //Origine asse X
    BIL.DPLOT.oY = BIL.DPLOT.hsize - 10; //Origine asse Y
    BIL.DPLOT.eX = BIL.DPLOT.wsize - 10; //Fine asse X
    BIL.DPLOT.eY = 10;         //Fine asse Y


}

Here is the call graph for this function:

Here is the caller graph for this function:

D_findmaxmin()

int D_findmaxmin	(	unsigned short	plotmat[],
		int	xinf,
		int	xsup,
		int	yinf,
		int	ysup,
		int	bp
	)

Definition at line 635 of file Spat_Plot.c.

References bil::DPLOT, d_view::Imax, and d_view::Imin.

Referenced by D_pbr_CB(), and DrawAreaPlotCB().

{   

    int t, j;
    
    unsigned int low = 65535;
    unsigned int high= 0;

    for(t = yinf; t < ysup; t++)
    {
        for(j = xinf; j < xsup; j++)
        {
            if (bp != 0)
            {
                if (j < xsup - bp)
                {
                    if(plotmat[t * xsup + j] < low) low = plotmat[t * xsup + j];
                    if(plotmat[t * xsup + j] > high) high = plotmat[t * xsup + j];
                }
            }
            else
            {
                if(plotmat[t * xsup + j] < low) low = plotmat[t * xsup + j];
                if(plotmat[t * xsup + j] > high) high = plotmat[t * xsup + j];
            }
        }
    }
    BIL.DPLOT.Imin = low;
    BIL.DPLOT.Imax = high;
    return 0;
}

Here is the caller graph for this function:

D_pbr_CB()

void D_pbr_CB	(	MOBJECT	p,
		void *	od,
		void *	ad
	)

Definition at line 717 of file Spat_Plot.c.

References d_view::actimg, mtcl::black, bil::BLENS, BlindPix, paramini::ccdWx, paramini::ccdXoff, d_view::COSTX, d_view::COSTY, D_AssignOrigin(), D_findmaxmin(), D_PlotAxis(), D_PlotGrid(), D_PlotOneLine(), das::DOption, bil::DPLOT, d_view::drawapl, d_view::eX, d_view::eY, FLAG, tools::FlagFilter, optionini::hlineafter, optionini::hlinebefore, IDX, IDY, d_view::ImatGraf, d_view::ImatOrig, d_view::Imax, blens::Imim, d_view::Imin, doas::lambda, viewformobj::lblX, MTCL, d_view::oX, d_view::oY, das::Paramini, d_view::pbr, Pix2Wl(), mtcl::PLColor, flag::plotYRange, PoslblX(), PoslblY(), bil::SPH, TOOLS, bil::VFO, spectrumheader::wavelen, and flag::Wl.

Referenced by MD_CreateBRowShell(), PButtSelAll_CB(), and ViewPlot().

{
    int q = (int) ad;
//  int t;

    //Assign limits to the Drawing coordinates
    D_AssignOrigin(BIL.DPLOT.drawapl);
    //Plot the axes
    D_PlotAxis(BIL.DPLOT.drawapl, BIL.BLENS.Imim, BIL.DPLOT.oX, BIL.DPLOT.oY, BIL.DPLOT.eX, BIL.DPLOT.eY, MTCL.black);
    //Plot grid
    D_PlotGrid(BIL.DPLOT.drawapl, BIL.BLENS.Imim, BIL.DPLOT.oX, BIL.DPLOT.oY, BIL.DPLOT.eX, BIL.DPLOT.eY);


    if(FLAG.plotYRange)
    {
        if(TOOLS.FlagFilter)
        {
            //Find Max & Min of the spectrum (BIL.DPLOT.Imax & BIL.DPLOT.Imin)
            D_findmaxmin(BIL.DPLOT.ImatOrig, 5, IDX,DAS.DOption.hlinebefore, IDY - DAS.DOption.hlineafter, BlindPix );
        }
        else
        {
            //Find Max & Min of the spectrum (BIL.DPLOT.Imax & BIL.DPLOT.Imin)
            D_findmaxmin(BIL.DPLOT.ImatGraf, 5, IDX,DAS.DOption.hlinebefore, IDY - DAS.DOption.hlineafter, BlindPix );  
        }
    }
    else
    {
        BIL.DPLOT.Imax = 65535;
        BIL.DPLOT.Imin = 0;
    }

    
    if(FLAG.Wl == 0) //Pixel X Scale
    {
        //Positioning of X labels
        PoslblX(BIL.VFO.lblX, 1, IDX, 0);
    }
    else if(FLAG.Wl == 1) //Wavelength X scale [A]
    {
        //CalcSpectrumLimits(0, BIL.SPH.wavelen, DAS.Paramini.ccdXoff, DAS.Paramini.ccdWx + 1, 512);
        Pix2Wl(0, BIL.SPH.wavelen, DAS.Paramini.ccdXoff, DAS.Paramini.ccdWx + 1, &DOAS);

        //Positioning of X labels
        PoslblX(BIL.VFO.lblX, (int)DOAS.lambda[0], (int)DOAS.lambda[IDX - 1], BIL.SPH.wavelen);
    }
    else if(FLAG.Wl == 2) //Pixel X Scale [nm]
    {
        //CalcSpectrumLimits(0, BIL.SPH.wavelen, DAS.Paramini.ccdXoff, DAS.Paramini.ccdWx + 1, 512);
        Pix2Wl(0, BIL.SPH.wavelen, DAS.Paramini.ccdXoff, DAS.Paramini.ccdWx + 1, &DOAS);
        //Positioning of X labels
        PoslblX(BIL.VFO.lblX, (int)(DOAS.lambda[0]/10), (int)(DOAS.lambda[IDX - 1]/10), BIL.SPH.wavelen/10);
    }
    //Positioning of Y labels
    PoslblY(BIL.DPLOT.Imin, BIL.DPLOT.Imax);
    
/**********************/
/*   Costruzione grafico dei dati ********************/
    if(BIL.DPLOT.actimg[q])
    {
        D_PlotOneLine(q, BIL.DPLOT.actimg[q],  BIL.DPLOT.drawapl, BIL.DPLOT.pbr, BIL.BLENS.Imim,
            BIL.DPLOT.ImatGraf, IDX, IDY,   MTCL.PLColor, BIL.DPLOT.COSTX, 
            BIL.DPLOT.COSTY, BIL.DPLOT.Imin, BIL.DPLOT.Imax, BIL.DPLOT.oX,
            BIL.DPLOT.oY, BlindPix); 
        BIL.DPLOT.actimg[q] = 0;
    }
    else
    {
        D_PlotOneLine(q, BIL.DPLOT.actimg[q],  BIL.DPLOT.drawapl, BIL.DPLOT.pbr, BIL.BLENS.Imim,
            BIL.DPLOT.ImatGraf, IDX, IDY,   MTCL.PLColor, BIL.DPLOT.COSTX, 
            BIL.DPLOT.COSTY, BIL.DPLOT.Imin, BIL.DPLOT.Imax, BIL.DPLOT.oX,
            BIL.DPLOT.oY, BlindPix); 
        BIL.DPLOT.actimg[q] = 1;
    }

}

Here is the call graph for this function:

Here is the caller graph for this function:

D_PButt_CB()

void D_PButt_CB	(	MOBJECT	p,
		void *	od,
		void *	ad
	)

Definition at line 3320 of file Spat_Plot.c.

References _MAX_PATH, FB_PREFS::allow_dir_create, FB_PREFS::allow_dir_delete, FB_PREFS::allow_dir_rename, FB_PREFS::bg_image_file, FB_PREFS::button_font, FB_PREFS::change_cwd, CloseFile(), CloseFile_BIN(), ClosePlotCB(), ContFP, D_Lens(), D_PlotTools(), d_fileman::DATADIRECTORY, DB_Column(), DB_Save(), d_fileman::DBFILENAME, bil::DFILEM, DI_FileExist(), DI_FindExtName(), das::DOption, bil::DPLOT, d_view::drawapl, False, FBIF, FDAT, optionini::filename, d_fileman::FKIND, FB_PREFS::font, HELV_SMALL, d_fileman::HOMEDIRECTORY, IDX, IDY, MDCreateDASConfig(), MFileBrowseExt(), MMessageDialog(), MObjectGetText(), MObjectSetBackgroundRGB(), NFDATI, NFileNameF, NUMFDATI, PrintObject(), REL_FILE_POS, optionini::savingmode, SetAsIo(), SetupPrinter(), FB_PREFS::transparent_tree, True, bil::VFO, viewformobj::View_Sh, ViewNext(), ViewNext_BIN(), ViewPre(), ViewPre_BIN(), and Visualizza().

Referenced by ViewPlot().

{

    int     c = (int) ad, er = 0;
    unsigned int *KDAT = 0;
    char buff[_MAX_PATH];
    char NFileNameF[_MAX_PATH];
    char str[_MAX_PATH];
    char fext[5];
    int l;
    char fname[128];
 
  FB_PREFS fbp;
//  strcpy (dirname, MGetCurrentDirectory ());
  fname[0] = '\0';
  NFileNameF[0]= '\0';
    memset (&fbp, 0, sizeof (fbp));
 
    fbp.change_cwd = True;
    fbp.allow_dir_create = True;
    fbp.allow_dir_rename = True;
    fbp.allow_dir_delete = True;
    fbp.transparent_tree = False;
    fbp.font = HELV_SMALL;
    fbp.button_font = HELV_SMALL;
    //Set Img file
    sprintf(str, "%s\\%s", BIL.DFILEM.HOMEDIRECTORY, "sys\\Tile2.bmp" );
    fbp.bg_image_file =str; 

    switch (c)
    {
        case 0:
            MObjectGetText(p, buff);
            if(strcmp(buff,"Open")== 0)
            {
                //Open File For Plotting
                if(DAS.DOption.savingmode)
                    er = MFileBrowseExt ("Select File for Plotting", "*.bif", fname, BIL.DFILEM.DATADIRECTORY, &fbp);
                else
                    er = MFileBrowseExt ("Select File for Plotting", "*.dat", fname, BIL.DFILEM.DATADIRECTORY, &fbp);
                if(er)
                {
                    sprintf(BIL.DFILEM.DBFILENAME,"%s%s",BIL.DFILEM.DATADIRECTORY, fname);
                    l = strlen(fname);
                    strncpy(buff, fname+l-4, 4);

                    if( (strcmp(buff,".dat") == 0) |(strcmp(buff,".Dat") == 0) )
                        BIL.DFILEM.FKIND = FDAT; 
                    else if( (strcmp(buff,".bif") == 0) | (strcmp(buff,".Bif") == 0) )
                        BIL.DFILEM.FKIND = FBIF;
                    else if( (strcmp(buff,".bhg") == 0) | (strcmp(buff,".Bhg") == 0) )
                        BIL.DFILEM.FKIND = FBIF;
                    else
                    {
                        MMessageDialog("DAS information", "Unsupported format!!", " Ok ", NULL);  
                        break;
                    }
                    Visualizza(BIL.DFILEM.FKIND,BIL.DFILEM.DBFILENAME);     
                }
                else
                    break;
            }
            else  //Saving Image
            {
                //DB_SavingFile(.....)
                //NON PUO' SALVARE CON IL NOME AUTOMATICO
                if(DAS.DOption.filename)  // Automatic file Names
                {
                    er = MMessageDialog("DAS Information", "You can NOT save this spectrum with the Automatic File names mode.\nTo set the FREE FILE's NAME, please open DAS CONFIG-->\nOptions Tab-->Page1-->Saving File Names = FREE\n\nDO you want to Open the Config Panel? ", "Yes", "No", NULL);
                        if (er == 0)
                            //Open the Config 
                            MDCreateDASConfig();            
                        else if (er == 1)
                            break;

                    //D_Saving();
                }
                else            // free choice
                {   
                    if(DAS.DOption.savingmode)
                        er = MFileBrowseExt ("Save File as...", "*.bif", NFileNameF, BIL.DFILEM.DATADIRECTORY, &fbp);
                    else
                        er = MFileBrowseExt ("Save File as...", "*.dat", NFileNameF, BIL.DFILEM.DATADIRECTORY, &fbp);
                    if(er)
                    {
                        //check the presence of the extension
                        DI_FindExtName(NFileNameF, fext);
                        if( strcmp(fext,"") == 0 )
                        {
                            if(DAS.DOption.savingmode)
                                strcat(NFileNameF, ".bif");
                            else
                                strcat(NFileNameF, ".dat");
                        }
                        //check the the extension
                        DI_FindExtName(NFileNameF, fext);
                        if( (strcmp(fext,".dat") == 0) | (strcmp(fext,".Dat") == 0) )
                        {
                            sprintf(BIL.DFILEM.DBFILENAME,"%s%s",BIL.DFILEM.DATADIRECTORY, NFileNameF);
                            //Check the existence of the typed file 
                            if(DI_FileExist(BIL.DFILEM.DBFILENAME)) // DI_FileExist --> Return: 1 if PATH exist, else return 0
                            {
                                er = MMessageDialog("DAS Information", "The selected file already exists\nDo you want to ", "Overwrite", "Append", "Cancel", NULL);
                                if (er == 0)
                                {
                                
                                }
                                else if (er == 1)
                                {   
                                    er = MMessageDialog("DAS Information", "In wich format do you want to save this file? ", "DAS Format", "Column Format" , NULL);
                                    if (er == 0)
                                        DB_Save(BIL.DFILEM.DBFILENAME, 0);
                                    else
                                        DB_Column(BIL.DFILEM.DBFILENAME);

                                }
                                else if (er == 2)
                                    break;
                            }
                            else
                            {
                                    er = MMessageDialog("DAS Information", "In wich format do you want to save this file? ", "DAS Format", "Column Format" , NULL);
                                    if (er == 0)
                                        DB_Save(BIL.DFILEM.DBFILENAME, 0);
                                    else
                                        DB_Column(BIL.DFILEM.DBFILENAME);



                            }
                        }
                        else if( (strcmp(fext,".bif") == 0) | (strcmp(fext,".Bif") == 0) )
                        {
                            sprintf(BIL.DFILEM.DBFILENAME,"%s%s",BIL.DFILEM.DATADIRECTORY, NFileNameF);
                            //Check the existence of the typed file 
                            if(DI_FileExist(BIL.DFILEM.DBFILENAME)) // DI_FileExist --> Return: 1 if PATH exist, else return 0
                            {
                                er = MMessageDialog("DAS Information", "The selected file already exists\nDo you want to ", "Overwrite", "Append", "Cancel", NULL);
                                if (er == 0)
                                {
                                
                                }
                                else if (er == 1)
                                    DB_Save(BIL.DFILEM.DBFILENAME, 1);                          
                                else if (er == 2)
                                    break;
                                
                                    
                            }
                            else
                                DB_Save(BIL.DFILEM.DBFILENAME, 1);
                        }
                        else
                        {
                            sprintf(buff, "The extension is not recognaized! Please re-type",fext);
                            MMessageDialog("DAS information", buff, " Ok ", NULL);
                            break;
                        }
                    }   
                }
            }
            break;      
        case 1:
            switch (BIL.DFILEM.FKIND)
            {
                case FDAT:
                    ViewNext(NUMFDATI);
                    break;
                case FBIF:
                    ViewNext_BIN(NFDATI);
                    break;
            }
            break;
        case 8:
            switch (BIL.DFILEM.FKIND)
            {
                case FDAT:
                    ViewPre(NUMFDATI, REL_FILE_POS[ContFP - 1]);
                    break;      
                case FBIF:
                    ViewPre_BIN(NFDATI, REL_FILE_POS[ContFP - 1]);
                    break;
            }
            break;

        case 2:
            SetAsIo();
            break;      
        case 3:
            switch (BIL.DFILEM.FKIND)
            {
                case FDAT:
                    CloseFile(NUMFDATI, IDX, IDY);
                    break;      
                case FBIF:
                    CloseFile_BIN(NFDATI, IDX, IDY);
                    break;
            }
            MObjectSetBackgroundRGB(BIL.DPLOT.drawapl, 220, 220, 220);
            break;      
        case 4:
            SetupPrinter();

            er = PrintObject(BIL.VFO.View_Sh, PM_FULL, -1, -1 );
            if (er)
                MMessageDialog("ALERT", "Print Problems", "Ok", NULL);          
            break;      
        case 5:
            ClosePlotCB(BIL.VFO.View_Sh, 0, 0);
            break;
        case 6:
            
            D_Lens();
            break;  
        case 7:
            //SaveImage(DJPEG,0,0,0); //Save JPEG image
            D_PlotTools();
            break;  
//      case 8:
//          break;  
    
    }

//  return 0;

}

Here is the call graph for this function:

Here is the caller graph for this function:

D_PlotAxis()

void D_PlotAxis	(	MOBJECT	ob,
		MIMAGE	mim,
		int	sx,
		int	sy,
		int	ex,
		int	ey,
		MTColor	col
	)

Definition at line 448 of file Spat_Plot.c.

References DrawXLine(), DrawYLine(), and MDrawLine().

Referenced by D_pbr_CB(), DrawAreaPlotCB(), and LoadIo().

{

    //Axis Y Left
    //DrawArea
    MDrawLine(ob, sx, sy, sx, ey, col);
    //Image
    DrawYLine(mim, sx, ey, sy, 0,0,0);

    //Axis X Down
    //DrawArea
    MDrawLine(ob, sx, sy, ex, sy, col);
    DrawXLine(mim, sy, sx, ex + 1, 0,0,0);
    
    //Axis X Up
    //DrawArea
    MDrawLine(ob, sx, ey, ex, ey, col);
    DrawXLine(mim, sx, sx, ex, 0,0,0);
    
    //Axis Y Right
    //DrawArea
    MDrawLine(ob, ex, sy, ex, ey, col);
    DrawYLine(mim, ex, ey, sy, 0,0,0);

}

Here is the call graph for this function:

Here is the caller graph for this function:

D_PlotGrid()

void D_PlotGrid	(	MOBJECT	ob,
		MIMAGE	mim,
		int	sx,
		int	sy,
		int	ex,
		int	ey
	)

Definition at line 476 of file Spat_Plot.c.

References DrawXLine(), DrawYLine(), mtcl::green, MDrawLine(), MTCL, and mtcl::white.

Referenced by D_pbr_CB(), DrawAreaPlotCB(), and LoadIo().

{
    int X1, X, Y1, Y;
    int j;
    double incry, incrx;
    // Y Grid
    incry = (sy - ey) / 10;
    for(j = 1; j < 10; j++)
    {
        X = sx +1 ; 
        Y = sy - ((int)incry * j);
        X1 = ex;
        Y1 = sy - ((int)incry * j);
        MDrawLine(ob, X, Y, X1, Y1, MTCL.white);
        DrawXLine(mim, Y, X, X1, 255,255,255);

    }
    //X Grid
    incrx = (double)(ex - sx) / 16.0;
    for(j = 1; j < 16; j++)
    {
        X = sx + 1 + ((int)incrx * j); 
        Y = sy;
        X1 = sx + 1 + ((int)incrx * j);
        Y1 = ey + 1;
        if(j == 8)
        {
            MDrawLine(ob, X, Y, X1, Y1, MTCL.green);
            DrawYLine(mim, X, Y1, Y, 0, 255, 0);
        }
        else
        {
            MDrawLine(ob, X, Y, X1, Y1, MTCL.white);
            DrawYLine(mim, X, Y1, Y, 255,255,255);
        }
    }
}

Here is the call graph for this function:

Here is the caller graph for this function:

D_PlotOneLine()

void D_PlotOneLine	(	int	n,
		int	sel,
		MOBJECT	obj,
		MOBJECT	pb[],
		MIMAGE	mim,
		unsigned short	plotmat[],
		int	idx,
		int	idy,
		unsigned long	pe[],
		double	costx,
		double	costy,
		int	min,
		int	max,
		int	ox,
		int	oy,
		int	bp
	)

Definition at line 669 of file Spat_Plot.c.

References mtcl::black, DrawImg(), MIMAGE_DESCR::img_h, MDrawLine(), MObjectSetColor(), MTCL, mtcl::white, and mtcl::yellow.

Referenced by D_pbr_CB().

{

    int X1, X, Y1, Y, j;        
    if (sel)
        MObjectSetColor(pb[n], MTCL.yellow, MTCL.black);
    else
        MObjectSetColor(pb[n], pe[n], MTCL.white);

    for(j = 0; j < idx; j++)
    {
        if (bp != 0)
        {
            if (j < idx - bp)
            {
                X = (int) (ox + (j *  costx));
                Y = (int) (oy - abs((int)((double)(plotmat[n * idx + j] - min) / costy)));
                X1 = (int) (ox + (j + 1) * costx);
                Y1 = (int) (oy - abs((int)((double)(plotmat[n * idx + j + 1] - min) / costy)));
            }
        }
        else
        {
            X = (int) (ox + (j *  costx));
            Y = (int) (oy - abs((int)((double)(plotmat[n * idx + j] - min) / costy)));
            X1 = (int) (ox + (j + 1) * costx);
            Y1 = (int) (oy - abs((int)((double)(plotmat[n * idx + j + 1] - min) / costy)));
        }
        
        if (sel)
        {
            MDrawLine(obj, X, Y, X1, Y1, MTCL.yellow);
            if (Y <= (int) mim->img_h)
            DrawImg(mim, 10 , j, X, Y);
            
        }
        else
        {
            MDrawLine(obj, X, Y, X1, Y1, pe[n]);
//          DrawImg(mim, n + 2 , j, X, Y);
        }   
    }
}

Here is the call graph for this function:

Here is the caller graph for this function:

D_PlotTools()

void D_PlotTools

(

void

)

Definition at line 2818 of file Spat_Plot.c.

References ActEditCB(), palette::DB_BG, DB_DisplayCB(), DB_FilterCB(), DB_SpikesCB(), False, doas::FFTFilter, FIXED_SMALL, tools::FlagDisplay, tools::FlagFilter, tools::FlagSpikes, lbl, LEFT_ALIGN, MCreateClippedEdit(), MCreateLabel(), MCreatePButton(), MCreateRButton(), MCreateRowForm(), MCreateShell(), MCreateTableForm(), MEditSetActCallback(), MEditSetValCallback(), MFormSetSpacing(), MLabelSetAlignment(), MObjectAlign(), MObjectSetBackgroundRGB(), MObjectSetCompositeWidth(), MObjectSetForegroundRGB(), MObjectSetResize(), MObjectSetTransparency(), MPButtonSetCallback(), MRButtonActivate(), MShellRealizeXY(), p, PlotToolsPBs(), tools::Sh_PlotTools, TOOLS, TOP_ALIGN, True, and ValidateCB().

Referenced by D_PButt_CB(), and MenuToolsOLP_CB().

{

    MOBJECT tb, rowf, lbl, lbl1, wfedt, rb, pb;
    char str[32];
    int k,*p;

    TOOLS.Sh_PlotTools = MCreateShell("PLOT TOOLS", 0);
    MFormSetSpacing(TOOLS.Sh_PlotTools, 1);
    MObjectSetBackgroundRGB(TOOLS.Sh_PlotTools, 0, 0, 0);
    MObjectSetResize(TOOLS.Sh_PlotTools, True, True);


    rowf = MCreateRowForm(TOOLS.Sh_PlotTools);
    MFormSetSpacing(rowf, 1);
    MObjectSetBackgroundRGB(rowf, DPAL.DB_BG[0], DPAL.DB_BG[1], DPAL.DB_BG[2]);

    lbl = MCreateLabel(rowf, "FILTER", FIXED_SMALL);
    MObjectAlign(lbl, LEFT_ALIGN, TOP_ALIGN);
    MObjectSetForegroundRGB(lbl, 255, 255, 255);
    MObjectSetBackgroundRGB(lbl, 48, 20, 255);
    MObjectSetTransparency(lbl, 0);


    tb = MCreateTableForm(rowf, 2);
    MObjectSetBackgroundRGB(tb, 112, 128, 112);
    MObjectSetResize(tb, True, False);
    MObjectAlign(tb, LEFT_ALIGN, TOP_ALIGN);

    rb = MCreateRButton(tb, "Disabled", FIXED_SMALL);
    MPButtonSetCallback(rb, DB_FilterCB, (void *) 0);
    MObjectAlign(rb, LEFT_ALIGN, TOP_ALIGN);
    MObjectSetForegroundRGB(rb, 255, 255, 255);
    MObjectSetCompositeWidth(rb, 85);
    if(TOOLS.FlagFilter == 0)
        MRButtonActivate(rb);

    rb= MCreateRButton(tb, "Enabled", FIXED_SMALL);
    MPButtonSetCallback(rb, DB_FilterCB, (void *) 1);
    MObjectAlign(rb, LEFT_ALIGN, TOP_ALIGN);
    MObjectSetForegroundRGB(rb, 255, 255, 255);
    MObjectSetCompositeWidth(rb, 123);
    if(TOOLS.FlagFilter == 1)
        MRButtonActivate(rb);


    
    lbl1 = MCreateLabel(tb, "Window Filter:", FIXED_SMALL);
    MLabelSetAlignment(lbl1, LEFT_ALIGN);
    MObjectSetForegroundRGB(lbl1, 255, 255, 255);
    MObjectSetTransparency(lbl1, 0);
    MObjectSetResize(lbl1, False, False);
    MObjectAlign(lbl1, LEFT_ALIGN, TOP_ALIGN);


    sprintf(str,"%d",DOAS.FFTFilter);
    wfedt = MCreateClippedEdit(tb, str, 10, 5, FIXED_SMALL);
    MObjectSetForegroundRGB(wfedt, 255, 255, 255);
    MObjectSetBackgroundRGB(wfedt, 40, 96, 72);
//  MObjectSetCompositeWidth(level, 35);
    MObjectAlign(wfedt, LEFT_ALIGN, TOP_ALIGN);
    k = 150;
    p = (void *) k;
    MEditSetValCallback(wfedt, ValidateCB, p);
    MEditSetActCallback(wfedt, ActEditCB, p);   


    
    lbl = MCreateLabel(rowf, "REMOVE SPIKES", FIXED_SMALL);
    MObjectAlign(lbl, LEFT_ALIGN, TOP_ALIGN);
    MObjectSetForegroundRGB(lbl, 255, 255, 255);
    MObjectSetBackgroundRGB(lbl, 48, 20, 255);
    MObjectSetTransparency(lbl, 0);


    tb = MCreateTableForm(rowf, 2);
    MObjectSetBackgroundRGB(tb, 112, 128, 112);
    MObjectSetResize(tb, True, False);
    MObjectAlign(tb, LEFT_ALIGN, TOP_ALIGN);

    rb = MCreateRButton(tb, "No", FIXED_SMALL);
    MPButtonSetCallback(rb, DB_SpikesCB, (void *) 0);
    MObjectAlign(rb, LEFT_ALIGN, TOP_ALIGN);
    MObjectSetForegroundRGB(rb, 255, 255, 255);
    MObjectSetCompositeWidth(rb, 85);
    if(TOOLS.FlagSpikes == 0)
        MRButtonActivate(rb);

    rb= MCreateRButton(tb, "Yes", FIXED_SMALL);
    MPButtonSetCallback(rb, DB_SpikesCB, (void *) 1);
    MObjectAlign(rb, LEFT_ALIGN, TOP_ALIGN);
    MObjectSetForegroundRGB(rb, 255, 255, 255);
    MObjectSetCompositeWidth(rb, 123);
    if(TOOLS.FlagSpikes == 1)
        MRButtonActivate(rb);
    
    /*
    TOOLS.Spikes[0] = MCreateRButton(tb, "No", FIXED_SMALL);
    MPButtonSetCallback(TOOLS.Spikes[0], DB_SpikesCB, (void *) 0);
    MObjectAlign(TOOLS.Spikes[0], LEFT_ALIGN, TOP_ALIGN);
    MObjectSetForegroundRGB(TOOLS.Spikes[0], 255, 255, 255);
    MObjectSetCompositeWidth(TOOLS.Spikes[0], 85);

    TOOLS.Spikes[1]= MCreateRButton(tb, "Yes", FIXED_SMALL);
    MPButtonSetCallback(TOOLS.Spikes[1], DB_SpikesCB, (void *) 1);
    MObjectAlign(TOOLS.Spikes[1], LEFT_ALIGN, TOP_ALIGN);
    MObjectSetForegroundRGB(TOOLS.Spikes[1], 255, 255, 255);
    MObjectSetCompositeWidth(TOOLS.Spikes[1], 123);

   if(TOOLS.FlagSpikes)
        MRButtonActivate(TOOLS.Spikes[1]);
    else
        MRButtonActivate(TOOLS.Spikes[0]);

*/
    lbl = MCreateLabel(rowf, "Display Spectrum", FIXED_SMALL);
    MObjectAlign(lbl, LEFT_ALIGN, TOP_ALIGN);
    MObjectSetForegroundRGB(lbl, 255, 255, 255);
    MObjectSetBackgroundRGB(lbl, 48, 20, 255);
    MObjectSetTransparency(lbl, 0);


    tb = MCreateTableForm(rowf, 1);
    MObjectSetBackgroundRGB(tb, 112, 128, 112);
    MObjectSetResize(tb, True, False);
    MObjectAlign(tb, LEFT_ALIGN, TOP_ALIGN);

    rb = MCreateRButton(tb, "Original", FIXED_SMALL);
    MPButtonSetCallback(rb, DB_DisplayCB, (void *) 0);
    MObjectAlign(rb, LEFT_ALIGN, TOP_ALIGN);
    MObjectSetForegroundRGB(rb, 255, 255, 255);
    MObjectSetCompositeWidth(rb, 85);
    if(TOOLS.FlagDisplay == 0)
        MRButtonActivate(rb);

    rb= MCreateRButton(tb, "Corrected", FIXED_SMALL);
    MPButtonSetCallback(rb, DB_DisplayCB, (void *) 1);
    MObjectAlign(rb, LEFT_ALIGN, TOP_ALIGN);
    MObjectSetForegroundRGB(rb, 255, 255, 255);
    MObjectSetCompositeWidth(rb, 123);
    if(TOOLS.FlagDisplay == 1)
        MRButtonActivate(rb);

    rb= MCreateRButton(tb, "Both", FIXED_SMALL);
    MPButtonSetCallback(rb, DB_DisplayCB, (void *) 2);
    MObjectAlign(rb, LEFT_ALIGN, TOP_ALIGN);
    MObjectSetForegroundRGB(rb, 255, 255, 255);
    MObjectSetCompositeWidth(rb, 123);
    if(TOOLS.FlagDisplay == 2)
        MRButtonActivate(rb);


    tb = MCreateTableForm(rowf, 1);
    MObjectSetBackgroundRGB(tb, 112, 128, 112);
    MObjectSetResize(tb, True, False);
    MObjectAlign(tb, LEFT_ALIGN, TOP_ALIGN);

    lbl = MCreateLabel(tb, "DOAS", FIXED_SMALL);
    MObjectAlign(lbl, LEFT_ALIGN, TOP_ALIGN);
    MObjectSetForegroundRGB(lbl, 255, 255, 255);
    MObjectSetBackgroundRGB(lbl, 48, 20, 255);
    MObjectSetTransparency(lbl, 0);

    pb= MCreatePButton(tb, "Load Io", FIXED_SMALL);
    MPButtonSetCallback(pb, PlotToolsPBs, (void *) 0);
    MObjectAlign(rb, LEFT_ALIGN, TOP_ALIGN);
    MObjectSetForegroundRGB(pb, 255, 255, 255);
    MObjectSetCompositeWidth(pb, 123);

    pb= MCreatePButton(tb, "Load ACS Matrix", FIXED_SMALL);
    MPButtonSetCallback(pb, PlotToolsPBs, (void *) 1);
    MObjectAlign(rb, LEFT_ALIGN, TOP_ALIGN);
    MObjectSetForegroundRGB(pb, 255, 255, 255);
//  MObjectSetCompositeWidth(pb, 123);

    pb= MCreatePButton(tb, "LogRatio (LR) Spectrum", FIXED_SMALL);
    MPButtonSetCallback(pb, PlotToolsPBs, (void *) 2);
    MObjectAlign(rb, LEFT_ALIGN, TOP_ALIGN);
    MObjectSetForegroundRGB(pb, 255, 255, 255);
//  MObjectSetCompositeWidth(pb, 123);

    pb= MCreatePButton(tb, "VarY(LR/smooth(LR))", FIXED_SMALL);
    MPButtonSetCallback(pb, PlotToolsPBs, (void *) 3);
    MObjectAlign(rb, LEFT_ALIGN, TOP_ALIGN);
    MObjectSetForegroundRGB(pb, 255, 255, 255);
//  MObjectSetCompositeWidth(pb, 123);

    pb= MCreatePButton(tb, "Results", FIXED_SMALL);
    MPButtonSetCallback(pb, PlotToolsPBs, (void *) 4);
    MObjectAlign(rb, LEFT_ALIGN, TOP_ALIGN);
    MObjectSetForegroundRGB(pb, 255, 255, 255);
    MObjectSetCompositeWidth(pb, 123);


    tb = MCreateTableForm(rowf, 3);
    MObjectSetBackgroundRGB(tb, 112, 128, 112);
    MObjectSetResize(tb, True, False);
    MObjectAlign(tb, LEFT_ALIGN, TOP_ALIGN);

    lbl = MCreateLabel(tb, "Shift", FIXED_SMALL);
    MObjectAlign(lbl, LEFT_ALIGN, TOP_ALIGN);
    MObjectSetForegroundRGB(lbl, 255, 255, 255);
    MObjectSetBackgroundRGB(lbl, 48, 20, 255);
    MObjectSetTransparency(lbl, 0);

    lbl = MCreateLabel(tb, "K1", FIXED_SMALL);
    MObjectAlign(lbl, LEFT_ALIGN, TOP_ALIGN);
    MObjectSetForegroundRGB(lbl, 255, 255, 255);
    MObjectSetBackgroundRGB(lbl, 48, 20, 255);
    MObjectSetTransparency(lbl, 0);
    
    lbl = MCreateLabel(tb, "K2", FIXED_SMALL);
    MObjectAlign(lbl, LEFT_ALIGN, TOP_ALIGN);
    MObjectSetForegroundRGB(lbl, 255, 255, 255);
    MObjectSetBackgroundRGB(lbl, 48, 20, 255);
    MObjectSetTransparency(lbl, 0);


/*
    TOOLS.Display[0] = MCreateRButton(tb, "Original", FIXED_SMALL);
    MPButtonSetCallback(TOOLS.Display[0], DB_DisplayCB, (void *) 0);
    MObjectAlign(TOOLS.Display[0], LEFT_ALIGN, TOP_ALIGN);
    MObjectSetForegroundRGB(TOOLS.Display[0], 255, 255, 255);
    MObjectSetCompositeWidth(TOOLS.Display[0], 85);

    TOOLS.Display[1]= MCreateRButton(tb, "Corrected", FIXED_SMALL);
    MPButtonSetCallback(TOOLS.Display[1], DB_DisplayCB, (void *) 1);
    MObjectAlign(TOOLS.Display[1], LEFT_ALIGN, TOP_ALIGN);
    MObjectSetForegroundRGB(TOOLS.Display[1], 255, 255, 255);
    MObjectSetCompositeWidth(TOOLS.Display[1], 123);

    TOOLS.Display[2]= MCreateRButton(tb, "Both", FIXED_SMALL);
    MPButtonSetCallback(TOOLS.Display[2], DB_DisplayCB, (void *) 2);
    MObjectAlign(TOOLS.Display[2], LEFT_ALIGN, TOP_ALIGN);
    MObjectSetForegroundRGB(TOOLS.Display[2], 255, 255, 255);
    MObjectSetCompositeWidth(TOOLS.Display[2], 123);

    if(TOOLS.FlagDisplay == 1)
        MRButtonActivate(TOOLS.Display[1]);
    else if(TOOLS.FlagDisplay == 2)
        MRButtonActivate(TOOLS.Display[2]);
    else if(TOOLS.FlagDisplay == 0)
        MRButtonActivate(TOOLS.Display[0]);
*/

    MShellRealizeXY( TOOLS.Sh_PlotTools, 0, 0);



}

Here is the call graph for this function:

Here is the caller graph for this function:

DB_AreaInput()

void DB_AreaInput	(	MOBJECT	obj,
		MEvent *	pe,
		void *	a_data
	)

Definition at line 203 of file Spat_Plot.c.

References bil::BLENS, d_view::COSTX, d_view::COSTY, D_DoLens(), DOASMODE, bil::DPLOT, E_BUTTON_PRESS, E_BUTTON_RELEASE, E_MOTION, E_SELECT, E_WINDOW_ENTER, E_WINDOW_EXIT, flag::exemode, FLAG, das::Flag, d_view::ImatGraf, doas::lambda, blens::LensDraw, blens::LensLbl, blens::LensLblX, blens::LensLblY, blens::LensMim, blens::LensON, blens::LensPix, blens::LensWx, blens::LensWy, blens::LocX, blens::LocY, MDrawXorBox(), MDrawXorLine(), MObjectGetHeight(), MObjectGetWidth(), MObjectSetText(), MObjectShell(), MEvent::mouse, OFFLINEPLOT, p, blens::Pix, blens::S_LocX, blens::S_LocY, MMouseEvent::state, MEvent::type, bil::VFO, flag::Wl, MMouseEvent::x, X2Counts(), viewformobj::xincr, viewformobj::xloc, MMouseEvent::y, Y2Counts(), viewformobj::yincr, and viewformobj::yloc.

Referenced by ViewPlot().

{
    static int x1, y1, x2, y2, dx, dy;
    static int xp1, xp2, xp3, yp1, yp2, yp3, p, pol;
    char    buff[128];
    static int      s, f;
//  int     c;
    MOBJECT shell;

    switch (pe->type) 
    {
        
        case E_SELECT:

            break;
        case E_WINDOW_EXIT:

            break;
        case E_BUTTON_PRESS:
            break;
        case E_WINDOW_ENTER:
        case E_MOTION:
            shell = MObjectShell(obj);
            // Drag di un vertice del poligono
                if((pe->mouse.state & Button1Mask) && pol) 
                {
                    if(pol == 2)
                    {
                        MDrawXorLine(obj, xp1, yp1, xp2, yp2);
                        MDrawXorLine(obj, xp1, yp1, xp3, yp3);
                    }
                    pol = 2;
                    xp1 = pe->mouse.x;
                    yp1 = pe->mouse.y;

                }
                else
                {
                    if((pe->mouse.state & Button1Mask) && x1 > 0 && f) 
                    {
                    /*
                     * Erase the old line and draw the new one
                     * while dragging the mouse (draw in Xor mode)
                     */
                        if(f == 2)
                            MDrawXorBox(obj, x1, y1, (x2 - x1), (y2 - y1));
                        f = 2;
                        MDrawXorBox(obj, x1, y1, (pe->mouse.x - x1), (pe->mouse.y - y1));
                    }
                // Drag the box
                    if((pe->mouse.state & Button3Mask) && f == 4)
                    {
                    // Clear previous box
                        MDrawXorBox(obj, x1, y1, (x2 - x1), (y2 - y1));
                        x1 += (pe->mouse.x - dx); x2 += (pe->mouse.x - dx);
                        y1 += (pe->mouse.y - dy); y2 += (pe->mouse.y - dy);
                        MDrawXorBox(obj, x1, y1, (x2 - x1), (y2 - y1));
                        dx = pe->mouse.x;
                        dy = pe->mouse.y;
                    }
                    else
                    {
//                  MDrawXorBox(obj, x2 - 25, y2 - 25, 50, 50);

                        x2 = pe->mouse.x;
                        BIL.BLENS.LocX = x2 / (int) BIL.BLENS.Pix;
                        y2 = pe->mouse.y;
                        BIL.BLENS.LocY = y2 / (int) BIL.BLENS.Pix;

//                  MDrawXorBox(obj, LocX[s] - 25, LocY[s] - 25, 50, 50);
                        if(BIL.BLENS.LocX >= 0 && BIL.BLENS.LocX < (unsigned int) MObjectGetWidth(obj)  && 
                            BIL.BLENS.LocY >= 0 && BIL.BLENS.LocY < (unsigned int) MObjectGetHeight(obj) )
                            {
                            if( (!DAS.Flag.exemode == OFFLINEPLOT) | (!DAS.Flag.exemode == DOASMODE))
                            {

                            if(BIL.DPLOT.ImatGraf != 0)
                            {
                            
                                if(FLAG.Wl == 0)
                                {
                                    BIL.BLENS.S_LocX = X2Counts(BIL.BLENS.LocX);
                                    sprintf(buff, "%5d", BIL.BLENS.S_LocX);
                                    MObjectSetText(BIL.VFO.xloc, buff);
    
                                    sprintf(buff, "Dx = %.2lf", BIL.DPLOT.COSTX);
                                    MObjectSetText(BIL.VFO.xincr, buff);
                                }
                                else if(FLAG.Wl == 1)
                                {
                                    BIL.BLENS.S_LocX = (unsigned int)DOAS.lambda[X2Counts(BIL.BLENS.LocX)];
                                    sprintf(buff, "%.1lf",DOAS.lambda[X2Counts(BIL.BLENS.LocX)] );
                                    MObjectSetText(BIL.VFO.xloc, buff);

                                    sprintf(buff, "Dx = %.2lf", BIL.DPLOT.COSTX);
                                    MObjectSetText(BIL.VFO.xincr, buff);
                                }
                                else if(FLAG.Wl == 2)
                                {
                                    BIL.BLENS.S_LocX = (unsigned int)DOAS.lambda[X2Counts(BIL.BLENS.LocX)];
                                    sprintf(buff, "%.2lf",DOAS.lambda[X2Counts(BIL.BLENS.LocX)]/10 );
                                    MObjectSetText(BIL.VFO.xloc, buff);

                                    sprintf(buff, "Dx = %.2lf", BIL.DPLOT.COSTX);
                                    MObjectSetText(BIL.VFO.xincr, buff);
                                }

                                
                                BIL.BLENS.S_LocY = Y2Counts(BIL.BLENS.LocY);
                                sprintf(buff, "%5u", BIL.BLENS.S_LocY);
                                MObjectSetText(BIL.VFO.yloc, buff);

                                sprintf(buff, "Dy = %.2lf", BIL.DPLOT.COSTY);
                                MObjectSetText(BIL.VFO.yincr, buff);
                            
                            }
                            }

                            if(BIL.BLENS.LensON)
                            {
                                BIL.BLENS.S_LocX = X2Counts(BIL.BLENS.LocX);
                                sprintf(buff, "%5d, Wl: %.2lf", BIL.BLENS.S_LocX, DOAS.lambda[BIL.BLENS.S_LocX]);
                                MObjectSetText(BIL.BLENS.LensLblX, buff);

                                //Wavelength
                                //sprintf(buff, "%5d", DOAS.lambda[BIL.BLENS.S_LocX]);
                                //MObjectSetText(BIL.BLENS.LensLblWl, buff);

                                BIL.BLENS.S_LocY = Y2Counts(BIL.BLENS.LocY);
                                sprintf(buff, "%5u", BIL.BLENS.S_LocY);
                                MObjectSetText(BIL.BLENS.LensLblY, buff);
                                
                                sprintf(buff, "DY=%5u", (int) BIL.DPLOT.COSTY);
                                MObjectSetText(BIL.BLENS.LensLbl, buff);

                                D_DoLens(BIL.BLENS.LensMim, BIL.BLENS.LensDraw, BIL.BLENS.LensWx, BIL.BLENS.LensWy, BIL.BLENS.LensPix, BIL.BLENS.LocX, BIL.BLENS.LocY);

                            }
                        
                         }
                    }
                }
            
            break;
        case E_BUTTON_RELEASE:
            break;
    }
}

Here is the call graph for this function:

Here is the caller graph for this function:

DB_CloseImage()

int DB_CloseImage

(

int

s

)

Definition at line 1257 of file Spat_Plot.c.

References img::Bmat, image::BPAL, img::col, image::DimX, image::DimY, FLTIMG, img::Fmat, img::Gmat, image::GPAL, image::H, histogram::Histo, histogram::HistoShell, image::Iacc, img::Imat, dil::Img, image::Imim, INTIMG, image::iPAL, image::Isrv, image::LshX, image::LshY, image::Mat, MFreeColor(), MFreeImage(), MObjectGetHeight(), MObjectGetWidth(), MObjectGetX(), MObjectGetY(), MShellDestroy(), MShellUnrealize(), img::Rmat, image::RPAL, and img::type.

Referenced by CloseFile(), CloseFile_BIN(), ViewNext(), and ViewNext_BIN().

{
    int     c;


    DIL.Img.Iacc[s] = 0;
    DIL.Img.LshX[s] = MObjectGetX(DIL.Img.Isrv[s]);
    DIL.Img.LshY[s] = MObjectGetY(DIL.Img.Isrv[s]);
    DIL.Img.DimX[s] = MObjectGetWidth(DIL.Img.Isrv[s]);
    DIL.Img.DimY[s] = MObjectGetHeight(DIL.Img.Isrv[s]);

    MShellUnrealize(DIL.Img.Isrv[s]);
    MShellDestroy(DIL.Img.Isrv[s]);
    MFreeImage(DIL.Img.Imim[s]);
    MShellUnrealize(DIL.Img.H.HistoShell);
    MShellDestroy(DIL.Img.H.HistoShell);

    
    if(DIL.Img.Mat[s].col)
    {
        free(DIL.Img.Mat[s].Rmat);
        free(DIL.Img.Mat[s].Gmat);
        free(DIL.Img.Mat[s].Bmat);
    }
    if(DIL.Img.Mat[s].type == INTIMG)
        free(DIL.Img.Mat[s].Imat);
    if(DIL.Img.Mat[s].type == FLTIMG)
        free(DIL.Img.Mat[s].Fmat);
    free(DIL.Img.H.Histo[s]);

    // DeAlloc palette
    if(DIL.Img.Mat[s].col)
        for(c = 0; c < 256; c++)
        {
            MFreeColor(DIL.Img.RPAL[s][c]);
            MFreeColor(DIL.Img.GPAL[s][c]);
            MFreeColor(DIL.Img.BPAL[s][c]);
        }
    else
        for(c = 0; c < 256; c++)
            MFreeColor(DIL.Img.iPAL[s][c]);

        return 0;
}

Here is the call graph for this function:

Here is the caller graph for this function:

DB_DisplayCB()

void DB_DisplayCB	(	MOBJECT	p,
		void *	od,
		void *	ad
	)

Definition at line 2646 of file Spat_Plot.c.

References tools::FlagDisplay, GrafoIMG(), MRButtonGetActivationStatus(), ON_OFFLINEPLOT, and TOOLS.

Referenced by D_PlotTools().

{

    int er = 0;
    int c = (int) ad;
    

    er = MRButtonGetActivationStatus(p);

    if(er)
    {
        switch (c)
        {
        case 0 :
            TOOLS.FlagDisplay = 0;      
            break;
        case 1:
            TOOLS.FlagDisplay = 1;      
            break;
        case 2:
            TOOLS.FlagDisplay = 2;      
            break;
        }
    }
    
    GrafoIMG(ON_OFFLINEPLOT);

}

Here is the call graph for this function:

Here is the caller graph for this function:

DB_EqTypePlotCB()

void DB_EqTypePlotCB	(	MOBJECT	o,
		void *	a,
		void *	v
	)

Definition at line 3704 of file Spat_Plot.c.

References d_fileman::CONFIGDIRCOMMON, d_fileman::CONFIGDIREQUIPMENT, bil::DFILEM, paramini::EqType, GrafoIMG(), LoadDB_DispCoeff(), MRButtonGetActivationStatus(), ON_OFFLINEPLOT, das::Paramini, and WriteEquipini().

Referenced by ViewPlot().

{
    
    int er = 0;
    int c = (int) v;
    
    
    er = MRButtonGetActivationStatus(o);
    
    if(er)
    {
        switch (c)
        {
        case 0:
            DAS.Paramini.EqType = 0; //SPATRAM;
            sprintf(BIL.DFILEM.CONFIGDIREQUIPMENT, "%s\\SPATRAM",BIL.DFILEM.CONFIGDIRCOMMON);
            break;
        case 1:
            DAS.Paramini.EqType = 1; //TROPOGAS;
            sprintf(BIL.DFILEM.CONFIGDIREQUIPMENT, "%s\\TROPOGAS",BIL.DFILEM.CONFIGDIRCOMMON);
            break;
        case 2:
            DAS.Paramini.EqType = 2; //LIS;
            sprintf(BIL.DFILEM.CONFIGDIREQUIPMENT, "%s\\LIS",BIL.DFILEM.CONFIGDIRCOMMON);
            break;
        case 3:
            DAS.Paramini.EqType = 3; //SPATRAMPLUS;
            sprintf(BIL.DFILEM.CONFIGDIREQUIPMENT, "%s\\SPATRAMPLUS",BIL.DFILEM.CONFIGDIRCOMMON);
            break;
        case 4:
            DAS.Paramini.EqType = 4; //GASCODNG1;
            sprintf(BIL.DFILEM.CONFIGDIREQUIPMENT, "%s\\GASCODNG1",BIL.DFILEM.CONFIGDIRCOMMON);
            break;
        case 5:
            DAS.Paramini.EqType = 5; //GASCODOffAxis;
            sprintf(BIL.DFILEM.CONFIGDIREQUIPMENT, "%s\\GASCODOA",BIL.DFILEM.CONFIGDIRCOMMON);
            break;
        case 6:
            DAS.Paramini.EqType = 6; //GASCODNG2;
            sprintf(BIL.DFILEM.CONFIGDIREQUIPMENT, "%s\\GASCODNG2",BIL.DFILEM.CONFIGDIRCOMMON);
            break;
        case 7:
            DAS.Paramini.EqType = 7; //GASCODNG3;
            sprintf(BIL.DFILEM.CONFIGDIREQUIPMENT, "%s\\GASCODNG3",BIL.DFILEM.CONFIGDIRCOMMON);
            break;
        case 8:
            DAS.Paramini.EqType = 8; //GASCODNG4;
            sprintf(BIL.DFILEM.CONFIGDIREQUIPMENT, "%s\\GASCODNG4",BIL.DFILEM.CONFIGDIRCOMMON);
            break;
        case 9:
            DAS.Paramini.EqType = 9; //SPATRAM2;
            sprintf(BIL.DFILEM.CONFIGDIREQUIPMENT, "%s\\SPATRAM2",BIL.DFILEM.CONFIGDIRCOMMON);
            break;
        case 10:
            DAS.Paramini.EqType = 10; //SPATRAM3;
            sprintf(BIL.DFILEM.CONFIGDIREQUIPMENT, "%s\\SPATRAM3",BIL.DFILEM.CONFIGDIRCOMMON);
            break;
        }
    }
    //write on equipment.ini the new setting
    WriteEquipini();
    //Load dispersion coefficients for the selected instrument
    er = LoadDB_DispCoeff();
    //refresh plot
    GrafoIMG(ON_OFFLINEPLOT);
    
}

Here is the call graph for this function:

Here is the caller graph for this function:

DB_FilterCB()

void DB_FilterCB	(	MOBJECT	p,
		void *	od,
		void *	ad
	)

Filter positioning callback.

Definition at line 2593 of file Spat_Plot.c.

References tools::FlagFilter, GrafoIMG(), MRButtonGetActivationStatus(), ON_OFFLINEPLOT, and TOOLS.

Referenced by D_PlotTools().

{
    
    int er = 0;
    int c = (int) ad;
    

    er = MRButtonGetActivationStatus(p);

    if(er)
    {
        switch (c)
        {
        case 0:
            TOOLS.FlagFilter = 0;
            break;
        case 1:
            TOOLS.FlagFilter = 1;
            break;
        }
    }

    GrafoIMG(ON_OFFLINEPLOT);


}

Here is the call graph for this function:

Here is the caller graph for this function:

DB_FindMaxMin()

double DB_FindMaxMin	(	int	idx,
		int	idy,
		unsigned int *	mx,
		unsigned int *	mi,
		int	bp
	)

Definition at line 595 of file Spat_Plot.c.

References bil::DPLOT, and d_view::ImatGraf.

{
    double  l = 0;
    int     x, y, xi = idx  , yi = idy;
    U16     *m = BIL.DPLOT.ImatGraf;
//  float   *f = DIL.Img.Mat[w].Fmat;


    *mx = 0; *mi = 65535;
//  VRange("Find Max/Min", 0);
        for(y = 0; y < yi; y++)
        {
            for(x = 3; x < xi; x++)
            {
                if (bp != 0)
                {
                    if (x < xi - bp)
                    {
                        l += (double) *m;
                        *mi = min(*mi, *m);
                        *mx = max(*mx, *m);
                        m++;
                    }
                }
                else
                {
                    l += (double) *m;
                    *mi = min(*mi, *m);
                    *mx = max(*mx, *m);
                    m++;
                }
            }
//          if((y % 32) == 0 && y > 0)
//              VRange(NULL, (long) y * 100 / idy);
        }
//  VRange(NULL, 100);
    return l;
}

DB_SpikesCB()

void DB_SpikesCB	(	MOBJECT	p,
		void *	od,
		void *	ad
	)

Definition at line 2620 of file Spat_Plot.c.

References tools::FlagSpikes, GrafoIMG(), MRButtonGetActivationStatus(), ON_OFFLINEPLOT, and TOOLS.

Referenced by D_PlotTools().

{
    int er = 0;
    int c = (int) ad;
    

    er = MRButtonGetActivationStatus(p);

    if(er)
    {
        switch (c)
        {
        case 0:
            TOOLS.FlagSpikes = 0;
            break;
        case 1:
            TOOLS.FlagSpikes = 1;
            break;
        }
    }

    GrafoIMG(ON_OFFLINEPLOT);

}

Here is the call graph for this function:

Here is the caller graph for this function:

DB_XUnitsCB()

void DB_XUnitsCB	(	MOBJECT	o,
		void *	id,
		void *	a_data
	)

Definition at line 3547 of file Spat_Plot.c.

References bil::DPLOT, FLAG, GrafoIMG(), d_view::ImatGraf, ON_OFFLINEPLOT, and flag::Wl.

Referenced by ViewPlot().

{
    int     c = (int) a_data;

    switch(c)
    {
        case 0 :
            FLAG.Wl = 0;
            break;
        case 1:
            FLAG.Wl = 1;
            break;
        case 2:
            FLAG.Wl = 2;
            break;

    }

    if (BIL.DPLOT.ImatGraf)
        GrafoIMG(ON_OFFLINEPLOT);

}

Here is the call graph for this function:

Here is the caller graph for this function:

deallocamat()

void deallocamat

(

)

Definition at line 161 of file Spat_Plot.c.

References bil::DPLOT, d_view::ImatGraf, and d_view::ImatOrig.

{

//  unsigned long mx;

    free(BIL.DPLOT.ImatGraf);
    BIL.DPLOT.ImatGraf = 0;
    free(BIL.DPLOT.ImatOrig);
}

DeallocFloatMat()

float* DeallocFloatMat

(

float *

mat

)

Definition at line 153 of file Spat_Plot.c.

Referenced by WriteSelColandSmoothed().

{
    free(mat);
    mat = 0;
    return mat;

}

Here is the caller graph for this function:

DeallocUSMat()

unsigned short* DeallocUSMat

(

unsigned short *

mat

)

Definition at line 145 of file Spat_Plot.c.

Referenced by CloseFile(), CloseFile_BIN(), ClosePlotCB(), DatOrBinFormat(), DT_CorrFileEvora(), and DT_CorrHeader().

{
    free(mat);
    mat = 0;
    return mat;

}

Here is the caller graph for this function:

DestroyArrayObj()

void DestroyArrayObj	(	MOBJECT	obj[],
		int	n
	)

Definition at line 1463 of file Spat_Plot.c.

References MObjectDestroy().

{
        int i;
        for (i=0; i < n ; i++)
        {
            
            MObjectDestroy(obj[i]);
        }
}

Here is the call graph for this function:

DrawAreaPlotCB()

int DrawAreaPlotCB	(	MOBJECT	obj,
		MEvent *	pexp,
		void *	a_data
	)

Definition at line 876 of file Spat_Plot.c.

References d_view::actimg, AllocUSMat(), mtcl::black, bil::BLENS, BlindPix, CalcSpectrumLimits(), spectrumheader::ccdex, spectrumheader::ccdwx, paramini::ccdWx, paramini::ccdXoff, viewformobj::cmdpb, d_view::COSTX, d_view::COSTY, D_AssignOrigin(), D_findmaxmin(), D_PlotAxis(), D_PlotGrid(), DBDEMO, flag::DispBlindPix, das::DOption, bil::DPLOT, ccd::dx, d_view::eX, flag::exemode, d_view::eY, doas::FFTFilter, FilterData(), FLAG, das::Flag, tools::FlagDisplay, tools::FlagFilter, tools::FlagSpikes, HeaderInPlot(), optionini::hlineafter, optionini::hlinebefore, IDX, IDY, img::Imat, d_view::ImatGraf, d_view::ImatOrig, d_view::Imax, dil::Img, blens::Imim, d_view::Imin, InitImage(), doas::lambda, viewformobj::lblX, MAllocImage(), image::Mat, maxploth, maxplotw, MFreeImage(), MMessageDialog(), MObjectGetHeight(), MObjectGetWidth(), MObjectSetSensitive(), MObjectSetText(), MTCL, ON_OFFLINEPLOT, d_view::oX, d_view::oY, das::Paramini, d_view::pbr, Pix2Wl(), mtcl::PLColor, PlotSpectrum(), flag::plotYRange, PoslblX(), PoslblY(), RemoveSpikes(), Server, bil::SPH, SwapMatrix(), TOOLS, bil::VFO, spectrumheader::wavelen, and flag::Wl.

Referenced by GrafoIMG(), and ViewPlot().

{
    
    int i, BlindPix_1;
    int t, j;
    static int done = 0;

    if (DAS.Flag.exemode == DBDEMO)
        for(t = 0; t < IDY; t++)
        {
            for(j = 0; j < IDX ; j++)
            {
                DIL.Img.Mat[Server].Imat[t * IDX + j] = (unsigned short) t+j*2; 
            }
        }

    if (ON_OFFLINEPLOT)  // If On LinePLOT
    {
        if(!DIL.Img.Mat[Server].Imat) //Se la matrice e' vuota o non e' inizializzata ESCE
        {
            //MObjectSetUnsensitive(BIL.VFO.selallpb);
            //MObjectSetUnsensitive(BIL.VFO.YScalePB); 
            /*DIL.Img.Mat[Server].Imat = AllocUSMat(IDX, IDY); //Alloc the graph matrix 
            for(t = 0; t < IDY; t++)
            {
                for(j = 0; j < IDX ; j++)
                {
                    DIL.Img.Mat[Server].Imat[t * IDX + j] = (unsigned short) t+j*2; 
                }
            }
            */
            if(done == 0)
            {
                done = 1;
                MMessageDialog("DAS Inf.", "CCD Array not allocated or empty", "OK", NULL);
            }
            return 1;
        }   
        else
        {
            MObjectSetSensitive(BIL.VFO.cmdpb[0]);  //Set Button "Open" Sensitive
            MObjectSetText(BIL.VFO.cmdpb[0], "Save As");
    
            MObjectSetSensitive(BIL.VFO.cmdpb[7]); 

            HeaderInPlot(); // it Shows the measurements parameters
            BIL.DPLOT.ImatGraf = AllocUSMat(IDX, IDY); //Alloc the graph matrix 
        }

    }
    else // If OFF LinePLOT
    {
        if(BIL.DPLOT.ImatGraf == 0)
            return 1;
    }

    maxplotw = MObjectGetWidth(obj); 
    maxploth = MObjectGetHeight(obj); 
    
    MFreeImage(BIL.BLENS.Imim);
    BIL.BLENS.Imim = MAllocImage(maxplotw, maxploth, 24);

    InitImage(BIL.BLENS.Imim, maxplotw, maxploth, 192, 192, 192);

    for(i=DAS.DOption.hlinebefore ; i < IDY - DAS.DOption.hlineafter ; i++)
        BIL.DPLOT.actimg[i] = 1;

    //Assign limits to the Drawing coordinates
    D_AssignOrigin(obj);
    //Plot the axes
    D_PlotAxis(obj, BIL.BLENS.Imim, BIL.DPLOT.oX, BIL.DPLOT.oY, BIL.DPLOT.eX, 
        BIL.DPLOT.eY, MTCL.black);
    //Plot grid
    D_PlotGrid(obj, BIL.BLENS.Imim, BIL.DPLOT.oX, BIL.DPLOT.oY, BIL.DPLOT.eX,
        BIL.DPLOT.eY);

    //Filter section
    if (ON_OFFLINEPLOT)  //On LinePLOT
    {

        if(FLAG.DispBlindPix)
            BlindPix = 0;
        else
        {
            if (DC_CCD.dx - (DAS.Paramini.ccdWx +1) != 0) // se i pixel del sensore sono piu' di quelli in param.ini
                BlindPix  = DC_CCD.dx - DAS.Paramini.ccdWx-1 ;
        }

        if(TOOLS.FlagFilter)
        {
            SwapMatrix(DIL.Img.Mat[Server].Imat, BIL.DPLOT.ImatGraf, IDX, IDY);
            if (DC_CCD.dx - (DAS.Paramini.ccdWx +1) != 0) // se i pixel del sensore sono piu' di quelli in param.ini
                BlindPix_1  = DC_CCD.dx - DAS.Paramini.ccdWx-1 ;
            FilterData(BIL.DPLOT.ImatGraf, IDX, IDY, DOAS.FFTFilter, BlindPix_1);
        }
        else
            SwapMatrix(DIL.Img.Mat[Server].Imat, BIL.DPLOT.ImatGraf, IDX, IDY);

    }
    else
    {
        //Display Blind pixel
        if(FLAG.DispBlindPix)
            BlindPix = 0;
        else
        {
            if (BIL.SPH.ccdwx - (BIL.SPH.ccdex +1) != 0) // se i pixel del sensore sono piu' di quelli in param.ini
                BlindPix  = BIL.SPH.ccdwx - (BIL.SPH.ccdex +1) ;
        }

        
        //Remove Spikes and Filter data
        if(TOOLS.FlagFilter & TOOLS.FlagSpikes)
        {

            SwapMatrix(BIL.DPLOT.ImatOrig, BIL.DPLOT.ImatGraf, IDX, IDY);
    
            BlindPix_1 = 0;
            if (BIL.SPH.ccdwx - (BIL.SPH.ccdex +1) != 0) // se i pixel del sensore sono piu' di quelli in param.ini
                BlindPix_1  = BIL.SPH.ccdwx - (BIL.SPH.ccdex +1) ;
            
            RemoveSpikes(0, BIL.DPLOT.ImatGraf, IDX, IDY, BlindPix_1);
            FilterData(BIL.DPLOT.ImatGraf, IDX, IDY, DOAS.FFTFilter, BlindPix_1);
        }
        //Remove Spikes Only
        else if(!TOOLS.FlagFilter & TOOLS.FlagSpikes) 
        {

            SwapMatrix(BIL.DPLOT.ImatOrig, BIL.DPLOT.ImatGraf, IDX, IDY);
    
            BlindPix_1 = 0;
            if (BIL.SPH.ccdwx - (BIL.SPH.ccdex +1) != 0) // se i pixel del sensore sono piu' di quelli in param.ini
                BlindPix_1  = BIL.SPH.ccdwx - (BIL.SPH.ccdex +1) ;
            
            RemoveSpikes(0, BIL.DPLOT.ImatGraf, IDX, IDY, BlindPix_1);
        }
        //Filter Only
        else if(TOOLS.FlagFilter & !TOOLS.FlagSpikes) 
        {

            SwapMatrix(BIL.DPLOT.ImatOrig, BIL.DPLOT.ImatGraf, IDX, IDY);
    
            BlindPix_1 = 0;
            if (BIL.SPH.ccdwx - (BIL.SPH.ccdex +1) != 0) // se i pixel del sensore sono piu' di quelli in param.ini
                BlindPix_1  = BIL.SPH.ccdwx - (BIL.SPH.ccdex +1) ;
            
            FilterData(BIL.DPLOT.ImatGraf, IDX, IDY, DOAS.FFTFilter, BlindPix_1);
        }
        else    
            SwapMatrix(BIL.DPLOT.ImatOrig, BIL.DPLOT.ImatGraf, IDX, IDY);


    }
    // Y Axis Range Section
    if(FLAG.plotYRange)
    {
        if(TOOLS.FlagFilter)
        {
            //Find Max & Min of the spectrum (BIL.DPLOT.Imax & BIL.DPLOT.Imin)
            D_findmaxmin(BIL.DPLOT.ImatOrig, 5, IDX,DAS.DOption.hlinebefore, 
                IDY - DAS.DOption.hlineafter, BlindPix );
        }
        else
        {
            //Find Max & Min of the spectrum (BIL.DPLOT.Imax & BIL.DPLOT.Imin)
            D_findmaxmin(BIL.DPLOT.ImatGraf, 5, IDX,DAS.DOption.hlinebefore,
                IDY - DAS.DOption.hlineafter, BlindPix );   
        }
    }
    else
    {
        BIL.DPLOT.Imax = 65535;
        BIL.DPLOT.Imin = 0;
    }
    
    // X Axis Mode visualization
    if(FLAG.Wl == 0) //Pixel X Scale
    {
        //Positioning of X labels
        PoslblX(BIL.VFO.lblX, 1, IDX - BlindPix, (IDX - BlindPix)/2);
    }
    else if(FLAG.Wl == 1) //Wavelength X scale [A]
    {
        //CalcSpectrumLimits(0, BIL.SPH.wavelen, DAS.Paramini.ccdXoff, DAS.Paramini.ccdWx + 1, 424 );
        Pix2Wl(0, BIL.SPH.wavelen, DAS.Paramini.ccdXoff, DAS.Paramini.ccdWx + 1, &DOAS);
        //Positioning of X labels
        PoslblX(BIL.VFO.lblX, (int)DOAS.lambda[0], 
            (int)DOAS.lambda[IDX - 1 - BlindPix],BIL.SPH.wavelen);
    }
    else if(FLAG.Wl == 2) //Pixel X Scale [nm]
    {
        CalcSpectrumLimits(0, BIL.SPH.wavelen, DAS.Paramini.ccdXoff, DAS.Paramini.ccdWx + 1, 424 );
        Pix2Wl(0, BIL.SPH.wavelen, DAS.Paramini.ccdXoff, DAS.Paramini.ccdWx + 1, &DOAS);
        //Positioning of X labels
        PoslblX(BIL.VFO.lblX, (int)(DOAS.lambda[0]/10),
            (int)(DOAS.lambda[IDX - 1 - BlindPix]/10), BIL.SPH.wavelen/10);
    }

    if(BIL.DPLOT.Imax - BIL.DPLOT.Imin <100)
    {
//      MShellSetTitle(BIL.VFO.View_Sh,"Min Max too close, Plotting is not possible");
        return 2;
    }
    else
        //Positioning of Y labels
        PoslblY(BIL.DPLOT.Imin, BIL.DPLOT.Imax);
    
    //Calculation of the adaptive parameters
    BIL.DPLOT.COSTY = (double)(BIL.DPLOT.Imax - BIL.DPLOT.Imin) / (double)(BIL.DPLOT.oY - BIL.DPLOT.eY);
    BIL.DPLOT.COSTX = (double)(BIL.DPLOT.eX - BIL.DPLOT.oX) / (double) (IDX - BlindPix);

    if (ON_OFFLINEPLOT)  // If On LinePLOT
    {
        //Plot of the spectrum 
        PlotSpectrum(obj, BIL.DPLOT.pbr, BIL.BLENS.Imim, BIL.DPLOT.ImatGraf, IDX ,
            IDY, MTCL.PLColor, BIL.DPLOT.COSTX, BIL.DPLOT.COSTY, BIL.DPLOT.Imin,
            BIL.DPLOT.Imax, BIL.DPLOT.oX, BIL.DPLOT.oY, BlindPix, 
            DAS.DOption.hlinebefore, DAS.DOption.hlineafter); 
    }
    else
    {
        if(TOOLS.FlagDisplay == 2)
        {
            //Plot of the spectrum 
            PlotSpectrum(obj, BIL.DPLOT.pbr, BIL.BLENS.Imim, BIL.DPLOT.ImatGraf, IDX ,
                IDY, MTCL.PLColor, BIL.DPLOT.COSTX, BIL.DPLOT.COSTY, BIL.DPLOT.Imin,
                BIL.DPLOT.Imax, BIL.DPLOT.oX, BIL.DPLOT.oY, BlindPix, 
                DAS.DOption.hlinebefore, DAS.DOption.hlineafter); 
        
            PlotSpectrum(obj, BIL.DPLOT.pbr, BIL.BLENS.Imim, BIL.DPLOT.ImatOrig, IDX ,
                IDY, MTCL.PLColor, BIL.DPLOT.COSTX, BIL.DPLOT.COSTY, BIL.DPLOT.Imin,
                BIL.DPLOT.Imax, BIL.DPLOT.oX, BIL.DPLOT.oY, BlindPix, 
                DAS.DOption.hlinebefore, DAS.DOption.hlineafter); 
        }
        else if(TOOLS.FlagDisplay == 1)
        {
            PlotSpectrum(obj, BIL.DPLOT.pbr, BIL.BLENS.Imim, BIL.DPLOT.ImatGraf, IDX ,
                IDY, MTCL.PLColor, BIL.DPLOT.COSTX, BIL.DPLOT.COSTY, BIL.DPLOT.Imin,
                BIL.DPLOT.Imax, BIL.DPLOT.oX, BIL.DPLOT.oY, BlindPix, 
                DAS.DOption.hlinebefore, DAS.DOption.hlineafter); 

        }
        else if(TOOLS.FlagDisplay == 0)
        {
            PlotSpectrum(obj, BIL.DPLOT.pbr, BIL.BLENS.Imim, BIL.DPLOT.ImatOrig, IDX ,
                IDY, MTCL.PLColor, BIL.DPLOT.COSTX, BIL.DPLOT.COSTY, BIL.DPLOT.Imin,
                BIL.DPLOT.Imax, BIL.DPLOT.oX, BIL.DPLOT.oY, BlindPix, 
                DAS.DOption.hlinebefore, DAS.DOption.hlineafter); 

        }
    
    }
    
    return 0;


    
}

Here is the call graph for this function:

Here is the caller graph for this function:

DrawButtons()

void DrawButtons	(	int	nhidlbef,
		int	nhidlaft,
		int	nr
	)

Definition at line 56 of file Spat_Plot.c.

References bil::DPLOT, MD_CreateBRowShell(), MObjectMap(), MObjectUnmap(), MShellDestroy(), MShellUnrealize(), d_view::OLDnR, d_view::pbr, and d_view::RowShell.

Referenced by ViewNext(), ViewNext_BIN(), and Visualizza().

{
    
    
    int i;
    static int NewnR;   
    static x = 0;
    
    if(BIL.DPLOT.RowShell != 0)
    {
        MShellUnrealize(BIL.DPLOT.RowShell);
        MShellDestroy(BIL.DPLOT.RowShell);
        BIL.DPLOT.RowShell = 0;
    }

    

/*
    if(BIL.SPH.ccdnr != BIL.DPLOT.OLDnR + 1)
    {
        deallocamat();
        allocamat();
    }
*/
    if(nr != BIL.DPLOT.OLDnR + 1)
    {
        
        if(nr < 16)
            {

                //ButtFrmWidth = MObjectGetWidth(BIL.VFO.formbutt);
                //ButtSpace = ButtFrmWidth/BIL.SPH.ccdnr;
                //ButtWidth = 70;
                
                
                for (i=nhidlbef; i < nr - nhidlaft; i++)
                {
                    MObjectMap(BIL.DPLOT.pbr[i]);
//                  NewnR ++;
                }

                if(nhidlaft > NewnR)
                {
                    for (i= nr - nhidlaft; i<nr;i++)
                    MObjectUnmap(BIL.DPLOT.pbr[i]);
                }



                NewnR = nr - nhidlaft - nhidlbef;

//              BIL.SPH.ccdnr;
            }
            else
            {
//              if(x == 0)
//              {
//                  x=1;
                    MD_CreateBRowShell(nr);
//              }
            }
        BIL.DPLOT.OLDnR= nr;
    }

}

Here is the call graph for this function:

Here is the caller graph for this function:

DrawImg()

void DrawImg	(	MIMAGE	img,
		int	a,
		int	c,
		int	x,
		int	y
	)

Definition at line 370 of file Spat_Plot.c.

References mtcl::db, mtcl::dg, mtcl::dr, MImageSetPixelRGB(), and MTCL.

Referenced by D_PlotOneLine(), and PlotSpectrum().

{

    int r, g, b;

    switch(a)
    {
        //Gray  
        case 259: 
            r = 192;
            g = 192;
            b = 192;
            break;
        //colors
        default: 
            r = MTCL.dr[a];
            g = MTCL.dg[a];
            b = MTCL.db[a];
            break;
    }   
    
    MImageSetPixelRGB(img, x , y, r, g, b);

}

Here is the call graph for this function:

Here is the caller graph for this function:

DrawXLine()

void DrawXLine	(	MIMAGE	img,
		int	yfix,
		int	xs,
		int	xe,
		int	r,
		int	g,
		int	b
	)

Definition at line 423 of file Spat_Plot.c.

References MImageSetPixelRGB().

Referenced by D_PlotAxis(), and D_PlotGrid().

{
    int x;

    for(x = xs; x < xe; x++)
        MImageSetPixelRGB(img, x , yfix, r, g, b);  

}

Here is the call graph for this function:

Here is the caller graph for this function:

DrawYLine()

void DrawYLine	(	MIMAGE	img,
		int	xfix,
		int	ys,
		int	ye,
		int	r,
		int	g,
		int	b
	)

Definition at line 404 of file Spat_Plot.c.

References MImageSetPixelRGB().

Referenced by D_PlotAxis(), and D_PlotGrid().

{
    int y;

    for(y = ys; y<ye; y++)
        MImageSetPixelRGB(img, xfix , y, r, g, b);  

}

Here is the call graph for this function:

Here is the caller graph for this function:

GrafoIMG()

void GrafoIMG

(

int

mode

)

Definition at line 1242 of file Spat_Plot.c.

References bil::DPLOT, d_view::drawapl, DrawAreaPlotCB(), MDrawAreaSetExposeCallback(), and MObjectRedraw().

Referenced by ActEditCB(), BuildLogRatio(), DB_DisplayCB(), DB_EqTypePlotCB(), DB_FilterCB(), DB_SpikesCB(), DB_XUnitsCB(), PBYScale_CB(), ViewNext(), ViewNext_BIN(), and Visualizza().

{

    MObjectRedraw(BIL.DPLOT.drawapl);
/*  if (mode)
        MDrawAreaSetExposeCallback(BIL.DPLOT.drawapl, DAExOnLineCB, NULL);
    else
        MDrawAreaSetExposeCallback(BIL.DPLOT.drawapl, DrawAreaExposeCB, NULL);
*/
    MDrawAreaSetExposeCallback(BIL.DPLOT.drawapl, DrawAreaPlotCB, NULL);
    MObjectRedraw(BIL.DPLOT.drawapl); 

}

Here is the call graph for this function:

Here is the caller graph for this function:

HeaderInPlot()

int HeaderInPlot

(

void

)

Shows the measurements parameters
.

Definition at line 1475 of file Spat_Plot.c.

References d_geo::alititude, optionini::avgmode, spectrumheader::ccdex, spectrumheader::ccdey, spectrumheader::ccdnr, spectrumheader::ccdsx, spectrumheader::ccdsy, marconi::CCDTemp, spectrumheader::ccdvb, spectrumheader::ccdwx, paramini::ccdWx, spectrumheader::ccdwy, paramini::ccdWy, paramini::ccdXoff, paramini::ccdYoff, viewformobj::cmdpb, date::da_day, date::da_mon, date::da_year, img::DATE, das::DGeo, das::DOption, spectrumheader::dummy3, ccd::dx, ccd::dy, paramini::EqType, Fil_Code, Fil_Code8H, Fil_CodeNG, Fil_CodeNG1, Fil_CodeTropo, optionini::filtertype, FWS, GASCODNG1, GASCODNG2, GASCODNG3, GASCODNG4, GRS, img::High, dil::Img, d_geo::latitude, viewformobj::lblalt, viewformobj::lblccdex, viewformobj::lblccdey, viewformobj::lblccdsx, viewformobj::lblccdsy, viewformobj::lblccdtemp, viewformobj::lblccdtexp, viewformobj::lblccdwx, viewformobj::lblccdwy, viewformobj::lbldate, viewformobj::lblfilter, viewformobj::lbllat, viewformobj::lblloc, viewformobj::lbllong, viewformobj::lblmax, viewformobj::lblmin, viewformobj::lblmirpos, viewformobj::lblndfilter, viewformobj::lblnr, viewformobj::lblnummeas, viewformobj::lblsza, viewformobj::lbltime, viewformobj::lblvb, viewformobj::lblwaveleng, LIS_, d_geo::longitude, img::Low, das::Marconi, image::Mat, optionini::measmode, Mir_Code, Mir_CodeTropo, MIS, MObjectSetSensitive(), MObjectSetText(), N_AVG, N_RM, NDFil_Code, das::Paramini, FilterWheelSt::Pos, MirrorSt::Pos, d_geo::s_name, S_zenetr, Server, SPATRAM3, bil::SPH, TExp, time::ti_hour, time::ti_min, time::ti_sec, img::TIME, TROPOGAS, paramini::VBin, bil::VFO, spectrumheader::wavelen, wl, and GratingSt::Wl.

Referenced by DrawAreaPlotCB().

{

    char str[64], buf[16];


    MObjectSetText(BIL.VFO.lblloc, DAS.DGeo.s_name);

    sprintf(str,"%.2lf", DAS.DGeo.latitude);
    MObjectSetText(BIL.VFO.lbllat, str);

    sprintf(str,"%.2lf", DAS.DGeo.longitude);
    MObjectSetText(BIL.VFO.lbllong, str);

    sprintf(str,"%.0lf", DAS.DGeo.alititude);
    MObjectSetText(BIL.VFO.lblalt, str);

    sprintf(str,"%.2lf", S_zenetr);
    MObjectSetText(BIL.VFO.lblsza, str);

    sprintf(str,"%d/%02d/%02d", DIL.Img.Mat[Server].DATE.da_year,DIL.Img.Mat[Server].DATE.da_mon, DIL.Img.Mat[Server].DATE.da_day);
    MObjectSetText(BIL.VFO.lbldate, str);

    sprintf(str,"%2d:%02d:%02d", DIL.Img.Mat[Server].TIME.ti_hour, DIL.Img.Mat[Server].TIME.ti_min, DIL.Img.Mat[Server].TIME.ti_sec);
    MObjectSetText(BIL.VFO.lbltime, str);


    
    if (DAS.Paramini.EqType == TROPOGAS || DAS.Paramini.EqType == SPATRAM3 || DAS.Paramini.EqType == GASCODNG4)
        sprintf(buf, "%s",Mir_CodeTropo[MIS.Pos]);
    else
        sprintf(buf, "%s",Mir_Code[MIS.Pos]);
    
    MObjectSetText(BIL.VFO.lblmirpos, buf);

    sprintf(str,"%d", wl[GRS.Wl]);
    MObjectSetText(BIL.VFO.lblwaveleng, str);
    /***********************************************************************/
    //Filter wheel section
    if ( DAS.Paramini.EqType == LIS_)
        MObjectSetText(BIL.VFO.lblfilter, Fil_Code8H[FWS.Pos]);
    else
    {
        if(DAS.Paramini.EqType == TROPOGAS)
            MObjectSetText(BIL.VFO.lblfilter, Fil_CodeTropo[FWS.Pos]);
        else if (DAS.Paramini.EqType == GASCODNG2 || DAS.Paramini.EqType == GASCODNG3 || DAS.Paramini.EqType == GASCODNG4)
            MObjectSetText(BIL.VFO.lblfilter, Fil_CodeNG[FWS.Pos]);
        else if (DAS.Paramini.EqType == GASCODNG1)
            MObjectSetText(BIL.VFO.lblfilter, Fil_CodeNG1[FWS.Pos]);

        else
            MObjectSetText(BIL.VFO.lblfilter, Fil_Code[FWS.Pos]);
    }
    /***********************************************************************/
    //Neutral Density Filter section
    if(DAS.DOption.filtertype == 1) // Double filter wheel
    {
        
        MObjectSetText(BIL.VFO.lblndfilter, NDFil_Code[BIL.SPH.dummy3]);
        
    
    }
    if(DAS.DOption.filtertype == 2) // Filter Wheel + Torque motor
    {
        if (BIL.SPH.dummy3)
            MObjectSetText(BIL.VFO.lblndfilter, "ON");
        else
            MObjectSetText(BIL.VFO.lblndfilter, "OFF");
    
    }
    


    /***********************************************************************/


    sprintf(str,"%.2lf", DAS.Marconi.CCDTemp);
    MObjectSetText(BIL.VFO.lblccdtemp, str);

    sprintf(str,"%.3lf", TExp);
    MObjectSetText(BIL.VFO.lblccdtexp, str);


    if(DAS.DOption.measmode == 1) //measuring with average
    {
        if(DAS.DOption.avgmode == 0)
            sprintf(str,"%d", N_AVG); // number of measurements in fixed number of measurements
        else
            sprintf(str,"%d", N_RM); // number of measurements in fixed exposure time
    }
    else
        sprintf(str,"%d", "1");

    MObjectSetText(BIL.VFO.lblnummeas, str);

    sprintf(str,"%u", (unsigned int)DIL.Img.Mat[Server].High);
    MObjectSetText(BIL.VFO.lblmax, str);

    sprintf(str,"%u", (unsigned int)DIL.Img.Mat[Server].Low);
    MObjectSetText(BIL.VFO.lblmin, str);

    sprintf(str,"%d", DC_CCD.dx);
    MObjectSetText(BIL.VFO.lblccdwx, str);

    sprintf(str,"%d", DC_CCD.dy);
    MObjectSetText(BIL.VFO.lblccdwy, str);



    sprintf(str,"%d", DAS.Paramini.ccdXoff);
    MObjectSetText(BIL.VFO.lblccdsx, str);

    sprintf(str,"%d", DAS.Paramini.ccdYoff);
    MObjectSetText(BIL.VFO.lblccdsy, str);

    sprintf(str,"%d", DAS.Paramini.ccdWx);
    MObjectSetText(BIL.VFO.lblccdex, str);

    sprintf(str,"%d", DAS.Paramini.ccdWy);
    MObjectSetText(BIL.VFO.lblccdey, str);

    sprintf(str,"%d", DAS.Paramini.VBin);
    MObjectSetText(BIL.VFO.lblvb, str);

    sprintf(str,"%d", DC_CCD.dy/DAS.Paramini.VBin);
    MObjectSetText(BIL.VFO.lblnr, str);


    BIL.SPH.ccdwx = DC_CCD.dx;
    BIL.SPH.ccdwy = DC_CCD.dy;
    BIL.SPH.ccdnr = DC_CCD.dy/DAS.Paramini.VBin;

    BIL.SPH.ccdex = DAS.Paramini.ccdWx;//DC_CCD.dx;
    BIL.SPH.ccdsx = DAS.Paramini.ccdXoff;
    BIL.SPH.ccdey = DAS.Paramini.ccdWy; //DC_CCD.dy;
    BIL.SPH.ccdsy = DAS.Paramini.ccdYoff;
    BIL.SPH.ccdvb =DAS.Paramini.VBin;

    BIL.SPH.wavelen = wl[GRS.Wl];


    MObjectSetSensitive(BIL.VFO.cmdpb[4]); // Set "Print" button as sensitive
    MObjectSetSensitive(BIL.VFO.cmdpb[6]); 

    return 0;


}

Here is the call graph for this function:

Here is the caller graph for this function:

ImatGrafInImat()

void ImatGrafInImat

(

void

)

Definition at line 861 of file Spat_Plot.c.

References bil::DPLOT, IDX, IDY, img::Imat, d_view::ImatGraf, dil::Img, image::Mat, and Server.

{
    int t, j;

    for(t = 0 ; t < IDY ; t++)
    {
        for(j = 0; j < IDX; j++)
        {
            DIL.Img.Mat[Server].Imat[t * IDX + j] = BIL.DPLOT.ImatGraf[t * IDX + j];
        }
    }
}

ImatInImatGraf()

void ImatInImatGraf

(

void

)

Definition at line 847 of file Spat_Plot.c.

References bil::DPLOT, IDX, IDY, img::Imat, d_view::ImatGraf, dil::Img, image::Mat, and Server.

{
    int t, j;

    for(t = 0 ; t < IDY ; t++)
    {
        for(j = 0; j < IDX; j++)
        {
            BIL.DPLOT.ImatGraf[t * IDX + j] = (unsigned short) DIL.Img.Mat[Server].Imat[t * IDX + j];
        }
    }
}

InitImage()

void InitImage	(	MIMAGE	img,
		int	xd,
		int	yd,
		int	rb,
		int	gb,
		int	bb
	)

Definition at line 354 of file Spat_Plot.c.

References MImageSetPixelRGB().

Referenced by DrawAreaPlotCB(), LoadIo(), ViewNext(), ViewNext_BIN(), and ViewPlot().

{
    int i, k;
    
    for (i=0;i<xd;i++)
    {
        for (k=0;k<yd;k++)
            {
                MImageSetPixelRGB(img, i , k, rb, gb, bb);
            }
    }

}

Here is the call graph for this function:

Here is the caller graph for this function:

LoadIo()

void LoadIo	(	int	mod,
		char *	fname
	)

Definition at line 2678 of file Spat_Plot.c.

References AllocUSMat(), mtcl::black, bil::BLENS, spectrumheader::ccdnr, spectrumheader::ccdwx, D_AssignOrigin(), D_PlotAxis(), D_PlotGrid(), bil::DPLOT, doas::drwa, d_view::eX, d_view::eY, IDX, IDY, blens::Imim, InitImage(), doas::IoMat, MAllocImage(), maxploth, maxplotw, MFreeImage(), MObjectGetHeight(), MObjectGetWidth(), MTCL, d_view::oX, d_view::oY, ReadHeader_ASCII(), ReadIMG(), and bil::SPH.

Referenced by LoadIoCB(), and PlotToolsPBs().

{

    FILE    *fs;
//  char    temp[128];
//  int     i, k,
    int er;

/*  fs = fopen(fname, "r");
    
    if(fs == NULL)
    {
        return 1;   
    }
        ReadLine(str, 80, fs);
        ReadLine(str, 80, fs);
        ReadLine(str, 80, fs);
        ReadLine(str, 80, fs);

    
    k=0;
    do
    {

        k++;
        ReadLine(str, 80, fs);


    }while (!feof(fs));

    k--;

    fclose(fs);
*/
    fs = fopen(fname, "r");

    //ReadHeaderOnly(fs);
    //ReadHeader_Io(0, fs);
    er = ReadHeader_ASCII(0, fs);

    
    
    IDX = BIL.SPH.ccdwx;
    IDY = BIL.SPH.ccdnr;

    DOAS.IoMat = AllocUSMat(IDX, IDY);

    ReadIMG(fs, DOAS.IoMat, IDX, IDY + 1);

/*  for (i=0; i<IDX; i++)
    {
        for (i=0; i<IDY + 1; i++)
        fscanf(fs, "%lf%", &DOAS.wlc[i], &DOAS.k1[i], &DOAS.k2[i], &DOAS.wlref[i], &DOAS.pixref[i]);

    }

*/
    fclose(fs);

    if (mod)
    {
    maxplotw = MObjectGetWidth(DOAS.drwa[0]); 
    maxploth = MObjectGetHeight(DOAS.drwa[0]); 
    
    MFreeImage(BIL.BLENS.Imim);
    BIL.BLENS.Imim = MAllocImage(maxplotw, maxploth, 24);

    InitImage(BIL.BLENS.Imim, maxplotw, maxploth, 192, 192, 192);

        
    //Assign limits to the Drawing coordinates
    D_AssignOrigin(DOAS.drwa[0]);
    //Plot the axes
    D_PlotAxis(DOAS.drwa[0], BIL.BLENS.Imim, BIL.DPLOT.oX, BIL.DPLOT.oY, BIL.DPLOT.eX, 
        BIL.DPLOT.eY, MTCL.black);
    //Plot grid
    D_PlotGrid(DOAS.drwa[0], BIL.BLENS.Imim, BIL.DPLOT.oX, BIL.DPLOT.oY, BIL.DPLOT.eX,
        BIL.DPLOT.eY);

            

    }


}

Here is the call graph for this function:

Here is the caller graph for this function:

LogRatioSpectrum()

void LogRatioSpectrum

(

void

)

Definition at line 2764 of file Spat_Plot.c.

{




}

MakeItemSensitiveCB()

void MakeItemSensitiveCB	(	MOBJECT	obj,
		void *	item,
		void *	udata
	)

Definition at line 2054 of file Spat_Plot.c.

References MMenuItemSetSensitive().

Referenced by Visualizza().

{
  MMenuItemSetSensitive (item);

  
}

Here is the call graph for this function:

Here is the caller graph for this function:

MakeItemUnsensitiveCB()

void MakeItemUnsensitiveCB	(	MOBJECT	obj,
		void *	item,
		void *	udata
	)

Definition at line 2044 of file Spat_Plot.c.

References MMenuItemSetUnsensitive().

Referenced by ViewPlot(), and Visualizza().

{
  MMenuItemSetUnsensitive (item);

  
}

Here is the call graph for this function:

Here is the caller graph for this function:

MD_CreateBRowShell()

int MD_CreateBRowShell

(

int

nrows

)

Create windows of buttons.
During the plotting of the measurements, create a shell of buttons if the raws of the CCD are more than 16.

Parameters

nrows

number of raws of the CCD sensor (CCDVPix/CCDVBin)

Returns

0

Definition at line 1625 of file Spat_Plot.c.

References D_pbr_CB(), das::DOption, bil::DPLOT, HELV_SMALL, optionini::hlineafter, optionini::hlinebefore, MCreatePButton(), MCreateShell(), MCreateTableForm(), MObjectAlign(), MObjectSetBackgroundRGB(), MObjectSetColor(), MObjectSetResize(), MObjectSetShadow(), MObjectSetTransparency(), MPButtonSetCallback(), MShellRealizeXY(), MTCL, d_view::pbr, mtcl::PLColor, d_view::RowShell, TOP_ALIGN, True, UNDEF_ALIGN, mtcl::white, and WS_ETCHED_IN.

Referenced by DrawButtons(), LoadTestPalette(), and ViewPlot().

{
    int i, er = 0;
    MOBJECT _tablefrm000;
//  MOBJECT _shell001;
    char buf[64];
//  MOBJECT Esc_But;

    BIL.DPLOT.RowShell = MCreateShell("CCD ROWS", 0);
    MObjectSetBackgroundRGB(BIL.DPLOT.RowShell, 97, 105, 88);
    MObjectSetTransparency(BIL.DPLOT.RowShell, 0);

    _tablefrm000 = MCreateTableForm(BIL.DPLOT.RowShell, 20);
    MObjectSetBackgroundRGB(_tablefrm000, 91, 74, 74);
    MObjectSetResize(_tablefrm000, True, True);


        for (i=DAS.DOption.hlinebefore; i < nrows - DAS.DOption.hlineafter; i++)
        {
            sprintf(buf,"r. %3d", i+1);
            BIL.DPLOT.pbr[i] = MCreatePButton(_tablefrm000, buf, HELV_SMALL);
            MObjectAlign(BIL.DPLOT.pbr[i], UNDEF_ALIGN, TOP_ALIGN);
            MObjectSetColor(BIL.DPLOT.pbr[i], MTCL.PLColor[i], MTCL.white);
            MPButtonSetCallback(BIL.DPLOT.pbr[i], D_pbr_CB, (void *) i);
            //MObjectSetBackgroundRGB(pbr[i], 197, 197, 144);
            MObjectSetShadow(BIL.DPLOT.pbr[i], WS_ETCHED_IN, 2, 1);
        }

    MShellRealizeXY(BIL.DPLOT.RowShell, 0, 0);

    return 0;

}

Here is the call graph for this function:

Here is the caller graph for this function:

MenuFileOLP_CB()

void MenuFileOLP_CB	(	MOBJECT	o,
		void *	id,
		void *	a_data
	)

Definition at line 3209 of file Spat_Plot.c.

References _MAX_PATH, FB_PREFS::allow_dir_create, FB_PREFS::allow_dir_delete, FB_PREFS::allow_dir_rename, FB_PREFS::bg_image_file, FB_PREFS::button_font, FB_PREFS::change_cwd, CloseFile(), CloseFile_BIN(), ClosePlotCB(), ContFP, d_fileman::DBFILENAME, bil::DFILEM, das::DOption, bil::DPLOT, d_view::drawapl, False, FBIF, FDAT, d_fileman::FKIND, FB_PREFS::font, FSAVE, HELV_SMALL, d_fileman::HOMEDIRECTORY, IDX, IDY, d_view::ImatGraf, MDCreateFM_Shell(), MFileBrowseExt(), MGetCurrentDirectory(), MMessageDialog(), MObjectSetBackgroundRGB(), NFDATI, NUMFDATI, REL_FILE_POS, SaveSpectrum(), optionini::savingmode, FB_PREFS::transparent_tree, True, bil::VFO, viewformobj::View_Sh, ViewNext(), ViewNext_BIN(), ViewPre(), ViewPre_BIN(), and Visualizza().

Referenced by ViewPlot().

{
    int c = (int) a_data, er =0;
    int l;
    char buff[32],str[_MAX_PATH] ;
    char fname[128], dirname[128];

  FB_PREFS fbp;
  strcpy (dirname, MGetCurrentDirectory ());
  fname[0] = '\0';
    memset (&fbp, 0, sizeof (fbp));
 
    fbp.change_cwd = True;
    fbp.allow_dir_create = True;
    fbp.allow_dir_rename = True;
    fbp.allow_dir_delete = True;
    fbp.transparent_tree = False;
    fbp.font = HELV_SMALL;
    fbp.button_font = HELV_SMALL;
    //Set Img file
    sprintf(str, "%s\\%s", BIL.DFILEM.HOMEDIRECTORY, "sys\\Tile2.bmp" );
    fbp.bg_image_file =str;
    
    
    switch (c)
    {
        case 0:
            sprintf(buff,"1234");
            if(DAS.DOption.savingmode)
                er = MFileBrowseExt ("Select File for Plotting", "*.bif", fname, dirname, &fbp);
            else
                er = MFileBrowseExt ("Select File for Plotting", "*.dat", fname, dirname, &fbp);
            if(er)
            {
                sprintf(BIL.DFILEM.DBFILENAME,"%s%s",dirname, fname);
                l = strlen(fname);
                strncpy(buff, fname+l-4, 4);
                if( (strcmp(buff,".dat") == 0) |(strcmp(buff,".Dat") == 0) )
                    BIL.DFILEM.FKIND = FDAT; 
                else if( (strcmp(buff,".bif") == 0) | (strcmp(buff,".Bif") == 0) )
                    BIL.DFILEM.FKIND = FBIF;
                else if( (strcmp(buff,".bhg") == 0) | (strcmp(buff,".Bhg") == 0) )
                    BIL.DFILEM.FKIND = FBIF;
                else
                {
                    MMessageDialog("DAS information", "Unsupported format!!", " Ok ", NULL);  
                    break;
                }
                Visualizza(BIL.DFILEM.FKIND,BIL.DFILEM.DBFILENAME);     
            }
            else
                break;
            break;      
            
        case 1:
            switch (BIL.DFILEM.FKIND)
            {
                case FDAT:
                    ViewNext(NUMFDATI);
                    break;
                case FBIF:
                    ViewNext_BIN(NFDATI);
                    break;
            }
            break;
            
        case 2: 
            switch (BIL.DFILEM.FKIND)
            {
                case FDAT:
                    ViewPre(NUMFDATI, REL_FILE_POS[ContFP - 1]);
                    break;      
                case FBIF:
                    ViewPre_BIN(NFDATI, REL_FILE_POS[ContFP - 1]);
                    break;
            }
            break;
            
        case 3:
            BIL.DFILEM.DBFILENAME[0] = 0;
            MDCreateFM_Shell(FSAVE, FDAT); //Save File as, Dat ext.
            if(BIL.DFILEM.DBFILENAME[0] == 0)
            {
                if (BIL.DPLOT.ImatGraf == 0)
                    break;
            }
            else
            {
                SaveSpectrum(BIL.DFILEM.DBFILENAME);
            }
            break;
                
        case 4:
            switch (BIL.DFILEM.FKIND)
            {
                case FDAT:
                    CloseFile(NUMFDATI, IDX, IDY);
                    break;      
                case FBIF:
                    CloseFile_BIN(NFDATI, IDX, IDY);
                    break;
            }
            MObjectSetBackgroundRGB(BIL.DPLOT.drawapl, 220, 220, 220);
            break;      
        case 5:
            ClosePlotCB(BIL.VFO.View_Sh, 0, 0);
            break;

    }
}

Here is the call graph for this function:

Here is the caller graph for this function:

MenuToolsOLP_CB()

void MenuToolsOLP_CB	(	MOBJECT	o,
		void *	id,
		void *	a_data
	)

Definition at line 3179 of file Spat_Plot.c.

References D_Lens(), D_PlotTools(), D_SunCalc(), MMessageDialog(), PrintObject(), SetupPrinter(), bil::VFO, and viewformobj::View_Sh.

Referenced by ViewPlot().

{
    int c = (int) a_data, er = 0;

    switch (c)
    {
        case 0:
            D_PlotTools();
            break;  
        case 1:
            D_Lens();
            break;  
        case 2:
            D_SunCalc();
            break;  

        case 3:
            SetupPrinter();

            er = PrintObject(BIL.VFO.View_Sh, PM_FULL, -1, -1 );
            if (er)
                MMessageDialog("ALERT", "Print Problems", "Ok", NULL);          
            break;      



    }
}

Here is the call graph for this function:

Here is the caller graph for this function:

PButtSelAll_CB()

void PButtSelAll_CB	(	MOBJECT	p,
		void *	od,
		void *	ad
	)

Definition at line 2476 of file Spat_Plot.c.

References D_pbr_CB(), das::DOption, bil::DPLOT, optionini::hlineafter, optionini::hlinebefore, IDY, and d_view::pbr.

Referenced by ViewPlot().

{
    int i;
    int c = (int) ad;
    for (i =DAS.DOption.hlinebefore; i < IDY - DAS.DOption.hlineafter  ; i++) 
        D_pbr_CB(BIL.DPLOT.pbr, NULL, (void *) i);

}

Here is the call graph for this function:

Here is the caller graph for this function:

PBYScale_CB()

void PBYScale_CB	(	MOBJECT	p,
		void *	od,
		void *	ad
	)

Definition at line 2441 of file Spat_Plot.c.

References bil::DPLOT, FLAG, GrafoIMG(), d_view::ImatGraf, ON_OFFLINEPLOT, and flag::plotYRange.

Referenced by ViewPlot().

{

    int c = (int) ad;

    switch (c)
    {
    case 0:
            FLAG.plotYRange = 1;
            break;
    case 1:
            FLAG.plotYRange = 0;
            break;



    }
/*  
    if (FLAG.plotYRange == 0)
    {
        FLAG.plotYRange = 1;
        if( (!DAS.Flag.exemode == OFFLINEPLOT) | (!DAS.Flag.exemode == DOASMODE))
            MObjectSetText(BIL.VFO.YScalePB, "Min/Max");
    }   
    else
    {
        FLAG.plotYRange = 0;
        if( (!DAS.Flag.exemode == OFFLINEPLOT) | (!DAS.Flag.exemode == DOASMODE))
            MObjectSetText(BIL.VFO.YScalePB, "Full Range");
    }   
*/
    if (BIL.DPLOT.ImatGraf)
        GrafoIMG(ON_OFFLINEPLOT);

}

Here is the call graph for this function:

Here is the caller graph for this function:

PlotSpectrum()

void PlotSpectrum	(	MOBJECT	obj,
		MOBJECT	pb[],
		MIMAGE	mim,
		unsigned short	plotmat[],
		int	idx,
		int	idy,
		unsigned long	pe[],
		double	costx,
		double	costy,
		int	min,
		int	max,
		int	ox,
		int	oy,
		int	bp,
		int	hlb,
		int	hla
	)

Definition at line 796 of file Spat_Plot.c.

References DrawImg(), MIMAGE_DESCR::img_h, MDrawLine(), MObjectBackgroundColor(), MObjectSetColor(), MTCL, mtcl::white, and mtcl::yellow.

Referenced by DrawAreaPlotCB().

{
    int t, j;
    int X1, X, Y1, Y;
    MTColor temp;
    for(t = hlb ; t < idy - hla ; t++)
    {
        temp = MObjectBackgroundColor(pb[t]);
        if (temp != MTCL.yellow)
        {
            MObjectSetColor(pb[t], pe[t], MTCL.white);
            for(j = 5; j < idx ; j++)
            {   
                if (bp != 0)
                {
                    if (j < idx - bp)
                    {
                        X = (int) (ox + (j *  costx));
                        Y = (int) (oy - abs((int)((double)(plotmat[t * idx + j] - min) / costy)));
                        //Y = (int) (oy - ((plotmat[t * idx + j] - min) / costy));
                        X1 = (int) (ox + (j + 1) * costx);
                        Y1 = (int) (oy - abs((int)((double)(plotmat[t * idx + j + 1] - min) / costy)));
                        //Y1 = (int) (oy - ((plotmat[t * idx + j + 1] - min) / costy));
                        MDrawLine(obj, X, Y, X1, Y1, pe[t]);        
                        if ((Y <= (int)mim->img_h) & (Y > 0))
                        DrawImg(mim, t , j, X, Y);
                        
                    }
                }
                else
                {
                        X = (int) (ox + (j *  costx));
                        Y = (int) (oy - abs((int)((double)(plotmat[t * idx + j] - min) / costy)));
                        //Y = (int) (oy - ((plotmat[t * idx + j] - min) / costy));
                        X1 = (int) (ox + (j + 1) * costx);
                        Y1 = (int) (oy - abs((int)((double)(plotmat[t * idx + j + 1] - min) / costy)));
                        //Y1 = (int) (oy - ((plotmat[t * idx + j + 1] - min) / costy));
                        MDrawLine(obj, X, Y, X1, Y1, pe[t]);        
                        if ((Y <= (int)mim->img_h) & (Y > 0))
                        DrawImg(mim, t , j, X, Y);

                }
            }
        }
    }

}

Here is the call graph for this function:

Here is the caller graph for this function:

PlotToolsPBs()

void PlotToolsPBs	(	MOBJECT	o,
		void *	id,
		void *	a_data
	)

Definition at line 2772 of file Spat_Plot.c.

References _MAX_PATH, FB_PREFS::allow_dir_create, FB_PREFS::allow_dir_delete, FB_PREFS::allow_dir_rename, FB_PREFS::bg_image_file, BuildLogRatio(), FB_PREFS::button_font, FB_PREFS::change_cwd, d_fileman::DBFILENAME, bil::DFILEM, False, FB_PREFS::font, HELV_SMALL, d_fileman::HOMEDIRECTORY, LoadIo(), MFileBrowseExt(), MGetCurrentDirectory(), FB_PREFS::transparent_tree, and True.

Referenced by D_PlotTools().

{
    int c = (int) a_data, er =0;
//  int l;
    char buff[32],str[_MAX_PATH] ;
    char fname[128], dirname[128];

    FB_PREFS fbp;
    strcpy (dirname, MGetCurrentDirectory ());
    fname[0] = '\0';
    memset (&fbp, 0, sizeof (fbp));
 
    fbp.change_cwd = True;
    fbp.allow_dir_create = True;
    fbp.allow_dir_rename = True;
    fbp.allow_dir_delete = True;
    fbp.transparent_tree = False;
    fbp.font = HELV_SMALL;
    fbp.button_font = HELV_SMALL;
    //Set Img file
    sprintf(str, "%s\\%s", BIL.DFILEM.HOMEDIRECTORY, "sys\\Tile2.bmp" );
    fbp.bg_image_file =str;
    
    
    switch (c)
    {
        case 0:
            sprintf(buff,"1234");
                er = MFileBrowseExt ("Select Io File", "*.*", fname, dirname, &fbp);
            if(er)
            {
                sprintf(BIL.DFILEM.DBFILENAME,"%s%s",dirname, fname);
                LoadIo(0,BIL.DFILEM.DBFILENAME);
            }
            break;
        case 1:
            break;
        case 2:
            BuildLogRatio();
            break;
    }

}

Here is the call graph for this function:

Here is the caller graph for this function:

PopUp_CB()

void PopUp_CB	(	MOBJECT	obj,
		void *	item,
		void *	data
	)

Definition at line 3584 of file Spat_Plot.c.

References _MAX_PATH, d_fileman::DATADIRECTORY, DB_Save(), d_fileman::DBFILENAME, bil::DFILEM, DI_FindExtName(), das::DOption, flagclear, MInputPrompt(), MMenuItemGetText(), MMenuItemSetText(), MMessageDialog(), MObjectMap(), MObjectRedraw(), MObjectUnmap(), NFileNameF, and optionini::savingmode.

Referenced by ViewPlot().

{
    int c = (int) data;
    char buf[32], str[_MAX_PATH];
    char fext[4];

    switch (c)
    {
    case 0:
    case 1:
    case 2:
    case 3:
    case 4:
    case 5:

        strcpy (buf, MMenuItemGetText (item));
        if(strcmp(buf, "Empty")==0)
        {
            if(MInputPrompt("Set File Name", "Type the new file name (with or without extension!)", buf, 31, "Exec", "Cancel"))
            {
                if(strcmp(buf, "Empty") != 0)
                {
                    MMenuItemSetText (item, buf);
                    MMessageDialog("DAS information", "Now you can save the spectrum.", " Ok ", NULL);
                }
            }
        }
        else
        {
            if (flagclear == 1)
            {
                flagclear = 0;
                MMenuItemSetText (item, "Empty" );
            }
            else
            {
            sprintf(NFileNameF,buf);        
            //check the presence of the extension
                    DI_FindExtName(NFileNameF, fext);
                    if( strcmp(fext,"") == 0 )
                    {
                        if(DAS.DOption.savingmode)
                            strcat(NFileNameF, ".bif");
                        else
                            strcat(NFileNameF, ".dat");
                    }
                    //check the the extension
                    DI_FindExtName(NFileNameF, fext);
                    if( (strcmp(fext,".dat") == 0) | (strcmp(fext,".Dat") == 0) | (strcmp(fext,".DAT") == 0) )
                    {
                        sprintf(BIL.DFILEM.DBFILENAME,"%s\\%s",BIL.DFILEM.DATADIRECTORY, NFileNameF);
                        DB_Save(BIL.DFILEM.DBFILENAME, 0);
                        sprintf(str, "Spectrum Saved on file %s", BIL.DFILEM.DBFILENAME);
                        MMessageDialog("DAS Inf.", str, "OK", NULL);

                    }
                    else if( (strcmp(fext,".bif") == 0) | (strcmp(fext,".Bif") == 0)| (strcmp(fext,".BIF") == 0)  )
                    {
                        sprintf(BIL.DFILEM.DBFILENAME,"%s\\%s",BIL.DFILEM.DATADIRECTORY, NFileNameF);
                        DB_Save(BIL.DFILEM.DBFILENAME, 1);
                        sprintf(str, "Spectrum Saved on file %s", BIL.DFILEM.DBFILENAME);
                        MMessageDialog("DAS Inf.", str, "OK", NULL);

                    }
                    else
                    {
                        sprintf(buf, "The extension is not recognaized ",fext);
                        MMessageDialog("DAS information", buf, " Ok ", NULL);
                        break;
                    }
            }
        }
        break;
    case 6:
        MObjectUnmap(obj);
        flagclear = 1;
        
//      for (i=0;i<6;i++)
//          MMenuItemSetText (item, );
        //item_pd = MMenuAddItemObsolete(popup_pd, ffilenames[i], PopUp_CB, (void *) i);

        MObjectRedraw(obj);
        MObjectMap(obj);
/*      MObjectUnmap(MOBJECT obj);
        void MObjectResize(MOBJECT obj, int w, int h);
        void MObjectDestroy(MOBJECT obj);
            MMenuItemSetText (item , "Empty");
*/          
        break;
    

    }


}

Here is the call graph for this function:

Here is the caller graph for this function:

PopupMenuCB()

void PopupMenuCB	(	MOBJECT	obj,
		MEvent *	pe,
		void *	pdown
	)

Definition at line 3688 of file Spat_Plot.c.

References MMouseEvent::button, MObjectGetText(), MEvent::mouse, MPopupMenu(), MMouseEvent::x_root, and MMouseEvent::y_root.

Referenced by ViewPlot().

{
  
    char buf[16];

    MObjectGetText(obj, buf);
    if(strcmp(buf,"Save As")== 0)
    {
        if (pe->mouse.button == Button3)
            MPopupMenu ((MOBJECT) pdown, pe->mouse.x_root, pe->mouse.y_root);
    }
}

Here is the call graph for this function:

Here is the caller graph for this function:

PoslblX()

void PoslblX	(	MOBJECT	lbl,
		int	xs,
		int	xe,
		int	xc
	)

Definition at line 516 of file Spat_Plot.c.

References viewformobj::lblX, MObjectSetText(), and bil::VFO.

Referenced by D_pbr_CB(), and DrawAreaPlotCB().

{
    int xd, i,k, xinf,xsup;
    char buf[16];
    int linter;
    double linterinf, lintersup;

    

    if (xc)
    {
        k = (sizeof BIL.VFO.lblX / sizeof BIL.VFO.lblX[0] ); // number of labels

        sprintf(buf,"%d", xs);
        MObjectSetText(BIL.VFO.lblX[0], buf);
        
        sprintf(buf,"%d", xc);
        MObjectSetText(BIL.VFO.lblX[k/2], buf);

        sprintf(buf,"%d", xe);
        MObjectSetText(BIL.VFO.lblX[k -1], buf);
        

        xinf = xc - xs;
        xsup = xe - xc;
        
        linterinf = (double)xinf / (k/2);
        lintersup = (double)xsup / (k/2);

        for (i = k/2 - 1 ;i> 0; i--)
        {
            sprintf(buf,"%.0lf", xc - ((k/2 - i) * linterinf) );

            MObjectSetText(BIL.VFO.lblX[i], buf);   
        }
        for (i = k/2 + 1 ;i< k - 1; i++)
        {
            sprintf(buf,"%.0lf", xc + ((i - k/2) * lintersup) );

            MObjectSetText(BIL.VFO.lblX[i], buf);   
        }

    }
    else
    {
        xd = xe - xs + 1;
        linter = xd / (sizeof BIL.VFO.lblX / sizeof BIL.VFO.lblX[0] - 1);
        k = (sizeof BIL.VFO.lblX / sizeof BIL.VFO.lblX[0] );

        xc = xd / 2;
        sprintf(buf,"%d", xc);
        MObjectSetText(BIL.VFO.lblX[k/2], buf);
    }

}

Here is the call graph for this function:

Here is the caller graph for this function:

PoslblY()

void PoslblY	(	unsigned int	l,
		unsigned int	h
	)

Definition at line 575 of file Spat_Plot.c.

References viewformobj::lblY, MObjectSetText(), and bil::VFO.

Referenced by D_pbr_CB(), and DrawAreaPlotCB().

{

    unsigned int yd, i,k;
    char buf[16];
    unsigned int lintery;
    yd = h - l;
    lintery = yd / (sizeof BIL.VFO.lblY / sizeof BIL.VFO.lblY[0] - 1);
    
    k=sizeof BIL.VFO.lblY / sizeof BIL.VFO.lblY[0];
    for (i =l;i<= h;i+=lintery)
    {
        sprintf(buf,"%u", i);
        if(k==1)
            sprintf(buf,"%u", h);
        MObjectSetText(BIL.VFO.lblY[k-1], buf);
        k--;
    }
}

Here is the call graph for this function:

Here is the caller graph for this function:

ReadHeader_ASCII()

int ReadHeader_ASCII	(	int	mod,
		FILE *	fd
	)

Read ASCII Header of the measurement.
.

Parameters

mod	= 0 –> Read header only = 1 –> Assign Header to plot labels

Returns

int = 1 –> EOF reached

Definition at line 1877 of file Spat_Plot.c.

References spectrumheader::altitude, BlindPix, spectrumheader::ccdex, spectrumheader::ccdey, spectrumheader::ccdmax, spectrumheader::ccdmin, spectrumheader::ccdnr, spectrumheader::ccdsx, spectrumheader::ccdsy, spectrumheader::ccdtemp, spectrumheader::ccdtexp, spectrumheader::ccdvb, spectrumheader::ccdwx, spectrumheader::ccdwy, ch, spectrumheader::comment, D_AssignLabelPlot(), ddate::da_day, ddate::da_mon, ddate::da_year, spectrumheader::DATE, spectrumheader::dummy1, spectrumheader::dummy2, spectrumheader::dummy3, spectrumheader::dummy4, spectrumheader::filpos, IDX, IDY, spectrumheader::imgtype, spectrumheader::latitude, spectrumheader::location, spectrumheader::longitude, spectrumheader::mirpos, bil::SPH, spectrumheader::StrDate, spectrumheader::StrTime, spectrumheader::sza, dtime::ti_hour, dtime::ti_min, dtime::ti_sec, spectrumheader::TIME, and spectrumheader::wavelen.

Referenced by DatOrBinFormat(), DB_Column(), LoadIo(), ViewNext(), and Visualizza().

{


    int     er = 0;
    unsigned char   str[128], temp[12], buf[64];
    unsigned char ribuf[255];   
    int NewnR = 0, l = 0 ;
    unsigned int i, ch;
//  long llong= 0;

    if(feof( fd ))
        {
            return 1;
        }
    else
    {

    er = fscanf(fd, "%s%s%s%f%s%f%s%u%s%f", temp, BIL.SPH.location, temp, &BIL.SPH.latitude,
        temp, &BIL.SPH.longitude, temp, &BIL.SPH.altitude, temp, &BIL.SPH.sza);

    er = fscanf(fd, "%s %s %s %s %d %s %f %f %u %u", BIL.SPH.StrDate, BIL.SPH.StrTime, temp, BIL.SPH.mirpos, &BIL.SPH.wavelen,
        BIL.SPH.filpos, &BIL.SPH.ccdtemp, &BIL.SPH.ccdtexp, &BIL.SPH.ccdmax,
        &BIL.SPH.ccdmin);
    
    /*********************************/
    // Build the Date
    strncpy(str,BIL.SPH.StrDate,4);
    BIL.SPH.DATE.da_year = atoi(str);   
    
    strncpy(buf,BIL.SPH.StrDate + 5, 2);
    BIL.SPH.DATE.da_mon = atoi(buf);
    
    strncpy(buf, BIL.SPH.StrDate + 8, 2);
    BIL.SPH.DATE.da_day = atoi(buf);
    /*********************************/
    /*********************************/
    // Build the time
    strncpy(buf, BIL.SPH.StrTime,2);
    BIL.SPH.TIME.ti_hour = atoi(buf);
    
    strncpy(buf,BIL.SPH.StrTime + 3 ,2);
    BIL.SPH.TIME.ti_min = atoi(buf); 

    strncpy(buf,BIL.SPH.StrTime + 6 ,2);
    BIL.SPH.TIME.ti_sec = atoi(buf);
    /*********************************/

    er = fscanf(fd, "%d%d%d%d%d%d%d%d%d%d%d%d%d", &BIL.SPH.imgtype, &BIL.SPH.ccdwx, &BIL.SPH.ccdwy,
        &BIL.SPH.ccdsx, &BIL.SPH.ccdsy, &BIL.SPH.ccdex, &BIL.SPH.ccdey, &BIL.SPH.ccdvb,
        &BIL.SPH.ccdnr, &BIL.SPH.dummy1, &BIL.SPH.dummy2, &BIL.SPH.dummy3, &BIL.SPH.dummy4);

    ch = getc(fd);
    ch = getc(fd);
    //er = fscanf(fd, "%s", BIL.SPH.comment); 
    //fgets(str, 80, fd);

 
 
//for( i = 0; (i < 255) &&  ((ch = getc(fd)) != EOF) && (ch != '\n'); i++ )
//  for( i = 0; i < 255; i++ )
    i=0;
    do
    {
      
       ribuf[i] = (unsigned char)ch;
       ch = getc(fd);
       i++;
    }while (ch != 10);
   /* Terminate string with null character: */
    ribuf[i] = '\0';

    sprintf(BIL.SPH.comment, "%s", ribuf);

  //  MMessageDialog("DAS Alert", BIL.SPH.comment, "ok", NULL);


    if(mod)
        D_AssignLabelPlot();
    
    }

    IDX = BIL.SPH.ccdwx;
    IDY = BIL.SPH.ccdnr;

    if(BIL.SPH.ccdnr == 253)
    {
        IDY = IDY + 1;
    }

    if (BIL.SPH.ccdwx - (BIL.SPH.ccdex +1) != 0) // se i pixel del sensore sono piu' di quelli in param.ini
    {
        
        BlindPix  = BIL.SPH.ccdwx - (BIL.SPH.ccdex +1) ;

    }
//  llong = ftell( fd );


    return 0;
}

Here is the call graph for this function:

Here is the caller graph for this function:

ReadHeader_BIN()

int ReadHeader_BIN

(

int

fd

)

read the BINARY header of the stored spectrum

Parameters

fd	number of source file

Definition at line 1798 of file Spat_Plot.c.

References spectrumheader::altitude, BlindPix, spectrumheader::ccdex, spectrumheader::ccdey, spectrumheader::ccdmax, spectrumheader::ccdnr, spectrumheader::ccdsx, spectrumheader::ccdsy, spectrumheader::ccdtemp, spectrumheader::ccdtexp, spectrumheader::ccdvb, spectrumheader::ccdwx, spectrumheader::ccdwy, spectrumheader::comment, spectrumheader::DATE, spectrumheader::dummy1, spectrumheader::dummy2, spectrumheader::dummy3, spectrumheader::dummy4, spectrumheader::filpos, IDX, IDY, spectrumheader::imgtype, spectrumheader::latitude, spectrumheader::location, spectrumheader::longitude, spectrumheader::mirpos, bil::SPH, spectrumheader::sza, spectrumheader::TIME, and spectrumheader::wavelen.

Referenced by DatOrBinFormat(), DB_CalcFluxI(), DB_Column(), ViewNext_BIN(), and Visualizza().

{

    unsigned long       info = 0;
    


    if(eof( fd ))
        {
            return 1;
        }
    else
    {

    info =0;

    info += read(fd, BIL.SPH.location, sizeof(BIL.SPH.location));
    info += read(fd, &BIL.SPH.latitude, sizeof(BIL.SPH.latitude));
    info += read(fd, &BIL.SPH.longitude, sizeof(BIL.SPH.longitude));
    info += read(fd, &BIL.SPH.altitude, sizeof(BIL.SPH.altitude));
    info += read(fd, &BIL.SPH.sza, sizeof(BIL.SPH.sza));
    info += read(fd, &BIL.SPH.DATE, sizeof(struct ddate));
    info += read(fd, &BIL.SPH.TIME, sizeof(struct dtime));

    info += read(fd, BIL.SPH.mirpos, sizeof(BIL.SPH.mirpos));
    info += read(fd, &BIL.SPH.wavelen, sizeof(BIL.SPH.wavelen));
    info += read(fd, BIL.SPH.filpos, sizeof(BIL.SPH.filpos));

    info += read(fd, &BIL.SPH.ccdtemp, sizeof(BIL.SPH.ccdtemp));
    info += read(fd, &BIL.SPH.ccdtexp, sizeof(BIL.SPH.ccdtexp));
    info += read(fd, &BIL.SPH.ccdmax, sizeof(BIL.SPH.ccdmax));
    //Attenzione - manca il valore del minimo ( anche nella routine di scrittura)
    info += read(fd, &BIL.SPH.imgtype, sizeof(BIL.SPH.imgtype));
    info += read(fd, &BIL.SPH.ccdwx, sizeof(BIL.SPH.ccdwx));
    info += read(fd, &BIL.SPH.ccdwy, sizeof(BIL.SPH.ccdwy));
    info += read(fd, &BIL.SPH.ccdsx, sizeof(BIL.SPH.ccdsx));
    info += read(fd, &BIL.SPH.ccdsy, sizeof(BIL.SPH.ccdsy));
    info += read(fd, &BIL.SPH.ccdex, sizeof(BIL.SPH.ccdex));
    info += read(fd, &BIL.SPH.ccdey, sizeof(BIL.SPH.ccdey));
    info += read(fd, &BIL.SPH.ccdvb, sizeof(BIL.SPH.ccdvb));
    info += read(fd, &BIL.SPH.ccdnr, sizeof(BIL.SPH.ccdnr));
    info += read(fd, &BIL.SPH.dummy1, sizeof(BIL.SPH.dummy1));
    info += read(fd, &BIL.SPH.dummy2, sizeof(BIL.SPH.dummy2));
    info += read(fd, &BIL.SPH.dummy3, sizeof(BIL.SPH.dummy3));
    info += read(fd, &BIL.SPH.dummy4, sizeof(BIL.SPH.dummy4));
    info += read(fd, &BIL.SPH.comment, sizeof(BIL.SPH.comment));        


    IDX = BIL.SPH.ccdwx;

    // !!!!ATTENTION!!!! This is only for the CCD30-11 OE FI- Please check where is defined 
    // the IDY in the Main Program for the Data Acquisition
    //if (DAS.Paramini.EqType == SPATRAM2 || DAS.Paramini.EqType == GASCODNG3 || DAS.Paramini.EqType == GASCODNG4)
    if(BIL.SPH.ccdwy == 256)
        IDY = BIL.SPH.ccdnr+1;
    else
        IDY = BIL.SPH.ccdnr;
    if(BIL.SPH.ccdnr == 253)
    {
        IDY = IDY + 1;
    }

    if (BIL.SPH.ccdwx - (BIL.SPH.ccdex +1) != 0) // se i pixel del sensore sono piu' di quelli in param.ini
    {
        
        BlindPix  = BIL.SPH.ccdwx - (BIL.SPH.ccdex +1) ;

    }

//  D_AssignLabelPlot();
    }
    return 0;

}

Here is the caller graph for this function:

ReadIMG()

void ReadIMG	(	FILE *	file,
		unsigned short *	mat,
		int	hp,
		int	vp
	)

Read ASCII Image (Spectral Data only)
.

Parameters

*file	= ASCII file number
*mat	= image buffer
hp	= horizontal pixels
vp	= vertical pixels

Definition at line 1206 of file Spat_Plot.c.

Referenced by DatOrBinFormat(), DB_Column(), DT_CorrFileEvora(), DT_CorrHeader(), LoadIo(), ViewNext(), and Visualizza().

{

    
    int x, y;

    for(y = 0; y < vp; y++)
    {
        for(x = 0; x < hp; x++)
        {
                fscanf(file, "%5u ", &mat[y * hp + x]);
        }
    }
}

Here is the caller graph for this function:

ReadIMG_BIN()

void ReadIMG_BIN	(	int	fd,
		unsigned short *	mat,
		int	hp,
		int	vp
	)

read the BINARY stored spectrum

Parameters

fd	number of source file
*mat	destination buffer
hp	horizontal pixels
vp	vertical pixels

Definition at line 1166 of file Spat_Plot.c.

Referenced by DatOrBinFormat(), DB_CalcFluxI(), DB_Column(), ViewNext_BIN(), and Visualizza().

{
    int x, y;
    
        for(x = 0; x < hp; x++)
        {
            for(y = 0; y < vp; y++)
                read(fd, &mat[y * hp + x], 2);
            
        }
}

Here is the caller graph for this function:

ReadIMG_old()

void ReadIMG_old	(	FILE *	file,
		int	hp,
		int	vp
	)

NOT Used
.

Definition at line 1136 of file Spat_Plot.c.

References bil::DPLOT, and d_view::ImatGraf.

{

    
    int x, y;

    for(y = 0; y < vp; y++)
    {
        for(x = 0; x < hp; x++)
        {
                fscanf(file, "%5u ", &BIL.DPLOT.ImatGraf[y * hp + x]);
        }
    }
}

SaveImage()

int SaveImage	(	int	fmt,
		int	imgw,
		int	imgh,
		int	np
	)

Definition at line 2485 of file Spat_Plot.c.

{

/*  

    maxplotw = MObjectGetWidth(BIL.VFO.View_Sh); 
    maxploth = MObjectGetHeight(BIL.VFO.View_Sh);  
    BIL.VFO.dimg = MAllocImage(maxplotw, maxploth, 24);

    InitImage(BIL.VFO.dimg, maxplotw, maxploth, 192, 192, 192);
    
    for(x = 0; x < maxplotw ; maxplotw++)
        for(y = 0; y < maxploth ; maxploth++)
        {
            MObjectGetPixelRGB(BIL.VFO.View_Sh, r, g, b); 
            MImageSetPixelRGB(BIL.VFO.dimg, x , y, r, g, b);
        }
    }

    MInstallImage(BIL.VFO.dimg);
    MDrawImage(lensdraw, lensmim, 0, 0, wx * p, wy * p, 0, 0);
    MUninstallImage(lensmim);


*/

    return 0;
}

SaveIo()

int SaveIo

(

char *

buff

)

Definition at line 3069 of file Spat_Plot.c.

References AllocUSMat(), D_Print_BIL_H_ASCII(), bil::DPLOT, IDX, IDY, d_view::ImatGraf, doas::IoMat, and SwapMatrix().

Referenced by SetAsIo().

{
    FILE    *fs;
    int x, y;

    DOAS.IoMat = AllocUSMat(IDX, IDY);
    
    fs = fopen(buff, "w");
        if(fs < 0) return 1;

        // Print on file the header
    D_Print_BIL_H_ASCII(0, fs);

    
    for(y = 0; y < IDY; y++)
    {
        for(x = 0; x < IDX; x++)
        {
            if((x % 10) == 0)
            {
                if(y == 0 && x == 0)
                {
                }
                else
                    fprintf(fs, "\n", NULL);
            }   
            fprintf(fs, " %5u", BIL.DPLOT.ImatGraf[y * IDX + x]);
        }
        
    }
    fprintf(fs, "\n", NULL);

/*
    for(x = 0; x < IDX  ; x++)
    {
        
        fprintf(fs, " %7.3f", DOAS.lambda[x]);
        for(y = 0; y < IDY; y++)
        {
            fprintf(fs, " %5u", BIL.DPLOT.ImatGraf[y * IDX + x]);

        }
        fprintf(fs, "\n", NULL);
    }
*/ 
    fclose(fs);


    SwapMatrix(BIL.DPLOT.ImatGraf, DOAS.IoMat, IDX, IDY);
//  MMessageDialog("DAS information", buff, "ok", NULL);
    return 0;
}

Here is the call graph for this function:

Here is the caller graph for this function:

SaveSpectrum()

int SaveSpectrum

(

char *

buff

)

Definition at line 3162 of file Spat_Plot.c.

References FLAG, IDY, MMessageDialog(), flag::Wl, and WriteSelColandSmoothed().

Referenced by MenuFileOLP_CB().

{
    FILE    *fs;
    char str[128];
//  int x, y;
    fs = fopen(buff, "a");
        if(fs < 0) return 1;

        //WriteColumn( FLAG.Wl ,fs);
        WriteSelColandSmoothed(FLAG.Wl ,fs, IDY/2);
    fclose(fs);

    sprintf(str, " Line # %d, saved on file %s .",IDY/2, buff);
    MMessageDialog ("DAS Info", str, "OK",NULL); 
    return 0;
}

Here is the call graph for this function:

Here is the caller graph for this function:

SetAsIo()

int SetAsIo

(

void

)

Definition at line 3126 of file Spat_Plot.c.

References d_fileman::DBFILENAME, bil::DFILEM, FDAT, FSAVE, d_fileman::HOMEDIRECTORY, doas::IoFileNeme, MDCreateFM_Shell(), MMessageDialog(), SaveIo(), bil::SPH, and spectrumheader::wavelen.

Referenced by D_PButt_CB().

{

    char buf[MAX_PATH],str[MAX_PATH];
    char filedatan[32];
    int er;
    
    sprintf(filedatan, "Io_%d.ref",BIL.SPH.wavelen);    
    
    sprintf(buf,"\\%s\\%s\\%s", "DOAS", "Io",filedatan);
    strcpy(str, BIL.DFILEM.HOMEDIRECTORY);
    strcat(str,buf);
    
    sprintf(buf, "Do you want to save the Io file as:\n%s ?", str);
    er = MMessageDialog("DAS information", buf, "Yes", "No", "Cancel",NULL);
    if (er == 0)
    {
        SaveIo(str);
        sprintf(DOAS.IoFileNeme, "%s", str);
        return 2;
    }
    else if (er==1)
    {
        BIL.DFILEM.DBFILENAME[0] = 0;
        MDCreateFM_Shell(FSAVE, FDAT); //Save File as, Dat ext.
        SaveIo(BIL.DFILEM.DBFILENAME);
        sprintf(DOAS.IoFileNeme, "%s", BIL.DFILEM.DBFILENAME);
        return 1;
    }
    else
        return 0;


}

Here is the call graph for this function:

Here is the caller graph for this function:

SwapMatrix()

void SwapMatrix	(	unsigned short *	source,
		unsigned short *	dest,
		int	hp,
		int	vp
	)

Copy the source matrix in the Destination one
.

Parameters

*source	= source matrix (buffer)
*dest	= destination matrix (buffer)
hp	= horizontal pixels
vp	= vertical pixels

Definition at line 1979 of file Spat_Plot.c.

Referenced by DrawAreaPlotCB(), SaveIo(), ViewNext(), ViewNext_BIN(), and Visualizza().

{

    int t, j;

    for(t = 0 ; t < vp ; t++)
    {
        for(j = 0; j < hp; j++)
        {
            dest[t * hp + j] = source[t * hp + j];
        }
    }

}

Here is the caller graph for this function:

ViewNext()

int ViewNext

(

FILE *

nf

)

Definition at line 2365 of file Spat_Plot.c.

References AbsFilePos, bil::BLENS, CloseFile(), viewformobj::cmdpb, ContFP, DB_CloseImage(), DB_InitDil(), bil::DFILEM, DI_ImageProperties(), DI_Regen(), DI_ScanMaxMin(), DOASMODE, das::DOption, bil::DPLOT, d_view::drawapl, DrawButtons(), flag::exemode, Fitem, das::Flag, GrafoIMG(), img::High, optionini::hlineafter, optionini::hlinebefore, d_fileman::HOMEDIRECTORY, IDX, IDY, img::IHigh, img::ILow, img::Imat, d_view::ImatGraf, d_view::ImatOrig, dil::Img, blens::Imim, InitImage(), img::Low, image::Mat, maxploth, maxplotw, MMenuItemSetSensitive(), MMessageDialog(), MObjectSetBackgroundRGB(), MObjectSetSensitive(), MShellRaise(), OFFLINEPLOT, ON_OFFLINEPLOT, ReadHeader_ASCII(), ReadIMG(), REL_FILE_POS, Server, SwapMatrix(), bil::VFO, viewformobj::View_Sh, and d_fileman::WORKDIRECTORY.

Referenced by D_PButt_CB(), MenuFileOLP_CB(), and ViewPre().

{

    int er = 0, i;
    long XXX = 0;

    MObjectSetSensitive(BIL.VFO.cmdpb[8]); //Set button "Previuos" Sensitive
    if((DAS.Flag.exemode == OFFLINEPLOT) | (DAS.Flag.exemode == DOASMODE))
    {
        MMenuItemSetSensitive(Fitem[2]);
    }

        /********************************/
    AbsFilePos = ftell( nf );
        
    for (i = ContFP; i>0; i--)  
    {
        XXX = XXX + REL_FILE_POS[i];
    }

    ContFP++;   
    REL_FILE_POS[ContFP] = AbsFilePos ;
        /***************************************/
    
    er = ReadHeader_ASCII(1, nf);
    if (er) 
    {
        er = MMessageDialog("DAS information", "End Of File reached.\n Do you want to close the file ?" , "Yes", "No", NULL);
        if (er)
            return 1;
        else
            CloseFile(nf, IDX, IDY);        //Raggiunta fine del file
            MObjectSetBackgroundRGB(BIL.DPLOT.drawapl, 220, 220, 220);      
    }
    else
    {
        DrawButtons(DAS.DOption.hlinebefore, DAS.DOption.hlineafter , IDY);

        InitImage(BIL.BLENS.Imim, maxplotw, maxploth, 192, 192, 192);
    

        
        ReadIMG(nf, BIL.DPLOT.ImatOrig, IDX, IDY);


        GrafoIMG(ON_OFFLINEPLOT);

        if((DAS.Flag.exemode == OFFLINEPLOT) | (DAS.Flag.exemode == DOASMODE))
        {
            DB_CloseImage(Server);
            
            _chdir(BIL.DFILEM.HOMEDIRECTORY);
            DB_InitDil();
            _chdir(BIL.DFILEM.WORKDIRECTORY);
    
            SwapMatrix(BIL.DPLOT.ImatGraf, DIL.Img.Mat[Server].Imat, IDX, IDY);

            // Y Zoom for high vertical binning
            if((IDY) < 50)
            DI_ImageProperties(Server, (U16)IDX, (U16)IDY, (U16)IDX, (U16)IDY, 0, 0, NULL, 1, 100 / IDY, 0);
//          Image[Server].attrib = 1;
            DI_Regen(Server);


            DI_ScanMaxMin(Server, &DIL.Img.Mat[Server].High, &DIL.Img.Mat[Server].Low);         
            DIL.Img.Mat[Server].ILow = DIL.Img.Mat[Server].Low ;
            DIL.Img.Mat[Server].IHigh = DIL.Img.Mat[Server].High ;
            DI_Regen(Server);
        }
    }
        //The focus taken by the Plot shell
        MShellRaise(BIL.VFO.View_Sh);

    return 0;
}

Here is the call graph for this function:

Here is the caller graph for this function:

ViewNext_BIN()

int ViewNext_BIN

(

int

nf

)

Definition at line 2284 of file Spat_Plot.c.

References AbsFilePos, bil::BLENS, CloseFile_BIN(), viewformobj::cmdpb, ContFP, D_AssignLabelPlot(), DB_CloseImage(), DB_InitDil(), bil::DFILEM, DI_ImageProperties(), DI_Regen(), DI_ScanMaxMin(), DOASMODE, das::DOption, bil::DPLOT, d_view::drawapl, DrawButtons(), flag::exemode, Fitem, das::Flag, GrafoIMG(), img::High, optionini::hlineafter, optionini::hlinebefore, d_fileman::HOMEDIRECTORY, IDX, IDY, img::IHigh, img::ILow, img::Imat, d_view::ImatGraf, d_view::ImatOrig, dil::Img, blens::Imim, d_view::Imin, InitImage(), viewformobj::lblmin, img::Low, image::Mat, maxploth, maxplotw, MMenuItemSetSensitive(), MMessageDialog(), MObjectSetBackgroundRGB(), MObjectSetSensitive(), MObjectSetText(), MShellRaise(), OFFLINEPLOT, ON_OFFLINEPLOT, ReadHeader_BIN(), ReadIMG_BIN(), REL_FILE_POS, Server, SwapMatrix(), bil::VFO, viewformobj::View_Sh, and d_fileman::WORKDIRECTORY.

Referenced by D_PButt_CB(), MenuFileOLP_CB(), and ViewPre_BIN().

{

    int er = 0, i;
    long XXX = 0;
    char str[32];

    MObjectSetSensitive(BIL.VFO.cmdpb[8]); //Set button "Previuos" Sensitive
    if((DAS.Flag.exemode == OFFLINEPLOT) | (DAS.Flag.exemode == DOASMODE))
    {
        MMenuItemSetSensitive(Fitem[2]);
    }

        /********************************/
    AbsFilePos = tell( nf );
        
    for (i = ContFP; i>0; i--)  
    {
        XXX = XXX + REL_FILE_POS[i];
    }

    ContFP++;   
    REL_FILE_POS[ContFP] = AbsFilePos ;
        /***************************************/
    
    er = ReadHeader_BIN(nf);
    D_AssignLabelPlot();
    if (er) 
    {
        er = MMessageDialog("DAS information", "End Of File reached.\n Do you want to close the file ?" , "Yes", "No", NULL);
        if (er)
            return 1;
        else
            CloseFile_BIN(nf, IDX, IDY);        //Raggiunta fine del file
            MObjectSetBackgroundRGB(BIL.DPLOT.drawapl, 220, 220, 220);      
    }
    else
    {
        DrawButtons(DAS.DOption.hlinebefore, DAS.DOption.hlineafter , IDY);

        InitImage(BIL.BLENS.Imim, maxplotw, maxploth, 192, 192, 192);
    

        
        ReadIMG_BIN(nf, BIL.DPLOT.ImatOrig, IDX, IDY);


        GrafoIMG(ON_OFFLINEPLOT);

        sprintf(str,"%u", BIL.DPLOT.Imin);
        MObjectSetText(BIL.VFO.lblmin, str);

        if(DAS.Flag.exemode == OFFLINEPLOT)
        {
            DB_CloseImage(Server);
            
            _chdir(BIL.DFILEM.HOMEDIRECTORY);
            DB_InitDil();
            _chdir(BIL.DFILEM.WORKDIRECTORY);
    
            SwapMatrix(BIL.DPLOT.ImatGraf, DIL.Img.Mat[Server].Imat, IDX, IDY);

            // Y Zoom for high vertical binning
            if((IDY) < 50)
            DI_ImageProperties(Server, (U16)IDX, (U16)IDY, (U16)IDX, (U16)IDY, 0, 0, NULL, 1, 100 / IDY, 0);
//          Image[Server].attrib = 1;
            DI_Regen(Server);

            DI_ScanMaxMin(Server, &DIL.Img.Mat[Server].High, &DIL.Img.Mat[Server].Low);         
            DIL.Img.Mat[Server].ILow = DIL.Img.Mat[Server].Low ;
            DIL.Img.Mat[Server].IHigh = DIL.Img.Mat[Server].High ;
            DI_Regen(Server);
        }
    }

    //The focus taken by the Plot shell
    MShellRaise(BIL.VFO.View_Sh);

    return 0;
}

Here is the call graph for this function:

Here is the caller graph for this function:

ViewPlot()

int ViewPlot

(

int

mod

)

Create the plot shell. Procedure that build the plot shell for the data visualization.

Parameters

mod	= 0 –> Off Line Plot = 1 –> On Line Plot

Returns

void

Definition at line 3775 of file Spat_Plot.c.

References _MAX_PATH, alfont, bil::BLENS, BOTTOM_ALIGN, CENTER_ALIGN, ClosePlotCB(), viewformobj::cmdpb, D_pbr_CB(), D_PButt_CB(), DB_AreaInput(), palette::DB_BG, palette::DB_BG_Albl, palette::DB_BG_Plbl, DB_EqTypePlotCB(), palette::DB_FG_Albl, palette::DB_FG_Plbl, palette::DB_UnSel, DB_XUnitsCB(), delay(), dmenu, DOASMODE, das::DOption, bil::DPLOT, d_view::drawapl, DrawAreaPlotCB(), EM_BUTTON_PRESS, paramini::EqType, flag::exec, flag::exemode, F10, False, ffilenames, Fitem, FIXED_SMALL, FLAG, das::Flag, Fmenu, viewformobj::formbutt, HELV_SMALL, optionini::hlineafter, optionini::hlinebefore, IDY, blens::Imim, InitImage(), item_pd, lbl, viewformobj::lblalt, viewformobj::lblAzimuth, viewformobj::lblccdex, viewformobj::lblccdey, viewformobj::lblccdsx, viewformobj::lblccdsy, viewformobj::lblccdtemp, viewformobj::lblccdtexp, viewformobj::lblccdwx, viewformobj::lblccdwy, viewformobj::lbldate, viewformobj::lblfilter, viewformobj::lbllat, viewformobj::lblloc, viewformobj::lbllong, viewformobj::lblmax, viewformobj::lblmin, viewformobj::lblmirpos, viewformobj::lblndfilter, viewformobj::lblnr, viewformobj::lblnummeas, viewformobj::lblsza, viewformobj::lbltime, viewformobj::lblvb, viewformobj::lblwaveleng, viewformobj::lblX, viewformobj::lblY, viewformobj::lblZenith, LEFT_ALIGN, MakeItemUnsensitiveCB(), MAllocImage(), Master, maxploth, maxplotw, MButtonSetOnMouseOverForegroundRGB(), MCreateColForm(), MCreateDrawArea(), MCreateLabel(), MCreateMenu(), MCreateMenuBar(), MCreatePButton(), MCreatePopupMenu(), MCreateRButton(), MCreateRowForm(), MCreateShell(), MCreateSubMenu(), MCreateTableForm(), MD_CreateBRowShell(), MDrawAreaSetExposeCallback(), MDrawAreaSetInputCallback(), menu, MenuFileOLP_CB(), MenuToolsOLP_CB(), MFormSetSpacing(), MGetScreenWidth(), MLabelSetAlignment(), MLabelSetMargin(), MMenuAddItem(), MMenuAddItemObsolete(), MMenuAddRadioItem(), MMenuBarSetAcc(), MMenuItemSetCheckStatus(), MObjectAddEventNotifyCallback(), MObjectAlign(), MObjectGetHeight(), MObjectGetWidth(), MObjectSetBackgroundRGB(), MObjectSetColor(), MObjectSetCompositeWidth(), MObjectSetFont(), MObjectSetForegroundRGB(), MObjectSetResize(), MObjectSetSensitive(), MObjectSetShadow(), MObjectSetTransparency(), MObjectSetUnsensitive(), MObjectUnmap(), MPButtonSetCallback(), MRButtonActivate(), MShellRealizeXY(), MTableFormSetColAlign(), MTableFormSetRowAlign(), MTCL, OFFLINEPLOT, d_view::OLDnR, ON_OFFLINEPLOT, Optmenu, das::Paramini, d_view::pbr, PButtSelAll_CB(), PBYScale_CB(), mtcl::PLColor, plfont, flag::plotYRange, PopUp_CB(), popup_pd, PopupMenuCB(), PrgFile, RIGHT_ALIGN, viewformobj::selallpb, submenu, Titem, Tmenu, TOP_ALIGN, True, UNDEF_ALIGN, bil::VFO, viewformobj::View_Sh, mtcl::white, flag::Wl, WS_ETCHED_IN, WS_NONE, WS_SHADOW_IN, viewformobj::XAxisU, viewformobj::xincr, viewformobj::xloc, viewformobj::yincr, viewformobj::yloc, and viewformobj::YScalePB.

Referenced by D_Plot(), DB_HorComm_CB(), DB_KeyB_CB(), E_Plot(), RunOLP(), and ViewCB().

{
    int i;
    int rformw,scrw;
    char buff[8];
    extern char PrgFile[_MAX_PATH];

    MOBJECT _tablefrm000;
    MOBJECT _rowform000;
    MOBJECT _tablefrm001;
    MOBJECT _colform000;
    MOBJECT _tablefrm002;
    MOBJECT _rowform001;
    MOBJECT _rowform002;
    MOBJECT _colform001;
    MOBJECT _colform002;

    MOBJECT _rowform003;
    MOBJECT _tablefrm003;
    MOBJECT _rowform004;
    MOBJECT _tablefrm004;
    MOBJECT _rowform005;
    MOBJECT _tablefrm005;
    MOBJECT _rowform006;
    MOBJECT _tablefrm006;
    MOBJECT lbl;
    MOBJECT tb, rb;


    plfont = FIXED_SMALL; 
    alfont = HELV_SMALL;

//      plfont = MLoadFont("Times", 16, False, False);
//      alfont = MLoadFont("Arial", 16, False, False);

    if (mod)
        ON_OFFLINEPLOT = 1;
    else
        ON_OFFLINEPLOT = 0;
    

    
    
    BIL.VFO.View_Sh = MCreateShell("PLOTTING File: None", 0);
    MFormSetSpacing(BIL.VFO.View_Sh, 1);
    MObjectSetBackgroundRGB(BIL.VFO.View_Sh, 0, 0, 0);
    MObjectSetResize(BIL.VFO.View_Sh, True, True);

/*++++++++++++++++++++++++++++++++++++++++++++++++++++++++++*/
//Menu
    if( (DAS.Flag.exemode == OFFLINEPLOT) | (DAS.Flag.exemode == DOASMODE))
    {
        MENU_ITEM   item;
        MOBJECT menu, dmenu, submenu;

        dmenu = MCreateMenuBar(BIL.VFO.View_Sh, HELV_SMALL);
        MObjectSetBackgroundRGB(dmenu, DPAL.DB_BG[0], DPAL.DB_BG[1], DPAL.DB_BG[2]);
        MObjectSetForegroundRGB(dmenu, DPAL.DB_FG_Plbl[0], DPAL.DB_FG_Plbl[1], DPAL.DB_FG_Plbl[2]);
        MObjectSetFont(dmenu, alfont, True);

        MMenuBarSetAcc(dmenu, F10);
        Fmenu = MCreateMenu(dmenu, "File");
        Fitem[0] = MMenuAddItem(Fmenu, "Open", (MENU_ITEM_CB) MenuFileOLP_CB, 0);
        Fitem[1] = MMenuAddItem(Fmenu, "Next", (MENU_ITEM_CB) MenuFileOLP_CB, (void *) 1);
            MakeItemUnsensitiveCB (Fmenu, Fitem[1], 0);
        Fitem[2] = MMenuAddItem(Fmenu, "Previous", (MENU_ITEM_CB) MenuFileOLP_CB, (void *)2);
            MakeItemUnsensitiveCB (Fmenu, Fitem[2], 0);
        Fitem[3] = MMenuAddItem(Fmenu, "Save As...", (MENU_ITEM_CB) MenuFileOLP_CB, (void *)3);
            MakeItemUnsensitiveCB (Fmenu, Fitem[3], 0);
        Fitem[4] = MMenuAddItem(Fmenu, "Close", (MENU_ITEM_CB) MenuFileOLP_CB, (void *)4);
            MakeItemUnsensitiveCB (Fmenu, Fitem[4], 0);
        Fitem[5] = MMenuAddItem(Fmenu, "Close Plot", (MENU_ITEM_CB) MenuFileOLP_CB, (void *)5);
            //MakeItemUnsensitiveCB (Fmenu, Fitem[5], 0);
        Tmenu = MCreateMenu(dmenu, "Tools");
        Titem[0] = MMenuAddItem(Tmenu, "Filter/Smooth", (MENU_ITEM_CB) MenuToolsOLP_CB, 0);
        Titem[1] = MMenuAddItem(Tmenu, "Zoom", (MENU_ITEM_CB) MenuToolsOLP_CB, (void *)1);
        Titem[2] = MMenuAddItem(Tmenu, "Sun calculator", (MENU_ITEM_CB) MenuToolsOLP_CB, (void *)2);
        Titem[3] = MMenuAddItem(Tmenu, "Print ", (MENU_ITEM_CB) MenuToolsOLP_CB, (void *)3);

        Optmenu = MCreateMenu(dmenu, "Options");
        item = MMenuAddItem(Optmenu, "X Units", (MENU_ITEM_CB) NULL, 0);
        submenu = MCreateSubMenu(item);     
          item = MMenuAddRadioItem(submenu, "Pixel", (MENU_ITEM_CB)DB_XUnitsCB, 0);
            if(FLAG.Wl == 0) 
                MMenuItemSetCheckStatus (item, True);   
          item = MMenuAddRadioItem(submenu, "Wl[A]", (MENU_ITEM_CB)DB_XUnitsCB, (void *)1);
            if(FLAG.Wl == 1) 
                MMenuItemSetCheckStatus (item, True);   
          item = MMenuAddRadioItem(submenu, "Wl[nm]", (MENU_ITEM_CB)DB_XUnitsCB, (void *)2);
            if(FLAG.Wl == 2) 
                MMenuItemSetCheckStatus (item, True);   
/*    if(FLAG.Wl == 0)
        MRButtonActivate(BIL.VFO.XAxisU[0]);
    else if(FLAG.Wl == 1)
        MRButtonActivate(BIL.VFO.XAxisU[1]);
    else if(FLAG.Wl == 2)
        MRButtonActivate(BIL.VFO.XAxisU[2]);

*/
        item = MMenuAddItem(Optmenu, "Y Scale", (MENU_ITEM_CB) NULL, 0);
        submenu = MCreateSubMenu(item);     
          item = MMenuAddRadioItem(submenu, "Min/Max", (MENU_ITEM_CB)PBYScale_CB, 0);
            if(FLAG.plotYRange == 1) 
                MMenuItemSetCheckStatus (item, True);   
          item = MMenuAddRadioItem(submenu, "Full Range", (MENU_ITEM_CB)PBYScale_CB, (void *)1);
            if(FLAG.plotYRange == 0) 
                MMenuItemSetCheckStatus (item, True);   

        item = MMenuAddItem(Optmenu, "Hidden Lines", (MENU_ITEM_CB) NULL, 0);

        menu = MCreateMenu(dmenu, "Help");
        item = MMenuAddItem(menu, "About", (MENU_ITEM_CB) NULL, 0);

 

    }


/*++++++++++++++++++++++++++++++++++++++++++++++++++++++++++*/

    _tablefrm000 = MCreateTableForm(BIL.VFO.View_Sh, 2);
    MFormSetSpacing(_tablefrm000, 0);
    
    MTableFormSetColAlign(_tablefrm000, 1, CENTER_ALIGN);
    MObjectSetBackgroundRGB(_tablefrm000, DPAL.DB_BG[0], DPAL.DB_BG[1], DPAL.DB_BG[2]);
    MObjectSetResize(_tablefrm000, True, True);

    _rowform000 = MCreateRowForm(_tablefrm000);
    MFormSetSpacing(_rowform000, 1);
    MObjectSetBackgroundRGB(_rowform000, DPAL.DB_BG[0], DPAL.DB_BG[1], DPAL.DB_BG[2]);

    MObjectSetResize(_rowform000, True, True);

    _tablefrm001 = MCreateTableForm(_rowform000, 12);
    MFormSetSpacing(_tablefrm001, 2);
    MTableFormSetColAlign(_tablefrm001, 0, LEFT_ALIGN);
    MObjectSetBackgroundRGB(_tablefrm001, 184, 132, 0);
    MObjectSetBackgroundRGB(_tablefrm001, DPAL.DB_BG[0], DPAL.DB_BG[1], DPAL.DB_BG[2]);
    MObjectSetResize(_tablefrm001, True, False);

    lbl = MCreateLabel(_tablefrm001, "Station:", plfont);
    //MLabelSetAlignment(lbl, LEFT_ALIGN);
    //MObjectAlign(lbl, LEFT_ALIGN, TOP_ALIGN);
    //MObjectSetShadow(lbl, WS_SHADOW_IN, 1, 0);
    MObjectSetResize(lbl, True, True);
    MObjectSetForegroundRGB(lbl, DPAL.DB_FG_Plbl[0], DPAL.DB_FG_Plbl[1], DPAL.DB_FG_Plbl[2]);
    MObjectSetBackgroundRGB(lbl, DPAL.DB_BG_Plbl[0], DPAL.DB_BG_Plbl[1], DPAL.DB_BG_Plbl[2]);


    lbl = MCreateLabel(_tablefrm001, "LAT:", plfont);
    //MLabelSetAlignment(lbl, LEFT_ALIGN);
    //MObjectAlign(lbl, LEFT_ALIGN, TOP_ALIGN);
    //MObjectSetShadow(lbl, WS_SHADOW_IN, 1, 0);
    //MObjectSetCompositeWidth(lbl, 48);
    MObjectSetResize(lbl, True, True);
    MObjectSetForegroundRGB(lbl, DPAL.DB_FG_Plbl[0], DPAL.DB_FG_Plbl[1], DPAL.DB_FG_Plbl[2]);
    MObjectSetBackgroundRGB(lbl, DPAL.DB_BG_Plbl[0], DPAL.DB_BG_Plbl[1], DPAL.DB_BG_Plbl[2]);


    lbl = MCreateLabel(_tablefrm001, "LON:", plfont);
    //MObjectAlign(lbl, LEFT_ALIGN, TOP_ALIGN);
    //MObjectSetShadow(lbl, WS_SHADOW_IN, 1, 0);
    MObjectSetResize(lbl, True, True);
    MObjectSetForegroundRGB(lbl, DPAL.DB_FG_Plbl[0], DPAL.DB_FG_Plbl[1], DPAL.DB_FG_Plbl[2]);
    MObjectSetBackgroundRGB(lbl, DPAL.DB_BG_Plbl[0], DPAL.DB_BG_Plbl[1], DPAL.DB_BG_Plbl[2]);


    
    lbl = MCreateLabel(_tablefrm001, "Date:", plfont);
    MObjectSetResize(lbl, True, True);
    MObjectSetForegroundRGB(lbl, DPAL.DB_FG_Plbl[0], DPAL.DB_FG_Plbl[1], DPAL.DB_FG_Plbl[2]);
    MObjectSetBackgroundRGB(lbl, DPAL.DB_BG_Plbl[0], DPAL.DB_BG_Plbl[1], DPAL.DB_BG_Plbl[2]);


    lbl = MCreateLabel(_tablefrm001, "Time (LT):", plfont);
    MObjectSetResize(lbl, True, True);
    MObjectSetForegroundRGB(lbl, DPAL.DB_FG_Plbl[0], DPAL.DB_FG_Plbl[1], DPAL.DB_FG_Plbl[2]);
    MObjectSetBackgroundRGB(lbl, DPAL.DB_BG_Plbl[0], DPAL.DB_BG_Plbl[1], DPAL.DB_BG_Plbl[2]);
    
    lbl = MCreateLabel(_tablefrm001, "Input Mirror:", plfont);
    MObjectSetResize(lbl, True, True);
    MObjectSetForegroundRGB(lbl, DPAL.DB_FG_Plbl[0], DPAL.DB_FG_Plbl[1], DPAL.DB_FG_Plbl[2]);
    MObjectSetBackgroundRGB(lbl, DPAL.DB_BG_Plbl[0], DPAL.DB_BG_Plbl[1], DPAL.DB_BG_Plbl[2]);

    lbl = MCreateLabel(_tablefrm001, "Wavelength:", plfont);
    MObjectSetResize(lbl, True, True);
    MObjectSetForegroundRGB(lbl, DPAL.DB_FG_Plbl[0], DPAL.DB_FG_Plbl[1], DPAL.DB_FG_Plbl[2]);
    MObjectSetBackgroundRGB(lbl, DPAL.DB_BG_Plbl[0], DPAL.DB_BG_Plbl[1], DPAL.DB_BG_Plbl[2]);

    lbl = MCreateLabel(_tablefrm001, "Filter:", plfont);
    MObjectSetResize(lbl, True, True);
    MObjectSetForegroundRGB(lbl, DPAL.DB_FG_Plbl[0], DPAL.DB_FG_Plbl[1], DPAL.DB_FG_Plbl[2]);
    MObjectSetBackgroundRGB(lbl, DPAL.DB_BG_Plbl[0], DPAL.DB_BG_Plbl[1], DPAL.DB_BG_Plbl[2]);

    lbl = MCreateLabel(_tablefrm001, "NDFilter:", plfont);
    MObjectSetResize(lbl, True, True);
    MObjectSetForegroundRGB(lbl, DPAL.DB_FG_Plbl[0], DPAL.DB_FG_Plbl[1], DPAL.DB_FG_Plbl[2]);
    MObjectSetBackgroundRGB(lbl, DPAL.DB_BG_Plbl[0], DPAL.DB_BG_Plbl[1], DPAL.DB_BG_Plbl[2]);
    
    lbl = MCreateLabel(_tablefrm001, "CCD Temp(ºC):", plfont);
    MObjectSetResize(lbl, True, True);
    MObjectSetForegroundRGB(lbl, DPAL.DB_FG_Plbl[0], DPAL.DB_FG_Plbl[1], DPAL.DB_FG_Plbl[2]);
    MObjectSetBackgroundRGB(lbl, DPAL.DB_BG_Plbl[0], DPAL.DB_BG_Plbl[1], DPAL.DB_BG_Plbl[2]);

    lbl = MCreateLabel(_tablefrm001, "Exp.Time(sec):", plfont);
    MObjectSetResize(lbl, True, True);
    MObjectSetForegroundRGB(lbl, DPAL.DB_FG_Plbl[0], DPAL.DB_FG_Plbl[1], DPAL.DB_FG_Plbl[2]);
    MObjectSetBackgroundRGB(lbl, DPAL.DB_BG_Plbl[0], DPAL.DB_BG_Plbl[1], DPAL.DB_BG_Plbl[2]);

    lbl = MCreateLabel(_tablefrm001, "Meas. N. :", plfont);
    MObjectSetResize(lbl, True, True);
    MObjectSetForegroundRGB(lbl, DPAL.DB_FG_Plbl[0], DPAL.DB_FG_Plbl[1], DPAL.DB_FG_Plbl[2]);
    MObjectSetBackgroundRGB(lbl, DPAL.DB_BG_Plbl[0], DPAL.DB_BG_Plbl[1], DPAL.DB_BG_Plbl[2]);

    BIL.VFO.lblloc = MCreateLabel(_tablefrm001, "xxxxx", alfont);
    //MObjectSetShadow(BIL.VFO.lblloc, WS_SHADOW_IN, 1, 0);
    //MLabelSetAlignment(BIL.VFO.lblloc, RIGHT_ALIGN);
    MObjectSetResize(BIL.VFO.lblloc, True, True);
    MObjectSetForegroundRGB(BIL.VFO.lblloc, DPAL.DB_FG_Albl[0], DPAL.DB_FG_Albl[1], DPAL.DB_FG_Albl[2]);
    MObjectSetBackgroundRGB(BIL.VFO.lblloc, DPAL.DB_BG_Albl[0], DPAL.DB_BG_Albl[1], DPAL.DB_BG_Albl[2]);
    MObjectSetTransparency(BIL.VFO.lblloc, 0);

    BIL.VFO.lbllat = MCreateLabel(_tablefrm001, "xxx.xx", alfont);
    //MObjectSetShadow(BIL.VFO.lbllat, WS_SHADOW_IN, 1, 0);
    //MLabelSetAlignment(BIL.VFO.lbllat, RIGHT_ALIGN);
    MObjectSetResize(BIL.VFO.lbllat, True, True);
    MObjectSetForegroundRGB(BIL.VFO.lbllat, DPAL.DB_FG_Albl[0], DPAL.DB_FG_Albl[1], DPAL.DB_FG_Albl[2]);
    MObjectSetBackgroundRGB(BIL.VFO.lbllat, DPAL.DB_BG_Albl[0], DPAL.DB_BG_Albl[1], DPAL.DB_BG_Albl[2]);
    MObjectSetTransparency(BIL.VFO.lbllat, 0);

    BIL.VFO.lbllong = MCreateLabel(_tablefrm001, "xxx.xx", alfont);
    //MObjectSetShadow(BIL.VFO.lbllong, WS_SHADOW_IN, 1, 0);
    //MLabelSetAlignment(BIL.VFO.lbllong, RIGHT_ALIGN);
    MObjectSetResize(BIL.VFO.lbllong, True, True);
    MObjectSetForegroundRGB(BIL.VFO.lbllong, DPAL.DB_FG_Albl[0], DPAL.DB_FG_Albl[1], DPAL.DB_FG_Albl[2]);
    MObjectSetBackgroundRGB(BIL.VFO.lbllong, DPAL.DB_BG_Albl[0], DPAL.DB_BG_Albl[1], DPAL.DB_BG_Albl[2]);
    MObjectSetTransparency(BIL.VFO.lbllong, 0);


    BIL.VFO.lbldate = MCreateLabel(_tablefrm001, "yyyy/mm/dd", alfont);
    MObjectSetResize(BIL.VFO.lbldate, True, True);
    MObjectSetForegroundRGB(BIL.VFO.lbldate, DPAL.DB_FG_Albl[0], DPAL.DB_FG_Albl[1], DPAL.DB_FG_Albl[2]);
    MObjectSetBackgroundRGB(BIL.VFO.lbldate, DPAL.DB_BG_Albl[0], DPAL.DB_BG_Albl[1], DPAL.DB_BG_Albl[2]);
    MObjectSetTransparency(BIL.VFO.lbldate, 0);

    BIL.VFO.lbltime = MCreateLabel(_tablefrm001, "hh:mn:ss", alfont);
    MObjectSetResize(BIL.VFO.lbltime, True, True);
    MObjectSetForegroundRGB(BIL.VFO.lbltime, DPAL.DB_FG_Albl[0], DPAL.DB_FG_Albl[1], DPAL.DB_FG_Albl[2]);
    MObjectSetBackgroundRGB(BIL.VFO.lbltime, DPAL.DB_BG_Albl[0], DPAL.DB_BG_Albl[1], DPAL.DB_BG_Albl[2]);
    MObjectSetTransparency(BIL.VFO.lbltime, 0);

    BIL.VFO.lblmirpos = MCreateLabel(_tablefrm001, "NULL", alfont);
    MObjectSetResize(BIL.VFO.lblmirpos, True, True);
    MObjectSetForegroundRGB(BIL.VFO.lblmirpos, DPAL.DB_FG_Albl[0], DPAL.DB_FG_Albl[1], DPAL.DB_FG_Albl[2]);
    MObjectSetBackgroundRGB(BIL.VFO.lblmirpos, DPAL.DB_BG_Albl[0], DPAL.DB_BG_Albl[1], DPAL.DB_BG_Albl[2]);
    MObjectSetTransparency(BIL.VFO.lblmirpos, 0);

    BIL.VFO.lblwaveleng = MCreateLabel(_tablefrm001, "NULL", alfont);
    MObjectSetResize(BIL.VFO.lblwaveleng, True, True);
    MObjectSetForegroundRGB(BIL.VFO.lblwaveleng, DPAL.DB_FG_Albl[0], DPAL.DB_FG_Albl[1], DPAL.DB_FG_Albl[2]);
    MObjectSetBackgroundRGB(BIL.VFO.lblwaveleng, DPAL.DB_BG_Albl[0], DPAL.DB_BG_Albl[1], DPAL.DB_BG_Albl[2]);
    MObjectSetTransparency(BIL.VFO.lblwaveleng, 0);

    BIL.VFO.lblfilter = MCreateLabel(_tablefrm001, "NULL", alfont);
    MObjectSetResize(BIL.VFO.lblfilter, True, True);
    MObjectSetForegroundRGB(BIL.VFO.lblfilter, DPAL.DB_FG_Albl[0], DPAL.DB_FG_Albl[1], DPAL.DB_FG_Albl[2]);
    MObjectSetBackgroundRGB(BIL.VFO.lblfilter, DPAL.DB_BG_Albl[0], DPAL.DB_BG_Albl[1], DPAL.DB_BG_Albl[2]);
    MObjectSetTransparency(BIL.VFO.lblfilter, 0);

    BIL.VFO.lblndfilter = MCreateLabel(_tablefrm001, "NULL", alfont);
    MObjectSetResize(BIL.VFO.lblndfilter, True, True);
    MObjectSetForegroundRGB(BIL.VFO.lblndfilter, DPAL.DB_FG_Albl[0], DPAL.DB_FG_Albl[1], DPAL.DB_FG_Albl[2]);
    MObjectSetBackgroundRGB(BIL.VFO.lblndfilter, DPAL.DB_BG_Albl[0], DPAL.DB_BG_Albl[1], DPAL.DB_BG_Albl[2]);
    MObjectSetTransparency(BIL.VFO.lblndfilter, 0);

    BIL.VFO.lblccdtemp = MCreateLabel(_tablefrm001, "+/- xx.xx", alfont);
    MObjectSetResize(BIL.VFO.lblccdtemp, True, True);
    MObjectSetForegroundRGB(BIL.VFO.lblccdtemp, DPAL.DB_FG_Albl[0], DPAL.DB_FG_Albl[1], DPAL.DB_FG_Albl[2]);
    MObjectSetBackgroundRGB(BIL.VFO.lblccdtemp, DPAL.DB_BG_Albl[0], DPAL.DB_BG_Albl[1], DPAL.DB_BG_Albl[2]);
    MObjectSetTransparency(BIL.VFO.lblccdtemp, 0);

    BIL.VFO.lblccdtexp = MCreateLabel(_tablefrm001, "0.000", alfont);
    MObjectSetResize(BIL.VFO.lblccdtexp, True, True);
    MObjectSetForegroundRGB(BIL.VFO.lblccdtexp, DPAL.DB_FG_Albl[0], DPAL.DB_FG_Albl[1], DPAL.DB_FG_Albl[2]);
    MObjectSetBackgroundRGB(BIL.VFO.lblccdtexp, DPAL.DB_BG_Albl[0], DPAL.DB_BG_Albl[1], DPAL.DB_BG_Albl[2]);
    MObjectSetTransparency(BIL.VFO.lblccdtexp, 0);

    BIL.VFO.lblnummeas = MCreateLabel(_tablefrm001, "0", alfont);
    MObjectSetResize(BIL.VFO.lblnummeas, True, True);
    MObjectSetForegroundRGB(BIL.VFO.lblnummeas, DPAL.DB_FG_Albl[0], DPAL.DB_FG_Albl[1], DPAL.DB_FG_Albl[2]);
    MObjectSetBackgroundRGB(BIL.VFO.lblnummeas, DPAL.DB_BG_Albl[0], DPAL.DB_BG_Albl[1], DPAL.DB_BG_Albl[2]);
    MObjectSetTransparency(BIL.VFO.lblnummeas, 0);

/****************/

    BIL.VFO.formbutt = MCreateColForm(_rowform000);
    MFormSetSpacing(BIL.VFO.formbutt, 1);
//  MObjectSetBackgroundRGB(BIL.VFO.formbutt, 64, 28, 128);
    MObjectSetBackgroundRGB(BIL.VFO.formbutt, DPAL.DB_BG[0], DPAL.DB_BG[1], DPAL.DB_BG[2]);

    if (mod)
    {

        if(IDY <= 16)
        {
            for (i=DAS.DOption.hlinebefore; i < IDY - DAS.DOption.hlineafter; i++)
            {
            sprintf(buff,"r. %d", i+1);
            BIL.DPLOT.pbr[i] = MCreatePButton(BIL.VFO.formbutt, buff, alfont);
            MObjectAlign(BIL.DPLOT.pbr[i], UNDEF_ALIGN, TOP_ALIGN);
            MObjectSetColor(BIL.DPLOT.pbr[i], MTCL.PLColor[i+2], MTCL.white);
            MPButtonSetCallback(BIL.DPLOT.pbr[i], D_pbr_CB, (void *) i);
            //MObjectSetBackgroundRGB(pbr[i], 197, 197, 144);
            MObjectSetShadow(BIL.DPLOT.pbr[i], WS_ETCHED_IN, 2, 1);
            }
        }
        else
            MD_CreateBRowShell(IDY);
    }
    else
    {
        BIL.DPLOT.OLDnR = 0;

        for (i=0; i < 16; i++)
        {
        sprintf(buff,"r. %d", i+1);
        BIL.DPLOT.pbr[i] = MCreatePButton(BIL.VFO.formbutt, buff, alfont);
        MObjectAlign(BIL.DPLOT.pbr[i], UNDEF_ALIGN, TOP_ALIGN);
        MObjectSetColor(BIL.DPLOT.pbr[i], MTCL.PLColor[i+2], MTCL.white);
        MPButtonSetCallback(BIL.DPLOT.pbr[i], D_pbr_CB, (void *) i);
        //MObjectSetBackgroundRGB(BIL.DPLOT.pbr[i], 197, 197, 144);
        MObjectSetShadow(BIL.DPLOT.pbr[i], WS_ETCHED_IN, 2, 1);
        MObjectUnmap(BIL.DPLOT.pbr[i]);
        }


    }

//build the right column
/************************************************/

    _rowform003 = MCreateRowForm(_tablefrm000);
    MFormSetSpacing(_rowform003, 0);
    MObjectAlign(_rowform003, LEFT_ALIGN, TOP_ALIGN);
//  MObjectSetBackgroundRGB(_rowform003, 175, 165, 75);
//  MObjectSetBackgroundRGB(_rowform003, 184, 132, 0);
    MObjectSetBackgroundRGB(_rowform003, DPAL.DB_BG[0], DPAL.DB_BG[1], DPAL.DB_BG[2]);
    MObjectSetResize(_rowform003, False, False);

    lbl = MCreateLabel(_rowform003, "Geo.Inf.", HELV_SMALL);
    MObjectAlign(lbl, CENTER_ALIGN, TOP_ALIGN);
    MObjectSetBackgroundRGB(lbl, 144, 172, 184);
    MObjectSetTransparency(lbl, 0);
    MObjectSetShadow(lbl, WS_SHADOW_IN, 1, 0);
    MObjectSetResize(lbl, True, False);
        
    rformw = MObjectGetWidth(lbl);

    _tablefrm003 = MCreateTableForm(_rowform003, 2);
    MFormSetSpacing(_tablefrm003, 1);
    MTableFormSetColAlign(_tablefrm003, 0, LEFT_ALIGN);
//  MObjectAlign(_tablefrm003, LEFT_ALIGN, TOP_ALIGN);
//  MObjectSetForegroundRGB(_tablefrm003, 192, 192, 192);
//  MObjectSetBackgroundRGB(_tablefrm003, 184, 132, 0);
    MObjectSetBackgroundRGB(_tablefrm003, DPAL.DB_BG[0], DPAL.DB_BG[1], DPAL.DB_BG[2]);
    MObjectSetResize(_tablefrm003, False, False);
/*
    lbl = MCreateLabel(_tablefrm003, "LOC:   ", plfont);
    MLabelSetAlignment(lbl, LEFT_ALIGN);
    MObjectAlign(lbl, LEFT_ALIGN, TOP_ALIGN);
    MObjectSetShadow(lbl, WS_SHADOW_IN, 1, 0);
    MObjectSetResize(lbl, True, True);
    MObjectSetForegroundRGB(lbl, DPAL.DB_FG_Plbl[0], DPAL.DB_FG_Plbl[1], DPAL.DB_FG_Plbl[2]);
    MObjectSetBackgroundRGB(lbl, DPAL.DB_BG_Plbl[0], DPAL.DB_BG_Plbl[1], DPAL.DB_BG_Plbl[2]);

    BIL.VFO.lblloc = MCreateLabel(_tablefrm003, "xxxxx", alfont);
    MObjectSetShadow(BIL.VFO.lblloc, WS_SHADOW_IN, 1, 0);
    MLabelSetAlignment(BIL.VFO.lblloc, RIGHT_ALIGN);
    MObjectSetResize(BIL.VFO.lblloc, True, False);
    MObjectSetForegroundRGB(BIL.VFO.lblloc, DPAL.DB_FG_Albl[0], DPAL.DB_FG_Albl[1], DPAL.DB_FG_Albl[2]);
    MObjectSetBackgroundRGB(BIL.VFO.lblloc, DPAL.DB_BG_Albl[0], DPAL.DB_BG_Albl[1], DPAL.DB_BG_Albl[2]);
    MObjectSetTransparency(BIL.VFO.lblloc, 0);

    lbl = MCreateLabel(_tablefrm003, "LAT:   ", plfont);
    MLabelSetAlignment(lbl, LEFT_ALIGN);
    MObjectAlign(lbl, LEFT_ALIGN, TOP_ALIGN);
    MObjectSetShadow(lbl, WS_SHADOW_IN, 1, 0);
    MObjectSetCompositeWidth(lbl, 48);
    MObjectSetResize(lbl, True, True);
    MObjectSetForegroundRGB(lbl, DPAL.DB_FG_Plbl[0], DPAL.DB_FG_Plbl[1], DPAL.DB_FG_Plbl[2]);
    MObjectSetBackgroundRGB(lbl, DPAL.DB_BG_Plbl[0], DPAL.DB_BG_Plbl[1], DPAL.DB_BG_Plbl[2]);

    BIL.VFO.lbllat = MCreateLabel(_tablefrm003, "xxx.xx", alfont);
    MObjectSetShadow(BIL.VFO.lbllat, WS_SHADOW_IN, 1, 0);
    MLabelSetAlignment(BIL.VFO.lbllat, RIGHT_ALIGN);
    MObjectSetResize(BIL.VFO.lbllat, True, False);
    MObjectSetForegroundRGB(BIL.VFO.lbllat, DPAL.DB_FG_Albl[0], DPAL.DB_FG_Albl[1], DPAL.DB_FG_Albl[2]);
    MObjectSetBackgroundRGB(BIL.VFO.lbllat, DPAL.DB_BG_Albl[0], DPAL.DB_BG_Albl[1], DPAL.DB_BG_Albl[2]);
    MObjectSetTransparency(BIL.VFO.lbllat, 0);

    lbl = MCreateLabel(_tablefrm003, "LON:   ", plfont);
    MObjectAlign(lbl, LEFT_ALIGN, TOP_ALIGN);
    MObjectSetShadow(lbl, WS_SHADOW_IN, 1, 0);
    MObjectSetResize(lbl, True, True);
    MObjectSetForegroundRGB(lbl, DPAL.DB_FG_Plbl[0], DPAL.DB_FG_Plbl[1], DPAL.DB_FG_Plbl[2]);
    MObjectSetBackgroundRGB(lbl, DPAL.DB_BG_Plbl[0], DPAL.DB_BG_Plbl[1], DPAL.DB_BG_Plbl[2]);

    BIL.VFO.lbllong = MCreateLabel(_tablefrm003, "xxx.xx", alfont);
    MObjectSetShadow(BIL.VFO.lbllong, WS_SHADOW_IN, 1, 0);
    MLabelSetAlignment(BIL.VFO.lbllong, RIGHT_ALIGN);
    MObjectSetResize(BIL.VFO.lbllong, False, False);
    MObjectSetForegroundRGB(BIL.VFO.lbllong, DPAL.DB_FG_Albl[0], DPAL.DB_FG_Albl[1], DPAL.DB_FG_Albl[2]);
    MObjectSetBackgroundRGB(BIL.VFO.lbllong, DPAL.DB_BG_Albl[0], DPAL.DB_BG_Albl[1], DPAL.DB_BG_Albl[2]);
    MObjectSetTransparency(BIL.VFO.lbllong, 0);
*/
    lbl = MCreateLabel(_tablefrm003, "ALT:   ", plfont);
    MObjectAlign(lbl, LEFT_ALIGN, TOP_ALIGN);
    MObjectSetShadow(lbl, WS_SHADOW_IN, 1, 0);
    MObjectSetResize(lbl, True, True);
    MObjectSetForegroundRGB(lbl, DPAL.DB_FG_Plbl[0], DPAL.DB_FG_Plbl[1], DPAL.DB_FG_Plbl[2]);
    MObjectSetBackgroundRGB(lbl, DPAL.DB_BG_Plbl[0], DPAL.DB_BG_Plbl[1], DPAL.DB_BG_Plbl[2]);

    BIL.VFO.lblalt = MCreateLabel(_tablefrm003, "xxx", alfont);
    MObjectSetShadow(BIL.VFO.lblalt, WS_SHADOW_IN, 1, 0);
    MObjectAlign(BIL.VFO.lblalt, RIGHT_ALIGN, TOP_ALIGN);
    MLabelSetAlignment(BIL.VFO.lblalt, RIGHT_ALIGN);
    MObjectSetResize(BIL.VFO.lblalt, True, False);
    MObjectSetForegroundRGB(BIL.VFO.lblalt, DPAL.DB_FG_Albl[0], DPAL.DB_FG_Albl[1], DPAL.DB_FG_Albl[2]);
    MObjectSetBackgroundRGB(BIL.VFO.lblalt, DPAL.DB_BG_Albl[0], DPAL.DB_BG_Albl[1], DPAL.DB_BG_Albl[2]);
    MObjectSetTransparency(BIL.VFO.lblalt, 0);

    lbl = MCreateLabel(_tablefrm003, "SZA:   ", plfont);
    MObjectAlign(lbl, LEFT_ALIGN, TOP_ALIGN);
    MObjectSetShadow(lbl, WS_SHADOW_IN, 1, 0);
    MObjectSetResize(lbl, True, True);
    MObjectSetForegroundRGB(lbl, DPAL.DB_FG_Plbl[0], DPAL.DB_FG_Plbl[1], DPAL.DB_FG_Plbl[2]);
    MObjectSetBackgroundRGB(lbl, DPAL.DB_BG_Plbl[0], DPAL.DB_BG_Plbl[1], DPAL.DB_BG_Plbl[2]);

    BIL.VFO.lblsza = MCreateLabel(_tablefrm003, "xxx.xx", alfont);
    MObjectSetShadow(BIL.VFO.lblsza, WS_SHADOW_IN, 1, 0);
    MLabelSetAlignment(BIL.VFO.lblsza, RIGHT_ALIGN);
    MObjectSetResize(BIL.VFO.lblsza, False, False);
    MObjectSetForegroundRGB(BIL.VFO.lblsza, DPAL.DB_FG_Albl[0], DPAL.DB_FG_Albl[1], DPAL.DB_FG_Albl[2]);
    MObjectSetBackgroundRGB(BIL.VFO.lblsza, DPAL.DB_BG_Albl[0], DPAL.DB_BG_Albl[1], DPAL.DB_BG_Albl[2]);
    MObjectSetTransparency(BIL.VFO.lblsza, 0);

    lbl = MCreateLabel(_tablefrm003, "Zenith: ", plfont);
    MObjectAlign(lbl, LEFT_ALIGN, TOP_ALIGN);
    MObjectSetShadow(lbl, WS_SHADOW_IN, 1, 0);
    MObjectSetResize(lbl, True, True);
    MObjectSetForegroundRGB(lbl, DPAL.DB_FG_Plbl[0], DPAL.DB_FG_Plbl[1], DPAL.DB_FG_Plbl[2]);
    MObjectSetBackgroundRGB(lbl, DPAL.DB_BG_Plbl[0], DPAL.DB_BG_Plbl[1], DPAL.DB_BG_Plbl[2]);

    BIL.VFO.lblZenith = MCreateLabel(_tablefrm003, "xxx.xx", alfont);
    MObjectSetShadow(BIL.VFO.lblZenith, WS_SHADOW_IN, 1, 0);
    MLabelSetAlignment(BIL.VFO.lblZenith, RIGHT_ALIGN);
    MObjectSetResize(BIL.VFO.lblZenith, False, False);
    MObjectSetForegroundRGB(BIL.VFO.lblZenith, DPAL.DB_FG_Albl[0], DPAL.DB_FG_Albl[1], DPAL.DB_FG_Albl[2]);
    MObjectSetBackgroundRGB(BIL.VFO.lblZenith, DPAL.DB_BG_Albl[0], DPAL.DB_BG_Albl[1], DPAL.DB_BG_Albl[2]);
    MObjectSetTransparency(BIL.VFO.lblZenith, 0);

    lbl = MCreateLabel(_tablefrm003, "Azimuth: ", plfont);
    MObjectAlign(lbl, LEFT_ALIGN, TOP_ALIGN);
    MObjectSetShadow(lbl, WS_SHADOW_IN, 1, 0);
    MObjectSetResize(lbl, True, True);
    MObjectSetForegroundRGB(lbl, DPAL.DB_FG_Plbl[0], DPAL.DB_FG_Plbl[1], DPAL.DB_FG_Plbl[2]);
    MObjectSetBackgroundRGB(lbl, DPAL.DB_BG_Plbl[0], DPAL.DB_BG_Plbl[1], DPAL.DB_BG_Plbl[2]);

    BIL.VFO.lblAzimuth = MCreateLabel(_tablefrm003, "xxx.xx", alfont);
    MObjectSetShadow(BIL.VFO.lblAzimuth, WS_SHADOW_IN, 1, 0);
    MLabelSetAlignment(BIL.VFO.lblAzimuth, RIGHT_ALIGN);
    MObjectSetResize(BIL.VFO.lblAzimuth, False, False);
    MObjectSetForegroundRGB(BIL.VFO.lblAzimuth, DPAL.DB_FG_Albl[0], DPAL.DB_FG_Albl[1], DPAL.DB_FG_Albl[2]);
    MObjectSetBackgroundRGB(BIL.VFO.lblAzimuth, DPAL.DB_BG_Albl[0], DPAL.DB_BG_Albl[1], DPAL.DB_BG_Albl[2]);
    MObjectSetTransparency(BIL.VFO.lblAzimuth, 0);

    _rowform004 = MCreateRowForm(_rowform003);
    MFormSetSpacing(_rowform004, 0);
    MObjectSetBackgroundRGB(_rowform004, DPAL.DB_BG[0], DPAL.DB_BG[1], DPAL.DB_BG[2]);
//  MObjectSetBackgroundRGB(_rowform004, 184, 132, 0);
    MObjectSetResize(_rowform004, False, False);

    lbl = MCreateLabel(_rowform004, "Meas.Inf.", HELV_SMALL);
    MObjectAlign(lbl, CENTER_ALIGN, TOP_ALIGN);
    MObjectSetBackgroundRGB(lbl, 144, 172, 184);
    MObjectSetTransparency(lbl, 0);
    MObjectSetShadow(lbl, WS_SHADOW_IN, 1, 0);
    MObjectSetResize(lbl, True, False);

    _tablefrm004 = MCreateTableForm(_rowform004, 2);
    MFormSetSpacing(_tablefrm004, 1);
    MTableFormSetColAlign(_tablefrm004, 0, LEFT_ALIGN);
    MObjectAlign(_tablefrm004, LEFT_ALIGN, TOP_ALIGN);
//  MObjectSetForegroundRGB(_tablefrm004, 192, 192, 192);
//  MObjectSetBackgroundRGB(_tablefrm004, 184, 132, 0);
    MObjectSetBackgroundRGB(_tablefrm004, DPAL.DB_BG[0], DPAL.DB_BG[1], DPAL.DB_BG[2]);
    MObjectSetResize(_tablefrm004, True, False);

    lbl = MCreateLabel(_tablefrm004, "Max:", plfont);
    MLabelSetAlignment(lbl, LEFT_ALIGN);
    MLabelSetMargin(lbl, 2, 2);
    MObjectAlign(lbl, LEFT_ALIGN, TOP_ALIGN);
    MObjectSetShadow(lbl, WS_SHADOW_IN, 1, 0);
    MObjectSetResize(lbl, True, True);
    MObjectSetForegroundRGB(lbl, DPAL.DB_FG_Plbl[0], DPAL.DB_FG_Plbl[1], DPAL.DB_FG_Plbl[2]);
    MObjectSetBackgroundRGB(lbl, DPAL.DB_BG_Plbl[0], DPAL.DB_BG_Plbl[1], DPAL.DB_BG_Plbl[2]);

    BIL.VFO.lblmax = MCreateLabel(_tablefrm004, "xxxxx", alfont);
    MObjectSetShadow(BIL.VFO.lblmax, WS_SHADOW_IN, 1, 0);
    MLabelSetAlignment(BIL.VFO.lblmax, RIGHT_ALIGN);
    MObjectSetResize(BIL.VFO.lblmax, False, False);
    MObjectSetForegroundRGB(BIL.VFO.lblmax, DPAL.DB_FG_Albl[0], DPAL.DB_FG_Albl[1], DPAL.DB_FG_Albl[2]);
    MObjectSetBackgroundRGB(BIL.VFO.lblmax, DPAL.DB_BG_Albl[0], DPAL.DB_BG_Albl[1], DPAL.DB_BG_Albl[2]);
    MObjectSetTransparency(BIL.VFO.lblmax, 0);

    lbl = MCreateLabel(_tablefrm004, "Min:", plfont);
    MLabelSetAlignment(lbl, LEFT_ALIGN);
    MObjectAlign(lbl, LEFT_ALIGN, TOP_ALIGN);
    MObjectSetShadow(lbl, WS_SHADOW_IN, 1, 0);
    MObjectSetResize(lbl, True, True);
    MObjectSetForegroundRGB(lbl, DPAL.DB_FG_Plbl[0], DPAL.DB_FG_Plbl[1], DPAL.DB_FG_Plbl[2]);
    MObjectSetBackgroundRGB(lbl, DPAL.DB_BG_Plbl[0], DPAL.DB_BG_Plbl[1], DPAL.DB_BG_Plbl[2]);

    BIL.VFO.lblmin = MCreateLabel(_tablefrm004, "xxxxx", alfont);
    MObjectSetShadow(BIL.VFO.lblmin, WS_SHADOW_IN, 1, 0);
    MLabelSetAlignment(BIL.VFO.lblmin, RIGHT_ALIGN);
    MObjectSetResize(BIL.VFO.lblmin, False, False);
    MObjectSetForegroundRGB(BIL.VFO.lblmin, DPAL.DB_FG_Albl[0], DPAL.DB_FG_Albl[1], DPAL.DB_FG_Albl[2]);
    MObjectSetBackgroundRGB(BIL.VFO.lblmin, DPAL.DB_BG_Albl[0], DPAL.DB_BG_Albl[1], DPAL.DB_BG_Albl[2]);
    MObjectSetTransparency(BIL.VFO.lblmin, 0);

/******************************************/

    lbl = MCreateLabel(_tablefrm004, "ccdWx:", plfont);
    MObjectAlign(lbl, LEFT_ALIGN, TOP_ALIGN);
    MObjectSetShadow(lbl, WS_SHADOW_IN, 1, 0);
    MObjectSetResize(lbl, True, True);
    MObjectSetForegroundRGB(lbl, DPAL.DB_FG_Plbl[0], DPAL.DB_FG_Plbl[1], DPAL.DB_FG_Plbl[2]);
    MObjectSetBackgroundRGB(lbl, DPAL.DB_BG_Plbl[0], DPAL.DB_BG_Plbl[1], DPAL.DB_BG_Plbl[2]);

    BIL.VFO.lblccdwx = MCreateLabel(_tablefrm004, "xxxx", alfont);
    MObjectSetShadow(BIL.VFO.lblccdwx, WS_SHADOW_IN, 1, 0);
    MLabelSetAlignment(BIL.VFO.lblccdwx, RIGHT_ALIGN);
    MObjectSetResize(BIL.VFO.lblccdwx, True, True);
    MObjectSetForegroundRGB(BIL.VFO.lblccdwx, DPAL.DB_FG_Albl[0], DPAL.DB_FG_Albl[1], DPAL.DB_FG_Albl[2]);
    MObjectSetBackgroundRGB(BIL.VFO.lblccdwx, DPAL.DB_BG_Albl[0], DPAL.DB_BG_Albl[1], DPAL.DB_BG_Albl[2]);
    MObjectSetTransparency(BIL.VFO.lblccdwx, 0);

    lbl = MCreateLabel(_tablefrm004, "ccdWy:", plfont);
    MObjectAlign(lbl, LEFT_ALIGN, TOP_ALIGN);
    MObjectSetShadow(lbl, WS_SHADOW_IN, 1, 0);
    MObjectSetResize(lbl, True, True);
    MObjectSetForegroundRGB(lbl, DPAL.DB_FG_Plbl[0], DPAL.DB_FG_Plbl[1], DPAL.DB_FG_Plbl[2]);
    MObjectSetBackgroundRGB(lbl, DPAL.DB_BG_Plbl[0], DPAL.DB_BG_Plbl[1], DPAL.DB_BG_Plbl[2]);

    BIL.VFO.lblccdwy = MCreateLabel(_tablefrm004, "xxxx", alfont);
    MObjectSetShadow(BIL.VFO.lblccdwy, WS_SHADOW_IN, 1, 0);
    MLabelSetAlignment(BIL.VFO.lblccdwy, RIGHT_ALIGN);
    MObjectSetResize(BIL.VFO.lblccdwy, True, True);
    MObjectSetForegroundRGB(BIL.VFO.lblccdwy, DPAL.DB_FG_Albl[0], DPAL.DB_FG_Albl[1], DPAL.DB_FG_Albl[2]);
    MObjectSetBackgroundRGB(BIL.VFO.lblccdwy, DPAL.DB_BG_Albl[0], DPAL.DB_BG_Albl[1], DPAL.DB_BG_Albl[2]);
    MObjectSetTransparency(BIL.VFO.lblccdwy, 0);


/*********************************************/

    lbl = MCreateLabel(_tablefrm004, "ccdSx:", plfont);
    MObjectAlign(lbl, LEFT_ALIGN, TOP_ALIGN);
    MObjectSetShadow(lbl, WS_SHADOW_IN, 1, 0);
    MObjectSetResize(lbl, True, True);
    MObjectSetForegroundRGB(lbl, DPAL.DB_FG_Plbl[0], DPAL.DB_FG_Plbl[1], DPAL.DB_FG_Plbl[2]);
    MObjectSetBackgroundRGB(lbl, DPAL.DB_BG_Plbl[0], DPAL.DB_BG_Plbl[1], DPAL.DB_BG_Plbl[2]);

    BIL.VFO.lblccdsx = MCreateLabel(_tablefrm004, "xxxx", alfont);
    MObjectSetShadow(BIL.VFO.lblccdsx, WS_SHADOW_IN, 1, 0);
    MLabelSetAlignment(BIL.VFO.lblccdsx, RIGHT_ALIGN);
    MObjectSetResize(BIL.VFO.lblccdsx, True, True);
    MObjectSetForegroundRGB(BIL.VFO.lblccdsx, DPAL.DB_FG_Albl[0], DPAL.DB_FG_Albl[1], DPAL.DB_FG_Albl[2]);
    MObjectSetBackgroundRGB(BIL.VFO.lblccdsx, DPAL.DB_BG_Albl[0], DPAL.DB_BG_Albl[1], DPAL.DB_BG_Albl[2]);
    MObjectSetTransparency(BIL.VFO.lblccdsx, 0);

    lbl = MCreateLabel(_tablefrm004, "ccdSy:", plfont);
    MObjectAlign(lbl, LEFT_ALIGN, TOP_ALIGN);
    MObjectSetShadow(lbl, WS_SHADOW_IN, 1, 0);
    MObjectSetResize(lbl, True, True);
    MObjectSetForegroundRGB(lbl, DPAL.DB_FG_Plbl[0], DPAL.DB_FG_Plbl[1], DPAL.DB_FG_Plbl[2]);
    MObjectSetBackgroundRGB(lbl, DPAL.DB_BG_Plbl[0], DPAL.DB_BG_Plbl[1], DPAL.DB_BG_Plbl[2]);

    BIL.VFO.lblccdsy = MCreateLabel(_tablefrm004, "xxxx", alfont);
    MObjectSetShadow(BIL.VFO.lblccdsy, WS_SHADOW_IN, 1, 0);
    MLabelSetAlignment(BIL.VFO.lblccdsy, RIGHT_ALIGN);
    MObjectSetResize(BIL.VFO.lblccdsy, True, True);
    MObjectSetForegroundRGB(BIL.VFO.lblccdsy, DPAL.DB_FG_Albl[0], DPAL.DB_FG_Albl[1], DPAL.DB_FG_Albl[2]);
    MObjectSetBackgroundRGB(BIL.VFO.lblccdsy, DPAL.DB_BG_Albl[0], DPAL.DB_BG_Albl[1], DPAL.DB_BG_Albl[2]);
    MObjectSetTransparency(BIL.VFO.lblccdsy, 0);

    lbl = MCreateLabel(_tablefrm004, "ccdEx:", plfont);
    MObjectAlign(lbl, LEFT_ALIGN, TOP_ALIGN);
    MObjectSetShadow(lbl, WS_SHADOW_IN, 1, 0);
    MObjectSetResize(lbl, True, True);
    MObjectSetForegroundRGB(lbl, DPAL.DB_FG_Plbl[0], DPAL.DB_FG_Plbl[1], DPAL.DB_FG_Plbl[2]);
    MObjectSetBackgroundRGB(lbl, DPAL.DB_BG_Plbl[0], DPAL.DB_BG_Plbl[1], DPAL.DB_BG_Plbl[2]);

    BIL.VFO.lblccdex = MCreateLabel(_tablefrm004, "xxxx", alfont);
    MObjectSetShadow(BIL.VFO.lblccdex, WS_SHADOW_IN, 1, 0);
    MLabelSetAlignment(BIL.VFO.lblccdex, RIGHT_ALIGN);
    MObjectSetResize(BIL.VFO.lblccdex,True, True);
    MObjectSetForegroundRGB(BIL.VFO.lblccdex, DPAL.DB_FG_Albl[0], DPAL.DB_FG_Albl[1], DPAL.DB_FG_Albl[2]);
    MObjectSetBackgroundRGB(BIL.VFO.lblccdex, DPAL.DB_BG_Albl[0], DPAL.DB_BG_Albl[1], DPAL.DB_BG_Albl[2]);
    MObjectSetTransparency(BIL.VFO.lblccdex, 0);

    lbl = MCreateLabel(_tablefrm004, "ccdEy:", plfont);
    MObjectSetShadow(lbl, WS_SHADOW_IN, 1, 0);
    MObjectSetResize(lbl, True, True);
    MObjectSetForegroundRGB(lbl, DPAL.DB_FG_Plbl[0], DPAL.DB_FG_Plbl[1], DPAL.DB_FG_Plbl[2]);
    MObjectSetBackgroundRGB(lbl, DPAL.DB_BG_Plbl[0], DPAL.DB_BG_Plbl[1], DPAL.DB_BG_Plbl[2]);

    BIL.VFO.lblccdey = MCreateLabel(_tablefrm004, "xxxx", alfont);
    MObjectSetShadow(BIL.VFO.lblccdey, WS_SHADOW_IN, 1, 0);
    MLabelSetAlignment(BIL.VFO.lblccdey, RIGHT_ALIGN);
    MObjectSetResize(BIL.VFO.lblccdey, True, True);
    MObjectSetForegroundRGB(BIL.VFO.lblccdey, DPAL.DB_FG_Albl[0], DPAL.DB_FG_Albl[1], DPAL.DB_FG_Albl[2]);
    MObjectSetBackgroundRGB(BIL.VFO.lblccdey, DPAL.DB_BG_Albl[0], DPAL.DB_BG_Albl[1], DPAL.DB_BG_Albl[2]);
    MObjectSetTransparency(BIL.VFO.lblccdey, 0);

    lbl = MCreateLabel(_tablefrm004, "ccdVB:", plfont);
    MObjectSetShadow(lbl, WS_SHADOW_IN, 1, 0);
    MObjectSetResize(lbl, True, True);
    MObjectSetForegroundRGB(lbl, DPAL.DB_FG_Plbl[0], DPAL.DB_FG_Plbl[1], DPAL.DB_FG_Plbl[2]);
    MObjectSetBackgroundRGB(lbl, DPAL.DB_BG_Plbl[0], DPAL.DB_BG_Plbl[1], DPAL.DB_BG_Plbl[2]);

    BIL.VFO.lblvb = MCreateLabel(_tablefrm004, "xxx",alfont);
    MObjectSetShadow(BIL.VFO.lblvb, WS_SHADOW_IN, 1, 0);
    MLabelSetAlignment(BIL.VFO.lblvb, RIGHT_ALIGN);
    MObjectSetResize(BIL.VFO.lblvb, True, True);
    MObjectSetForegroundRGB(BIL.VFO.lblvb, DPAL.DB_FG_Albl[0], DPAL.DB_FG_Albl[1], DPAL.DB_FG_Albl[2]);
    MObjectSetBackgroundRGB(BIL.VFO.lblvb, DPAL.DB_BG_Albl[0], DPAL.DB_BG_Albl[1], DPAL.DB_BG_Albl[2]);
    MObjectSetTransparency(BIL.VFO.lblvb, 0);

    lbl = MCreateLabel(_tablefrm004, "Rows#", plfont);
    MObjectSetShadow(lbl, WS_SHADOW_IN, 1, 0);
    MObjectSetResize(lbl, True, True);
    MObjectSetForegroundRGB(lbl, DPAL.DB_FG_Plbl[0], DPAL.DB_FG_Plbl[1], DPAL.DB_FG_Plbl[2]);
    MObjectSetBackgroundRGB(lbl, DPAL.DB_BG_Plbl[0], DPAL.DB_BG_Plbl[1], DPAL.DB_BG_Plbl[2]);

    BIL.VFO.lblnr = MCreateLabel(_tablefrm004, "xxx", alfont);
    MObjectSetShadow(BIL.VFO.lblnr, WS_SHADOW_IN, 1, 0);
    MLabelSetAlignment(BIL.VFO.lblnr, RIGHT_ALIGN);
    MObjectSetResize(BIL.VFO.lblnr, True, True);
    MObjectSetForegroundRGB(BIL.VFO.lblnr, DPAL.DB_FG_Albl[0], DPAL.DB_FG_Albl[1], DPAL.DB_FG_Albl[2]);
    MObjectSetBackgroundRGB(BIL.VFO.lblnr, DPAL.DB_BG_Albl[0], DPAL.DB_BG_Albl[1], DPAL.DB_BG_Albl[2]);
    MObjectSetTransparency(BIL.VFO.lblnr, 0);

    _rowform005 = MCreateRowForm(_rowform004);
    MFormSetSpacing(_rowform005, 0);
    MObjectSetBackgroundRGB(_rowform005, DPAL.DB_BG[0], DPAL.DB_BG[1], DPAL.DB_BG[2]);  
//  MObjectSetBackgroundRGB(_rowform005, 184, 132, 0);
    MObjectSetResize(_rowform005, True, False);

    lbl = MCreateLabel(_rowform005, "Command", HELV_SMALL);
    MObjectSetBackgroundRGB(lbl, 144, 172, 184);
    MObjectSetTransparency(lbl, 0);
    MObjectSetShadow(lbl, WS_SHADOW_IN, 1, 0);
    MObjectSetResize(lbl, True, False);

    _tablefrm005 = MCreateTableForm(_rowform005, 2);
    MFormSetSpacing(_tablefrm005, 0);
    MObjectSetBackgroundRGB(_tablefrm005, DPAL.DB_BG[0], DPAL.DB_BG[1], DPAL.DB_BG[2]);
//  MObjectSetBackgroundRGB(_tablefrm005, 184, 132, 0);
    MObjectSetResize(_tablefrm005, True, False);

    _rowform006 = MCreateRowForm(_tablefrm005);
    MFormSetSpacing(_rowform006, 0);
    MObjectSetBackgroundRGB(_rowform006, DPAL.DB_BG[0], DPAL.DB_BG[1], DPAL.DB_BG[2]);
//  MObjectSetBackgroundRGB(_rowform006, 184, 132, 0);
    MObjectSetResize(_rowform006, False, False);

    popup_pd = MCreatePopupMenu (HELV_SMALL);
    for (i=0;i<7;i++)
        //item_pd = MMenuAddItem(popup_pd, "Empty", (MENU_ITEM_CB) PopUp_CB, (void *) i);
        item_pd = MMenuAddItemObsolete(popup_pd, ffilenames[i], PopUp_CB, (void *) i);

    BIL.VFO.cmdpb[0] = MCreatePButton(_rowform006, "Open", alfont);
    MObjectSetBackgroundRGB(BIL.VFO.cmdpb[0], DPAL.DB_UnSel[0], DPAL.DB_UnSel[1], DPAL.DB_UnSel[2]);
    MButtonSetOnMouseOverForegroundRGB(BIL.VFO.cmdpb[0], 0, 0, 255);
    MPButtonSetCallback(BIL.VFO.cmdpb[0], D_PButt_CB, (void *) 0);
    MObjectSetCompositeWidth(BIL.VFO.cmdpb[0], 90);
    MObjectAddEventNotifyCallback (BIL.VFO.cmdpb[0], PopupMenuCB, EM_BUTTON_PRESS, popup_pd);
    if (mod)
            MObjectSetUnsensitive(BIL.VFO.cmdpb[0]);


    BIL.VFO.cmdpb[1] = MCreatePButton(_rowform006, "Next", alfont);
    MObjectSetBackgroundRGB(BIL.VFO.cmdpb[1], DPAL.DB_UnSel[0], DPAL.DB_UnSel[1], DPAL.DB_UnSel[2]);
    MPButtonSetCallback(BIL.VFO.cmdpb[1], D_PButt_CB, (void *) 1);
    MObjectSetCompositeWidth(BIL.VFO.cmdpb[1], 90);
    MObjectSetUnsensitive(BIL.VFO.cmdpb[1]);

    BIL.VFO.cmdpb[8] = MCreatePButton(_rowform006, "Previous", alfont);
    MObjectSetBackgroundRGB(BIL.VFO.cmdpb[8], DPAL.DB_UnSel[0], DPAL.DB_UnSel[1], DPAL.DB_UnSel[2]);
    MPButtonSetCallback(BIL.VFO.cmdpb[8], D_PButt_CB, (void *) 8);
    MObjectSetCompositeWidth(BIL.VFO.cmdpb[8], 90);
    MObjectSetUnsensitive(BIL.VFO.cmdpb[8]);
    

    BIL.VFO.cmdpb[2] = MCreatePButton(_rowform006, "Set as Io", alfont);
    MObjectSetBackgroundRGB(BIL.VFO.cmdpb[2], DPAL.DB_UnSel[0], DPAL.DB_UnSel[1], DPAL.DB_UnSel[2]);
    MPButtonSetCallback(BIL.VFO.cmdpb[2], D_PButt_CB, (void *) 2);
    MObjectSetCompositeWidth(BIL.VFO.cmdpb[2], 90);
    MObjectSetUnsensitive(BIL.VFO.cmdpb[2]);

    BIL.VFO.cmdpb[3] = MCreatePButton(_rowform006, "Close File", alfont);
    MObjectSetBackgroundRGB(BIL.VFO.cmdpb[3], DPAL.DB_UnSel[0], DPAL.DB_UnSel[1], DPAL.DB_UnSel[2]);
    MPButtonSetCallback(BIL.VFO.cmdpb[3], D_PButt_CB, (void *) 3);  
    MObjectSetCompositeWidth(BIL.VFO.cmdpb[3], 90);
    MObjectSetUnsensitive(BIL.VFO.cmdpb[3]); // Set "CloseFile" button as Unsensitive

    BIL.VFO.cmdpb[4] = MCreatePButton(_rowform006, "Print", alfont);
    MObjectSetBackgroundRGB(BIL.VFO.cmdpb[4], DPAL.DB_UnSel[0], DPAL.DB_UnSel[1], DPAL.DB_UnSel[2]);
    MObjectSetCompositeWidth(BIL.VFO.cmdpb[4], 90);
    MPButtonSetCallback(BIL.VFO.cmdpb[4], D_PButt_CB, (void *) 4);  
    MObjectSetUnsensitive(BIL.VFO.cmdpb[4]); // Set "Print" button as Unsensitive

    BIL.VFO.cmdpb[6] = MCreatePButton(_rowform006, "Zoom", alfont);
    MObjectSetBackgroundRGB(BIL.VFO.cmdpb[6], DPAL.DB_UnSel[0], DPAL.DB_UnSel[1], DPAL.DB_UnSel[2]);
    MPButtonSetCallback(BIL.VFO.cmdpb[6], D_PButt_CB, (void *) 6);
    MObjectSetCompositeWidth(BIL.VFO.cmdpb[6], 90);
    MObjectSetUnsensitive(BIL.VFO.cmdpb[6]); 

    BIL.VFO.cmdpb[7] = MCreatePButton(_rowform006, "Tools", alfont);
    MObjectSetBackgroundRGB(BIL.VFO.cmdpb[7], DPAL.DB_UnSel[0], DPAL.DB_UnSel[1], DPAL.DB_UnSel[2]);
    MPButtonSetCallback(BIL.VFO.cmdpb[7], D_PButt_CB, (void *) 7);
    MObjectSetCompositeWidth(BIL.VFO.cmdpb[7], 90);
    MObjectSetUnsensitive(BIL.VFO.cmdpb[7]); 

    if(DAS.Flag.exemode == OFFLINEPLOT)
        BIL.VFO.cmdpb[5] = MCreatePButton(_rowform006, "Quit", alfont);
    else
        BIL.VFO.cmdpb[5] = MCreatePButton(_rowform006, "Close Win", alfont);
    
    MObjectSetBackgroundRGB(BIL.VFO.cmdpb[5], DPAL.DB_UnSel[0], DPAL.DB_UnSel[1], DPAL.DB_UnSel[2]);
    MPButtonSetCallback(BIL.VFO.cmdpb[5], D_PButt_CB, (void *) 5);
    MObjectSetCompositeWidth(BIL.VFO.cmdpb[5], 90);


/**********************************************/

if( (!DAS.Flag.exemode == OFFLINEPLOT) | (!DAS.Flag.exemode == DOASMODE))
{


    _colform002 = MCreateColForm(_rowform000);
    MFormSetSpacing(_colform002, 1);
//  MObjectSetBackgroundRGB(_colform002, 64, 28, 128);
    MObjectSetBackgroundRGB(_colform002, DPAL.DB_BG[0], DPAL.DB_BG[1], DPAL.DB_BG[2]);

    //  MObjectSetResize(_colform002, True, True);
    
    _tablefrm006 = MCreateTableForm(_colform002, 7);
    MFormSetSpacing(_tablefrm006, 1);
//  MObjectSetBackgroundRGB(_tablefrm006, 64, 28, 128);
    MObjectSetBackgroundRGB(_tablefrm006, DPAL.DB_BG[0], DPAL.DB_BG[1], DPAL.DB_BG[2]);
    MObjectSetResize(_tablefrm006, False, False);
    MObjectAlign(_tablefrm006, CENTER_ALIGN, TOP_ALIGN);

    lbl = MCreateLabel(_tablefrm006, "X:", plfont);
    MObjectAlign(lbl, LEFT_ALIGN, TOP_ALIGN);
    MObjectSetShadow(lbl, WS_SHADOW_IN, 1, 0);
    MObjectSetForegroundRGB(lbl, DPAL.DB_FG_Plbl[0], DPAL.DB_FG_Plbl[1], DPAL.DB_FG_Plbl[2]);
    MObjectSetBackgroundRGB(lbl, DPAL.DB_BG_Plbl[0], DPAL.DB_BG_Plbl[1], DPAL.DB_BG_Plbl[2]);
    MObjectSetCompositeWidth(lbl, 30);
    //MObjectSetResize(lbl, True, True);

    BIL.VFO.xloc = MCreateLabel(_tablefrm006, "xxxxx", alfont);
    MObjectAlign(BIL.VFO.xloc, LEFT_ALIGN, TOP_ALIGN);
    MObjectSetForegroundRGB(BIL.VFO.xloc, DPAL.DB_FG_Albl[0], DPAL.DB_FG_Albl[1], DPAL.DB_FG_Albl[2]);
    MObjectSetBackgroundRGB(BIL.VFO.xloc, DPAL.DB_BG_Albl[0], DPAL.DB_BG_Albl[1], DPAL.DB_BG_Albl[2]);
    MObjectSetShadow(BIL.VFO.xloc, WS_SHADOW_IN, 1, 0);
    MObjectSetCompositeWidth(BIL.VFO.xloc, 60);
        MObjectSetTransparency(BIL.VFO.xloc,0);
    //MObjectSetResize(BIL.VFO.xloc, True, True);

    BIL.VFO.xincr = MCreateLabel(_tablefrm006, "Dx = xx", alfont);
    MObjectAlign(BIL.VFO.xincr, LEFT_ALIGN, TOP_ALIGN);
    MObjectSetForegroundRGB(BIL.VFO.xincr, DPAL.DB_FG_Albl[0], DPAL.DB_FG_Albl[1], DPAL.DB_FG_Albl[2]);
    MObjectSetBackgroundRGB(BIL.VFO.xincr, DPAL.DB_BG_Albl[0], DPAL.DB_BG_Albl[1], DPAL.DB_BG_Albl[2]);
    MObjectSetShadow(BIL.VFO.xincr, WS_SHADOW_IN, 1, 0);
    MObjectSetCompositeWidth(BIL.VFO.xincr, 80);
    //MObjectSetResize(BIL.VFO.xincr, True, True);


    lbl = MCreateLabel(_tablefrm006, "Y:", plfont);
    MObjectAlign(lbl, LEFT_ALIGN, TOP_ALIGN);
    MObjectSetShadow(lbl, WS_SHADOW_IN, 1, 0);
    MObjectSetForegroundRGB(lbl, DPAL.DB_FG_Plbl[0], DPAL.DB_FG_Plbl[1], DPAL.DB_FG_Plbl[2]);
    MObjectSetBackgroundRGB(lbl, DPAL.DB_BG_Plbl[0], DPAL.DB_BG_Plbl[1], DPAL.DB_BG_Plbl[2]);
    MObjectSetCompositeWidth(lbl, 30);
//  MObjectSetResize(lbl, True, True);

    
    BIL.VFO.yloc = MCreateLabel(_tablefrm006, "xxxxx", alfont);
    MObjectAlign(BIL.VFO.yloc, LEFT_ALIGN, TOP_ALIGN);
    MObjectSetShadow(BIL.VFO.yloc, WS_SHADOW_IN, 1, 0);
    MObjectSetForegroundRGB(BIL.VFO.yloc, DPAL.DB_FG_Albl[0], DPAL.DB_FG_Albl[1], DPAL.DB_FG_Albl[2]);
    MObjectSetBackgroundRGB(BIL.VFO.yloc, DPAL.DB_BG_Albl[0], DPAL.DB_BG_Albl[1], DPAL.DB_BG_Albl[2]);
    MObjectSetCompositeWidth(BIL.VFO.yloc, 60);
    MObjectSetTransparency(BIL.VFO.yloc,0);
    //  MObjectSetResize(BIL.VFO.yloc, True, True);


    BIL.VFO.yincr = MCreateLabel(_tablefrm006, "Dy = xx", alfont);
    MObjectAlign(BIL.VFO.yincr, LEFT_ALIGN, TOP_ALIGN);
    MObjectSetForegroundRGB(BIL.VFO.yincr, DPAL.DB_FG_Albl[0], DPAL.DB_FG_Albl[1], DPAL.DB_FG_Albl[2]);
    MObjectSetBackgroundRGB(BIL.VFO.yincr, DPAL.DB_BG_Albl[0], DPAL.DB_BG_Albl[1], DPAL.DB_BG_Albl[2]);
    MObjectSetShadow(BIL.VFO.yincr, WS_SHADOW_IN, 1, 0);
//  MObjectSetTransparency(BIL.VFO.yincr,0);
    MObjectSetCompositeWidth(BIL.VFO.yincr, 80);
    //  MObjectSetResize(BIL.VFO.xloc, True, True);



    BIL.VFO.selallpb = MCreatePButton(_tablefrm006, "Select All", alfont);
    MObjectSetBackgroundRGB(BIL.VFO.selallpb, DPAL.DB_UnSel[0], DPAL.DB_UnSel[1], DPAL.DB_UnSel[2]);
    MPButtonSetCallback(BIL.VFO.selallpb, PButtSelAll_CB, (void *) 0);
    MObjectSetCompositeWidth(BIL.VFO.selallpb, 90);
    if(mod) //Onlineplot
        MObjectSetSensitive(BIL.VFO.selallpb); 
    else
        MObjectSetUnsensitive(BIL.VFO.selallpb);    


/*****************/

    _tablefrm006 = MCreateTableForm(_colform002, 6);
    MFormSetSpacing(_tablefrm006, 1);
    MObjectSetBackgroundRGB(_tablefrm006, 64, 28, 128);
    MObjectSetBackgroundRGB(_tablefrm006, DPAL.DB_BG[0], DPAL.DB_BG[1], DPAL.DB_BG[2]);
    MObjectSetResize(_tablefrm006, False, False);
    MObjectAlign(_tablefrm006, CENTER_ALIGN, TOP_ALIGN);

    lbl = MCreateLabel(_tablefrm006, "Y Scale:", plfont);
    MObjectAlign(lbl, LEFT_ALIGN, TOP_ALIGN);
    MObjectSetShadow(lbl, WS_SHADOW_IN, 1, 0);
    MObjectSetForegroundRGB(lbl, DPAL.DB_FG_Plbl[0], DPAL.DB_FG_Plbl[1], DPAL.DB_FG_Plbl[2]);
    MObjectSetBackgroundRGB(lbl, DPAL.DB_BG_Plbl[0], DPAL.DB_BG_Plbl[1], DPAL.DB_BG_Plbl[2]);
//  MObjectSetCompositeWidth(lbl, 30);

    if (FLAG.plotYRange == 0)
        sprintf(buff,"Full Range");
    else
        sprintf(buff,"Min/Max");

    BIL.VFO.YScalePB = MCreatePButton(_tablefrm006, buff, alfont);
    MObjectSetBackgroundRGB(BIL.VFO.YScalePB, DPAL.DB_UnSel[0], DPAL.DB_UnSel[1], DPAL.DB_UnSel[2]);
    MObjectAlign(BIL.VFO.YScalePB, LEFT_ALIGN, TOP_ALIGN);
    MObjectSetCompositeWidth(BIL.VFO.YScalePB, 90);
    MPButtonSetCallback(BIL.VFO.YScalePB, PBYScale_CB, (void *) 0);
    if(mod) //Onlineplot
        MObjectSetSensitive(BIL.VFO.YScalePB);
    else
        MObjectSetUnsensitive(BIL.VFO.YScalePB);


    lbl = MCreateLabel(_tablefrm006, "X Units:", plfont);
    MObjectAlign(lbl, LEFT_ALIGN, TOP_ALIGN);
    MObjectSetShadow(lbl, WS_SHADOW_IN, 1, 0);
    MObjectSetForegroundRGB(lbl, DPAL.DB_FG_Plbl[0], DPAL.DB_FG_Plbl[1], DPAL.DB_FG_Plbl[2]);
    MObjectSetBackgroundRGB(lbl, DPAL.DB_BG_Plbl[0], DPAL.DB_BG_Plbl[1], DPAL.DB_BG_Plbl[2]);


    BIL.VFO.XAxisU[0] = MCreateRButton(_tablefrm006, "Pixel", alfont);
    MPButtonSetCallback(BIL.VFO.XAxisU[0], DB_XUnitsCB, (void *) 0);
    MObjectAlign(BIL.VFO.XAxisU[0], LEFT_ALIGN, TOP_ALIGN);
    MObjectSetForegroundRGB(BIL.VFO.XAxisU[0], DPAL.DB_FG_Albl[0], DPAL.DB_FG_Albl[1], DPAL.DB_FG_Albl[2]);
    MObjectSetBackgroundRGB(BIL.VFO.XAxisU[0], DPAL.DB_BG_Albl[0], DPAL.DB_BG_Albl[1], DPAL.DB_BG_Albl[2]);
    MObjectSetTransparency(BIL.VFO.XAxisU[0],0);

    BIL.VFO.XAxisU[1] = MCreateRButton(_tablefrm006, "Wl [A]", alfont);
    MPButtonSetCallback(BIL.VFO.XAxisU[1], DB_XUnitsCB, (void *) 1);
    MObjectAlign(BIL.VFO.XAxisU[1], LEFT_ALIGN, TOP_ALIGN);
    MObjectSetForegroundRGB(BIL.VFO.XAxisU[1], DPAL.DB_FG_Albl[0], DPAL.DB_FG_Albl[1], DPAL.DB_FG_Albl[2]);
    MObjectSetBackgroundRGB(BIL.VFO.XAxisU[1], DPAL.DB_BG_Albl[0], DPAL.DB_BG_Albl[1], DPAL.DB_BG_Albl[2]);
    MObjectSetTransparency(BIL.VFO.XAxisU[1],0);

    BIL.VFO.XAxisU[2] = MCreateRButton(_tablefrm006, "Wl [nm]", alfont);
    MPButtonSetCallback(BIL.VFO.XAxisU[2], DB_XUnitsCB, (void *) 2);
    MObjectAlign(BIL.VFO.XAxisU[2], LEFT_ALIGN, TOP_ALIGN);
    MObjectSetForegroundRGB(BIL.VFO.XAxisU[2], DPAL.DB_FG_Albl[0], DPAL.DB_FG_Albl[1], DPAL.DB_FG_Albl[2]);
    MObjectSetBackgroundRGB(BIL.VFO.XAxisU[2], DPAL.DB_BG_Albl[0], DPAL.DB_BG_Albl[1], DPAL.DB_BG_Albl[2]);
    MObjectSetTransparency(BIL.VFO.XAxisU[2],0);

    if(FLAG.Wl == 0)
        MRButtonActivate(BIL.VFO.XAxisU[0]);
    else if(FLAG.Wl == 1)
        MRButtonActivate(BIL.VFO.XAxisU[1]);
    else if(FLAG.Wl == 2)
        MRButtonActivate(BIL.VFO.XAxisU[2]);
}



/*****************************/

    _colform000 = MCreateColForm(_rowform000);
    MFormSetSpacing(_colform000, 1);
    MObjectSetBackgroundRGB(_colform000, 64, 28, 128);


    _tablefrm002 = MCreateTableForm(_colform000, 2);
    MFormSetSpacing(_tablefrm002, 1);
    MTableFormSetColAlign(_tablefrm002, 0, LEFT_ALIGN);
    MTableFormSetColAlign(_tablefrm002, 1, LEFT_ALIGN);
    MTableFormSetRowAlign(_tablefrm002, 0, TOP_ALIGN);
    MObjectSetBackgroundRGB(_tablefrm002, 64, 28, 128);
    MObjectSetBackgroundRGB(_tablefrm002, DPAL.DB_BG[0], DPAL.DB_BG[1], DPAL.DB_BG[2]);
    MObjectSetResize(_tablefrm002, True, True);

    _rowform001 = MCreateRowForm(_tablefrm002);
    MFormSetSpacing(_rowform001, 1);
    MObjectSetBackgroundRGB(_rowform001, 184, 192, 240);
    MObjectSetResize(_rowform001, False, True);


    for (i=0; i<(sizeof(BIL.VFO.lblY)/sizeof(BIL.VFO.lblY[0])); i++)
    {
        BIL.VFO.lblY[i] = MCreateLabel(_rowform001, "-------", alfont);
        MObjectSetShadow(BIL.VFO.lblY[i], WS_NONE, 0, 0);
        if(i==0)
            MObjectAlign(BIL.VFO.lblY[i], LEFT_ALIGN, TOP_ALIGN);
        if(i==sizeof(BIL.VFO.lblY)/sizeof(BIL.VFO.lblY[0])-1)
            MObjectAlign(BIL.VFO.lblY[i], LEFT_ALIGN, BOTTOM_ALIGN);
            MObjectSetResize(BIL.VFO.lblY[i], True, True);
    }

/********************************************************************/
/*                          DRAW AREA                               */
/********************************************************************/

    rformw = MObjectGetWidth(_rowform003);
    scrw = MGetScreenWidth();
    maxplotw = scrw - 200;
    if (mod) //On line Plot
    {
        BIL.DPLOT.drawapl = MCreateDrawArea(_tablefrm002, maxplotw, 480); //1044  580
        MObjectAlign(BIL.DPLOT.drawapl, LEFT_ALIGN, TOP_ALIGN);
        MObjectSetBackgroundRGB(BIL.DPLOT.drawapl, 220, 220, 220);
        MObjectSetResize(BIL.DPLOT.drawapl, True, True);
        MDrawAreaSetInputCallback(BIL.DPLOT.drawapl, DB_AreaInput, NULL);
        MDrawAreaSetExposeCallback(BIL.DPLOT.drawapl, DrawAreaPlotCB, NULL);
    }

    else
    {
        BIL.DPLOT.drawapl = MCreateDrawArea(_tablefrm002, maxplotw, 480);
        MObjectAlign(BIL.DPLOT.drawapl, LEFT_ALIGN, TOP_ALIGN);
        MObjectSetBackgroundRGB(BIL.DPLOT.drawapl, 220, 220, 220);
        MObjectSetResize(BIL.DPLOT.drawapl, True, True);
        MDrawAreaSetInputCallback(BIL.DPLOT.drawapl, DB_AreaInput, NULL);
    }
    
    
/********************************************************************/

    maxplotw = MObjectGetWidth(BIL.DPLOT.drawapl); 
    maxploth = MObjectGetHeight(BIL.DPLOT.drawapl);  
    BIL.BLENS.Imim = MAllocImage(maxplotw, maxploth, 24);

    InitImage(BIL.BLENS.Imim, maxplotw, maxploth, 192, 192, 192);
    




    _rowform002 = MCreateRowForm(_tablefrm002);
    MFormSetSpacing(_rowform002, 1);
    MObjectAlign(_rowform002, LEFT_ALIGN, BOTTOM_ALIGN);
    MObjectSetShadow(_rowform002, WS_SHADOW_IN, 1, 0);
    MObjectSetResize(_rowform002, False, False);

    _colform001 = MCreateColForm(_tablefrm002);
    MFormSetSpacing(_colform001, 1);
    MObjectAlign(_colform001, LEFT_ALIGN, BOTTOM_ALIGN);
    MObjectSetBackgroundRGB(_colform001, 184, 192, 240);
    MObjectSetResize(_colform001, True, True);

    for (i=0; i<17; i++)
    {
        BIL.VFO.lblX[i] = MCreateLabel(_colform001, "-----", alfont);
//      MObjectSetShadow(BIL.VFO.lblX[i], WS_SHADOW_IN, 1, 0);
        MObjectSetShadow(BIL.VFO.lblX[i], WS_NONE, 0, 0);

        MObjectSetResize(BIL.VFO.lblX[i], False, True);
        if(i==0)
            MObjectAlign(BIL.VFO.lblX[i], LEFT_ALIGN, TOP_ALIGN);
        if(i==sizeof(BIL.VFO.lblX)/sizeof(BIL.VFO.lblX[0]) - 1)
        {
            MObjectAlign(BIL.VFO.lblX[i], RIGHT_ALIGN, TOP_ALIGN);
            //MLabelSetAlignment(BIL.VFO.lblX[i], RIGHT_ALIGN);

        }
    }

    

    tb = MCreateColForm(BIL.VFO.View_Sh);
    MFormSetSpacing(tb, 0);
    //MTableFormSetColAlign(tb, 0, LEFT_ALIGN);
    MObjectSetBackgroundRGB(tb, 184, 132, 0);
    MObjectSetBackgroundRGB(tb, DPAL.DB_BG[0], DPAL.DB_BG[1], DPAL.DB_BG[2]);
    MObjectSetResize(tb, True, False);

    lbl = MCreateLabel(tb, "Equipment:", plfont);
    MObjectSetResize(lbl, False, True);
    MObjectAlign(lbl, LEFT_ALIGN, UNDEF_ALIGN);
    MObjectSetForegroundRGB(lbl, DPAL.DB_FG_Plbl[0], DPAL.DB_FG_Plbl[1], DPAL.DB_FG_Plbl[2]);
    MObjectSetBackgroundRGB(lbl, DPAL.DB_BG_Plbl[0], DPAL.DB_BG_Plbl[1], DPAL.DB_BG_Plbl[2]);

                                rb = MCreateRButton(tb, "SPATRAMPLUS", FIXED_SMALL);
                            MPButtonSetCallback(rb, DB_EqTypePlotCB, (void *) 3);
                            MObjectAlign(rb, LEFT_ALIGN, UNDEF_ALIGN);
                            MObjectSetForegroundRGB(rb, 255, 255, 255);
                            MObjectSetCompositeWidth(rb, 105);
                            if(DAS.Paramini.EqType == 3)
                                MRButtonActivate(rb);
                            
                            rb = MCreateRButton(tb, "SPATRAM2", FIXED_SMALL);
                            MPButtonSetCallback(rb, DB_EqTypePlotCB, (void *) 9);
                            MObjectAlign(rb, LEFT_ALIGN, UNDEF_ALIGN);
                            MObjectSetForegroundRGB(rb, 255, 255, 255);
                            MObjectSetCompositeWidth(rb, 105);
                            if(DAS.Paramini.EqType == 9)
                                MRButtonActivate(rb);
                                
                            rb = MCreateRButton(tb, "SPATRAM3", FIXED_SMALL);
                            MPButtonSetCallback(rb, DB_EqTypePlotCB, (void *) 10);
                            MObjectAlign(rb, LEFT_ALIGN, UNDEF_ALIGN);
                            MObjectSetForegroundRGB(rb, 255, 255, 255);
                            MObjectSetCompositeWidth(rb, 105);
                            if(DAS.Paramini.EqType == 10)
                                MRButtonActivate(rb);

                        /*  rb = MCreateRButton(tb, "SPATRAM", FIXED_SMALL);
                            MPButtonSetCallback(rb, DB_EqTypePlotCB, (void *) 0);
                            MObjectAlign(rb, LEFT_ALIGN, TOP_ALIGN);
                            MObjectSetForegroundRGB(rb, 255, 255, 255);
                            MObjectSetCompositeWidth(rb, 85);
                            if( DAS.Paramini.EqType == 0)
                                MRButtonActivate(rb);
                        */
                            rb = MCreateRButton(tb, "TROPOGAS", FIXED_SMALL);
                            MPButtonSetCallback(rb, DB_EqTypePlotCB, (void *) 1);
                            MObjectAlign(rb, LEFT_ALIGN, TOP_ALIGN);
                            MObjectSetForegroundRGB(rb, 255, 255, 255);
                            MObjectSetCompositeWidth(rb, 85);
                            if(DAS.Paramini.EqType == 1)
                                MRButtonActivate(rb);

                            rb = MCreateRButton(tb, "LIS", FIXED_SMALL);
                            MPButtonSetCallback(rb, DB_EqTypePlotCB, (void *) 2);
                            MObjectAlign(rb, LEFT_ALIGN, TOP_ALIGN);
                            MObjectSetForegroundRGB(rb, 255, 255, 255);
                            MObjectSetCompositeWidth(rb, 85);
                            if(DAS.Paramini.EqType == 2)
                                MRButtonActivate(rb);

                            rb = MCreateRButton(tb, "GASCODNG1", FIXED_SMALL);
                            MPButtonSetCallback(rb, DB_EqTypePlotCB, (void *) 4);
                            MObjectAlign(rb, LEFT_ALIGN, UNDEF_ALIGN);
                            MObjectSetForegroundRGB(rb, 255, 255, 255);
                            MObjectSetCompositeWidth(rb, 85);
                            if(DAS.Paramini.EqType == 4)
                                MRButtonActivate(rb);

                        /*  rb = MCreateRButton(tb, "GASCODOffAxis", FIXED_SMALL);
                            MPButtonSetCallback(rb, DB_EqTypePlotCB, (void *) 5);
                            MObjectAlign(rb, LEFT_ALIGN, UNDEF_ALIGN);
                            MObjectSetForegroundRGB(rb, 255, 255, 255);
                            MObjectSetCompositeWidth(rb, 105);
                            if(DAS.Paramini.EqType == 5)
                                MRButtonActivate(rb);
                        */


                            rb = MCreateRButton(tb, "GASCODNG2", FIXED_SMALL);
                            MPButtonSetCallback(rb, DB_EqTypePlotCB, (void *) 6);
                            MObjectAlign(rb, LEFT_ALIGN, UNDEF_ALIGN);
                            MObjectSetForegroundRGB(rb, 255, 255, 255);
                            MObjectSetCompositeWidth(rb, 105);
                            if(DAS.Paramini.EqType == 6)
                                MRButtonActivate(rb);

                            rb = MCreateRButton(tb, "GASCODNG3", FIXED_SMALL);
                            MPButtonSetCallback(rb, DB_EqTypePlotCB, (void *) 7);
                            MObjectAlign(rb, LEFT_ALIGN, UNDEF_ALIGN);
                            MObjectSetForegroundRGB(rb, 255, 255, 255);
                            MObjectSetCompositeWidth(rb, 105);
                            if(DAS.Paramini.EqType == 7)
                                MRButtonActivate(rb);

                            rb = MCreateRButton(tb, "GASCODNG4", FIXED_SMALL);
                            MPButtonSetCallback(rb, DB_EqTypePlotCB, (void *) 8);
                            MObjectAlign(rb, LEFT_ALIGN, UNDEF_ALIGN);
                            MObjectSetForegroundRGB(rb, 255, 255, 255);
                            MObjectSetCompositeWidth(rb, 105);
                            if(DAS.Paramini.EqType == 8)
                                MRButtonActivate(rb);
                



    MShellRealizeXY( BIL.VFO.View_Sh, 0, 0);

//  MUnloadFont(alfont);
//  MUnloadFont(plfont);
    

//  rformw = MObjectGetWidth(_rowform003);
    

    if(  ((PrgFile[0] != 0) | (Master == 1)) & (FLAG.exec == 1)  )
    {
        delay(4000);
        ClosePlotCB(BIL.VFO.View_Sh, 0, 0);
    }


    
    return 0;

}

Here is the caller graph for this function:

ViewPre()

int ViewPre	(	FILE *	nf,
		long	position
	)

Definition at line 2241 of file Spat_Plot.c.

References ContFP, MMessageDialog(), and ViewNext().

Referenced by D_PButt_CB(), and MenuFileOLP_CB().

{
    int er = 0;

    er = fseek(nf, position, SEEK_SET);
    if (ContFP == 0)
    {
        er = MMessageDialog("DAS information", "Already at the beginning Of File.\n Please use the 'Next' Button ?" , "OK", NULL);
        return 1;
    }
    else
    {
        ContFP--;
        ContFP--;
        ViewNext(nf);
        return 0;
    }
    return 0;

}

Here is the call graph for this function:

Here is the caller graph for this function:

ViewPre_BIN()

int ViewPre_BIN	(	int	nf,
		long	position
	)

Definition at line 2263 of file Spat_Plot.c.

References ContFP, MMessageDialog(), and ViewNext_BIN().

Referenced by D_PButt_CB(), and MenuFileOLP_CB().

{
    int er = 0;

    er = lseek(nf, position, SEEK_SET);
    if (ContFP == 0)
    {
        er = MMessageDialog("DAS information", "Already at the beginning Of File.\n Please use the 'Next' Button ?" , "OK", NULL);
        return 1;
    }
    else
    {
        ContFP--;
        ContFP--;
        ViewNext_BIN(nf);
        return 0;
    }
    return 0;

}

Here is the call graph for this function:

Here is the caller graph for this function:

Visualizza()

int Visualizza	(	int	mod,
		char *	nomefile
	)

Definition at line 2069 of file Spat_Plot.c.

References AllocUSMat(), CCD_INFO, config::CCDType, viewformobj::cmdpb, D_AssignLabelPlot(), DB_InitDil(), DC_LoadCameraConfig(), DC_OpenPar(), DC_RWData(), bil::DFILEM, DI_ImageProperties(), DI_Regen(), DI_ScanMaxMin(), DOASMODE, das::DOption, bil::DPLOT, DrawButtons(), flag::exemode, FBIF, FDAT, Fitem, das::Flag, Fmenu, GrafoIMG(), img::High, optionini::hlineafter, optionini::hlinebefore, d_fileman::HOMEDIRECTORY, IDX, IDY, img::IHigh, img::ILow, img::Imat, d_view::ImatGraf, d_view::ImatOrig, dil::Img, d_view::Imin, viewformobj::lblmin, img::Low, MakeItemSensitiveCB(), MakeItemUnsensitiveCB(), image::Mat, MMenuItemSetSensitive(), MMenuItemSetUnsensitive(), MMessageDialog(), MObjectSetSensitive(), MObjectSetText(), MObjectSetUnsensitive(), MShellRaise(), MShellSetTitle(), NFDATI, NUMFDATI, O_BINARY, OFFLINEPLOT, ON_OFFLINEPLOT, config::Platform, PTF_INFO, READ_DATA, ReadHeader_ASCII(), ReadHeader_BIN(), ReadIMG(), ReadIMG_BIN(), REL_FILE_POS, viewformobj::selallpb, Server, SwapMatrix(), bil::VFO, viewformobj::View_Sh, d_fileman::WORKDIRECTORY, and viewformobj::YScalePB.

Referenced by D_PButt_CB(), MenuFileOLP_CB(), and RunOLP().

{

    FILE    *fd;
    int fn;
    char buf[128];
    int er=0;
    
    switch (mod)
    {
        case FBIF: //Bif Ext
            fn = open(nomefile,  O_RDONLY | O_BINARY, S_IREAD );
            if(fn < 0)  return(-1);
            break;
        case FDAT: //Dat Ext
            fd = fopen(nomefile, "r");
            if(fd < 0) return 1;
            break;
    }



    sprintf(buf,"PLOTTING File: %s", nomefile);
    MShellSetTitle(BIL.VFO.View_Sh, buf);
    
//  MObjectSetUnsensitive(BIL.VFO.cmdpb[0]);  //Set Button "Open" Unsensitive
    MObjectSetText(BIL.VFO.cmdpb[0], "Save As");

    


    MObjectSetSensitive(BIL.VFO.cmdpb[1]);  //Set Button "Next" Sensitive
    MObjectSetSensitive(BIL.VFO.cmdpb[2]); // Set "Set as Io" button as sensitive
    MObjectSetSensitive(BIL.VFO.cmdpb[3]); // Set "CloseFile" button as sensitive
    MObjectSetSensitive(BIL.VFO.cmdpb[4]); // Set "Print" button as sensitive
    MObjectSetSensitive(BIL.VFO.cmdpb[7]); 
    MObjectSetSensitive(BIL.VFO.cmdpb[6]); 
    MObjectSetUnsensitive(BIL.VFO.cmdpb[5]);  //Set Button "CloseWin" Unsensitive

    if( (!DAS.Flag.exemode == OFFLINEPLOT) | (!DAS.Flag.exemode == DOASMODE))
    {
        MObjectSetSensitive(BIL.VFO.selallpb); 
        MObjectSetSensitive(BIL.VFO.YScalePB); 
    }


    if( (DAS.Flag.exemode == OFFLINEPLOT) | (DAS.Flag.exemode == DOASMODE))
    {
        MakeItemUnsensitiveCB (Fmenu, Fitem[0], 0); //Open Unsensitive
        MakeItemSensitiveCB (Fmenu, Fitem[1], 0);   //Next Sensitive
//      Fitem[2] = MMenuAddItem(Fmenu, "Previous", (MENU_ITEM_CB) MenuFileOLP_CB, (void *)2);
            MakeItemUnsensitiveCB (Fmenu, Fitem[2], 0);
        MakeItemSensitiveCB (Fmenu, Fitem[3], 0); //Save as.. Sensitive
        MakeItemSensitiveCB (Fmenu, Fitem[4], 0); // Close Sensitive
        MakeItemUnsensitiveCB (Fmenu, Fitem[5], 0);// Close Plot Sensitive
/*
        Tmenu = MCreateMenu(dmenu, "Tools");
        Titem[0] = MMenuAddItem(Tmenu, "Filter/Smooth", (MENU_ITEM_CB) MenuToolsOLP_CB, 0);
        Titem[1] = MMenuAddItem(Tmenu, "Zoom", (MENU_ITEM_CB) MenuToolsOLP_CB, (void *)1);
        Titem[2] = MMenuAddItem(Tmenu, "Sun calculator", (MENU_ITEM_CB) MenuToolsOLP_CB, (void *)2);
        Titem[3] = MMenuAddItem(Tmenu, "Print ", (MENU_ITEM_CB) MenuToolsOLP_CB, (void *)3);

        Optmenu = MCreateMenu(dmenu, "Options");
        item = MMenuAddItem(Optmenu, "X Units", (MENU_ITEM_CB) NULL, 0);
        item = MMenuAddItem(Optmenu, "Y Scale", (MENU_ITEM_CB) NULL, 0);
        item = MMenuAddItem(Optmenu, "Hidden Lines", (MENU_ITEM_CB) NULL, 0);

        menu = MCreateMenu(dmenu, "Help");
        item = MMenuAddItem(menu, "About", (MENU_ITEM_CB) NULL, 0);
*/
    }




    //MObjectSetBackgroundRGB(BIL.DPLOT.drawapl, 220, 220, 220);
    if(DAS.Flag.exemode == OFFLINEPLOT)
    {

        MMenuItemSetUnsensitive(Fitem[0]);
        MMenuItemSetSensitive(Fitem[1]);
        MMenuItemSetSensitive(Fitem[3]);
        MMenuItemSetSensitive(Fitem[4]);
        MMenuItemSetUnsensitive(Fitem[5]);
    }

    switch (mod)
    {
        case FBIF: //Bif Ext
            NFDATI = fn;
            er = ReadHeader_BIN(fn);
            D_AssignLabelPlot();
            break;

        case FDAT: //dat Ext
            NUMFDATI = fd;
            er = ReadHeader_ASCII(1, fd); //New Format (data after 10/12/03)
            break;
    }

    DrawButtons(DAS.DOption.hlinebefore, DAS.DOption.hlineafter , IDY);
    

    BIL.DPLOT.ImatOrig = AllocUSMat(IDX, IDY);
    BIL.DPLOT.ImatGraf = AllocUSMat(IDX, IDY);
    if (er)
        MMessageDialog("DAS PLOT Inf.", "Unable to allocate memory ...", "OK", NULL);

    REL_FILE_POS[0] = 0;

    switch (mod)
    {
        case FBIF: //Bif Ext
            ReadIMG_BIN(NFDATI, BIL.DPLOT.ImatOrig, IDX, IDY);
            break;

        case FDAT: //Dat Ext
            ReadIMG(NUMFDATI, BIL.DPLOT.ImatOrig, IDX, IDY);
            break;
    }
    

    GrafoIMG(ON_OFFLINEPLOT);

        sprintf(buf,"%u", BIL.DPLOT.Imin);
        MObjectSetText(BIL.VFO.lblmin, buf);


 if((DAS.Flag.exemode == OFFLINEPLOT) | (DAS.Flag.exemode == DOASMODE))
 {
     _chdir(BIL.DFILEM.HOMEDIRECTORY);

    DC_LoadCameraConfig("config\\camera.cfg", &Cfg);
    DC_OpenPar(Cfg.Platform, Cfg.CCDType, 0);
    DC_RWData(CCD_INFO, READ_DATA, &DC_CCD, 0);
    DC_RWData(PTF_INFO, READ_DATA, &DC_HP, 0);
//  strcpy(Cfg.PtfName, DC_PtfName(0));
//  DC_LoadPlatform(Cfg.PtfName);

    
/*******************/   
/***  Init Dil   ***/
    DB_InitDil();
/*******************/
    
    _chdir(BIL.DFILEM.WORKDIRECTORY);

    SwapMatrix(BIL.DPLOT.ImatGraf, DIL.Img.Mat[Server].Imat, IDX, IDY);

            // Y Zoom for high vertical binning
            if((IDY) < 50)
            DI_ImageProperties(Server, (U16)IDX, (U16)IDY, (U16)IDX, (U16)IDY, 0, 0, NULL, 1, 100 / IDY, 0);
//          Image[Server].attrib = 1;
            DI_Regen(Server);



    DI_ScanMaxMin(Server, &DIL.Img.Mat[Server].High, &DIL.Img.Mat[Server].Low);         
    DIL.Img.Mat[Server].ILow = DIL.Img.Mat[Server].Low ;
    DIL.Img.Mat[Server].IHigh = DIL.Img.Mat[Server].High ;
    DI_Regen(Server);
 }
    //The focus taken by the Plot shell
    MShellRaise(BIL.VFO.View_Sh);

    return 0;

}

Here is the call graph for this function:

Here is the caller graph for this function:

WriteIMG()

void WriteIMG	(	FILE *	file,
		unsigned short *	mat,
		int	hp,
		int	vp
	)

Definition at line 1178 of file Spat_Plot.c.

Referenced by SaveDataOffLine().

{

    
    int x, y;

    for(y = 0; y < vp; y++)
    {
        for(x = 0; x < hp; x++)
        {
            if((x % 10) == 0)
            {
                if(y == 0 && x == 0)
                {
                }
                else
                    fprintf(file, "\n", NULL);
            }   
            fprintf(file, "%5u ", mat[y * hp + x]);

        }

    }
    fprintf(file, "\n", NULL);


}

Here is the caller graph for this function:

WriteIMG_BIN()

void WriteIMG_BIN	(	int	fd,
		unsigned short *	mat,
		int	hp,
		int	vp
	)

Definition at line 1153 of file Spat_Plot.c.

Referenced by SaveDataOffLine().

{
    int x, y;
    
        for(x = 0; x < hp; x++)
        {
            for(y = 0; y < vp; y++)
                write(fd, &mat[y * hp + x], 2);
            
        }
}

Here is the caller graph for this function:

X2Counts()

int X2Counts

(

int

x

)

Definition at line 178 of file Spat_Plot.c.

References d_view::COSTX, bil::DPLOT, and d_view::oX.

Referenced by DB_AreaInput().

{
    
    return (int)((x - BIL.DPLOT.oX) / BIL.DPLOT.COSTX); 

}

Here is the caller graph for this function:

Y2Counts()

unsigned int Y2Counts

(

int

y

)

Definition at line 190 of file Spat_Plot.c.

References d_view::COSTY, bil::DPLOT, d_view::Imin, and d_view::oY.

Referenced by DB_AreaInput().

{

    return - (int)BIL.DPLOT.COSTY * (y - BIL.DPLOT.oY) + BIL.DPLOT.Imin; 

}

Here is the caller graph for this function:

Variable Documentation

alfont

MTFont alfont

Definition at line 41 of file Spat_Plot.c.

Referenced by ViewPlot().

BIL

bil BIL

Definition at line 35 of file Spat_Plot.c.

Cfg

config Cfg

Definition at line 27 of file Spat_Plot.c.

DAS

das DAS

DAS structure.

Definition at line 39 of file Spat_Plot.c.

DC_CCD

ccd DC_CCD

Definition at line 25 of file Spat_Plot.c.

DC_HP

ptf DC_HP

Definition at line 26 of file Spat_Plot.c.

DIL

dil DIL

Definition at line 28 of file Spat_Plot.c.

DOAS

doas DOAS

Definition at line 37 of file Spat_Plot.c.

DPAL

palette DPAL

Definition at line 29 of file Spat_Plot.c.

ffilenames

char* ffilenames[]

Initial value:

={{"Empty"},
                {"Empty"},
                {"Empty"},
                {"Empty"},
                {"Empty"},
                {"Empty"},
                {"Clear List              "}}

Definition at line 3572 of file Spat_Plot.c.

Referenced by ViewPlot().

Fitem

MENU_ITEM Fitem[6]

Definition at line 46 of file Spat_Plot.c.

Referenced by CloseFile(), CloseFile_BIN(), ViewNext(), ViewNext_BIN(), ViewPlot(), and Visualizza().

flagclear

int flagclear = 0

Definition at line 3581 of file Spat_Plot.c.

Referenced by PopUp_CB().

Fmenu

MOBJECT Fmenu

Definition at line 47 of file Spat_Plot.c.

Referenced by ViewPlot(), and Visualizza().

item_pd

MENU_ITEM item_pd

Definition at line 3571 of file Spat_Plot.c.

Referenced by ViewPlot().

mattempbuff

unsigned int* mattempbuff

Definition at line 2064 of file Spat_Plot.c.

maxploth

int maxploth

Definition at line 51 of file Spat_Plot.c.

Referenced by D_DoLens(), DrawAreaPlotCB(), LoadIo(), RefreshDrArea(), ViewNext(), ViewNext_BIN(), and ViewPlot().

maxplotw

int maxplotw

Definition at line 51 of file Spat_Plot.c.

Referenced by DrawAreaPlotCB(), LoadIo(), RefreshDrArea(), ViewNext(), ViewNext_BIN(), and ViewPlot().

newfont

MTFont newfont

Definition at line 41 of file Spat_Plot.c.

NFileNameF

char NFileNameF[32]

Definition at line 71 of file CreateForms.c.

Referenced by D_PButt_CB(), DB_HorComm_CB(), DB_KeyB_CB(), and PopUp_CB().

Optmenu

MOBJECT Optmenu

Definition at line 47 of file Spat_Plot.c.

Referenced by ViewPlot().

plfont

MTFont plfont

Definition at line 41 of file Spat_Plot.c.

Referenced by ViewPlot().

popup_pd

MOBJECT popup_pd

Definition at line 3570 of file Spat_Plot.c.

Referenced by ViewPlot().

Titem

MENU_ITEM Titem[4]

Definition at line 46 of file Spat_Plot.c.

Referenced by ViewPlot().

Tmenu

MOBJECT Tmenu

Definition at line 47 of file Spat_Plot.c.

Referenced by ViewPlot().