Spat_Device.c File Reference

module to handle spectrometer DEVICES. More...

#include <windows.h>
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <fcntl.h>
#include <io.h>
#include <math.h>
#include <sys\stat.h>
#include <time.h>
#include <sys/types.h>
#include <sys/timeb.h>
#include "mgui.h"
#include "DAS_Spatram.h"
#include "dcl.h"
#include "dxl.h"

Include dependency graph for Spat_Device.c:

Go to the source code of this file.

Functions
void	AMS_PWM_Zero (int mod)
void	FANECU (int mod)
	FAN ON/OFF . More...
void	FANPeltier (int mod)
	FAN ON/OFF . More...
void	HgLamp (int mod)
	HG Lamp ON/OFF . More...
void	HiresPS (int mod)
	Hires Power Supply ON/OFF . More...
float	MIGEActualZenAz (int mode)
	convert SUN AZIMUTH and ZENITH angles, to be used with MIGE mode = 0 –> fix azimuth and return azimuth for MIGE positioning mode = 1 –> fix zenith and return zenith for MIGE positioning More...
void	Peltier (int mod)
	Peltier ON/OFF . More...
void	PeltierPS (int mod)
	Peltier Power Supply ON/OFF . More...
void	QjLamp (int mod)
	QJ Lamp ON/OFF . More...
int	SD_Azimuth (float ang, float raz)
	Positioning Azimuth. The Zenith reaches the position specified by ang. More...
int	SD_FilterW (int filter)
	Positioning Filter wheel. The filter wheel move on the filter number specified by filter. See also Filter Wheel page. More...
void	SD_FNTorqueM (int mod)
	Positioning NDFilter. . More...
int	SD_Grating (int ang)
	Positioning Grating. The Grating move to the position specified by ang (Wavelength) More...
int	SD_Mirror (int where)
	Positioning Input Mirror. The Input Mirror reaches the position specified by where. More...
int	SD_NDFilterW (int filter)
	Positioning Filter wheel. The filter wheel move on the filter number specified by filter. See also Filter Wheel page. More...
int	SD_PosAADev (double z, double a)
	perform the simoultaneous positioning of the AltAzimuth platform z = Zenith Axis a = Grating Position More...
int	SD_Position (int m, int w, int f, double z, double a)
	perform the simoultaneous positioning of the Spectrometer Devices m = mirror w = wavelength (Grating) f = filter wheel z = zenith a = azimuth More...
int	SD_PosOMUDev (int m, int w, int f)
	perform the simoultaneous positioning of the Spectrometer Devices in the OMU Unit m = mirror w = wavelength (Grating) f = filter wheel More...
int	SD_Zenith (float ang)
	Positioning Zenith. The Zenith reaches the position specified by ang. More...
int	SD_Zenith_H (float ang)
int	SM_stepr (int t)
	AMS 'steps/round' value return the AMS 'steps/round' value (microstepping) depending on the setted step fractioning. More...
float	SMfraz (int t)
	denominator value of the stepping ratio More...
void	WriteLogAMS (int id, int dira, int dirb, unsigned long stepa, unsigned long stepb)
void	writelogmotor (int mod, int id_motore, int k, int d, long steps, unsigned char ams_id)
	Write Motor Operations on Log File. Write on the SM.LOG file the commands send to the motors. More...

Variables
AzimuthSt	AST
das	DAS
	DAS structure. More...
DXL_par	DXL
flag	FLAG
	flags structure More...
GratingSt	GRS
	Grating. More...
ZenithSt	ZST

Detailed Description

module to handle spectrometer DEVICES.

Author

Daniele Bortoli

Definition in file Spat_Device.c.

Function Documentation

AMS_PWM_Zero()

void AMS_PWM_Zero

(

int

mod

)

Definition at line 2570 of file Spat_Device.c.

References AMS2, AMS_wopto(), ChkDigIO(), delay(), stepm::OOP, and das::StepM.

Referenced by OMU_DoPeltPow().

{

    int er;
    
    er = ChkDigIO(DAS.StepM.OOP[AMS2], 0);
    
    if(mod) 
        DAS.StepM.OOP[AMS2] |= 0x01; //bit 0 , 00000001
    else    
        DAS.StepM.OOP[AMS2] &= 0xFE;        


    // 1's complement
    DAS.StepM.OOP[AMS2] = ~DAS.StepM.OOP[AMS2]; 
    //write on the optoinsulated port
    //AMS_wopto(AMS2, DAS.StepM.OOP[AMS2]);
    AMS_wopto(AMS2, 1);
    delay(500);
    // again 1's complement for restoring the positive logic
    DAS.StepM.OOP[AMS2] = ~DAS.StepM.OOP[AMS2];




}

Here is the call graph for this function:

Here is the caller graph for this function:

FANECU()

void FANECU

(

int

mod

)

FAN ON/OFF
.

Parameters

mod	= 0 –> FAN OFF = 1 –> FAN ON

Definition at line 2619 of file Spat_Device.c.

References AMS3, AMS_wopto(), delay(), das::Gui, pushbutt::KeyB, MObjectSetText(), stepm::OOP, gui::PushButt, and das::StepM.

Referenced by DB_KeyB_CB(), and Task_LIS_Temp().

{

    unsigned long t = 500;
//  char buf[256];
    int er = 0;


    if(mod)
    {
        DAS.StepM.OOP[AMS3] |= 0x02; //bit 1, 00000010
        MObjectSetText(DAS.Gui.PushButt.KeyB[6], "F ECU On");
    }
    else
    {
        DAS.StepM.OOP[AMS3] &= 0xFD; //11111101
        MObjectSetText(DAS.Gui.PushButt.KeyB[6], "F ECU Off");
    }

    // 1's complement
    DAS.StepM.OOP[AMS3] = ~DAS.StepM.OOP[AMS3]; 
    //write on the optoinsulated port
    AMS_wopto(AMS3, DAS.StepM.OOP[AMS3]);
    delay(100);
    // again 1's complement for restoring the positive logic
    DAS.StepM.OOP[AMS3] = ~DAS.StepM.OOP[AMS3];

    
}

Here is the call graph for this function:

Here is the caller graph for this function:

FANPeltier()

void FANPeltier

(

int

mod

)

FAN ON/OFF
.

Parameters

mod	= 0 –> FAN OFF = 1 –> FAN ON

Definition at line 2652 of file Spat_Device.c.

References AMS1, AMS_wopto(), delay(), stepm::OOP, and das::StepM.

Referenced by ADTesterCB(), OMU_ChooseDir(), and ShutCB().

{

    if(mod)
        DAS.StepM.OOP[AMS1] |= 0x02; //bit 1, 00000010
    else
        DAS.StepM.OOP[AMS1] &= 0xFD; //11111101


    // 1's complement
    DAS.StepM.OOP[AMS1] = ~DAS.StepM.OOP[AMS1]; 
    //write on the optoinsulated port
    //delay(500);
    AMS_wopto(AMS1, DAS.StepM.OOP[AMS1]);
    delay(750);
    // again 1's complement for restoring the positive logic
    DAS.StepM.OOP[AMS1] = ~DAS.StepM.OOP[AMS1];


}

Here is the call graph for this function:

Here is the caller graph for this function:

HgLamp()

void HgLamp

(

int

mod

)

HG Lamp ON/OFF
.

Parameters

mod	= 0 –> Lamp OFF = 1 –> Lamp ON

Definition at line 2673 of file Spat_Device.c.

References AMS1, AMS_wopto(), gui::ContrPanel, das::Gui, HGFlg, controlpanel::LedHG, MObjectSetText(), MPixmapSetImageFile(), stepm::OOP, controlpanel::pblamps, and das::StepM.

Referenced by D_Calibra(), DB_KeyB_CB(), E_Hg_Off(), E_Hg_On(), ShutCB(), and WinRes().

{

    if(mod)
    {
        
        // Bitwise inclusive OR
        //The bitwise-inclusive-OR operator compares each bit of its first operand to 
        //the corresponding bit of its second operand. If either bit is 1, 
        //the corresponding result bit is set to 1. Otherwise, the corresponding 
        //result bit is set to 0. 
        //i.e if(DAS.StepM.OOP[AMS1] = 00000000) -->
        //DAS.StepM.OOP[AMS1] | 0x04 =  00000000 | 00000100 = 00000100
        DAS.StepM.OOP[AMS1] |= 0x04; //bit 2, 00000100
        HGFlg = 1;
        MObjectSetText(DAS.Gui.ContrPanel.pblamps[0], "Hg On");
        MPixmapSetImageFile(DAS.Gui.ContrPanel.LedHG, "SYS\\ledonHG.bmp"); 

    }
    else
    {
        //The bitwise-AND operator compares each bit of its first operand to 
        //the corresponding bit of its second operand. If both bits are 1,
        //the corresponding result bit is set to 1. Otherwise, the corresponding
        //result bit is set to 0.  
        //i.e if(DAS.StepM.OOP[AMS1] = 00000100) -->
        //DAS.StepM.OOP[AMS1] | 0xFB =  00000100 | 11111011 = 00000000
        DAS.StepM.OOP[AMS1] &= 0xFB; //11111011
        
        HGFlg = 0;
        MObjectSetText(DAS.Gui.ContrPanel.pblamps[0], "Hg Off");
        MPixmapSetImageFile(DAS.Gui.ContrPanel.LedHG, "SYS\\ledoff.bmp"); 
    }

    // 1's complement
    // 1) if mod and DAS.StepM.OOP[AMS1] = 00000100 then 11111011 
    // 2) if !mod and DAS.StepM.OOP[AMS1] = 00000000 then 11111111
    DAS.StepM.OOP[AMS1] = ~DAS.StepM.OOP[AMS1]; 
    
    //write on the optoinsulated port
    // 1) bit 2 set to 0 (we are in negative logic so 0 = ON, 1 = OFF)
    // 1) bit 2 set to 1 (we are in negative logic so 0 = ON, 1 = OFF)
    AMS_wopto(AMS1, DAS.StepM.OOP[AMS1]);
    
    // again 1's complement for restoring the positive logic
    // 1) if mod and DAS.StepM.OOP[AMS1] = 11111011 then 00000100 (bit 2 on) 
    // 2) if !mod and DAS.StepM.OOP[AMS1] = 11111111 then 00000000 (bit 2 off)
    DAS.StepM.OOP[AMS1] = ~DAS.StepM.OOP[AMS1];

}

Here is the call graph for this function:

Here is the caller graph for this function:

HiresPS()

void HiresPS

(

int

mod

)

Hires Power Supply ON/OFF
.

Parameters

mod	= 0 –> Hires Power Supply OFF = 1 –> Hires Power Supply ON

Definition at line 2532 of file Spat_Device.c.

References AMS1, AMS_wopto(), stepm::OOP, and das::StepM.

Referenced by InitCCD_AMS(), and ShutCB().

{
    if(mod) 
        DAS.StepM.OOP[AMS1] |= 0x20; //bit 5, 00100000, dec = 32
    else    
        DAS.StepM.OOP[AMS1] &= 0xDF; //     11011111, dec = 223


    // 1's complement
    DAS.StepM.OOP[AMS1] = ~DAS.StepM.OOP[AMS1]; 
    //write on the optoinsulated port
    AMS_wopto(AMS1, DAS.StepM.OOP[AMS1]);
    // again 1's complement for restoring the positive logic
    DAS.StepM.OOP[AMS1] = ~DAS.StepM.OOP[AMS1];



}

Here is the call graph for this function:

Here is the caller graph for this function:

MIGEActualZenAz()

float MIGEActualZenAz

(

int

mode

)

convert SUN AZIMUTH and ZENITH angles, to be used with MIGE mode = 0 –> fix azimuth and return azimuth for MIGE positioning mode = 1 –> fix zenith and return zenith for MIGE positioning

Definition at line 2759 of file Spat_Device.c.

References elev, MIGEAz(), MIGEZen(), S_azim, and S_zenetr.

{

//  float MAZMax = 120.0; //MIGE Azimut MAX
//  float MAZMin = -60.0; //MIGE Azimut Min
    float MAZMax = 120.0; //MIGE Azimut MAX
    float MAZMin = 0.0; //MIGE Azimut Min

    float SAA, SEA, elev, az;
    char str[80];
    
    if (mode == 0) //fix azimuth angle
    {
        //Need condition for the latitude? 
        // Inside Tropics
       
        //sun Azimuth angle    
        sprintf(str, "%.01lf", S_azim);
        SAA = (float)atof(str);

        az = MIGEAz(SAA);
        return az;
    }
    
    if (mode == 1) //fix zenith angle
    {
        //sun Azimuth angle    
        sprintf(str, "%.01lf", S_azim);
        SAA = (float)atof(str);

        
        //sun Zenit angle
        sprintf(str, "%.01lf", (90 - S_zenetr));
        SEA = (float)atof(str);

        elev = MIGEZen(SEA);
/*
        if (SAA >= 0 && SAA <= MAZMax)
        {
            elev = elev;
        }
        if (SAA > MAZMax && SAA <= (MAZMax + 180))
        {
            elev = -elev;
        }
        if (SAA > (MAZMax + 180) && SAA < 360)
        {
            elev = elev;
        }
*/
        return elev;
    }

return 0;

}

Here is the call graph for this function:

Peltier()

void Peltier

(

int

mod

)

Peltier ON/OFF
.

Parameters

mod	= 0 –> Peltier OFF = 1 –> Peltier ON

Definition at line 2597 of file Spat_Device.c.

References AMS1, AMS_wopto(), delay(), stepm::OOP, and das::StepM.

Referenced by ADTesterCB(), OMU_ChooseDir(), and ShutCB().

{

    if(mod) // Cold
        DAS.StepM.OOP[AMS1] |= 0x01; //bit 0 , 00000001
    else    // Heat
        DAS.StepM.OOP[AMS1] &= 0xFE;        


    // 1's complement
    DAS.StepM.OOP[AMS1] = ~DAS.StepM.OOP[AMS1]; 
    //write on the optoinsulated port
    AMS_wopto(AMS1, DAS.StepM.OOP[AMS1]);
    delay(750);
    // again 1's complement for restoring the positive logic
    DAS.StepM.OOP[AMS1] = ~DAS.StepM.OOP[AMS1];




}

Here is the call graph for this function:

Here is the caller graph for this function:

PeltierPS()

void PeltierPS

(

int

mod

)

Peltier Power Supply ON/OFF
.

Parameters

mod	= 0 –> Peltier Power Supply OFF = 1 –> Peltier Power Supply ON

Definition at line 2551 of file Spat_Device.c.

References AMS1, AMS_wopto(), stepm::OOP, and das::StepM.

Referenced by InitCCD_AMS(), and ShutCB().

{

    if(mod) 
        DAS.StepM.OOP[AMS1] |= 0x10; //bit 4, 00010000, dec = 16
    else    
        DAS.StepM.OOP[AMS1] &= 0xEF; //     11101111, dec = 239


    // 1's complement
    DAS.StepM.OOP[AMS1] = ~DAS.StepM.OOP[AMS1]; 
    //write on the optoinsulated port
    AMS_wopto(AMS1, DAS.StepM.OOP[AMS1]);
    // again 1's complement for restoring the positive logic
    DAS.StepM.OOP[AMS1] = ~DAS.StepM.OOP[AMS1];


}

Here is the call graph for this function:

Here is the caller graph for this function:

QjLamp()

void QjLamp

(

int

mod

)

QJ Lamp ON/OFF
.

Parameters

mod	= 0 –> Lamp OFF = 1 –> Lamp ON

Definition at line 2724 of file Spat_Device.c.

References AMS1, AMS_wopto(), gui::ContrPanel, das::Gui, controlpanel::LedQJ, MObjectSetText(), MPixmapSetImageFile(), stepm::OOP, controlpanel::pblamps, QJFlg, and das::StepM.

Referenced by DB_KeyB_CB(), E_Qj_Off(), E_Qj_On(), GetDefPix(), ShutCB(), and WinRes().

{

    if(mod)
    {
        DAS.StepM.OOP[AMS1] |= 0x08; //bit 3, 00001000
        QJFlg = 1;
        MObjectSetText(DAS.Gui.ContrPanel.pblamps[1], "Qj On");
        MPixmapSetImageFile(DAS.Gui.ContrPanel.LedQJ, "SYS\\ledonQJ.bmp"); 

    }
    else
    {
        DAS.StepM.OOP[AMS1] &= 0xF7; //11110111
        QJFlg = 0;
        MObjectSetText(DAS.Gui.ContrPanel.pblamps[1], "Qj Off");
        MPixmapSetImageFile(DAS.Gui.ContrPanel.LedQJ, "SYS\\ledoff.bmp"); 
    }

    // 1's complement
    DAS.StepM.OOP[AMS1] = ~DAS.StepM.OOP[AMS1]; 
    //write on the optoinsulated port
    AMS_wopto(AMS1, DAS.StepM.OOP[AMS1]);
    // again 1's complement for restoring the positive logic
    DAS.StepM.OOP[AMS1] = ~DAS.StepM.OOP[AMS1];


}

Here is the call graph for this function:

Here is the caller graph for this function:

SD_Azimuth()

int SD_Azimuth	(	float	ang,
		float	raz
	)

Positioning Azimuth.
The Zenith reaches the position specified by ang.

Parameters

ang=	mechanical angle
raz=	real azimuth angle

Returns

er:

• = 0 –> Operation concluded succesfully
• = 1 –> Problems in positioning

Definition at line 3110 of file Spat_Device.c.

References controlpanel::Albl_LS, AMS3, gui::ContrPanel, DB_KB_ButtonActive(), DB_StepMotor(), flag::exec, flag::fileprg, das::Gui, pushbutt::KeyB, controlpanel::LedSM, MIGEAz(), MObjectSetSensitive(), MObjectSetText(), MPixmapSetImageFile(), stepm::multiplier, stepm::nstep, AzimuthSt::Pos, gui::PushButt, AzimuthSt::realazpos, stepm::Revo, stepm::SM_B, SM_stepr(), stepm::step, and das::StepM.

Referenced by ActMvAzimDegCB(), E_AAMeasure(), E_Azimuth(), and E_IRefSun().

{
    int er = 0;
    char    buf[80];
    long    n, dp = 500; // dp sono i dead pulse, vanno aggiunti all'inversione per il recupero del gioco
    int     dir;
    int k = 0;
    float yy;
    double GRASTEP, STEPGRA;
    float razang;


        razang=MIGEAz((float)ang);
    
        k = SM_stepr(DAS.StepM.step[AMS3][DAS.StepM.SM_B]); // step/round

        GRASTEP = (float)360.0 / (float) k; // degree/step

        STEPGRA = (float) k / (float)360.0; // step/degree
    
        yy = (razang - (float)AST.Pos); 

        n = (long) (yy * STEPGRA * DAS.StepM.multiplier[AMS3][1]); 

        AST.Pos = razang;
        AST.realazpos = ang;

        // Select direction
        if(n < 0)
            dir = 1;    
        else
            dir = 0;
        
        n = labs(n);
        DAS.StepM.Revo[AMS3][DAS.StepM.SM_B] = dir;
        DAS.StepM.nstep[AMS3][DAS.StepM.SM_B] = n;




    //Disattiva i pulsanti sulla keyboard
    DB_KB_ButtonActive(0);
    MObjectSetSensitive(DAS.Gui.PushButt.KeyB[25]);
    MObjectSetSensitive(DAS.Gui.PushButt.KeyB[27]);

/*  
    k = (float) SM_stepr(DAS.StepM.step[AMS3][1]); // step/round

        GRASTEP = (float)360.0 / (float) k; // degree/step

        STEPGRA = (float) k / (float)360.0; // step/degree



    x = (ang - AST.Pos); // (-35-0) = -35 //1
                        //(55-(-35)) = -90    //2
                        //(56-55) = 1  //3
                        //(90-96) = 6    //4


    n = (long) (x * STEPGRA * DAS.StepM.multiplier[AMS3][1]); //4 e' la riduzione

    prepos = AST.Pos;
    AST.Pos = ang;
    AST.realazpos = raz;

    sprintf(buf, " %.1lf --> %.1lf", prepos, ang);
    Status(buf);

    // Select direction
    if(n < 0)
        dir = 1; 
    else
        dir = 0; 
        
    n = labs(n);

    
    
    
    if (n==0)
    {
        //Attiva i pulsanti sulla keyboard
        DB_KB_ButtonActive(1);
        return 1;
    }
*/
    // Eseguo n passi
    if(n)
    {
        er = DB_StepMotor(AMS3, 5, DAS.StepM.nstep[AMS3][DAS.StepM.SM_B], DAS.StepM.Revo[AMS3][DAS.StepM.SM_B]);
        if (er)
        {
            MPixmapSetImageFile(DAS.Gui.ContrPanel.LedSM[AMS3][1], "SYS\\ledGreen.bmp");        
        }
    }


    //sprintf(buf, "%.1lf%s %.1lf%s", ang, " °", raz, " °");
    sprintf(buf, "%.1lf", AST.realazpos );
    MObjectSetText(DAS.Gui.ContrPanel.Albl_LS[5], buf);
    if(!FLAG.fileprg || !FLAG.exec )
        //Attiva i pulsanti sulla keyboard se non si sta eseguendo una tabella di misure
        //oppure se il programma e' stato sospeso (si e' premuto il tasto "pause")
        DB_KB_ButtonActive(1);
    
    

    if(er) return 1;

    
    return 0;

}

Here is the call graph for this function:

Here is the caller graph for this function:

SD_FilterW()

int SD_FilterW

(

int

filter

)

Positioning Filter wheel.
The filter wheel move on the filter number specified by filter.
See also Filter Wheel page.

Parameters

filter

0 = NULL 1 = NULL 2 = UG5 3 = UG11 4 = BG23 5 = ND – For LIS Spectrometer the filter wheel is bigger so we have 2 filters more and the filter parameter renges since 0 to 7.

Returns

er:

• 0 = Operation concluded succesfully
• 1 = Problems in positioning

Definition at line 2244 of file Spat_Device.c.

References controlpanel::Albl_LS, AMS2, gui::ContrPanel, DB_KB_ButtonActive(), DB_StepMotor(), paramini::EqType, flag::exec, Fil_Code, Fil_Code8H, Fil_CodeNG, Fil_CodeNG1, Fil_CodeTropo, flag::fileprg, FWS, GASCODNG1, GASCODNG2, GASCODNG3, GASCODNG4, das::Gui, gui::HorizMeas, pushbutt::KeyB, horizmeas::lbl, controlpanel::LedSM, LIS_, flag::manhormeas, MMessageDialog(), MObjectSetSensitive(), MObjectSetText(), MPixmapSetImageFile(), das::Paramini, FilterWheelSt::Pos, gui::PushButt, SM_stepr(), SPATRAM, SPATRAM2, SPATRAM3, SPATRAMPLUS, Status(), stepm::step, das::StepM, and TROPOGAS.

Referenced by AutoR_SetND_Filter(), D_Calibra(), D_Measure(), DB_KeyB_CB(), E_AAMeasure(), E_Almucantar(), E_Average(), E_AvgCCDHor(), E_DFMeasure(), E_DirectSun(), E_Filter(), E_HgScan(), E_IRefSun(), E_Meashor(), E_Meashor2(), E_Measure(), and E_QjScan().

{

    char    buf[80];
    long n[3];
    long nx;
    int      d, dir[3]; // 0 = CW, 1 = CCW
    int      k , er;
//  char Filter[4];

    //Disattiva i pulsanti sulla keyboard
    DB_KB_ButtonActive(0);
    MObjectSetSensitive(DAS.Gui.PushButt.KeyB[25]);
    MObjectSetSensitive(DAS.Gui.PushButt.KeyB[27]);

    /************************************************************/
    //Sceglie quale ruota e' installata (a 8 fori....
    if(DAS.Paramini.EqType == LIS_)
    {
        k = SM_stepr(DAS.StepM.step[AMS2][0]) / 8;

        if(filter < 0 || filter > 7) return 0;
    }
    // ...oppure a 6 fori....
    else if (DAS.Paramini.EqType == SPATRAM     || 
             DAS.Paramini.EqType == GASCODNG1   || 
             DAS.Paramini.EqType == SPATRAMPLUS ||
             DAS.Paramini.EqType == TROPOGAS    ||
             DAS.Paramini.EqType == GASCODNG2   ||
             DAS.Paramini.EqType == GASCODNG3   ||
             DAS.Paramini.EqType == GASCODNG4   ||
             DAS.Paramini.EqType == SPATRAM3    ||
             DAS.Paramini.EqType == SPATRAM2)
    {
        k = SM_stepr(DAS.StepM.step[AMS2][0]) / 6;
        if(filter < 0 || filter > 5) return 0;
    }
    else // ...oppure non lo sa)
    {
        sprintf(buf, "For this Equipment the Filter Wheel type is UNKNOWN\nPlease Contact DANBO!!!!");
                    er = MMessageDialog("DAS information", buf, "Ok", NULL);
                    if (!er)
                    {
                        return 0;
                    }
    
    }
    /**************************************************************/

    n[2] = (long)(FWS.Pos - filter) * k;

    if(n[2] < 0) dir[2] = 1;
    else dir[2] = 0;
    n[2] = labs(n[2]);

    nx = n[2];
    d = dir[2];

    // Eseguo NStep

    Status("New Filter Wheel Position");


    if(nx)
    {
        er=DB_StepMotor(AMS2, 2, nx, d);
        if (er)
            {
                MPixmapSetImageFile(DAS.Gui.ContrPanel.LedSM[AMS2][0], "SYS\\ledGreen.bmp");
            }
    }


    FWS.Pos = filter;
    if ( DAS.Paramini.EqType == LIS_)
        sprintf(buf, "%s", Fil_Code8H[filter]);
    else
    {
        if(DAS.Paramini.EqType == TROPOGAS)
            sprintf(buf, "%s",Fil_CodeTropo[filter]);
        else if (DAS.Paramini.EqType == GASCODNG2 || DAS.Paramini.EqType == GASCODNG3 || DAS.Paramini.EqType == GASCODNG4)
            sprintf(buf, "%s",Fil_CodeNG[filter]);
        else if (DAS.Paramini.EqType == GASCODNG1)
            sprintf(buf, "%s",Fil_CodeNG1[filter]);
        else
            sprintf(buf, "%s",Fil_Code[filter]);
    }

    MObjectSetText(DAS.Gui.ContrPanel.Albl_LS[2], buf);
    if(FLAG.manhormeas)
        MObjectSetText(DAS.Gui.HorizMeas.lbl[2], buf);
    Status("Ready");

    if(!FLAG.fileprg || !FLAG.exec )
        //Attiva i pulsanti sulla keyboard se non si sta eseguendo una tabella di misure
        //oppure se il programma e' stato sospeso (si e' premuto il tasto "pause")
        DB_KB_ButtonActive(1);
    

    if(er) return 1;

    return 0;


}

Here is the call graph for this function:

Here is the caller graph for this function:

SD_FNTorqueM()

void SD_FNTorqueM

(

int

mod

)

Positioning NDFilter.
.

Definition at line 3066 of file Spat_Device.c.

References controlpanel::Albl_LS, AMS1, AMS_wopto(), gui::ContrPanel, das::Gui, controlpanel::LedSM, MObjectSetText(), MPixmapSetImageFile(), stepm::OOP, das::StepM, and TMFlg.

Referenced by AutoR_SetND_Filter(), DB_KeyB_CB(), E_AAMeasure(), E_Almucantar(), E_DFMeasure(), E_DirectSun(), E_HgScan(), and E_QjScan().

{

    if(mod)
    {
        
        // Bitwise inclusive OR
        //The bitwise-inclusive-OR operator compares each bit of its first operand to 
        //the corresponding bit of its second operand. If either bit is 1, 
        //the corresponding result bit is set to 1. Otherwise, the corresponding 
        //result bit is set to 0. 
        //i.e if(DAS.StepM.OOP[AMS1] = 00000000) -->
        //DAS.StepM.OOP[AMS1] | 0x10 =  00000000 | 00010000 = 00010000
        DAS.StepM.OOP[AMS1] |= 0x10; //bit 4, 00010000
        TMFlg = 1;
        MObjectSetText(DAS.Gui.ContrPanel.Albl_LS[3], " ON");
        MPixmapSetImageFile(DAS.Gui.ContrPanel.LedSM[1][1], "SYS\\ledGreen.bmp");

    }
    else
    {
        //The bitwise-AND operator compares each bit of its first operand to 
        //the corresponding bit of its second operand. If both bits are 1,
        //the corresponding result bit is set to 1. Otherwise, the corresponding
        //result bit is set to 0.  
        //i.e if(DAS.StepM.OOP[AMS1] = 00010000) -->
        //DAS.StepM.OOP[AMS1] | 0xEF =  00010000 | 11101111 = 00000000
        DAS.StepM.OOP[AMS1] &= 0xEF; //11111011
        
        TMFlg = 0;
        MObjectSetText(DAS.Gui.ContrPanel.Albl_LS[3], " OFF");
        MPixmapSetImageFile(DAS.Gui.ContrPanel.LedSM[1][1], "SYS\\ledoff.bmp");
    }

    DAS.StepM.OOP[AMS1] = ~DAS.StepM.OOP[AMS1]; 
    
    AMS_wopto(AMS1, DAS.StepM.OOP[AMS1]);
    
    DAS.StepM.OOP[AMS1] = ~DAS.StepM.OOP[AMS1];

}

Here is the call graph for this function:

Here is the caller graph for this function:

SD_Grating()

int SD_Grating

(

int

ang

)

Positioning Grating.
The Grating move to the position specified by ang (Wavelength)

Parameters

ang	–> int from 0 to 14 –> grating position –> Wavelength

Returns

er:

• = 0 –> Operation concluded succesfully
• = 1 –> Problems in positioning

Definition at line 2108 of file Spat_Device.c.

References controlpanel::Albl_LS, AMS1, gui::ContrPanel, DB_KB_ButtonActive(), DB_StepMotor(), GratingSt::dp, flag::exec, flag::fileprg, das::Gui, gui::HorizMeas, pushbutt::KeyB, horizmeas::lbl, controlpanel::LedSM, flag::manhormeas, MObjectSetSensitive(), MObjectSetText(), MPixmapSetImageFile(), stepm::multiplier, stepm::nstep, GratingSt::Pos, gui::PushButt, SM_stepr(), Status(), stepm::step, das::StepM, wav, wl, and GratingSt::Wl.

Referenced by D_Calibra(), D_Measure(), DB_KeyB_CB(), E_AAMeasure(), E_Almucantar(), E_Average(), E_AvgCCDHor(), E_DFMeasure(), E_DirectSun(), E_HgScan(), E_IRefSun(), E_Lambda(), E_Meashor(), E_Meashor2(), E_Measure(), E_QjScan(), and WinRes().

{
    int er = 0;
    char    buf[80];
    long    n, dp = 1500; // dp sono i dead pulse, vanno aggiunti all'inversione per il recupero del gioco
    int     dir;
    float k = 0;
    long period = 5000;
    int prepos;
    long prestep;
    //se ang non e' compreso nei limiti esce dalla function
    if(ang < 0 || ang > 18) return 0;

    //Status("Set NEW Grating Position");

    //Disable the keyboard buttons
    DB_KB_ButtonActive(0);
    MObjectSetSensitive(DAS.Gui.PushButt.KeyB[25]);
    MObjectSetSensitive(DAS.Gui.PushButt.KeyB[27]);


    /******************************************
    //in SD_Position
    k = SM_stepr(DAS.StepM.step[AMS1][1])/3200; 
    n = (long)(((float) (-wav[GRS.Wl] + wav[w]) ) * 4 * k); 
    
    if(n < 0)
        dir = 1;    
    else
        dir = 0;
    
    n = labs(n);


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

    //Multiplier factor depending on the values of microsteps 
    k = (float)SM_stepr(DAS.StepM.step[AMS1][1])/3200;
    
    //Actual steps sent to the grating motor
    n = (long)(((float) (-wav[GRS.Wl] + wav[ang]) ) * DAS.StepM.multiplier[AMS1][1] * k); 

    prepos = wl[GRS.Wl];
    prestep = wav[GRS.Wl];
    GRS.Wl = ang;

    sprintf(buf, " %4d --> %4d", prepos, wl[ang]);
    Status(buf);

    //Select the direction (n < 0 --> Dir = 1 = UV; n > 0 --> Dir = 0 = Vis.)   
    if(n < 0)
        dir = 1;    
    else
        dir = 0;
        
    n = labs(n);
    DAS.StepM.nstep[AMS1][1]= n;

    if(n && dir == 0)   //towards UV
        n += GRS.dp;  // add fixed step number for backlash recovery (recupero del gioco)
    
    
    GRS.Pos = n;
    
    if (n==0)
    {
        //Attiva i pulsanti sulla keyboard
        DB_KB_ButtonActive(1);
        return 1;
    }

    // Eseguo n passi
    if(n)
    {
        er = DB_StepMotor(AMS1, 1, n, dir);
        if (er)
        {
            MPixmapSetImageFile(DAS.Gui.ContrPanel.LedSM[AMS1][1], "SYS\\ledGreen.bmp");        
        }
    }

    //Se ci si e' mossi verso l'UV si fa il recupero del gioco
/*  if(DAS.Paramini.EqType == LIS_)
    {
        if(dir == 1)       
        {
            er=DB_StepMotor(AMS1, 1, GRS.dp, 1);
            if (er)
            {
                MPixmapSetImageFile(DAS.Gui.ContrPanel.LedSM2, "SYS\\ledGreen.bmp");        
            }
        }

    }
    else if (DAS.Paramini.EqType == SPATRAM || DAS.Paramini.EqType == GASCODNG || DAS.Paramini.EqType == SPATRAMPLUS || DAS.Paramini.EqType == TROPOGAS )
    {
*/  
    if(n && dir == 0)       
        {
            er=DB_StepMotor(AMS1, 1, GRS.dp, 1);
            if (er)
            {
                MPixmapSetImageFile(DAS.Gui.ContrPanel.LedSM[AMS1][1], "SYS\\ledGreen.bmp");        
            }
        }
//  }


    sprintf(buf, "%4d", wl[ang]);
    MObjectSetText(DAS.Gui.ContrPanel.Albl_LS[1], buf);

    sprintf(buf, "Steps : %ld", (-prestep + wav[ang]) );
    Status(buf);

    if(FLAG.manhormeas)
        MObjectSetText(DAS.Gui.HorizMeas.lbl[1], buf);
    if(!FLAG.fileprg || !FLAG.exec )
        //Attiva i pulsanti sulla keyboard se non si sta eseguendo una tabella di misure
        //oppure se il programma e' stato sospeso (si e' premuto il tasto "pause")
        DB_KB_ButtonActive(1);
    
    

    if(er) return 1;

    
    return 0;

}

Here is the call graph for this function:

Here is the caller graph for this function:

SD_Mirror()

int SD_Mirror

(

int

where

)

Positioning Input Mirror.
The Input Mirror reaches the position specified by where.

Parameters

where

–> int from 0 to 3 –> grating position –> Wavelength

Returns

er:

• = 0 –> Operation concluded succesfully
• = 1 –> Problems in positioning

Definition at line 1898 of file Spat_Device.c.

References controlpanel::Albl_LS, AMS1, gui::ContrPanel, DB_KB_ButtonActive(), DB_StepMotor(), paramini::EqType, flag::exec, flag::fileprg, GASCODNG4, das::Gui, gui::HorizMeas, pushbutt::KeyB, horizmeas::lbl, controlpanel::LedSM, flag::manhormeas, Mir_Code, Mir_CodeTropo, MIS, MObjectSetSensitive(), MObjectSetText(), MPixmapSetImageFile(), stepm::multiplier, paramini::Offset, das::Paramini, MirrorSt::Pos, gui::PushButt, SM_stepr(), SPATRAM3, Status(), stepm::step, das::StepM, and TROPOGAS.

Referenced by D_Calibra(), D_Measure(), DB_KeyB_CB(), E_AAMeasure(), E_Almucantar(), E_Average(), E_AvgCCDHor(), E_DFMeasure(), E_DirectSun(), E_HgScan(), E_IRefSun(), E_Meashor(), E_Meashor2(), E_Measure(), E_Mirror(), E_QjScan(), and GetDefPix().

{

    char    buf[80];
    long n[3];
    long nx;
    int      d, dir[3]; // 0 = CW, 1 = CCW
    int      k = 1500, er = 0;

    int StepWithOffset [4][4];
    
    //mtr1(or 2) = 0 --> motor off
    //mtr1(or 2) = 1 --> motor on
    /* 22 */
//  AMS_MotorOn_Off(AMS1, 1, 0);

//  k = SM_stepr(DAS.StepM.step[AMS1][0]) * 6 / 4;
    
    k = SM_stepr(DAS.StepM.step[AMS1][0]) * DAS.StepM.multiplier[AMS1][0] / 4; //4 is the number of positions

    StepWithOffset [0][0] = 0;
    StepWithOffset [0][1] = 3*k - DAS.Paramini.Offset[2];
    StepWithOffset [0][2] = 2*k - DAS.Paramini.Offset[3];
    StepWithOffset [0][3] = k - DAS.Paramini.Offset[4];

    StepWithOffset [1][0] = k + DAS.Paramini.Offset[2];
    StepWithOffset [1][1] = 0;
    StepWithOffset [1][2] = 3*k - DAS.Paramini.Offset[3] + DAS.Paramini.Offset[2];
    StepWithOffset [1][3] = 2*k - DAS.Paramini.Offset[4]+ DAS.Paramini.Offset[2];

    StepWithOffset [2][0] = 2*k + DAS.Paramini.Offset[3];
    StepWithOffset [2][1] = k - DAS.Paramini.Offset[2]+DAS.Paramini.Offset[3];
    StepWithOffset [2][2] = 0;
    StepWithOffset [2][3] = 3*k - DAS.Paramini.Offset[4]+DAS.Paramini.Offset[3];

    StepWithOffset [3][0] = 3*k + DAS.Paramini.Offset[4];
    StepWithOffset [3][1] = 2*k - DAS.Paramini.Offset[2]+ DAS.Paramini.Offset[4];
    StepWithOffset [3][2] = k - DAS.Paramini.Offset[3] + DAS.Paramini.Offset[4];
    StepWithOffset [3][3] = 0;
        




    if(where < 0 || where > 3) return 0;

    //Disattiva i pulsanti sulla keyboard
    DB_KB_ButtonActive(0);
    MObjectSetSensitive(DAS.Gui.PushButt.KeyB[25]);
    MObjectSetSensitive(DAS.Gui.PushButt.KeyB[27]);

    nx = StepWithOffset [where][MIS.Pos]; 
    d = 1;

    
// Procedure by danbo (20/10/2005)
/*
    er = (long)(MIS.Pos - where);

    switch (er)
    {
        case 0:
            n[2] = 0;
            break;
        case 1:
            n[2] = er * k * 3;
            
            break;
        case -3:
        case -1:
        case 2:
        case (-2):
            n[2] = er * k;
            break;
        case 3:
            n[2] = er * k / 3;

            break;

    }


    dir[2] = 1;
    n[2] = labs(n[2]);
*/
  /*
    if (er < 0)
        n[2] += DAS.Paramini.Offset[where + 1];
    if (er > 0)
        n[2] -= DAS.Paramini.Offset[MIS.Pos + 1];
*/
/*
    if(DAS.Paramini.Offset[MIS.Pos + 1] != 0 || DAS.Paramini.Offset[where + 1] != 0)
    {

        n[2] += (DAS.Paramini.Offset[MIS.Pos + 1] + DAS.Paramini.Offset[where + 1]);

    }
*/
/*  
    switch (where)
    {
        case 0:
            switch (MIS.Pos)
                case 0:
                    n[2] = 0;
                    break;
                case 1;
*/
    
    //  n[2] += DAS.Paramini.Offset[MIS.Pos + 1];


//  sprintf(buf," MISPos:%d, where:%d, numstep=%ld, dir=%d", MIS.Pos, where, n[2], dir[2]); 
//  MMessageDialog("DAS Inf", buf, "ok", NULL);


//Previous version  
/*  
    n[0] = (long) (4 - where + MIS.Pos) * k;
    dir[0] = 1;

    n[1] = (long) (4 - MIS.Pos + where) * k;
    dir[1] = 0;
*/
//  n[2] = (long)(MIS.Pos - where) * k;


    // In order to move the mirror always in the same direction
//  dir[2] = 1;
    // the direction is chosen depending on the previous position 
/*  if(n[2] < 0) dir[2] = 1;
    else dir[2] = 0;
*/

//    n[2] = labs(n[2]);

    // Cerca il valore minimo
/*  for(c = 0; c < 2; c++)
        if(n[c] < n[c + 1]) { d = dir[c]; nx = n[c]; }
        else { d = dir[c + 1]; nx = n[c + 1]; }

    if (nx==0) return 1;
    

    nx = n[2];
    d = dir[2];
*/  
    // Eseguo NStep

    Status("New Input Mirror Position");

    if(nx)
    {
        er = DB_StepMotor(AMS1, 0, nx, d);
        
        if (er)
            {
                MPixmapSetImageFile(DAS.Gui.ContrPanel.LedSM[AMS1][0], "SYS\\ledGreen.bmp");            
            }

    
    }

    

    MIS.Pos = where;
    /*--------------------------------------------------------------------*/
    // Send OffSet for Mirror position

/*  if(DAS.Paramini.Offset[MIS.Pos + 1] != 0)
    {
        if(DAS.Paramini.Offset[MIS.Pos + 1] > 0) d = 0;
        else d = 1;

        er = AMS_DoPos(AMS1, d, 0, labs(DAS.Paramini.Offset[MIS.Pos + 1]), 0);
        if(er)  { Message("n Step not sent! 2", er); }
    }
*/
    /*--------------------------------------------------------------------*/
    if (DAS.Paramini.EqType == TROPOGAS || DAS.Paramini.EqType == SPATRAM3 || DAS.Paramini.EqType == GASCODNG4)
        sprintf(buf, "%s",Mir_CodeTropo[where]);
    else
        sprintf(buf, "%s",Mir_Code[where]);

    MObjectSetText(DAS.Gui.ContrPanel.Albl_LS[0], buf);
    if(FLAG.manhormeas)
        MObjectSetText(DAS.Gui.HorizMeas.lbl[0], buf);
    

    
//  Status("Ready");
    if(!FLAG.fileprg || !FLAG.exec )
        //Attiva i pulsanti sulla keyboard se non si sta eseguendo una tabella di misure
        //oppure se il programma e' stato sospeso (si e' premuto il tasto "pause")
        DB_KB_ButtonActive(1);
    
//  AMS_MotorOn_Off(AMS1, 0, 0);

    if(er) return 1;

    return 0;

}

Here is the call graph for this function:

Here is the caller graph for this function:

SD_NDFilterW()

int SD_NDFilterW

(

int

filter

)

Positioning Filter wheel.
The filter wheel move on the filter number specified by filter.
See also Filter Wheel page.

Parameters

filter

0 = NULL 1 = ND1 2 = ND2 3 = 4 = 5 = – For LIS Spectrometer the filter wheel is bigger so we have 2 filters more and the filter parameter renges since 0 to 7.

Returns

er:

• 0 = Operation concluded succesfully
• 1 = Problems in positioning

Definition at line 2354 of file Spat_Device.c.

References controlpanel::Albl_LS, AMS2, gui::ContrPanel, DB_KB_ButtonActive(), DB_StepMotor(), paramini::EqType, flag::exec, Fil_Code8H, Fil_CodeNG, Fil_CodeTropo, flag::fileprg, GASCODNG1, GASCODNG2, GASCODNG3, GASCODNG4, das::Gui, gui::HorizMeas, pushbutt::KeyB, horizmeas::lbl, controlpanel::LedSM, LIS_, flag::manhormeas, MMessageDialog(), MObjectSetSensitive(), MObjectSetText(), MPixmapSetImageFile(), NDFil_Code, NDFWS, das::Paramini, NDFilterWheelSt::Pos, gui::PushButt, SM_stepr(), SPATRAM, SPATRAM2, SPATRAM3, SPATRAMPLUS, Status(), stepm::step, das::StepM, and TROPOGAS.

Referenced by AutoR_SetND_Filter(), DB_KeyB_CB(), E_AAMeasure(), E_Almucantar(), E_DFMeasure(), E_DirectSun(), E_HgScan(), E_NDFilter(), and E_QjScan().

{

    char    buf[80];
    long n[3];
    long nx;
    int      d, dir[3]; // 0 = CW, 1 = CCW
    int      k , er;
//  char Filter[4];

    //Disattiva i pulsanti sulla keyboard
    DB_KB_ButtonActive(0);
    MObjectSetSensitive(DAS.Gui.PushButt.KeyB[25]);
    MObjectSetSensitive(DAS.Gui.PushButt.KeyB[27]);

    /************************************************************/
    if (DAS.Paramini.EqType == SPATRAM      || 
             DAS.Paramini.EqType == GASCODNG1   || 
             DAS.Paramini.EqType == SPATRAMPLUS ||
             DAS.Paramini.EqType == TROPOGAS    ||
             DAS.Paramini.EqType == GASCODNG2   ||
             DAS.Paramini.EqType == GASCODNG3   ||
             DAS.Paramini.EqType == GASCODNG4   ||
             DAS.Paramini.EqType == SPATRAM3    ||
             DAS.Paramini.EqType == SPATRAM2)
    {
        k = SM_stepr(DAS.StepM.step[AMS2][1]) / 6;
        if(filter < 0 || filter > 5) return 0;
    }
    else // ...oppure non lo sa)
    {
        sprintf(buf, "For this Equipment the Filter Wheel type is UNKNOWN\nPlease Contact DANBO!!!!");
                    er = MMessageDialog("DAS information", buf, "Ok", NULL);
                    if (!er)
                    {
                        return 0;
                    }
    
    }
    /**************************************************************/

    n[2] = (long)(NDFWS.Pos - filter) * k;

    if(n[2] < 0) dir[2] = 1;
    else dir[2] = 0;
    n[2] = labs(n[2]);

    nx = n[2];
    d = dir[2];

    // Eseguo NStep

    Status("New ND Filter Wheel Position");


    if(nx)
    {
        er=DB_StepMotor(AMS2, 3, nx, d);
        if (er)
            {
                MPixmapSetImageFile(DAS.Gui.ContrPanel.LedSM[AMS2][1], "SYS\\ledGreen.bmp");
            }
    }


    NDFWS.Pos = filter;
    if ( DAS.Paramini.EqType == LIS_)
        sprintf(buf, "%s", Fil_Code8H[filter]);
    else
    {
        if(DAS.Paramini.EqType == TROPOGAS)
            sprintf(buf, "%s",Fil_CodeTropo[filter]);
        else if (DAS.Paramini.EqType == GASCODNG1 || DAS.Paramini.EqType == GASCODNG2 || DAS.Paramini.EqType == GASCODNG3 || DAS.Paramini.EqType == GASCODNG4)
            sprintf(buf, "%s",Fil_CodeNG[filter]);
        else
            sprintf(buf, "%s",NDFil_Code[filter]);
    }

    MObjectSetText(DAS.Gui.ContrPanel.Albl_LS[3], buf);
    if(FLAG.manhormeas)
        MObjectSetText(DAS.Gui.HorizMeas.lbl[3], buf);
    Status("Ready");

    if(!FLAG.fileprg || !FLAG.exec )
        //Attiva i pulsanti sulla keyboard se non si sta eseguendo una tabella di misure
        //oppure se il programma e' stato sospeso (si e' premuto il tasto "pause")
        DB_KB_ButtonActive(1);
    

    if(er) return 1;

    return 0;


}

Here is the call graph for this function:

Here is the caller graph for this function:

SD_PosAADev()

int SD_PosAADev	(	double	z,
		double	a
	)

perform the simoultaneous positioning of the AltAzimuth platform z = Zenith Axis a = Grating Position

Definition at line 447 of file Spat_Device.c.

References optionini::aaopmode, controlpanel::Albl_LS, AMS3, AMS_sendstep(), optionini::amsprogbar, gui::ContrPanel, D_VRangeSim(), DBDEMO, DD_VOpen, das::DOption, flag::exemode, das::Flag, das::Gui, controlpanel::LedSM, MIGEAz(), MIGEZen(), MLoopWhileEvents(), MObjectSetText(), MPixmapSetImageFile(), stepm::multiplier, stepm::NAMS, stepm::nstep, ZenithSt::Pos, AzimuthSt::Pos, stepm::postime, AzimuthSt::realazpos, ZenithSt::realzenpos, stepm::Revo, S_azim, stepm::SM_A, stepm::SM_B, SM_stepr(), stepm::speed_Hz, st, stepm::step, das::StepM, and WriteLogAMS().

Referenced by MIGEAntiSunTrack(), and MIGESunTrack().

{

    int k, i, s, dir;
    float GRASTEP, STEPGRA;
    long minpostime = 2147483647, maxpostime = 0;
    long st, et, tt, n;
    double ttout = 0, yy;
    char buf[80];
    long    dp = 500; // dp are the dead pulse, they have to be added for backlash recovery 
    //float MAZMax = 120.0; //MIGE Azimut MAX
    //float MAZMin = -60.0; //MIGE Azimut Min
    float rzenang, razang, az;

    float MAZMax = 90.0; //MIGE Azimut MAX
    float MAZMin = -90.0; //MIGE Azimut Min


    k=DAS.StepM.NAMS-1;
        for (i=0;i<2;i++)
        {
            s = 2 * k + i;
            DD_VOpen[s] = 0;
        }
    

    //a --> Azimuth 

        //Azimuth positioning
        razang=MIGEAz((float)a);
    
        k = SM_stepr(DAS.StepM.step[AMS3][DAS.StepM.SM_B]); // step/round

        GRASTEP = (float)360.0 / (float) k; // degree/step

        STEPGRA = (float) k / (float)360.0; // step/degree
    
        yy = (razang - AST.Pos); 

        n = (long) (yy * STEPGRA * DAS.StepM.multiplier[AMS3][1]); 

        AST.Pos = razang;
        AST.realazpos = a;

        // Select direction
        if(n < 0)
            dir = 1;    
        else
            dir = 0;
        
        n = labs(n);
        DAS.StepM.Revo[AMS3][DAS.StepM.SM_B] = dir;
        DAS.StepM.nstep[AMS3][DAS.StepM.SM_B] = n;

/**************************************************************************/
    /*******************************/
    //z --> Zenith 
    //if(z >= -91 && z <= 45 )
//  if(z >= -90 && z <= 90 )
    //Zenith positioning
    rzenang=MIGEZen((float)z);

    if(z >= 0 && z <= 180 )
    {

        k = SM_stepr(DAS.StepM.step[AMS3][DAS.StepM.SM_A]); // step/round

        GRASTEP = (float) 360.0 / (float) k; // degree/step

        STEPGRA = (float) k / (float) 360.0; // step/degree

//      yy = -(z - ZST.Pos); 
        yy = -(rzenang - ZST.Pos); 
        n = (long)(yy * STEPGRA * (DAS.StepM.multiplier[AMS3][0]));
//      ZST.Pos = z;
        ZST.Pos = rzenang;
        ZST.realzenpos = z;
        // Select direction
        if(n < 0)
            dir = 1;    
        else
            dir = 0;
        
        n = labs(n);
        DAS.StepM.Revo[AMS3][DAS.StepM.SM_A] = dir;
        DAS.StepM.nstep[AMS3][DAS.StepM.SM_A] = n;
    }
    else
    {
        DAS.StepM.Revo[AMS3][DAS.StepM.SM_A] = 0;
        DAS.StepM.nstep[AMS3][DAS.StepM.SM_A] = 0;
        sprintf(buf, "Not Allowed Zen.");
        MObjectSetText(DAS.Gui.ContrPanel.Albl_LS[4], buf);

    }


/**************************************************************************/
    // Tout computation and Max finding
    k=DAS.StepM.NAMS-1;
        for (i=0;i<2;i++)
        {
            DAS.StepM.postime[k][i] = (long) (DAS.StepM.nstep[k][i]/(float) DAS.StepM.speed_Hz[k][i]);
            if (DAS.StepM.postime[k][i] >= maxpostime) maxpostime = DAS.StepM.postime[k][i]; 
            if (DAS.StepM.postime[k][i] <= minpostime) minpostime = DAS.StepM.postime[k][i];
        }
/*************************************************************************/

/**************************************************************************/
    // Init Progression bar
    k=DAS.StepM.NAMS-1;
        for (i=0;i<2;i++)
        {
            if (DAS.StepM.nstep[k][i] != 0)
            {
                s = 2*k+i;
                switch (s)
                {
                case 0:
                    if(DAS.DOption.amsprogbar)
                        D_VRangeSim(0, "Positioning Mirror",0, 255, 0, 0, 50, 0);
                    MPixmapSetImageFile(DAS.Gui.ContrPanel.LedSM[k][i], "SYS\\ledoff.bmp");
                    
                    break;
                case 1:
                    if(DAS.DOption.amsprogbar)
                        D_VRangeSim(1, "Positioning Grating",0, 255, 255, 0, 50, 100);          
                    MPixmapSetImageFile(DAS.Gui.ContrPanel.LedSM[k][i], "SYS\\ledoff.bmp");
                    break;
                case 2:
                    if(DAS.DOption.amsprogbar)
                        D_VRangeSim(2, "Positioning Filter Wheel",0, 0, 0, 255, 50, 200);           
                    MPixmapSetImageFile(DAS.Gui.ContrPanel.LedSM[k][i], "SYS\\ledoff.bmp");
                    break;
                case 3:
                    break;
                case 4:
                    if(DAS.DOption.amsprogbar)
                        if(DAS.DOption.aaopmode == 2)
                        {
                            D_VRangeSim(4,"Positioning Zenith",0, 0, 255, 255, 50, 300);            
                        
                        }
                    MPixmapSetImageFile(DAS.Gui.ContrPanel.LedSM[k][i], "SYS\\ledoff.bmp");
                    break;
                case 5:
                    if(DAS.DOption.amsprogbar)
                        if(DAS.DOption.aaopmode == 2)
                        {
                            D_VRangeSim(5,"Positioning Azimuth",0, 0, 192, 255, 50, 400);           
                        
                        }
                    MPixmapSetImageFile(DAS.Gui.ContrPanel.LedSM[k][i], "SYS\\ledoff.bmp");
                    break;


                }
            }
        }
    
/*************************************************************************/

/**************************************************************************/
    // Send step
    if (DAS.Flag.exemode != DBDEMO)
    {
        k=DAS.StepM.NAMS-1;
            AMS_sendstep(k, DAS.StepM.Revo[k][DAS.StepM.SM_A], DAS.StepM.Revo[k][DAS.StepM.SM_B],
                            DAS.StepM.nstep[k][DAS.StepM.SM_A], DAS.StepM.nstep[k][DAS.StepM.SM_B]);

            WriteLogAMS(k, DAS.StepM.Revo[k][DAS.StepM.SM_A], DAS.StepM.Revo[k][DAS.StepM.SM_B],
                            DAS.StepM.nstep[k][DAS.StepM.SM_A], DAS.StepM.nstep[k][DAS.StepM.SM_B]);
        
    }

    //Time Out loop
    st = GetTickCount();
    do
    {
        et = GetTickCount();
        tt = labs(et - st);
        MLoopWhileEvents(0);
            if(tt > 0)
            {
                if(DD_VOpen[4])
                {
                    if(DAS.DOption.amsprogbar)
                        D_VRangeSim(4, NULL,(unsigned long) tt * 100 / DAS.StepM.postime[AMS3][0], 0, 255, 255, 50, 300);           
                    if (tt >= DAS.StepM.postime[AMS3][0])
                    {
                        sprintf(buf, "%.1lf", z);
                        MObjectSetText(DAS.Gui.ContrPanel.Albl_LS[4], buf);
                        MPixmapSetImageFile(DAS.Gui.ContrPanel.LedSM[2][0], "SYS\\ledGreen.bmp");
                    }
                    else
                    {
                        sprintf(buf, "%.1lf sec. left", (double)fabs(((double)(tt - DAS.StepM.postime[AMS3][0]))/1000.0 ));
                        MObjectSetText(DAS.Gui.ContrPanel.Albl_LS[4], buf);                 
                    }
                }
                else
                {
                    if (tt >= DAS.StepM.postime[AMS3][0])
                    {
                        sprintf(buf, "%.1lf", ZST.realzenpos);
                        
                        MObjectSetText(DAS.Gui.ContrPanel.Albl_LS[4], buf);
                        MPixmapSetImageFile(DAS.Gui.ContrPanel.LedSM[2][0], "SYS\\ledGreen.bmp");
                    }
                    else
                    {
                        sprintf(buf, "%.1lf sec. left", (double)fabs(((double)(tt - DAS.StepM.postime[AMS3][0]))/1000.0 ));
                        MObjectSetText(DAS.Gui.ContrPanel.Albl_LS[4], buf);
                    }

                }
                
                if(DD_VOpen[5])
                {
                    if(DAS.DOption.amsprogbar)
                        D_VRangeSim(5, NULL,(unsigned long) tt * 100 / DAS.StepM.postime[AMS3][1], 0, 192, 255, 50, 400);           
                    if (labs(et - st) >= DAS.StepM.postime[AMS3][1])
                    {
                        az = (float)S_azim;
                        //sprintf(buf, "%.1lf %.1lf", az, a );
                        sprintf(buf, "%.1lf", AST.realazpos);
                        MObjectSetText(DAS.Gui.ContrPanel.Albl_LS[5], buf);
                        MPixmapSetImageFile(DAS.Gui.ContrPanel.LedSM[2][1], "SYS\\ledGreen.bmp");
                    }
                    else
                    {
                        sprintf(buf, "%.1lf sec. left", (double)fabs(((double)(tt - DAS.StepM.postime[AMS3][1]))/1000.0 ));
                        MObjectSetText(DAS.Gui.ContrPanel.Albl_LS[5], buf);
                    }
                }
                else
                {
                    if (labs(et - st) >= DAS.StepM.postime[AMS3][1])
                    {
                        az = (float)S_azim;
                        //sprintf(buf, "%.1lf %.1lf", az, a );
                        sprintf(buf, " %.1lf", AST.realazpos );
                        MObjectSetText(DAS.Gui.ContrPanel.Albl_LS[5], buf);
                        MPixmapSetImageFile(DAS.Gui.ContrPanel.LedSM[2][1], "SYS\\ledGreen.bmp");
                    }
                    else
                    {
                        sprintf(buf, "%.1lf sec. left", (double)fabs(((double)(tt - DAS.StepM.postime[AMS3][1]))/1000.0 ));
                        MObjectSetText(DAS.Gui.ContrPanel.Albl_LS[5], buf);
                    }

                }
                

            }
    }while((tt < maxpostime));
/**************************************************************************/

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

    // Check if all the progression bars have been destroyed.
    // If not the active one is destroyed and the apprpriate label is written
    k=DAS.StepM.NAMS-1;
        for (i=0;i<2;i++)
        {
            s = 2*k+i;
            if(DD_VOpen[s])
            {
                if(DAS.DOption.amsprogbar)
                    D_VRangeSim(s, NULL, 100, 0, 0, 0, 0, 0);
                switch (s)
                {
                case 4:
                    sprintf(buf, "%.1lf", z);
                    MObjectSetText(DAS.Gui.ContrPanel.Albl_LS[4], buf);
                    MPixmapSetImageFile(DAS.Gui.ContrPanel.LedSM[k][i], "SYS\\ledGreen.bmp");
                    break;
                case 5:
                    sprintf(buf, "%.1lf", (double) a);
                    MObjectSetText(DAS.Gui.ContrPanel.Albl_LS[5], buf);
                    MPixmapSetImageFile(DAS.Gui.ContrPanel.LedSM[k][i], "SYS\\ledGreen.bmp");
                    break;


                }
            }
        }

    

return 0; 

}

Here is the call graph for this function:

Here is the caller graph for this function:

SD_Position()

int SD_Position	(	int	m,
		int	w,
		int	f,
		double	z,
		double	a
	)

perform the simoultaneous positioning of the Spectrometer Devices m = mirror w = wavelength (Grating) f = filter wheel z = zenith a = azimuth

Definition at line 1243 of file Spat_Device.c.

References optionini::aaopmode, controlpanel::Albl_LS, AMS1, AMS2, AMS3, AMS_sendstep(), optionini::amsprogbar, gui::ContrPanel, D_VRangeSim(), DB_StepMotor(), DBDEMO, DD_VOpen, das::DOption, GratingSt::dp, paramini::EqType, flag::exemode, Fil_Code, Fil_Code8H, Fil_CodeNG, Fil_CodeNG1, Fil_CodeTropo, das::Flag, FWS, GASCODNG1, GASCODNG2, GASCODNG3, GASCODNG4, das::Gui, controlpanel::LedSM, LIS_, MIGEAz(), MIGEZen(), Mir_Code, Mir_CodeTropo, MIS, MLoopWhileEvents(), MObjectSetText(), MPixmapSetImageFile(), stepm::multiplier, stepm::NAMS, stepm::nstep, paramini::Offset, das::Paramini, FilterWheelSt::Pos, MirrorSt::Pos, ZenithSt::Pos, AzimuthSt::Pos, stepm::postime, AzimuthSt::realazpos, ZenithSt::realzenpos, stepm::Revo, stepm::SM_A, stepm::SM_B, SM_stepr(), SPATRAM, SPATRAM2, SPATRAM3, SPATRAMPLUS, stepm::speed_Hz, st, stepm::step, das::StepM, TROPOGAS, wav, wl, GratingSt::Wl, and WriteLogAMS().

Referenced by E_AAMeasure(), E_AAPos(), E_Almucantar(), E_DirectSun(), E_IRefSun(), ExecSimPosCB(), and MIGEZenAzPos_CB().

{

    int k, i, s, er, dir;
    float GRASTEP, STEPGRA;
    long minpostime = 2147483647, maxpostime = 0;
    long st, et, tt, n;
    double ttout = 0, yy;
    char buf[80], str[16];
    long    dp = 500; // dp sono i dead pulse, vanno aggiunti all'inversione per il recupero del gioco
    float razang, rzenang;
    int StepWithOffset [4][4];
    float g;

    
    for(k=0;k<DAS.StepM.NAMS;k++)
    {   for (i=0;i<2;i++)
        {
            s = 2 * k + i;
            DD_VOpen[s] = 0;
        }
    }
    /*******************************/

    if((m >= 0) && (m <= 3))
    {
        k = SM_stepr(DAS.StepM.step[AMS1][DAS.StepM.SM_A]) * 6 / 4;

        
/*      er = (long)(MIS.Pos - m);
        switch (er)
        {
            case 0:
                n = 0;
                break;
            case 1:
                n = er * k * 3;
                break;
            case -3:
            case -1:
            case 2:
            case (-2):
                n = er * k;
                break;
            case 3:
                n = er * k / 3;
                break;

        }
*/
            StepWithOffset [0][0] = 0;
    StepWithOffset [0][1] = 3*k - DAS.Paramini.Offset[2];
    StepWithOffset [0][2] = 2*k - DAS.Paramini.Offset[3];
    StepWithOffset [0][3] = k - DAS.Paramini.Offset[4];

    StepWithOffset [1][0] = k + DAS.Paramini.Offset[2];
    StepWithOffset [1][1] = 0;
    StepWithOffset [1][2] = 3*k - DAS.Paramini.Offset[3] + DAS.Paramini.Offset[2];
    StepWithOffset [1][3] = 2*k - DAS.Paramini.Offset[4]+ DAS.Paramini.Offset[2];

    StepWithOffset [2][0] = 2*k + DAS.Paramini.Offset[3];
    StepWithOffset [2][1] = k - DAS.Paramini.Offset[2]+DAS.Paramini.Offset[3];
    StepWithOffset [2][2] = 0;
    StepWithOffset [2][3] = 3*k - DAS.Paramini.Offset[4]+DAS.Paramini.Offset[3];

    StepWithOffset [3][0] = 3*k + DAS.Paramini.Offset[4];
    StepWithOffset [3][1] = 2*k - DAS.Paramini.Offset[2]+ DAS.Paramini.Offset[4];
    StepWithOffset [3][2] = k - DAS.Paramini.Offset[3] + DAS.Paramini.Offset[4];
    StepWithOffset [3][3] = 0;
        

        dir = 1;
        n = StepWithOffset [m][MIS.Pos]; 
        n = labs(n);
        DAS.StepM.Revo[AMS1][DAS.StepM.SM_A] = dir;
        DAS.StepM.nstep[AMS1][DAS.StepM.SM_A] = n;
        MIS.Pos = m;
    }
    else
    {
        DAS.StepM.Revo[AMS1][DAS.StepM.SM_A] = 0;
        DAS.StepM.nstep[AMS1][DAS.StepM.SM_A] = 0;

    }

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

    /*******************************/
    //w
    if(w >= 0 && w <= 17)
    {
        g = (float) SM_stepr(DAS.StepM.step[AMS1][1])/3200; 
        n = (long)(((float) (-wav[GRS.Wl] + wav[w]) ) * 4 * g); 

        if(n < 0)
            dir = 1;    
        else
            dir = 0;
        
        n = labs(n);
        
        
        if(n && dir == 0)   //si va verso l'UV
            n += GRS.dp;  // // add fixed step number for backlash recovery 
        
        DAS.StepM.Revo[AMS1][DAS.StepM.SM_B] = dir;
        DAS.StepM.nstep[AMS1][DAS.StepM.SM_B] = n;
        GRS.Wl = w;
    }
    else
    {
        DAS.StepM.Revo[AMS1][DAS.StepM.SM_B] = 0;
        DAS.StepM.nstep[AMS1][DAS.StepM.SM_B] = 0;

    }
    /*******************************/

    /*******************************/
    //f
    
    //8 holes....
    if(DAS.Paramini.EqType == LIS_)
    {
        k = SM_stepr(DAS.StepM.step[AMS2][DAS.StepM.SM_A]) / 8;
        if(f >= 0 && f <= 8)
        {
            n= (long)(FWS.Pos - f) * k;
            if(n < 0) 
                dir = 1;
            else
                dir = 0;
    
            n = labs(n);
            DAS.StepM.Revo[AMS2][DAS.StepM.SM_A] = dir;
            DAS.StepM.nstep[AMS2][DAS.StepM.SM_A] = n;
            FWS.Pos = f;
        }
        else
        {
            n = 0;
            DAS.StepM.Revo[AMS2][DAS.StepM.SM_A] = 0;
            DAS.StepM.nstep[AMS2][DAS.StepM.SM_A] = 0;
        }


    }
    // ...or 6 holes....
    if (DAS.Paramini.EqType == SPATRAM      || 
        DAS.Paramini.EqType == GASCODNG1    || 
        DAS.Paramini.EqType == SPATRAMPLUS  ||
        DAS.Paramini.EqType == TROPOGAS     || 
        DAS.Paramini.EqType == GASCODNG2    || 
        DAS.Paramini.EqType == GASCODNG3    ||
        DAS.Paramini.EqType == GASCODNG4    ||
        DAS.Paramini.EqType == SPATRAM3     || 
        DAS.Paramini.EqType == SPATRAM2)
    {
        k = SM_stepr(DAS.StepM.step[AMS2][DAS.StepM.SM_A]) / 6;
        if(f >= 0 && f <= 5)
        {
            n= (long)(FWS.Pos - f) * k;
            if(n < 0) 
                dir = 1;
            else
                dir = 0;
    
            n = labs(n);
            DAS.StepM.Revo[AMS2][DAS.StepM.SM_A] = dir;
            DAS.StepM.nstep[AMS2][DAS.StepM.SM_A] = n;
            FWS.Pos = f;
        }
        else
        {
            n = 0;
            DAS.StepM.Revo[AMS2][DAS.StepM.SM_A] = 0;
            DAS.StepM.nstep[AMS2][DAS.StepM.SM_A] = 0;
        }
    }
    
    /*******************************/
    //a --> Azimuth 

        //Azimuth positioning
        razang=MIGEAz((float)a);
    
        k = SM_stepr(DAS.StepM.step[AMS3][DAS.StepM.SM_B]); // step/round

        GRASTEP = (float)360.0 / (float) k; // degree/step

        STEPGRA = (float) k / (float)360.0; // step/degree
    
        yy = (razang - AST.Pos); 

        n = (long) (yy * STEPGRA * DAS.StepM.multiplier[AMS3][1]); 

        AST.Pos = razang;
        AST.realazpos = a;

        // Select direction
        if(n < 0)
            dir = 1;    
        else
            dir = 0;
        
        n = labs(n);
        DAS.StepM.Revo[AMS3][DAS.StepM.SM_B] = dir;
        DAS.StepM.nstep[AMS3][DAS.StepM.SM_B] = n;

/**************************************************************************/
    /*******************************/
    //z --> Zenith 
    //if(z >= -91 && z <= 45 )
//  if(z >= -90 && z <= 90 )
    //Zenith positioning
    rzenang=MIGEZen((float)z);

    if(z >= 0 && z <= 180 )
    {


            


        k = SM_stepr(DAS.StepM.step[AMS3][DAS.StepM.SM_A]); // step/round

        GRASTEP = (float) 360.0 / (float) k; // degree/step

        STEPGRA = (float) k / (float) 360.0; // step/degree

//      yy = -(z - ZST.Pos); 
        yy = -(rzenang - ZST.Pos); 
        n = (long)(yy * STEPGRA * (DAS.StepM.multiplier[AMS3][0]));
//      ZST.Pos = z;
        ZST.Pos = rzenang;
        ZST.realzenpos = z;
        // Select direction
        if(n < 0)
            dir = 1;    
        else
            dir = 0;
        
        n = labs(n);
        DAS.StepM.Revo[AMS3][DAS.StepM.SM_A] = dir;
        DAS.StepM.nstep[AMS3][DAS.StepM.SM_A] = n;
    }
    else
    {
        DAS.StepM.Revo[AMS3][DAS.StepM.SM_A] = 0;
        DAS.StepM.nstep[AMS3][DAS.StepM.SM_A] = 0;
        sprintf(buf, "Not Allowed Zen.");
        MObjectSetText(DAS.Gui.ContrPanel.Albl_LS[4], buf);

    }
    /*******************************/


        
        
        
        // Tout computation and Max finding
    for(k=0;k<DAS.StepM.NAMS;k++)
    {
        for (i=0;i<2;i++)
        {
            DAS.StepM.postime[k][i] = (long)( DAS.StepM.nstep[k][i]/(float) DAS.StepM.speed_Hz[k][i]);
            if (DAS.StepM.postime[k][i] >= maxpostime) maxpostime = DAS.StepM.postime[k][i]; 
            if (DAS.StepM.postime[k][i] <= minpostime) minpostime = DAS.StepM.postime[k][i];
        }
    }
/*************************************************************************/

/**************************************************************************/
    // Init Progression bar
    for(k=0;k<DAS.StepM.NAMS;k++)
    {
        for (i=0;i<2;i++)
        {
            if (DAS.StepM.nstep[k][i] != 0)
            {
                s = 2*k+i;
                switch (s)
                {
                case 0:
                    if(DAS.DOption.amsprogbar)
                        D_VRangeSim(0, "Positioning Mirror",0, 255, 0, 0, 50, 0);
                    MPixmapSetImageFile(DAS.Gui.ContrPanel.LedSM[k][i], "SYS\\ledoff.bmp");
                    
                    break;
                case 1:
                    if(DAS.DOption.amsprogbar)
                        D_VRangeSim(1, "Positioning Grating",0, 255, 255, 0, 50, 100);          
                    MPixmapSetImageFile(DAS.Gui.ContrPanel.LedSM[k][i], "SYS\\ledoff.bmp");
                    break;
                case 2:
                    if(DAS.DOption.amsprogbar)
                        D_VRangeSim(2, "Positioning Filter Wheel",0, 0, 0, 255, 50, 200);           
                    MPixmapSetImageFile(DAS.Gui.ContrPanel.LedSM[k][i], "SYS\\ledoff.bmp");
                    break;
                case 3:
                    break;
                case 4:
                    if(DAS.DOption.amsprogbar)
                        if(DAS.DOption.aaopmode == 2)
                        {
                            D_VRangeSim(4,"Positioning Zenith",0, 0, 255, 255, 50, 300);            
                        
                        }
                    MPixmapSetImageFile(DAS.Gui.ContrPanel.LedSM[k][i], "SYS\\ledoff.bmp");
                    break;
                case 5:
                    if(DAS.DOption.amsprogbar)
                        if(DAS.DOption.aaopmode == 2)
                        {
                            D_VRangeSim(5,"Positioning Azimuth",0, 0, 192, 255, 50, 400);           
                        
                        }
                    MPixmapSetImageFile(DAS.Gui.ContrPanel.LedSM[k][i], "SYS\\ledoff.bmp");
                    break;


                }
            }
        }
    }
/*************************************************************************/

/**************************************************************************/
    // Send step
    
        for(k=0;k<DAS.StepM.NAMS;k++)
        {
            if (DAS.Flag.exemode != DBDEMO)
                {
                    AMS_sendstep(k, DAS.StepM.Revo[k][DAS.StepM.SM_A], DAS.StepM.Revo[k][DAS.StepM.SM_B],
                            DAS.StepM.nstep[k][DAS.StepM.SM_A], DAS.StepM.nstep[k][DAS.StepM.SM_B]);
                }   
            WriteLogAMS(k, DAS.StepM.Revo[k][DAS.StepM.SM_A], DAS.StepM.Revo[k][DAS.StepM.SM_B],
                            DAS.StepM.nstep[k][DAS.StepM.SM_A], DAS.StepM.nstep[k][DAS.StepM.SM_B]);

        }
    

    //Time Out loop
    st = GetTickCount();
    do
    {
        et = GetTickCount();
        tt = labs(et - st);
        MLoopWhileEvents(0);
            if(tt > 0)
            {

                if(DD_VOpen[0])
                {
                    if(DAS.DOption.amsprogbar)
                        D_VRangeSim(0 ,NULL,(unsigned long) tt * 100 / DAS.StepM.postime[AMS1][0], 255, 0, 0, 50, 0);
                    sprintf(buf, "%.1f sec. left", (double)fabs(((double)(tt - DAS.StepM.postime[AMS1][0]))/1000.0 ));
                    MObjectSetText(DAS.Gui.ContrPanel.Albl_LS[0], buf);
                    if (tt >= DAS.StepM.postime[AMS1][0])
                    {
                        if (DAS.Paramini.EqType == TROPOGAS || DAS.Paramini.EqType == SPATRAM3 || DAS.Paramini.EqType == GASCODNG4)
                            sprintf(str, "%s",Mir_CodeTropo[m]);
                        else
                            sprintf(str, "%s",Mir_Code[m]);

                        sprintf(buf, "%s", str);
                        MObjectSetText(DAS.Gui.ContrPanel.Albl_LS[0], buf);
                        MPixmapSetImageFile(DAS.Gui.ContrPanel.LedSM[0][0], "SYS\\ledGreen.bmp");

                    }
                }
                else
                {
                    sprintf(buf, "%.1f sec. left", (double)fabs(((double)(tt - DAS.StepM.postime[AMS1][0]))/1000.0 ));
                    MObjectSetText(DAS.Gui.ContrPanel.Albl_LS[0], buf);
                    if (tt >= DAS.StepM.postime[AMS1][0])
                    {
                        if (m != -1)
                        {
                            if (DAS.Paramini.EqType == TROPOGAS || DAS.Paramini.EqType == SPATRAM3 || DAS.Paramini.EqType == GASCODNG4)
                                sprintf(str, "%s",Mir_CodeTropo[m]);
                            else
                                sprintf(str, "%s",Mir_Code[m]);

                        }
                        else
                        {
                            if (DAS.Paramini.EqType == TROPOGAS || DAS.Paramini.EqType == SPATRAM3 || DAS.Paramini.EqType == GASCODNG4)
                                sprintf(str, "%s",Mir_CodeTropo[MIS.Pos]);
                            else
                                sprintf(str, "%s",Mir_Code[MIS.Pos]);

                            //sprintf(buf, "%s", str);
                            //MObjectSetText(DAS.Gui.ContrPanel.Albl_LS[0], buf);
                            //MPixmapSetImageFile(DAS.Gui.ContrPanel.LedSM[0][0], "SYS\\ledGreen.bmp");

                        }
                        sprintf(buf, "%s", str);
                        MObjectSetText(DAS.Gui.ContrPanel.Albl_LS[0], buf);
                        MPixmapSetImageFile(DAS.Gui.ContrPanel.LedSM[0][0], "SYS\\ledGreen.bmp");


                    }

                }
                if(DD_VOpen[1])
                {
                    if(DAS.DOption.amsprogbar)
                        D_VRangeSim(1, NULL,(unsigned long) tt * 100 / DAS.StepM.postime[AMS1][1], 255, 255, 0, 50, 100);
                    sprintf(buf, "%.1lf sec. left", (double)fabs(((double)(tt - DAS.StepM.postime[AMS1][1]))/1000.0 ));
                    MObjectSetText(DAS.Gui.ContrPanel.Albl_LS[1], buf);
                    if (tt >= DAS.StepM.postime[AMS1][1])
                    {
                        sprintf(buf, "%4d", wl[w]);
                        MObjectSetText(DAS.Gui.ContrPanel.Albl_LS[1], buf);
                        MPixmapSetImageFile(DAS.Gui.ContrPanel.LedSM[0][1], "SYS\\ledGreen.bmp");
                    }
                }
                else
                {
                    sprintf(buf, "%.1lf sec. left", (double)fabs(((double)(tt - DAS.StepM.postime[AMS1][1]))/1000.0 ));
                    MObjectSetText(DAS.Gui.ContrPanel.Albl_LS[1], buf);
                    if (tt >= DAS.StepM.postime[AMS1][1])
                    {
                        if(w != -1)
                            sprintf(buf, "%4d", wl[w]);
                        else
                            sprintf(buf, "%4d", wl[GRS.Wl]);
                        MObjectSetText(DAS.Gui.ContrPanel.Albl_LS[1], buf);
                        MPixmapSetImageFile(DAS.Gui.ContrPanel.LedSM[0][1], "SYS\\ledGreen.bmp");
                    }
                }
                if(DD_VOpen[2])
                {
                    if(DAS.DOption.amsprogbar)
                        D_VRangeSim(2, NULL,(unsigned long) tt * 100 / DAS.StepM.postime[AMS2][0], 0, 0, 255, 50, 200);         
                    sprintf(buf, "%.1lf sec. left", (double)fabs(((double) (tt - DAS.StepM.postime[AMS2][0]) )/1000.0 ));
                    MObjectSetText(DAS.Gui.ContrPanel.Albl_LS[2], buf);
                    if (tt >= DAS.StepM.postime[AMS2][0])
                    {
                        if ( DAS.Paramini.EqType == LIS_)
                            sprintf(buf, "%s", Fil_Code8H[f]);
                        else
                        {
                            if(DAS.Paramini.EqType == TROPOGAS)
                                sprintf(buf, "%s",Fil_CodeTropo[f]);
                            else if (DAS.Paramini.EqType == GASCODNG2 || DAS.Paramini.EqType == GASCODNG3 || DAS.Paramini.EqType == GASCODNG4)
                                sprintf(buf, "%s",Fil_CodeNG[f]);
                            else if (DAS.Paramini.EqType == GASCODNG1)
                                sprintf(buf, "%s",Fil_CodeNG1[f]);
                            else
                                sprintf(buf, "%s",Fil_Code[f]);
                        }
                        MObjectSetText(DAS.Gui.ContrPanel.Albl_LS[2], buf);
                        MPixmapSetImageFile(DAS.Gui.ContrPanel.LedSM[1][0], "SYS\\ledGreen.bmp");
                    }
                }
                else
                {
                    sprintf(buf, "%.1lf sec. left", (double)fabs(((double) (tt - DAS.StepM.postime[AMS2][0]) )/1000.0 ));
                    MObjectSetText(DAS.Gui.ContrPanel.Albl_LS[2], buf);
                    if (tt >= DAS.StepM.postime[AMS2][0])
                    {
                        if(f != -1)
                        {
                            if ( DAS.Paramini.EqType == LIS_)
                                sprintf(buf, "%s", Fil_Code8H[f]);
                            else
                            {
                                if(DAS.Paramini.EqType == TROPOGAS)
                                    sprintf(buf, "%s",Fil_CodeTropo[f]);
                                else if (DAS.Paramini.EqType == GASCODNG2 || DAS.Paramini.EqType == GASCODNG3 || DAS.Paramini.EqType == GASCODNG4)
                                    sprintf(buf, "%s",Fil_CodeNG[f]);
                                else if (DAS.Paramini.EqType == GASCODNG1)
                                    sprintf(buf, "%s",Fil_CodeNG1[f]);
                                else
                                    sprintf(buf, "%s",Fil_Code[f]);
                            }
                        }
                        else
                        {
                            if ( DAS.Paramini.EqType == LIS_)
                                sprintf(buf, "%s", Fil_Code8H[FWS.Pos]);
                            else
                            {
                                if(DAS.Paramini.EqType == TROPOGAS)
                                    sprintf(buf, "%s",Fil_CodeTropo[FWS.Pos]);
                                else if (DAS.Paramini.EqType == GASCODNG1 || DAS.Paramini.EqType == GASCODNG2 || DAS.Paramini.EqType == GASCODNG3 || DAS.Paramini.EqType == GASCODNG4)
                                    sprintf(buf, "%s",Fil_CodeNG[FWS.Pos]);
                                else
                                    sprintf(buf, "%s",Fil_Code[FWS.Pos]);
                            }
                        }

                        MObjectSetText(DAS.Gui.ContrPanel.Albl_LS[2], buf);
                        MPixmapSetImageFile(DAS.Gui.ContrPanel.LedSM[1][0], "SYS\\ledGreen.bmp");
                    }
                }

                if(DD_VOpen[4])
                {
                    if(DAS.DOption.amsprogbar)
                        D_VRangeSim(4, NULL,(unsigned long) tt * 100 / DAS.StepM.postime[AMS3][0], 0, 255, 255, 50, 300);           
                    if (tt >= DAS.StepM.postime[AMS3][0])
                    {
                        sprintf(buf, "%.1lf", z);
                        MObjectSetText(DAS.Gui.ContrPanel.Albl_LS[4], buf);
                        MPixmapSetImageFile(DAS.Gui.ContrPanel.LedSM[2][0], "SYS\\ledGreen.bmp");
                    }
                    else
                    {
                        sprintf(buf, "%.1lf sec. left", (double)fabs(((double)(tt - DAS.StepM.postime[AMS3][0]))/1000.0 ));
                        MObjectSetText(DAS.Gui.ContrPanel.Albl_LS[4], buf);                 
                    }
                }
                else
                {
                    if (tt >= DAS.StepM.postime[AMS3][0])
                    {
                        sprintf(buf, "%.1lf", z);
                        MObjectSetText(DAS.Gui.ContrPanel.Albl_LS[4], buf);
                        MPixmapSetImageFile(DAS.Gui.ContrPanel.LedSM[2][0], "SYS\\ledGreen.bmp");
                    }
                    else
                    {
                        sprintf(buf, "%.1lf sec. left", (double)fabs(((double)(tt - DAS.StepM.postime[AMS3][0]))/1000.0 ));
                        MObjectSetText(DAS.Gui.ContrPanel.Albl_LS[4], buf);
                    }

                }
                
                if(DD_VOpen[5])
                {
                    if(DAS.DOption.amsprogbar)
                        D_VRangeSim(5, NULL,(unsigned long) tt * 100 / DAS.StepM.postime[AMS3][1], 0, 192, 255, 50, 400);           
                    if (labs(et - st) >= DAS.StepM.postime[AMS3][1])
                    {
                        sprintf(buf, "%.1lf", a);
                        MObjectSetText(DAS.Gui.ContrPanel.Albl_LS[5], buf);
                        MPixmapSetImageFile(DAS.Gui.ContrPanel.LedSM[2][1], "SYS\\ledGreen.bmp");
                    }
                    else
                    {
                        sprintf(buf, "%.1lf sec. left", (double)fabs(((double)(tt - DAS.StepM.postime[AMS3][1]))/1000.0 ));
                        MObjectSetText(DAS.Gui.ContrPanel.Albl_LS[5], buf);
                    }
                }
                else
                {
                    if (labs(et - st) >= DAS.StepM.postime[AMS3][1])
                    {
                        sprintf(buf, "%.1lf", a);
                        MObjectSetText(DAS.Gui.ContrPanel.Albl_LS[5], buf);
                        MPixmapSetImageFile(DAS.Gui.ContrPanel.LedSM[2][1], "SYS\\ledGreen.bmp");
                    }
                    else
                    {
                        sprintf(buf, "%.1lf sec. left", (double)fabs(((double)(tt - DAS.StepM.postime[AMS3][1]))/1000.0 ));
                        MObjectSetText(DAS.Gui.ContrPanel.Albl_LS[5], buf);
                    }

                }
                

            }
    }while((tt < maxpostime));
/**************************************************************************/
/**************************************************************************/

    // Check if all the progression bars have been destroyed.
    // If not the active one is destroyed and the apprpriate label is written
    for(k=0;k<DAS.StepM.NAMS;k++)
    {
        for (i=0;i<2;i++)
        {
            s = 2*k+i;
            if(DD_VOpen[s])
            {
                if(DAS.DOption.amsprogbar)
                    D_VRangeSim(s, NULL, 100, 0, 0, 0, 0, 0);
                switch (s)
                {
                case 0:
                    if (m != -1)
                    {
                        if (DAS.Paramini.EqType == TROPOGAS || DAS.Paramini.EqType == SPATRAM3 || DAS.Paramini.EqType == GASCODNG4)
                            sprintf(str, "%s",Mir_CodeTropo[m]);
                        else
                            sprintf(str, "%s",Mir_Code[m]);
                        sprintf(buf, "%s", str);
                        MObjectSetText(DAS.Gui.ContrPanel.Albl_LS[0], buf);
                        MPixmapSetImageFile(DAS.Gui.ContrPanel.LedSM[k][i], "SYS\\ledGreen.bmp");
                    }
                    break;
                case 1:
                    sprintf(buf, "%4d", wl[w]);
                    MObjectSetText(DAS.Gui.ContrPanel.Albl_LS[1], buf);
                    MPixmapSetImageFile(DAS.Gui.ContrPanel.LedSM[k][i], "SYS\\ledGreen.bmp");
                    break;
                case 2:
                    if ( DAS.Paramini.EqType == LIS_)
                        sprintf(buf, "%s", Fil_Code8H[f]);
                    else
                    {
                        if(DAS.Paramini.EqType == TROPOGAS)
                            sprintf(buf, "%s",Fil_CodeTropo[f]);
                        else if (DAS.Paramini.EqType == GASCODNG2 || DAS.Paramini.EqType == GASCODNG3 || DAS.Paramini.EqType == GASCODNG4)
                            sprintf(buf, "%s",Fil_CodeNG[f]);
                        else if (DAS.Paramini.EqType == GASCODNG1)
                                sprintf(buf, "%s",Fil_CodeNG1[f]);
                        else
                            sprintf(buf, "%s",Fil_Code[f]);
                    }
                    MObjectSetText(DAS.Gui.ContrPanel.Albl_LS[2], buf);
                    MPixmapSetImageFile(DAS.Gui.ContrPanel.LedSM[k][i], "SYS\\ledGreen.bmp");
                    break;
                case 3:

                    break;
                case 4:
                    sprintf(buf, "%.1lf", z);
                    MObjectSetText(DAS.Gui.ContrPanel.Albl_LS[4], buf);
                    MPixmapSetImageFile(DAS.Gui.ContrPanel.LedSM[k][i], "SYS\\ledGreen.bmp");
                    break;
                case 5:
                    sprintf(buf, "%.1lf", (double) a);
                    MObjectSetText(DAS.Gui.ContrPanel.Albl_LS[5], buf);
                    MPixmapSetImageFile(DAS.Gui.ContrPanel.LedSM[k][i], "SYS\\ledGreen.bmp");
                    break;


                }
            }
        }

    }
/**************************************************************************/
    //Recupero del gioco per grating

        if(DAS.StepM.nstep[AMS1][DAS.StepM.SM_B] && (DAS.StepM.Revo[AMS1][DAS.StepM.SM_B] == 0) )       
        {
            er=DB_StepMotor(AMS1, 1, GRS.dp, 1);
            if (er)
            {
                sprintf(buf, "%4d", wl[w]);
                MObjectSetText(DAS.Gui.ContrPanel.Albl_LS[1], buf);
                MPixmapSetImageFile(DAS.Gui.ContrPanel.LedSM[AMS1][1], "SYS\\ledGreen.bmp");        
            }
        }

/**************************************************************************/
    return 0;


}

Here is the call graph for this function:

Here is the caller graph for this function:

SD_PosOMUDev()

int SD_PosOMUDev	(	int	m,
		int	w,
		int	f
	)

perform the simoultaneous positioning of the Spectrometer Devices in the OMU Unit m = mirror w = wavelength (Grating) f = filter wheel

Definition at line 747 of file Spat_Device.c.

References controlpanel::Albl_LS, AMS1, AMS2, AMS_sendstep(), optionini::amsprogbar, gui::ContrPanel, D_VRangeSim(), DB_StepMotor(), DBDEMO, DD_VOpen, das::DOption, GratingSt::dp, paramini::EqType, flag::exemode, Fil_Code, Fil_Code8H, Fil_CodeNG, Fil_CodeNG1, Fil_CodeTropo, das::Flag, FWS, GASCODNG1, GASCODNG2, GASCODNG3, GASCODNG4, das::Gui, controlpanel::LedSM, LIS_, Mir_Code, Mir_CodeTropo, MIS, MLoopWhileEvents(), MObjectSetText(), MPixmapSetImageFile(), stepm::multiplier, stepm::NAMS, stepm::nstep, paramini::Offset, das::Paramini, FilterWheelSt::Pos, MirrorSt::Pos, stepm::postime, stepm::Revo, stepm::SM_A, stepm::SM_B, SM_stepr(), SPATRAM, SPATRAM2, SPATRAM3, SPATRAMPLUS, stepm::speed_Hz, st, stepm::step, das::StepM, TROPOGAS, wav, wl, GratingSt::Wl, and WriteLogAMS().

Referenced by E_AvgCCDHor(), E_DFMeasure(), E_Meashor(), E_Meashor2(), and E_Measure().

{

    int k, i, s, er, dir;
    int backlash = 0;
//  float GRASTEP, STEPGRA;
    long minpostime = 2147483647, maxpostime = 0;
    long st, et, tt, n;
    double ttout = 0;
    char buf[80], str[16];
    long    dp = 500; // dp sono i dead pulse, vanno aggiunti all'inversione per il recupero del gioco
    int StepWithOffset [4][4];
    float g = 0;

    for(k=0;k<DAS.StepM.NAMS;k++)
    {   for (i=0;i<2;i++)
        {
            s = 2 * k + i;
            DD_VOpen[s] = 0;
        }
    }
    /*******************************/

    if((m >= 0) && (m <= 3))
    {
        k = SM_stepr(DAS.StepM.step[AMS1][DAS.StepM.SM_A]) * 6 / 4;
/*      er = (long)(MIS.Pos - m);
        switch (er)
        {
            case 0:
                n = 0;
                break;
            case 1:
                n = er * k * 3;
                break;
            case -3:
            case -1:
            case 2:
            case (-2):
                n = er * k;
                break;
            case 3:
                n = er * k / 3;
                break;

        }

  */
    k = SM_stepr(DAS.StepM.step[AMS1][0]) * DAS.StepM.multiplier[AMS1][0] / 4; //4 is the number of positions

    StepWithOffset [0][0] = 0;
    StepWithOffset [0][1] = 3*k - DAS.Paramini.Offset[2];
    StepWithOffset [0][2] = 2*k - DAS.Paramini.Offset[3];
    StepWithOffset [0][3] = k - DAS.Paramini.Offset[4];

    StepWithOffset [1][0] = k + DAS.Paramini.Offset[2];
    StepWithOffset [1][1] = 0;
    StepWithOffset [1][2] = 3*k - DAS.Paramini.Offset[3] + DAS.Paramini.Offset[2];
    StepWithOffset [1][3] = 2*k - DAS.Paramini.Offset[4]+ DAS.Paramini.Offset[2];

    StepWithOffset [2][0] = 2*k + DAS.Paramini.Offset[3];
    StepWithOffset [2][1] = k - DAS.Paramini.Offset[2]+DAS.Paramini.Offset[3];
    StepWithOffset [2][2] = 0;
    StepWithOffset [2][3] = 3*k - DAS.Paramini.Offset[4]+DAS.Paramini.Offset[3];

    StepWithOffset [3][0] = 3*k + DAS.Paramini.Offset[4];
    StepWithOffset [3][1] = 2*k - DAS.Paramini.Offset[2]+ DAS.Paramini.Offset[4];
    StepWithOffset [3][2] = k - DAS.Paramini.Offset[3] + DAS.Paramini.Offset[4];
    StepWithOffset [3][3] = 0;

    n = StepWithOffset [m][MIS.Pos]; 
        


        dir = 1;
        //n = labs(n);
        DAS.StepM.Revo[AMS1][DAS.StepM.SM_A] = dir;
        DAS.StepM.nstep[AMS1][DAS.StepM.SM_A] = n;
        MIS.Pos = m;
    }
    else
    {
        DAS.StepM.Revo[AMS1][DAS.StepM.SM_A] = 0;
        DAS.StepM.nstep[AMS1][DAS.StepM.SM_A] = 0;

    }

    /******************************/
    /******************************/
    //w - Grating position section
    if(w >= 0 && w <= 17)
    {
        g = (float) SM_stepr(DAS.StepM.step[AMS1][1])/3200; 
        n = (long)(((float) (-wav[GRS.Wl] + wav[w]) ) * 4 * g); 

        if(n < 0)
            dir = 1;    
        else
        {
            dir = 0;
            backlash = 1; //for the backlash recovery
        }
        n = labs(n);
        
        
        if(n && dir == 0)   //si va verso l'UV
            n += GRS.dp;  // // add fixed step number for backlash recovery 
        
        DAS.StepM.Revo[AMS1][DAS.StepM.SM_B] = dir;
        DAS.StepM.nstep[AMS1][DAS.StepM.SM_B] = n;
        GRS.Wl = w;
    }
    else
    {
        DAS.StepM.Revo[AMS1][DAS.StepM.SM_B] = 0;
        DAS.StepM.nstep[AMS1][DAS.StepM.SM_B] = 0;

    }
    /*******************************/
    /*******************************/
    // f - Filter wheel Section
    
    //8 holes....
    if(DAS.Paramini.EqType == LIS_)
    {
        k = SM_stepr(DAS.StepM.step[AMS2][DAS.StepM.SM_A]) / 8;
        if(f >= 0 && f <= 8)
        {
            n= (long)(FWS.Pos - f) * k;
            if(n < 0) 
                dir = 1;
            else
                dir = 0;
    
            n = labs(n);
            DAS.StepM.Revo[AMS2][DAS.StepM.SM_A] = dir;
            DAS.StepM.nstep[AMS2][DAS.StepM.SM_A] = n;
            FWS.Pos = f;
        }
        else
        {
            n = 0;
            DAS.StepM.Revo[AMS2][DAS.StepM.SM_A] = 0;
            DAS.StepM.nstep[AMS2][DAS.StepM.SM_A] = 0;
        }


    }
    // ...or 6 holes....
    if (DAS.Paramini.EqType == SPATRAM      || 
        DAS.Paramini.EqType == GASCODNG1    || 
        DAS.Paramini.EqType == SPATRAMPLUS  ||
        DAS.Paramini.EqType == TROPOGAS     || 
        DAS.Paramini.EqType == GASCODNG2    || 
        DAS.Paramini.EqType == GASCODNG3    ||
        DAS.Paramini.EqType == GASCODNG4    ||
        DAS.Paramini.EqType == SPATRAM3 ||
        DAS.Paramini.EqType == SPATRAM2 )
    {
        k = SM_stepr(DAS.StepM.step[AMS2][DAS.StepM.SM_A]) / 6;
        if(f >= 0 && f <= 5)
        {
            n= (long)(FWS.Pos - f) * k;
            if(n < 0) 
                dir = 1;
            else
                dir = 0;
    
            n = labs(n);
            DAS.StepM.Revo[AMS2][DAS.StepM.SM_A] = dir;
            DAS.StepM.nstep[AMS2][DAS.StepM.SM_A] = n;
            FWS.Pos = f;
        }
        else
        {
            n = 0;
            DAS.StepM.Revo[AMS2][DAS.StepM.SM_A] = 0;
            DAS.StepM.nstep[AMS2][DAS.StepM.SM_A] = 0;
        }
    }
    
/**************************************************************************/
    // Tout computation and Max finding
    for(k=0;k<2;k++)
    {
        for (i=0;i<2;i++)
        {
            DAS.StepM.postime[k][i] = (long)( DAS.StepM.nstep[k][i]/(float) DAS.StepM.speed_Hz[k][i]);
            if (DAS.StepM.postime[k][i] >= maxpostime) maxpostime = DAS.StepM.postime[k][i]; 
            if (DAS.StepM.postime[k][i] <= minpostime) minpostime = DAS.StepM.postime[k][i];
        }
    }
/*************************************************************************/

    // Init Progression bar
    for(k=0;k<2;k++)
    {
        for (i=0;i<2;i++)
        {
            if (DAS.StepM.nstep[k][i] != 0)
            {
                s = 2*k+i;
                switch (s)
                {
                case 0:
                    if(DAS.DOption.amsprogbar)
                        D_VRangeSim(0, "Positioning Mirror",0, 255, 0, 0, 50, 0);
                    MPixmapSetImageFile(DAS.Gui.ContrPanel.LedSM[k][i], "SYS\\ledoff.bmp");
                    
                    break;
                case 1:
                    if(DAS.DOption.amsprogbar)
                        D_VRangeSim(1, "Positioning Grating",0, 255, 255, 0, 50, 100);          
                    MPixmapSetImageFile(DAS.Gui.ContrPanel.LedSM[k][i], "SYS\\ledoff.bmp");
                    break;
                case 2:
                    if(DAS.DOption.amsprogbar)
                        D_VRangeSim(2, "Positioning Filter Wheel",0, 0, 0, 255, 50, 200);           
                    MPixmapSetImageFile(DAS.Gui.ContrPanel.LedSM[k][i], "SYS\\ledoff.bmp");
                    break;
                case 3:
                    break;
                }
            }
        }
    }

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

/**************************************************************************/
    // Send step
    if (DAS.Flag.exemode != DBDEMO)
    {
    
        for(k=0;k<2;k++)
        {
            AMS_sendstep(k, DAS.StepM.Revo[k][DAS.StepM.SM_A], DAS.StepM.Revo[k][DAS.StepM.SM_B],
                            DAS.StepM.nstep[k][DAS.StepM.SM_A], DAS.StepM.nstep[k][DAS.StepM.SM_B]);

            WriteLogAMS(k, DAS.StepM.Revo[k][DAS.StepM.SM_A], DAS.StepM.Revo[k][DAS.StepM.SM_B],
                            DAS.StepM.nstep[k][DAS.StepM.SM_A], DAS.StepM.nstep[k][DAS.StepM.SM_B]);

        }
    }
/**************************************************************************/

    //Time Out loop
    st = GetTickCount();
    do
    {
        et = GetTickCount();
        tt = labs(et - st);
        MLoopWhileEvents(0);
            if(tt > 0)
            {

                if(DD_VOpen[0])
                {
                    if(DAS.DOption.amsprogbar)
                        D_VRangeSim(0 ,NULL,(unsigned long) tt * 100 / DAS.StepM.postime[AMS1][0], 255, 0, 0, 50, 0);
                    sprintf(buf, "%.1f sec. left", (double)fabs(((double)(tt - DAS.StepM.postime[AMS1][0]))/1000.0 ));
                    MObjectSetText(DAS.Gui.ContrPanel.Albl_LS[0], buf);
                    if (tt >= DAS.StepM.postime[AMS1][0])
                    {
                        if (DAS.Paramini.EqType == TROPOGAS || DAS.Paramini.EqType == SPATRAM3 || DAS.Paramini.EqType == GASCODNG4)
                            sprintf(str, "%s",Mir_CodeTropo[m]);
                        else
                            sprintf(str, "%s",Mir_Code[m]);

                        sprintf(buf, "%s", str);
                        MObjectSetText(DAS.Gui.ContrPanel.Albl_LS[0], buf);
                        MPixmapSetImageFile(DAS.Gui.ContrPanel.LedSM[0][0], "SYS\\ledGreen.bmp");

                    }
                }
                else
                {
                    sprintf(buf, "%.1f sec. left", (double)fabs(((double)(tt - DAS.StepM.postime[AMS1][0]))/1000.0 ));
                    MObjectSetText(DAS.Gui.ContrPanel.Albl_LS[0], buf);
                    if (tt >= DAS.StepM.postime[AMS1][0])
                    {
                        if (m != -1)
                        {
                            if (DAS.Paramini.EqType == TROPOGAS || DAS.Paramini.EqType == SPATRAM3 || DAS.Paramini.EqType == GASCODNG4)
                                sprintf(str, "%s",Mir_CodeTropo[m]);
                            else
                                sprintf(str, "%s",Mir_Code[m]);

                        }
                        else
                        {
                            if (DAS.Paramini.EqType == TROPOGAS || DAS.Paramini.EqType == SPATRAM3 || DAS.Paramini.EqType == GASCODNG4)
                                sprintf(str, "%s",Mir_CodeTropo[MIS.Pos]);
                            else
                                sprintf(str, "%s",Mir_Code[MIS.Pos]);

                            //sprintf(buf, "%s", str);
                            //MObjectSetText(DAS.Gui.ContrPanel.Albl_LS[0], buf);
                            //MPixmapSetImageFile(DAS.Gui.ContrPanel.LedSM[0][0], "SYS\\ledGreen.bmp");

                        }
                        sprintf(buf, "%s", str);
                        MObjectSetText(DAS.Gui.ContrPanel.Albl_LS[0], buf);
                        MPixmapSetImageFile(DAS.Gui.ContrPanel.LedSM[0][0], "SYS\\ledGreen.bmp");


                    }

                }
                if(DD_VOpen[1])
                {
                    if(DAS.DOption.amsprogbar)
                        D_VRangeSim(1, NULL,(unsigned long) tt * 100 / DAS.StepM.postime[AMS1][1], 255, 255, 0, 50, 100);
                    sprintf(buf, "%.1lf sec. left", (double)fabs(((double)(tt - DAS.StepM.postime[AMS1][1]))/1000.0 ));
                    MObjectSetText(DAS.Gui.ContrPanel.Albl_LS[1], buf);
                    if (tt >= DAS.StepM.postime[AMS1][1])
                    {
                        sprintf(buf, "%4d", wl[w]);
                        MObjectSetText(DAS.Gui.ContrPanel.Albl_LS[1], buf);
                        MPixmapSetImageFile(DAS.Gui.ContrPanel.LedSM[0][1], "SYS\\ledGreen.bmp");
                    }
                }
                else
                {
                    sprintf(buf, "%.1lf sec. left", (double)fabs(((double)(tt - DAS.StepM.postime[AMS1][1]))/1000.0 ));
                    MObjectSetText(DAS.Gui.ContrPanel.Albl_LS[1], buf);
                    if (tt >= DAS.StepM.postime[AMS1][1])
                    {
                        if(w != -1)
                            sprintf(buf, "%4d", wl[w]);
                        else
                            sprintf(buf, "%4d", wl[GRS.Wl]);
                        MObjectSetText(DAS.Gui.ContrPanel.Albl_LS[1], buf);
                        MPixmapSetImageFile(DAS.Gui.ContrPanel.LedSM[0][1], "SYS\\ledGreen.bmp");
                    }
                }
                if(DD_VOpen[2])
                {
                    if(DAS.DOption.amsprogbar)
                        D_VRangeSim(2, NULL,(unsigned long) tt * 100 / DAS.StepM.postime[AMS2][0], 0, 0, 255, 50, 200);         
                    sprintf(buf, "%.1lf sec. left", (double)fabs(((double) (tt - DAS.StepM.postime[AMS2][0]) )/1000.0 ));
                    MObjectSetText(DAS.Gui.ContrPanel.Albl_LS[2], buf);
                    if (tt >= DAS.StepM.postime[AMS2][0])
                    {
                        if ( DAS.Paramini.EqType == LIS_)
                            sprintf(buf, "%s", Fil_Code8H[f]);
                        else
                        {
                            if(DAS.Paramini.EqType == TROPOGAS)
                                sprintf(buf, "%s",Fil_CodeTropo[f]);
                            else if (DAS.Paramini.EqType == GASCODNG2 || DAS.Paramini.EqType == GASCODNG3 || DAS.Paramini.EqType == GASCODNG4)
                                sprintf(buf, "%s",Fil_CodeNG[f]);
                            else if (DAS.Paramini.EqType == GASCODNG1)
                                sprintf(buf, "%s",Fil_CodeNG1[f]);

                            else
                                sprintf(buf, "%s",Fil_Code[f]);
                        }
                        MObjectSetText(DAS.Gui.ContrPanel.Albl_LS[2], buf);
                        MPixmapSetImageFile(DAS.Gui.ContrPanel.LedSM[1][0], "SYS\\ledGreen.bmp");
                    }
                }
                else
                {
                    sprintf(buf, "%.1lf sec. left", (double)fabs(((double) (tt - DAS.StepM.postime[AMS2][0]) )/1000.0 ));
                    MObjectSetText(DAS.Gui.ContrPanel.Albl_LS[2], buf);
                    if (tt >= DAS.StepM.postime[AMS2][0])
                    {
                        if(f != -1)
                        {
                            if ( DAS.Paramini.EqType == LIS_)
                                sprintf(buf, "%s", Fil_Code8H[f]);
                            else
                            {
                                if(DAS.Paramini.EqType == TROPOGAS)
                                    sprintf(buf, "%s",Fil_CodeTropo[f]);
                                else if ( DAS.Paramini.EqType == GASCODNG2 || DAS.Paramini.EqType == GASCODNG3 || DAS.Paramini.EqType == GASCODNG4)
                                    sprintf(buf, "%s",Fil_CodeNG[f]);
                                else if (DAS.Paramini.EqType == GASCODNG1)
                                sprintf(buf, "%s",Fil_CodeNG1[f]);

                                else
                                    sprintf(buf, "%s",Fil_Code[f]);
                            }
                        }
                        else
                        {
                            if ( DAS.Paramini.EqType == LIS_)
                                sprintf(buf, "%s", Fil_Code8H[FWS.Pos]);
                            else
                            {
                                if(DAS.Paramini.EqType == TROPOGAS)
                                    sprintf(buf, "%s",Fil_CodeTropo[FWS.Pos]);
                                else if (DAS.Paramini.EqType == GASCODNG1 || DAS.Paramini.EqType == GASCODNG2 || DAS.Paramini.EqType == GASCODNG3 || DAS.Paramini.EqType == GASCODNG4)
                                    sprintf(buf, "%s",Fil_CodeNG[FWS.Pos]);
                                else
                                    sprintf(buf, "%s",Fil_Code[FWS.Pos]);
                            }
                        }

                        MObjectSetText(DAS.Gui.ContrPanel.Albl_LS[2], buf);
                        MPixmapSetImageFile(DAS.Gui.ContrPanel.LedSM[1][0], "SYS\\ledGreen.bmp");
                    }
                }

                

            }
    }while((tt < maxpostime));
/**************************************************************************/
/**************************************************************************/

    // Check if all the progression bars have been destroyed.
    // If not the active one is destroyed and the apprpriate label is written
    for(k=0;k<2;k++)
    {
        for (i=0;i<2;i++)
        {
            s = 2*k+i;
            if(DD_VOpen[s])
            {
                if(DAS.DOption.amsprogbar)
                    D_VRangeSim(s, NULL, 100, 0, 0, 0, 0, 0);
                switch (s)
                {
                case 0:
                    if (m != -1)
                    {
                        if (DAS.Paramini.EqType == TROPOGAS || DAS.Paramini.EqType == SPATRAM3 || DAS.Paramini.EqType == GASCODNG4)
                            sprintf(str, "%s",Mir_CodeTropo[m]);
                        else
                            sprintf(str, "%s",Mir_Code[m]);
                        sprintf(buf, "%s", str);
                        MObjectSetText(DAS.Gui.ContrPanel.Albl_LS[0], buf);
                        MPixmapSetImageFile(DAS.Gui.ContrPanel.LedSM[k][i], "SYS\\ledGreen.bmp");
                    }
                    break;
                case 1:
                    sprintf(buf, "%4d", wl[w]);
                    MObjectSetText(DAS.Gui.ContrPanel.Albl_LS[1], buf);
                    MPixmapSetImageFile(DAS.Gui.ContrPanel.LedSM[k][i], "SYS\\ledGreen.bmp");
                    break;
                case 2:
                    if ( DAS.Paramini.EqType == LIS_)
                        sprintf(buf, "%s", Fil_Code8H[f]);
                    else
                    {
                        if(DAS.Paramini.EqType == TROPOGAS)
                            sprintf(buf, "%s",Fil_CodeTropo[f]);
                        else if (DAS.Paramini.EqType == GASCODNG2 || DAS.Paramini.EqType == GASCODNG3 || DAS.Paramini.EqType == GASCODNG4)
                            sprintf(buf, "%s",Fil_CodeNG[f]);
                        else if (DAS.Paramini.EqType == GASCODNG1)
                            sprintf(buf, "%s",Fil_CodeNG1[f]);
                        else
                            sprintf(buf, "%s",Fil_Code[f]);
                    }
                    MObjectSetText(DAS.Gui.ContrPanel.Albl_LS[2], buf);
                    MPixmapSetImageFile(DAS.Gui.ContrPanel.LedSM[k][i], "SYS\\ledGreen.bmp");
                    break;
                case 3:

                    break;

                }
            }
        }

    }
/**************************************************************************/
    //Recupero del gioco per grating

        if(DAS.StepM.nstep[AMS1][DAS.StepM.SM_B] && (DAS.StepM.Revo[AMS1][DAS.StepM.SM_B] == 0) )
        {
            er=DB_StepMotor(AMS1, 1, GRS.dp, 1);
            if (er)
            {
                sprintf(buf, "%4d", wl[w]);
                MObjectSetText(DAS.Gui.ContrPanel.Albl_LS[1], buf);
                MPixmapSetImageFile(DAS.Gui.ContrPanel.LedSM[AMS1][1], "SYS\\ledGreen.bmp");        
            }
        }

/**************************************************************************/
    return 0;



}

Here is the call graph for this function:

Here is the caller graph for this function:

SD_Zenith()

int SD_Zenith

(

float

ang

)

Positioning Zenith.
The Zenith reaches the position specified by ang.

Parameters

ang

Returns

er:

• = 0 –> Operation concluded succesfully
• = 1 –> Problems in positioning

Definition at line 2916 of file Spat_Device.c.

References controlpanel::Albl_LS, AMS3, gui::ContrPanel, DB_KB_ButtonActive(), DB_StepMotor(), flag::exec, flag::fileprg, das::Gui, pushbutt::KeyB, controlpanel::LedSM, MIGEZen(), MObjectSetSensitive(), MObjectSetText(), MPixmapSetImageFile(), stepm::multiplier, stepm::nstep, ZenithSt::Pos, gui::PushButt, ZenithSt::realzenpos, stepm::Revo, stepm::SM_A, SM_stepr(), stepm::step, and das::StepM.

Referenced by ActMvZenDegCB(), E_AAMeasure(), E_IRefSun(), and E_Zenith().

{
    int er = 0;
    char    buf[80];
    long    n, dp = 500; // dp sono i dead pulse, vanno aggiunti all'inversione per il recupero del gioco
    int     dir;
    int k = 0;
//  float x;
    double GRASTEP, STEPGRA;
//  float prepos;
    double yy;
    float rzenang;
//  if(DAS.MIGE.type)
//  {
        // +90 -->  DX looking to the North
        // -90 -->  SX looking to the North
//      if(ang < 0 || ang > 180 ) return 0;
//  }
//  else
//  {
        //if ang is not in the limits the DAS exit from the function
//      if(ang < -91 || ang > 45 ) return 0;
//  }
    //Status("Set NEW zenith Position");

    //Disattiva i pulsanti sulla keyboard
    DB_KB_ButtonActive(0);
    MObjectSetSensitive(DAS.Gui.PushButt.KeyB[25]);
    MObjectSetSensitive(DAS.Gui.PushButt.KeyB[27]);

/*  
    k = (float)SM_stepr(DAS.StepM.step[AMS3][0]); // step/round

    GRASTEP = 360/k; // º/step

    STEPGRA = k/360; // step/º

    
    yy = -(ang - ZST.Pos); // -(55-90) = 35 //1
                        //-(56-55) = -1   //2
                        //-(96-56) = -40  //3
                        //-(90-96) = 6    //4


    n = (long)(yy * STEPGRA * (DAS.StepM.multiplier[AMS3][0])); //4 e' la riduzione
    

    prepos = ZST.Pos;
    ZST.Pos = ang;

    sprintf(buf, " %.1lf --> %.1lf", prepos, ang);
    Status(buf);

    // Select direction
    if(n < 0)
        dir = 1;    
    else
        dir = 0;
        
    n = labs(n);

//  if(n && dir == 0)   //si va verso l'UV
//          n += dp;  // // add fixed step number for backlash recovery 
    
    
*/
    

    //Zenith positioning
    rzenang=MIGEZen((float)ang);

    if(ang >= 0 && ang <= 180 )
    {
    


        k = SM_stepr(DAS.StepM.step[AMS3][DAS.StepM.SM_A]); // step/round

        GRASTEP = (float) 360.0 / (float) k; // degree/step

        STEPGRA = (float) k / (float) 360.0; // step/degree

//      yy = -(z - ZST.Pos); 
        yy = -(rzenang - ZST.Pos); 
        n = (long)(yy * STEPGRA * (DAS.StepM.multiplier[AMS3][0]));
//      ZST.Pos = z;
        ZST.Pos = rzenang;
        ZST.realzenpos = ang;
        // Select direction
        if(n < 0)
            dir = 1;    
        else
            dir = 0;
        
        n = labs(n);
        DAS.StepM.Revo[AMS3][DAS.StepM.SM_A] = dir;
        DAS.StepM.nstep[AMS3][DAS.StepM.SM_A] = n;
    }
    else
    {
        DAS.StepM.Revo[AMS3][DAS.StepM.SM_A] = 0;
        DAS.StepM.nstep[AMS3][DAS.StepM.SM_A] = 0;
        sprintf(buf, "Not Allowed Zen.");
        MObjectSetText(DAS.Gui.ContrPanel.Albl_LS[4], buf);

    }

    if (n==0)
    {
        //Attiva i pulsanti sulla keyboard
        DB_KB_ButtonActive(1);
        return 1;
    }

    // Eseguo n passi
    if(n)
    {
        er = DB_StepMotor(AMS3, 4, DAS.StepM.nstep[AMS3][DAS.StepM.SM_A], DAS.StepM.Revo[AMS3][DAS.StepM.SM_A]);
        if (er)
        {
            MPixmapSetImageFile(DAS.Gui.ContrPanel.LedSM[AMS3][0], "SYS\\ledGreen.bmp");        
        }
    }

/*  if(dir == 0)       
    {
        er=DB_StepMotor(AMS3, DAS.StepM.SM5, dp, 1);
        if (er)
        {
            MPixmapSetImageFile(DAS.Gui.ContrPanel.LedSM5, "SYS\\ledGreen.bmp");        
        }
    }
*/

    sprintf(buf, "%.2lf", ang);
    MObjectSetText(DAS.Gui.ContrPanel.Albl_LS[4], buf);
    if(!FLAG.fileprg || !FLAG.exec )
        //Attiva i pulsanti sulla keyboard se non si sta eseguendo una tabella di misure
        //oppure se il programma e' stato sospeso (si e' premuto il tasto "pause")
        DB_KB_ButtonActive(1);
    
    

    if(er) return 1;

    
    return 0;

}

Here is the call graph for this function:

Here is the caller graph for this function:

SD_Zenith_H()

int SD_Zenith_H

(

float

ang

)

Definition at line 2816 of file Spat_Device.c.

References controlpanel::Albl_LS, AMS3, gui::ContrPanel, DB_KB_ButtonActive(), DB_StepMotor(), flag::exec, flag::fileprg, das::Gui, pushbutt::KeyB, controlpanel::LedSM, MObjectSetSensitive(), MObjectSetText(), MPixmapSetImageFile(), stepm::multiplier, ZenithSt::Pos, gui::PushButt, SM_stepr(), Status(), stepm::step, and das::StepM.

Referenced by HomeZenithFast().

{

    int er = 0;
    char    buf[80];
    long    n, dp = 500; // dp sono i dead pulse, vanno aggiunti all'inversione per il recupero del gioco
    int     dir;
    float k = 0;
//  float x;
    double GRASTEP, STEPGRA;
    float prepos;
    double yy;
//  float rzenang;
//  if(DAS.MIGE.type)
//  {
        // +90 -->  DX looking to the North
        // -90 -->  SX looking to the North
        if(ang < -91 || ang > 91 ) return 0;
//  }
//  else
//  {
        //if ang is not in the limits the DAS exit from the function
//      if(ang < -91 || ang > 45 ) return 0;
//  }
    //Status("Set NEW zenith Position");

    //Disattiva i pulsanti sulla keyboard
    DB_KB_ButtonActive(0);
    MObjectSetSensitive(DAS.Gui.PushButt.KeyB[25]);
    MObjectSetSensitive(DAS.Gui.PushButt.KeyB[27]);

    
    k = (float)SM_stepr(DAS.StepM.step[AMS3][0]); // step/round

    GRASTEP = 360/k; // º/step

    STEPGRA = k/360; // step/º

    
    yy = -(ang - ZST.Pos); // -(55-90) = 35 //1
                        //-(56-55) = -1   //2
                        //-(96-56) = -40  //3
                        //-(90-96) = 6    //4


    n = (long)(yy * STEPGRA * (DAS.StepM.multiplier[AMS3][0])); //4 e' la riduzione
    

    prepos = (float)ZST.Pos;
    ZST.Pos = ang;

    sprintf(buf, " %.1lf --> %.1lf", prepos, ang);
    Status(buf);

    // Select direction
    if(n < 0)
        dir = 1;    
    else
        dir = 0;
        
    n = labs(n);

    
    if (n==0)
    {
        //Attiva i pulsanti sulla keyboard
        DB_KB_ButtonActive(1);
        return 1;
    }

    // Eseguo n passi
    if(n)
    {
        er = DB_StepMotor(AMS3, 4, n, dir);
        if (er)
        {
            MPixmapSetImageFile(DAS.Gui.ContrPanel.LedSM[AMS3][0], "SYS\\ledGreen.bmp");        
        }
    }

    sprintf(buf, "%.2lf", ang);
    MObjectSetText(DAS.Gui.ContrPanel.Albl_LS[4], buf);
    if(!FLAG.fileprg || !FLAG.exec )
        //Attiva i pulsanti sulla keyboard se non si sta eseguendo una tabella di misure
        //oppure se il programma e' stato sospeso (si e' premuto il tasto "pause")
        DB_KB_ButtonActive(1);
    
    

    if(er) return 1;

    
    return 0;
    




}

Here is the call graph for this function:

Here is the caller graph for this function:

SM_stepr()

int SM_stepr

(

int

t

)

AMS 'steps/round' value return the AMS 'steps/round' value (microstepping) depending on the setted step fractioning.

Parameters

t	= fraction

Returns

er = steps/round
t | er
-—|-----—
0 | 400
1 | 800
2 | 1000
3 | 1600
4 | 2000
5 | 3200
6 | 5000
7 | 6400
8 | 10000
9 | 12800
10 | 25000
11 | 25600
12 | 50000
13 | 51200

Definition at line 209 of file Spat_Device.c.

Referenced by ActMvGratCB(), D_Calibra(), SD_Azimuth(), SD_FilterW(), SD_Grating(), SD_Mirror(), SD_NDFilterW(), SD_PosAADev(), SD_Position(), SD_PosOMUDev(), SD_Zenith(), and SD_Zenith_H().

{


    
    
    int c = t;
    int r;

        switch(c)
    {
        case 0:
            r = 400;
            break;
        case 1:
            r = 800;
            break;
        case 2 :
            r = 1000;
            break;
        case 3:
            r = 1600;
            break;
        case 4 :
            r = 2000;
            break;
        case 5:
            r = 3200;
            break;
        case 6 :
            r = 5000;
            break;
        case 7:
            r = 6400;
            break;
        case 8 :
            r = 10000;
            break;
        case 9:
            r = 12800;
            break;
        case 10 :
            r = 25000;
            break;
        case 11:
            r = 25600;
            break;
        case 12 :
            r = 50000;
            break;
        case 13:
            r = 51200;
            break;

    }

        return r;


}

Here is the caller graph for this function:

SMfraz()

float SMfraz

(

int

t

)

denominator value of the stepping ratio

Parameters

t	value of microstepping (0 to 13)

Definition at line 129 of file Spat_Device.c.

Referenced by ActMvAzimCB(), ActMvZenCB(), and HomeMirror().

{
    int c = t;
    float r;

        switch(c)
    {
        case 0:
            r = 1;
            break;
        case 1:
            r = 2;
            break;
        case 2 :
            r = 2.5;
            break;
        case 3:
            r = 4;
            break;
        case 4 :
            r = 5;
            break;
        case 5:
            r = 8;
            break;
        case 6 :
            r = 12.5;
            break;
        case 7:
            r = 16;
            break;
        case 8 :
            r = 25;
            break;
        case 9:
            r = 32;
            break;
        case 10 :
            r = 62.5;
            break;
        case 11:
            r = 64;
            break;
        case 12 :
            r = 125;
            break;
        case 13:
            r = 128;
            break;

    }

        return r;


}

Here is the caller graph for this function:

WriteLogAMS()

void WriteLogAMS	(	int	id,
		int	dira,
		int	dirb,
		unsigned long	stepa,
		unsigned long	stepb
	)

Definition at line 299 of file Spat_Device.c.

References DXL_par::bufrx, DXL_par::buftx, DLOG, and dlog::fsmlog.

Referenced by SD_PosAADev(), SD_Position(), and SD_PosOMUDev().

{

    int fc;
    char    str[250];
    char  str1[30];
    char  str2[30];
    char timebuf[9];
    char datebuf[9];

    _strtime(timebuf);
    _strdate(datebuf);

    if(id==0)
    {
        if(stepa && (stepb==0))
        {
            sprintf(str1,"Input Mirror");
            fc = open(DLOG.fsmlog, O_WRONLY | O_APPEND | O_TEXT  | O_CREAT, S_IWRITE);
            if(fc)
            {
                sprintf(str, "%s at %s: %s, from AMS%u, dir=%d, Steps=%ld, Steps(esa)=%lX, DXL.buftx=%s, DXL.bufrx=%s\n", datebuf, timebuf, str1, id, dira, stepa, stepa, DXL.buftx, DXL.bufrx);
                write(fc, str, strlen(str));
            }
            close(fc);

        }
        if(stepb && (stepa==0))
        {
            sprintf(str1,"Grating     ");
            fc = open(DLOG.fsmlog, O_WRONLY | O_APPEND | O_TEXT  | O_CREAT, S_IWRITE);
            if(fc)
            {
                sprintf(str, "%s at %s: %s, from AMS%u, dir=%d, Steps=%ld, Steps(esa)=%lX, DXL.buftx=%s, DXL.bufrx=%s\n", datebuf, timebuf, str1, id, dirb, stepb, stepb, DXL.buftx, DXL.bufrx);
                write(fc, str, strlen(str));
            }
            close(fc);

        }
        if(stepa && stepb)
        {
            sprintf(str1,"Input Mirror");
            sprintf(str2,"Grating     ");
            fc = open(DLOG.fsmlog, O_WRONLY | O_APPEND | O_TEXT  | O_CREAT, S_IWRITE);
            if(fc)
            {
                sprintf(str, "%s at %s: %s, from AMS%u, dir=%d, Steps=%ld, Steps(esa)=%lX, DXL.buftx=%s, DXL.bufrx=%s\n", datebuf, timebuf, str1, id, dira, stepa, stepa, DXL.buftx, DXL.bufrx);
                write(fc, str, strlen(str));
                sprintf(str, "%s at %s: %s, from AMS%u, dir=%d, Steps=%ld, Steps(esa)=%lX, DXL.buftx=%s, DXL.bufrx=%s\n", datebuf, timebuf, str2, id, dirb, stepb, stepb, DXL.buftx, DXL.bufrx);
                write(fc, str, strlen(str));
            }
            close(fc);
        }

    }

    if(id==1)
    {
        if(stepa && (stepb==0))
        {
            sprintf(str1,"Filter Wheel");
            fc = open(DLOG.fsmlog, O_WRONLY | O_APPEND | O_TEXT  | O_CREAT, S_IWRITE);
            if(fc)
            {
                sprintf(str, "%s at %s: %s, from AMS%u, dir=%d, Steps=%ld, Steps(esa)=%lX, DXL.buftx=%s, DXL.bufrx=%s\n", datebuf, timebuf, str1, id, dira, stepa, stepa, DXL.buftx, DXL.bufrx);
                write(fc, str, strlen(str));
            }
            close(fc);

        }
        if(stepb && (stepa==0))
        {
            sprintf(str2,"SPARE       ");
            fc = open(DLOG.fsmlog, O_WRONLY | O_APPEND | O_TEXT  | O_CREAT, S_IWRITE);
            if(fc)
            {
                sprintf(str, "%s at %s: %s, from AMS%u, dir=%d, Steps=%ld, Steps(esa)=%lX, DXL.buftx=%s, DXL.bufrx=%s\n",
                    datebuf, timebuf, str2, id, dirb, stepb, stepb, DXL.buftx, DXL.bufrx);
                write(fc, str, strlen(str));
            }
            close(fc);

        }
        if(stepa && stepb)
        {
            sprintf(str1,"Filter Wheel");
            sprintf(str2,"SPARE       ");
            fc = open(DLOG.fsmlog, O_WRONLY | O_APPEND | O_TEXT  | O_CREAT, S_IWRITE);
            if(fc)
            {
                sprintf(str, "%s at %s: %s, from AMS%u, dir=%d, Steps=%ld, Steps(esa)=%lX, DXL.buftx=%s, DXL.bufrx=%s\n", datebuf, timebuf, str1, id, dira, stepa, stepa, DXL.buftx, DXL.bufrx);
                write(fc, str, strlen(str));
                sprintf(str, "%s at %s: %s, from AMS%u, dir=%d, Steps=%ld, Steps(esa)=%lX, DXL.buftx=%s, DXL.bufrx=%s\n", datebuf, timebuf, str2, id, dirb, stepb, stepb, DXL.buftx, DXL.bufrx);
                write(fc, str, strlen(str));
            }
            close(fc);
        }
    }
    
    if(id==2)
    {
        if(stepa && (stepb==0))
        {
            sprintf(str1,"Zenith      ");
            fc = open(DLOG.fsmlog, O_WRONLY | O_APPEND | O_TEXT  | O_CREAT, S_IWRITE);
            if(fc)
            {
                sprintf(str, "%s at %s: %s, from AMS%u, dir=%d, Steps=%ld, Steps(esa)=%lX, DXL.buftx=%s, DXL.bufrx=%s\n", 
                    datebuf, timebuf, str1, id, dira, stepa, stepa, DXL.buftx, DXL.bufrx);
                write(fc, str, strlen(str));
            }
            close(fc);

        }
        if(stepb && (stepa==0))
        {
            sprintf(str2,"Azimuth     ");
            fc = open(DLOG.fsmlog, O_WRONLY | O_APPEND | O_TEXT  | O_CREAT, S_IWRITE);
            if(fc)
            {
                sprintf(str, "%s at %s: %s, from AMS%u, dir=%d, Steps=%ld, Steps(esa)=%lX, DXL.buftx=%s, DXL.bufrx=%s\n",
                    datebuf, timebuf, str2, id, dirb, stepb, stepb, DXL.buftx, DXL.bufrx);
                write(fc, str, strlen(str));
            }
            close(fc);

        }
        if(stepa && stepb)
        {
            sprintf(str1,"Zenith      ");
            sprintf(str2,"Azimuth     ");
            fc = open(DLOG.fsmlog, O_WRONLY | O_APPEND | O_TEXT  | O_CREAT, S_IWRITE);
            if(fc)
            {
                sprintf(str, "%s at %s: %s, from AMS%u, dir=%d, Steps=%ld, Steps(esa)=%lX, DXL.buftx=%s, DXL.bufrx=%s\n", datebuf, timebuf, str1, id, dira, stepa, stepa, DXL.buftx, DXL.bufrx);
                write(fc, str, strlen(str));
                sprintf(str, "%s at %s: %s, from AMS%u, dir=%d, Steps=%ld, Steps(esa)=%lX, DXL.buftx=%s, DXL.bufrx=%s\n", datebuf, timebuf, str2, id, dirb, stepb, stepb, DXL.buftx, DXL.bufrx);
                write(fc, str, strlen(str));
            }
            close(fc);
        }
    }

}

Here is the caller graph for this function:

writelogmotor()

void writelogmotor	(	int	mod,
		int	id_motore,
		int	k,
		int	d,
		long	steps,
		unsigned char	ams_id
	)

Write Motor Operations on Log File.
Write on the SM.LOG file the commands send to the motors.

Parameters

mod	= 0 write commands = 1 AMS initialization
id_motore	= SMx, with X = 1, 2, 3. (5, 6 for TROPOGAS)
k	= er
d	= direction: = 0 = 1
steps	= number of steps
ams_id	= AMS address: 0 = AMS1 1 = AMS2 2 = AMS3

Definition at line 48 of file Spat_Device.c.

References DXL_par::bufrx, DXL_par::buftx, DLOG, and dlog::fsmlog.

Referenced by AMS_DoPos().

{
    int fc;
    char    str[250];
    char  str1[30];
    char timebuf[9];
    char datebuf[9];

    if (mod==0)
    {
        if(id_motore==0)
            sprintf(str1,"Input Mirror");
        if(id_motore==1)
            sprintf(str1,"Grating     ");
        if(id_motore==2)
            sprintf(str1,"Filter Wheel");
        if(id_motore==4)
            sprintf(str1,"Zenith      ");
        if(id_motore==5)
            sprintf(str1,"Azimuth     ");

        fc = open(DLOG.fsmlog, O_WRONLY | O_APPEND | O_TEXT  | O_CREAT, S_IWRITE);
    
        if(fc > 0)
        {
            _strtime(timebuf);
            _strdate(datebuf);


//          sprintf(str, "%s, err = %d, from AMS%u, dir=%d, Steps=%ld, Steps(esa)=%lX, DXL.buftx=%s, DXL.bufrx=%s\n",
//              str1, k, ams_id, d, steps, steps, DXL.buftx, DXL.bufrx);
//          write(fc, str, strlen(str));
            
            sprintf(str, "%s at %s: %s, from AMS%u, dir=%d, Steps=%ld, Steps(esa)=%lX, DXL.buftx=%s, DXL.bufrx=%s\n",
                datebuf, timebuf, str1, ams_id, d, steps, steps, DXL.buftx, DXL.bufrx);
            write(fc, str, strlen(str));

        }

        close(fc);
    }
    // For the AMS initialization
    if (mod == 1)
    {

        if(id_motore==0)
            sprintf(str1,"Input Mirror");
        if(id_motore==1)
            sprintf(str1,"Grating     ");
        if(id_motore==2)
            sprintf(str1,"Filter Wheel");

        
        
        fc = open("LOG\\logSM.log", O_WRONLY | O_APPEND | O_TEXT  | O_CREAT, S_IWRITE);
    
        if(fc > 0)
        {

            _strtime(timebuf);
            _strdate(datebuf);

            sprintf(str, "%s at %s, AMSs Init with\n ", datebuf, timebuf);
            write(fc, str, strlen(str));
            
//          sprintf(str, "%s :\n Power:%d (%.1lf%%), Step: %d (%s), Slope: %d, Speed: %d (%.3lf) \n",str1, DAS.StepM.cop[id_motore], DAS.StepM.cop_perc[id_motore], DAS.StepM.step[id_motore], DAS.StepM.step_fraz[id_motore], DAS.StepM.slope[id_motore], DAS.StepM.speed[id_motore], DAS.StepM.speed_Hz[id_motore]);
            write(fc, str, strlen(str));

        }

        close(fc);
    }


    
}

Here is the caller graph for this function:

Variable Documentation

AST

AzimuthSt AST

Definition at line 25 of file Spat_Device.c.

DAS

das DAS

DAS structure.

Definition at line 27 of file Spat_Device.c.

DXL

DXL_par DXL

Definition at line 17 of file Spat_Device.c.

FLAG

flag FLAG

flags structure

Definition at line 19 of file Spat_Device.c.

GRS

GratingSt GRS

Grating.

Definition at line 22 of file Spat_Device.c.

ZST

ZenithSt ZST

Definition at line 24 of file Spat_Device.c.