rpl/src/instructions_p2.c - diff

Return to instructions_p2.c CVS log

Up to [local] / rpl / src

Diff for /rpl/src/instructions_p2.c between versions 1.16 and 1.17

version 1.16, 2011/03/06 16:44:12	version 1.17, 2011/03/17 21:20:45
Line 38	Line 38
void	void
instruction_p_vers_r(struct_processus *s_etat_processus)	instruction_p_vers_r(struct_processus *s_etat_processus)
{	{
	double angle;

struct_liste_chainee *l_element_courant;	struct_liste_chainee *l_element_courant;
struct_liste_chainee *l_element_precedent;	struct_liste_chainee *l_element_precedent;

Line 136 instruction_p_vers_r(struct_processus *s	Line 138 instruction_p_vers_r(struct_processus *s
return;	return;
}	}

	angle = (((struct_complexe16 ) (*s_objet_argument).objet))
	.partie_imaginaire;

if (test_cfsf(s_etat_processus, 60) == d_faux)	if (test_cfsf(s_etat_processus, 60) == d_faux)
{	{
conversion_degres_vers_radians(&((((struct_complexe16 )	conversion_degres_vers_radians(&angle);
(*s_objet_argument).objet)).partie_imaginaire));
}	}

(((struct_complexe16 ) (*s_objet_resultat).objet)).partie_reelle =	(((struct_complexe16 ) (*s_objet_resultat).objet)).partie_reelle =
(((struct_complexe16 ) (*s_objet_argument).objet))	(((struct_complexe16 ) (*s_objet_argument).objet))
.partie_reelle * cos((((struct_complexe16 )	.partie_reelle * cos(angle);
(*s_objet_argument).objet)).partie_imaginaire);
(((struct_complexe16 ) (*s_objet_resultat).objet)).partie_imaginaire =	(((struct_complexe16 ) (*s_objet_resultat).objet)).partie_imaginaire =
(((struct_complexe16 ) (*s_objet_argument).objet))	(((struct_complexe16 ) (*s_objet_argument).objet))
.partie_reelle * sin((((struct_complexe16 )	.partie_reelle * sin(angle);
(*s_objet_argument).objet)).partie_imaginaire);
}	}

/*	/*

CVSweb interface <joel.bertrand@systella.fr>

Removed from v.1.16
changed lines
	Added in v.1.17