ViTES_1.c

Go to the documentation of this file.

#include <windows.h>
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <malloc.h>
#include <math.h>
#include <io.h>
#include "mgui.h"
#include "DAS_Spatram.h"
#include "vites_1.h"


#define IsEven(a)   (!((a)&1))
MOBJECT lbl_cur;
MOBJECT sh_vitesa;
struct vites VITES;
EDIT_CURS edc;



const char *hvitesa[] = {{"Autoranging for optimal exposure time"},     //0 
                            {"Averaged measurements"},  //1 - O:   
                            {"Re-start the execution of the PRG file"},     //2    
                            {"Auto calibration with HG Lamp (hg line at 4358A on pix 512)"},    //3      
                            {"Performs a DARK Measurement (shutter closed)"},   //4
                            {"Set the exposure time"},  //5 T:  S_GEOM    
                            {"Set the filter position (0 - 6)"},        //6 T:  S_GEOM      
                            {"Performs a LIGHT Measurement (shutter opened)"},  //7 T:  S_GEOM     
                            {"Home for Filter Wheel"},  //8 T:  S_GEOM      
                            {"Home for Grating"},   //9
                            {"Home for Input Mirror"},  //10
                            {"HG lamp OFF"},    //11
                            {"HG lamp ON"}, //12
                            {"Text after this command is displayed in the Status label"},   //13
                            {"Performs a measurement setting Mirror, Grating, Filter, TExp, Saving mode..."},   //14
                            {"Set Input Mirror position "}, //15
                            {"Display Plot"},   //16
                            {"QJ lamp OFF"},    //17
                            {"QJ lamp ON"}, //18
                            {"NOT Used"},   //19
                            {"Text after this command is a comment"},   //20
                            {"Save the measurement in the predefined file"},    //21
                            {"Stop the program execution for xx millisec"}, //22
                            {"Set the Grating position"},   //23
                            {"Stop the execution of the PRG File"}};    //24

/*
 * Shell creation prototypes
 */
MOBJECT MDCreatesh_vitesa(void);

/*
 * Project Defined Callbacks
 */
void VIKeyCom_CB(MOBJECT p, void *od, void *ad);
void MLCursorPositionCB (MOBJECT edit, EDIT_CURS *ec, void *lbl);
void MLNewValueCB (MOBJECT edit, char *new_value, void *label);

/*****************************************************
 *  This Callback is called by the EDIT
 *  when its cursor position changes.
 *****************************************************/
void
MLCursorPositionCB (MOBJECT edit, EDIT_CURS *ec, void *lbl)
{
  char str[128];

  sprintf (str, "Pos: %4d X: %3d Y: %3d", ec->pos, ec->pos_x, ec->pos_y);
  MObjectSetText ((MOBJECT) lbl, str);
    edc.pos = ec->pos;
    edc.pos_x = ec->pos_x;
    edc.pos_y = ec->pos_y;
}

/*****************************************************
 *  This Callback is called by the EDIT when its
 *  text value has changed.
 *****************************************************/
void
MLNewValueCB (MOBJECT edit, char *new_value, void *label)
{
/*
 * The EDIT Text has been modified!
 */
  if (MObjectGetUserData (edit) == NULL)
   // MObjectSetText ((MOBJECT) label, "Modified");
  MObjectSetUserData (edit, (void *) True);
}

void SelKeywCB(MOBJECT edit, EDIT_CURS *pedc, void *ad)
{
    int     d = (int) ad;
    int er = 0, ls = 0;
    char buff[128];

    switch(d)
    {
        //AutoRange
        case 0:
            sprintf(buff,"%s\n", "AUTORNG");
            ls = strlen(buff);
            MSelectObject(edit);
            MEditChangeText(edit, pedc->pos, ls, buff, ls); 
            pedc->pos += ls; 
            MLCursorPositionCB (edit, pedc, lbl_cur);
            break;
        //AVGCCD    
        case 1:
            break;
        //Begin
        case 2 :
            sprintf(buff,"%s\n", "BEGIN");
            ls = strlen(buff);
            MSelectObject(edit);
            MEditChangeText(edit, pedc->pos, ls, buff, ls); 
            pedc->pos += ls; 
            MLCursorPositionCB (edit, pedc, lbl_cur);

            break;
            
        //CALIBRA
        case 3 :
            sprintf(buff,"%s\n", "CALIBRA");
            ls = strlen(buff);
            MSelectObject(edit);
            MEditChangeText(edit, pedc->pos, ls, buff, ls); 
            pedc->pos += ls; 
            MLCursorPositionCB (edit, pedc, lbl_cur);
            break;
        //DARKC
        case 4 :
            break;
        //EXPO
        case 5 :
            break;
        //FILTER
        case 6 :
            break;
        //GETCCD
        case 7 :
            break;
        //H_FILTER
        case 8 :
            sprintf(buff,"%s\n", "H_FILTER");
            ls = strlen(buff);
            MSelectObject(edit);
            MEditChangeText(edit, pedc->pos, ls, buff, ls); 
            pedc->pos += ls; 
            MLCursorPositionCB (edit, pedc, lbl_cur);
            break;
        //H_GRAT
        case 9 :
            sprintf(buff,"%s\n", "H_GRAT");
            ls = strlen(buff);
            MSelectObject(edit);
            MEditChangeText(edit, pedc->pos, ls, buff, ls); 
            pedc->pos += ls; 
            MLCursorPositionCB (edit, pedc, lbl_cur);
            break;

        //H_MIRROR
        case 10 :
            sprintf(buff,"%s\n", "H_MIRROR");
            ls = strlen(buff);
            MSelectObject(edit);
            MEditChangeText(edit, pedc->pos, ls, buff, ls); 
            pedc->pos += ls; 
            MLCursorPositionCB (edit, pedc, lbl_cur);
            break;
        //HG_OFF
        case 11 :
            sprintf(buff,"%s\n", "HG_OFF");
            ls = strlen(buff);
            MSelectObject(edit);
            MEditChangeText(edit, pedc->pos, ls, buff, ls); 
            pedc->pos += ls; 
            MLCursorPositionCB (edit, pedc, lbl_cur);
            break;
        //HG_ON
        case 12 :
            sprintf(buff,"%s\n", "HG_ON");
            ls = strlen(buff);
            MSelectObject(edit);
            MEditChangeText(edit, pedc->pos, ls, buff, ls); 
            pedc->pos += ls; 
            MLCursorPositionCB (edit, pedc, lbl_cur);
            break;
        //LABEL
        case 13 :
            sprintf(buff,"%s\n", "LABEL");
            ls = strlen(buff);
            MSelectObject(edit);
            MEditChangeText(edit, pedc->pos, ls, buff, ls); 
            pedc->pos += ls; 
            MLCursorPositionCB (edit, pedc, lbl_cur);
            break;
        //MEASURE
        case 14 :
            break;
        //MIRROR
        case 15 :
            break;
        //PLOT
        case 16 :
            sprintf(buff,"%s\n", "PLOT");
            ls = strlen(buff);
            MSelectObject(edit);
            MEditChangeText(edit, pedc->pos, ls, buff, ls); 
            pedc->pos += ls; 
            MLCursorPositionCB (edit, pedc, lbl_cur);
            break;
        //QJ_OFF
        case 17 :
            sprintf(buff,"%s\n", "QJ_OFF");
            ls = strlen(buff);
            MSelectObject(edit);
            MEditChangeText(edit, pedc->pos, ls, buff, ls); 
            pedc->pos += ls; 
            MLCursorPositionCB (edit, pedc, lbl_cur);
            break;
        //QJ_ON
        case 18 :
            sprintf(buff,"%s\n", "QJ_ON");
            ls = strlen(buff);
            MSelectObject(edit);
            MEditChangeText(edit, pedc->pos, ls, buff, ls); 
            pedc->pos += ls; 
            MLCursorPositionCB (edit, pedc, lbl_cur);
            break;
        //RADIO
        case 19 :
            break;
        //REM
        case 20 :
            sprintf(buff,"%s\n", "REM");
            ls = strlen(buff);
            MSelectObject(edit);
            MEditChangeText(edit, pedc->pos, ls, buff, ls); 
            pedc->pos += ls; 
            MLCursorPositionCB (edit, pedc, lbl_cur);
            break;
        //SAVE
        case 21 :
            sprintf(buff,"%s\n", "SAVE");
            ls = strlen(buff);
            MSelectObject(edit);
            MEditChangeText(edit, pedc->pos, ls, buff, ls); 
            pedc->pos += ls; 
            MLCursorPositionCB (edit, pedc, lbl_cur);
            break;
        //WAIT
        case 22 :
            break;
        //WAVELEN
        case 23 :
            break;
        //XEND
        case 24 :
            sprintf(buff,"%s\n", "XEND");
            ls = strlen(buff);
            MSelectObject(edit);
            MEditChangeText(edit, pedc->pos, ls, buff, ls); 
            pedc->pos += ls; 
            MLCursorPositionCB (edit, pedc, lbl_cur);
            break;

    }   




}
void VIKeyCom_CB(MOBJECT p, void *od, void *ad)
{
    int     c = (int) ad;
    int er = 0, ls = 0;
//  char buff[128];

    SelKeywCB(VITES.edit, &edc, (void *)c);

}



/*
 * Shell creation functions
 */

MOBJECT MDCreatesh_vitesa(void)
{
    MOBJECT _colform000;
    MOBJECT _rowform000;
//  MOBJECT _label000;
    MOBJECT _tablefrm000;
//  MOBJECT _label001;
//  MOBJECT _sedit000;
    MOBJECT _rowform001;
    MOBJECT _rowform002;
    MOBJECT _tablefrm001;
    MOBJECT _tablefrm002;
    MOBJECT _label002;
    MOBJECT _label003;
    MOBJECT _label004;
    MOBJECT _label005;
    MOBJECT _label006;
    MOBJECT _label007;
    MOBJECT _label008;
    MOBJECT _label009;
    MOBJECT _label010;
    MOBJECT _label011;
    MOBJECT _spinedit000;
    MOBJECT _spinedit001;
    MOBJECT _spinedit002;
    MOBJECT _spinedit003;
    MOBJECT _edit000;
    MOBJECT _spinedit004;
    MOBJECT _spinedit005;
    MOBJECT _spinedit006;
    MOBJECT _pbutton012;
    MOBJECT _tablefrm003;
    MOBJECT _pbutton013;
    MOBJECT _pbutton014;
    MOBJECT _pbutton015;
    MOBJECT lbl;
//  MOBJECT lbl_cur;

    int i;
//  char buff[64];
    
//  VITES.epos = 0;
//  VITES.ex = 0;
//  VITES.ey = 0;
    
    sh_vitesa = MCreateShell("ViTESA-Visual Table Editor for Spectrometer Activity", 0);
    MObjectSetBackgroundRGB(sh_vitesa, DPAL.DB_BG[0], DPAL.DB_BG[1], DPAL.DB_BG[2]);

    _colform000 = MCreateColForm(sh_vitesa);

    _rowform000 = MCreateRowForm(_colform000);
    MObjectAlign(_rowform000, LEFT_ALIGN, TOP_ALIGN);
    MObjectSetResize(_rowform000, False, False);
    MObjectSetBackgroundRGB(_rowform000, DPAL.DB_BG[0], DPAL.DB_BG[1], DPAL.DB_BG[2]);

    lbl = MCreateLabel(_rowform000, "KeyWords", HELV_SMALL);
    MObjectAlign(lbl, CENTER_ALIGN, TOP_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]);


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

    for(i=0;i<43;i++)
    {
        //sprintf(buff,"%s",VITES.keyw[i]);
        VITES.pbkw[i] = MCreatePButton(_tablefrm000, KeyCode[i], HELV_SMALL);
        MPButtonSetCallback(VITES.pbkw[i], VIKeyCom_CB, (void *) i);
        MObjectSetBackgroundRGB(VITES.pbkw[i], DPAL.DB_UnSel[0], DPAL.DB_UnSel[1], DPAL.DB_UnSel[2]);
        MObjectSetForegroundRGB(VITES.pbkw[i], DPAL.DB_UnSelFG[0], DPAL.DB_UnSelFG[1], DPAL.DB_UnSelFG[2]);
        MObjectSetCompositeWidth(VITES.pbkw[i], 90);
        //MObjectSetPopupHelp(VITES.pbkw[i],hvitesa[i] , 200, 5000);

    }
    _rowform001 = MCreateRowForm(_colform000);
    MObjectSetBackgroundRGB(_rowform001, DPAL.DB_BG[0], DPAL.DB_BG[1], DPAL.DB_BG[2]);
    MObjectSetResize(_rowform001, True, True);

    lbl = MCreateLabel(_rowform001, "File: NoName.PRG", HELV_SMALL);
    MObjectAlign(lbl, LEFT_ALIGN, TOP_ALIGN);
    MObjectSetResize(lbl, False, False);
    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_cur = MCreateLabel(_rowform001, "                                             ", HELV_SMALL);
    MObjectAlign(lbl_cur, LEFT_ALIGN, TOP_ALIGN);
    MObjectSetResize(lbl_cur, False, False);
    MObjectSetForegroundRGB(lbl_cur, DPAL.DB_FG_Plbl[0], DPAL.DB_FG_Plbl[1], DPAL.DB_FG_Plbl[2]);
    MObjectSetBackgroundRGB(lbl_cur, DPAL.DB_BG_Plbl[0], DPAL.DB_BG_Plbl[1], DPAL.DB_BG_Plbl[2]);

    VITES.edit = MCreateScrolledMLEdit(_rowform001, "", 98, 10, FIXED_SMALL);
    MObjectSetResize(VITES.edit, True, True);
    MObjectSetForegroundRGB(VITES.edit, DPAL.DB_FG_Albl[0], DPAL.DB_FG_Albl[1], DPAL.DB_FG_Albl[2]);
    MObjectSetBackgroundRGB(VITES.edit, DPAL.DB_BG_Albl[0], DPAL.DB_BG_Albl[1], DPAL.DB_BG_Albl[2]);
    MEditSetCursorPosCallback (VITES.edit, MLCursorPositionCB, lbl_cur);
    MEditSetNewValueCallback (VITES.edit, MLNewValueCB, NULL);




    _rowform002 = MCreateRowForm(sh_vitesa);
    MFormSetSpacing(_rowform002, 1);
    MObjectAlign(_rowform002, CENTER_ALIGN, CENTER_ALIGN);
    MObjectSetResize(_rowform002, False, False);
    MObjectSetBackgroundRGB(_rowform002, DPAL.DB_BG[0], DPAL.DB_BG[1], DPAL.DB_BG[2]);
    MObjectSetForegroundRGB(_rowform002, DPAL.DB_FG_Plbl[0], DPAL.DB_FG_Plbl[1], DPAL.DB_FG_Plbl[2]);

    _tablefrm001 = MCreateTableForm(_rowform002, 2);
    MFormSetSpacing(_tablefrm001, 1);
    MObjectSetResize(_tablefrm001, False, False);
    MObjectSetBackgroundRGB(_tablefrm001, DPAL.DB_BG[0], DPAL.DB_BG[1], DPAL.DB_BG[2]);
    MObjectSetForegroundRGB(_tablefrm001, DPAL.DB_FG_Plbl[0], DPAL.DB_FG_Plbl[1], DPAL.DB_FG_Plbl[2]);

    _tablefrm002 = MCreateTableForm(_tablefrm001, 9);
    MFormSetSpacing(_tablefrm002, 1);
    MTableFormShowGrid(_tablefrm002);
    MObjectSetBackgroundRGB(_tablefrm002, DPAL.DB_BG[0], DPAL.DB_BG[1], DPAL.DB_BG[2]);
    MObjectSetForegroundRGB(_tablefrm002, DPAL.DB_FG_Plbl[0], DPAL.DB_FG_Plbl[1], DPAL.DB_FG_Plbl[2]);


    _label002 = MCreateLabel(_tablefrm002, "KeyWord", HELV_SMALL);

    _label003 = MCreateLabel(_tablefrm002, "Mirror", HELV_SMALL);

    _label004 = MCreateLabel(_tablefrm002, "Grating", HELV_SMALL);

    _label005 = MCreateLabel(_tablefrm002, "Filter", HELV_SMALL);

    _label006 = MCreateLabel(_tablefrm002, "AutoRange", HELV_SMALL);

    _label007 = MCreateLabel(_tablefrm002, "Texp(sec)", HELV_SMALL);

    _label008 = MCreateLabel(_tablefrm002, "MeasType", HELV_SMALL);

    _label009 = MCreateLabel(_tablefrm002, "Save", HELV_SMALL);

    _label010 = MCreateLabel(_tablefrm002, "Plot", HELV_SMALL);

    _label011 = MCreateLabel(_tablefrm002, "MEASURE", FIXED_SMALL);

    _spinedit000 = MCreateSpinEdit(_tablefrm002, "Zenith", 7, 7, FIXED_SMALL, NULL, NULL);
    MEditDisableEditing(_spinedit000);

    _spinedit001 = MCreateSpinEdit(_tablefrm002, "4358", 5, 5, FIXED_SMALL, NULL, NULL);
    MEditDisableEditing(_spinedit001);

    _spinedit002 = MCreateSpinEdit(_tablefrm002, "NULL", 4, 4, FIXED_SMALL, NULL, NULL);
    MEditDisableEditing(_spinedit002);

    _spinedit003 = MCreateSpinEdit(_tablefrm002, "Yes", 4, 4, FIXED_SMALL, NULL, NULL);
    MEditDisableEditing(_spinedit003);
    MEditEnableAutoControlColor(_spinedit003);

    _edit000 = MCreateEdit(_tablefrm002, "0.5", 6, FIXED_SMALL);
    MEditSetFilter(_edit000, 772, "");

    _spinedit004 = MCreateSpinEdit(_tablefrm002, "Light", 5, 5, FIXED_SMALL, NULL, NULL);
    MObjectSetFGColorFromParent(_spinedit004, False);

    _spinedit005 = MCreateSpinEdit(_tablefrm002, "Yes", 4, 4, FIXED_SMALL, NULL, NULL);
    MObjectSetFGColorFromParent(_spinedit005, False);

    _spinedit006 = MCreateSpinEdit(_tablefrm002, "Yes", 4, 4, FIXED_SMALL, NULL, NULL);
    MEditDisableEditing(_spinedit006);
    MEditEnableAutoControlColor(_spinedit006);

    _pbutton012 = MCreatePButton(_tablefrm001, "Add Command", HELV_SMALL);
    MObjectSetBackgroundRGB(_pbutton012, DPAL.DB_UnSel[0], DPAL.DB_UnSel[1], DPAL.DB_UnSel[2]);
    MObjectSetForegroundRGB(_pbutton012, DPAL.DB_UnSelFG[0], DPAL.DB_UnSelFG[1], DPAL.DB_UnSelFG[2]);

    _tablefrm003 = MCreateTableForm(_rowform002, 3);
    MObjectSetFGColorFromParent(_tablefrm003, False);
    MObjectSetBackgroundRGB(_tablefrm003, DPAL.DB_BG[0], DPAL.DB_BG[1], DPAL.DB_BG[2]);
    MObjectSetForegroundRGB(_tablefrm003, DPAL.DB_FG_Plbl[0], DPAL.DB_FG_Plbl[1], DPAL.DB_FG_Plbl[2]);

    _pbutton013 = MCreatePButton(_tablefrm003, "Open...", HELV_SMALL);
    MObjectSetBackgroundRGB(_pbutton013, DPAL.DB_UnSel[0], DPAL.DB_UnSel[1], DPAL.DB_UnSel[2]);
    MObjectSetForegroundRGB(_pbutton013, DPAL.DB_UnSelFG[0], DPAL.DB_UnSelFG[1], DPAL.DB_UnSelFG[2]);

    _pbutton014 = MCreatePButton(_tablefrm003, "Save as...", HELV_SMALL);
    MObjectSetBackgroundRGB(_pbutton014, DPAL.DB_UnSel[0], DPAL.DB_UnSel[1], DPAL.DB_UnSel[2]);
    MObjectSetForegroundRGB(_pbutton014, DPAL.DB_UnSelFG[0], DPAL.DB_UnSelFG[1], DPAL.DB_UnSelFG[2]);

    _pbutton015 = MCreatePButton(_tablefrm003, "Close", HELV_SMALL);
    MObjectSetBackgroundRGB(_pbutton015, DPAL.DB_UnSel[0], DPAL.DB_UnSel[1], DPAL.DB_UnSel[2]);
    MObjectSetForegroundRGB(_pbutton015, DPAL.DB_UnSelFG[0], DPAL.DB_UnSelFG[1], DPAL.DB_UnSelFG[2]);


    return sh_vitesa;
}



void FlushCR_EOF(FILE *f)
{
    char ch;
    int er = 0;
    
    while ((!er) & (ch != 10))
    {
        ch = fgetc(f);
        er = feof(f);
    }

}