38 |
|
|
39 |
|
if (initfile != NULL) { |
40 |
|
loadfunc(initfile); |
41 |
< |
scompile(NULL, "Dx=$1;Dy=$2;Dz=$3;"); |
42 |
< |
scompile(NULL, "Nx=$4;Ny=$5;Nz=$6;"); |
43 |
< |
scompile(NULL, "Px=$7;Py=$8;Pz=$9;"); |
44 |
< |
scompile(NULL, "T=$10;Rdot=$11;"); |
45 |
< |
scompile(NULL, "S=$12;Tx=$13;Ty=$14;Tz=$15;"); |
46 |
< |
scompile(NULL, "Ix=$16;Iy=$17;Iz=$18;"); |
47 |
< |
scompile(NULL, "Jx=$19;Jy=$20;Jz=$21;"); |
48 |
< |
scompile(NULL, "Kx=$22;Ky=$23;Kz=$24;"); |
41 |
> |
scompile("Dx=$1;Dy=$2;Dz=$3;", NULL, 0); |
42 |
> |
scompile("Nx=$4;Ny=$5;Nz=$6;", NULL, 0); |
43 |
> |
scompile("Px=$7;Py=$8;Pz=$9;", NULL, 0); |
44 |
> |
scompile("T=$10;Rdot=$11;", NULL, 0); |
45 |
> |
scompile("S=$12;Tx=$13;Ty=$14;Tz=$15;", NULL, 0); |
46 |
> |
scompile("Ix=$16;Iy=$17;Iz=$18;", NULL, 0); |
47 |
> |
scompile("Jx=$19;Jy=$20;Jz=$21;", NULL, 0); |
48 |
> |
scompile("Kx=$22;Ky=$23;Kz=$24;", NULL, 0); |
49 |
|
funset("arg", 1, l_arg); |
50 |
|
funset("noise3", 3, l_noise3); |
51 |
|
funset("noise3a", 3, l_noise3a); |