00001
00002
00003
00004
00005
00006
00007
00008
00009
00010
00011
00012
00013
00014
00015
00016
00017
00018
00019
00020
00021
00022
00023
00024
00025
00026
00027
00028
00029
00030
00031
00032
00033
00034
00035
00036
00037
00038
00039
00040
00041 #include <stdio.h>
00042 #include "mensagem.h"
00043 #include "memvirtu.h"
00044 #include "lowparam.h"
00045 #include "lowmacro.h"
00046 #include "lowsolid.h"
00047 #include "eulerops.h"
00048 #include "shpshape.h"
00049 #include "vectorop.h"
00050 #include "mancommd.h"
00051
00052
00053 void MSD_execNameScale(void)
00054 {
00055 char name1[15];
00056 float tx, ty, tz;
00057
00058 while (4 != sscanf(restbuf, "%s %f %f %f", name1, &tx, &ty, &tz))
00059 {
00060 printf("scale: name rx ry rz\n");
00061 if (!lineins("? "))
00062 {
00063 return;
00064 }
00065 }
00066 MSD_highNameScale(name1, tx, ty, tz);
00067 }
00068
00069 int MSD_highNameScale(char *name, real tx, real ty, real tz)
00070 {
00071 int sn;
00072
00073 if ((sn = MSD_getSolidIdFromName(name)) == -1)
00074 {
00075 fprintf(stderr, MEN_NaoEncontrouSolidNome, NAM_ScaleSolid, name);
00076 return(ERROR);
00077 }
00078 return(MSD_highScale(sn, tx, ty, tz));
00079 }
00080
00081 #ifdef __Extended_Version
00082 void MSD_execScale(void)
00083 {
00084 int s;
00085 float sx, sy, sz;
00086
00087 while (4 != sscanf(restbuf, "%d %f %f %f", &s, &sx, &sy, &sz))
00088 {
00089 printf("scale: Sid sx sy sz\n");
00090 if (!lineins("? "))
00091 {
00092 return;
00093 }
00094 }
00095 MSD_highScale(s, sx, sy, sz);
00096 }
00097
00098 #endif
00099
00100 int MSD_highScale(Id sn, real sx, real sy, real sz)
00101 {
00102 SPTYPE s;
00103
00104 if ((s = MSD_getSolid(sn)) == SNIL)
00105 {
00106 fprintf(stderr, MEN_NaoEncontrouSolido, NAM_ScaleSolid, sn);
00107 return(ERROR);
00108 }
00109 CommandCount++;
00110 MSD_lowScale(s, sx, sy, sz);
00111 return(SUCCESS);
00112 }
00113
00114 void MSD_lowScale(SPTYPE s, real sx, real sy, real sz)
00115 {
00116 DPTYPE d;
00117 VPTYPE v;
00118 matrix m;
00119 int GdoinversionOld;
00120
00121 if ((comp(sx, 0.0, EPS) == 0) || (comp(sy, 0.0, EPS) == 0) ||
00122 (comp(sz, 0.0, EPS) == 0))
00123 {
00124 fprintf(stderr, MEN_FatorEscalaNulo, NAM_ScaleSolid);
00125 return;
00126 }
00127
00128 if (Gdoinversion)
00129 {
00130 MSD_lowAddEulerOp(s, SCALE, 0, 0, 0, 0, 0, 0, 0, 0, 1.0 / sx, 1.0 / sy, 1.0 / sz, 0.0);
00131 }
00132
00133 if (Gdodirect)
00134 {
00135 MSD_lowAddEulerOpRedo(s, SCALE, 0, 0, 0, 0, 0, 0, 0, 0, sx, sy, sz, 0.0);
00136 }
00137
00138 matident(m);
00139 matscale(m, sx, sy, sz);
00140 for (AllShellsSolid(s, d))
00141 {
00142 for (AllVerticesShell(d, v))
00143 {
00144 vecmult(VerVCoord(v), VerVCoord(v), m);
00145 }
00146 }
00147 MSD_lowSetNormal(s, TRUE);
00148 #ifdef __curved_env
00149 adjusttags(s, m);
00150 #endif
00151 if (determ(m, 3) < 0.0)
00152 {
00153 GdoinversionOld = Gdoinversion;
00154 Gdoinversion = 0;
00155 for (AllShellsSolid(s, d))
00156 {
00157 MSD_lowRevert(d);
00158 }
00159 Gdoinversion = GdoinversionOld;
00160 }
00161 }
00162
00163 int MSD_execStructScale(EulerOp *op)
00164 {
00165 Id sid;
00166 real fd1, fd2, fd3;
00167
00168 sid = op->solidno;
00169 fd1 = op->fp1;
00170 fd2 = op->fp2;
00171 fd3 = op->fp3;
00172 MSD_highScale(sid, fd1, fd2, fd3);
00173 return(SUCCESS);
00174 }
00175
00176 void MSD_printStructScale(FILE *f, EulerOp *op)
00177 {
00178 Id sid;
00179 real fd1, fd2, fd3;
00180 int com;
00181
00182 sid = op->solidno;
00183 fd1 = op->fp1;
00184 fd2 = op->fp2;
00185 fd3 = op->fp3;
00186 com = op->CommandCount;
00187 fprintf(f, "scale %d %d %f %f %f \n", sid, com, fd1, fd2, fd3);
00188 }
00189
00190 int MSD_readStructScale(FILE *f, EulerOp *op)
00191 {
00192 int solidno, com;
00193 float fp1, fp2, fp3;
00194
00195 if (fscanf(f, "%d %d %f %f %f\n", &solidno, &com, &fp1, &fp2, &fp3) != 5)
00196 {
00197 return(ERROR);
00198 }
00199 op->solidno = solidno;
00200 op->CommandCount = com;
00201 op->ip1 = 0;
00202 op->ip2 = 0;
00203 op->ip3 = 0;
00204 op->ip4 = 0;
00205 op->ip5 = 0;
00206 op->ip6 = 0;
00207 op->ip7 = 0;
00208 op->ip8 = 0;
00209 op->fp1 = fp1;
00210 op->fp2 = fp2;
00211 op->fp3 = fp3;
00212 op->fp4 = 0.0;
00213 return(SUCCESS);
00214 }
00215
00216 int MSD_modifyStructScale(EulerOp *op)
00217 {
00218 int solidno;
00219
00220 solidno = MSD_lowCheckTranslatorTable(op->solidno, SOLID);
00221 op->solidno = solidno;
00222 return(SUCCESS);
00223 }