#######################################################################################################################################
# #
# G E N E R A T I O N D ' U N E V A R I E T E T R I M E N S I O N N E L L E " M A I L L A G E " #
# P A R L A M E T H O D E D E S P R O J E C T O R S : #
# #
# #
# Author of '$xiirs/.PROK.41.1.$U' : #
# #
# Jean-Francois Colonna (LACTAMME, 20101004143310). #
# #
#######################################################################################################################################
$Z SET Premiere=1
$Z SET Derniere=16
$c #include <stdio.h>
$c
$c #define N0 Premiere
$c #define N Derniere
$c
$c int main()
$c {
$c int n;
$c
$c for (n=N0 ; n<=N ; n++)
$c {
$c printf("$xci/lineaire$X
$c standard=FAUX
$c amplificateur=1 translateur=0
$c A=1 B=0 C=0
$c TRANSLATION_OX=0 TRANSLATION_OY=0
$c $formatI |
$c $xci/normalise.01$X
$c $formatI |
$c $xci/scale$X
$c standard=FAUX
$c a=2 b=-1
$c R=$xTV/CHAMP$COORD_X.%04d
$c $formatI\n"
$c ,n
$c );
$c printf("$xci/lineaire$X
$c standard=FAUX
$c amplificateur=1 translateur=0
$c A=0 B=1 C=0
$c TRANSLATION_OX=0 TRANSLATION_OY=0
$c $formatI |
$c $xci/normalise.01$X
$c $formatI |
$c $xci/scale$X
$c standard=FAUX
$c a=2 b=-1
$c R=$xTV/CHAMP$COORD_Y.%04d
$c $formatI\n"
$c ,n
$c );
$c printf("$xci/init$X
$c standard=FAUX
$c valeur=%f
$c R=$xTV/CHAMP$COORD_Z.%04d
$c $formatI\n"
$c ,(((-1.0)*((double)(N-n)))+((+1.0)*((double)(n-N0))))/((double)(N-N0))
$c ,n
$c );
$c }
$c }