id='____CTRLG_&_FUNC_DISPLAY____' expresión='0' tipo='variable' 
id='Xb(n)' algoritmo='no' expresión='(FUNC._w-6)*(n%2)/2' tipo='función' 
id='Yb(n)' algoritmo='no' expresión='FUNC._h-CTRLG._h+3-(ent(n/2)+1)*(bnh+3)' tipo='función' 
id='XCG(n)' algoritmo='sí' expresión='xcg' local='xcg' hacer='xcg=(n<nSr)?(n-nF)*cgw+cgw/2:CTRLG._w-cgw*(n-nSr)-cgw/2;xcg=(n==grosor)?xcg+ent(cgw*8/16):xcg;xcg=(n==nombres)?xcg+ent(cgw*9/16):xcg;xcg=(n==subindices)?xcg+ent(cgw*3/16):xcg;' tipo='función' 
id='YCG(n)' algoritmo='no' expresión='cgh/2' tipo='función' 
id='Xcg(n)' algoritmo='no' expresión='XCG(n)-cgw/2' tipo='función' 
id='Ycg(n)' algoritmo='no' expresión='0' tipo='función' 
id='colbox_X(s)' algoritmo='no' expresión='COLOR.x+(s%10)*colw-colr' tipo='función' 
id='colbox_Y(s)' algoritmo='no' expresión='CTRLG._h/2-2+(((10<=s)&(s<20))-((20<=s)&(s<30)))*2*(ent(2*factor_h)+ent(CTRLG._h/8))-ent(CTRLG._h/8)' tipo='función' 
id='colbox_W(s)' algoritmo='no' expresión='2*colr' tipo='función' 
id='colbox_H(s)' algoritmo='no' expresión='2*ent(CTRLG._h/8)' tipo='función' 
id='____E2_&_E32_DISPLAY____' expresión='0' tipo='variable' 
id='calc32(x,y,z)' algoritmo='sí' expresión='1' local='x0,y0,z0,x3' hacer='x0=x+E2.pixOx;y0=y+E2.pixOy;z0=z+E2.pixOz;x3=E3Rxx*x0+E3Rxy*y0+E3Rxz*z0;y3=E3Ryx*x0+E3Ryy*y0+E3Ryz*z0;z3=E3Rzx*x0+E3Rzy*y0+E3Rzz*z0;L=(Ojo.x/(x3-Ojo.x));' tipo='función' 
id='X32(x,y,z)' algoritmo='sí' expresión='L*(Ojo.y-y3)' local='y3,z3,L' inicio='calc32(x,y,z)' tipo='función' 
id='Y32(x,y,z)' algoritmo='sí' expresión='L*(Ojo.z-z3)' local='y3,z3,L,Ojo.y,Ojo.z' inicio='calc32(x,y,z)' tipo='función' 
id='x32(s)' algoritmo='sí' expresión='L*(Ojo.y-y3)' local='y3,z3,L' inicio='calc32(X2(s),Y2(s),Z2(s))' tipo='función' 
id='y32(s)' algoritmo='sí' expresión='L*(Ojo.z-z3)' local='y3,z3,L,Ojo.y,Ojo.z' inicio='calc32(X2(s),Y2(s),Z2(s))' tipo='función' 
id='X23(x,y)' algoritmo='no' expresión='E3Ryx*x+E3Rzx*y' tipo='función' 
id='Y23(x,y)' algoritmo='no' expresión='E3Ryy*x+E3Rzy*y' hacer=';' tipo='función' 
id='Z23(x,y)' algoritmo='no' expresión='E3Ryz*x+E3Rzz*y' hacer=';;;' tipo='función' 
id='_X_(p)' algoritmo='no' expresión='(show_E3)?x32(p):X2(p)' tipo='función' 
id='_Y_(p)' algoritmo='no' expresión='(show_E3)?y32(p):Y2(p)' tipo='función' 
id='calcSegXtYt(s)' algoritmo='sí' expresión='1' local='a' hacer='a=angtan(_Y_(OBGRA[s,_2])-_Y_(OBGRA[s,_1]),_X_(OBGRA[s,_2])-_X_(OBGRA[s,_1]));_dXt_=10*cos(a);_dYt_=10*sen(a)' tipo='función' 
id='calcPntXtYt(s)' algoritmo='sí' expresión='1' local='sx,X,Y' inicio='sx=(OBGRA[s,_subix]!=&squot;&squot;);X=_X_(s);Y=_Y_(s)' hacer='_dXt_=((X>=0)&!sx)?  7:_dXt_;_dXt_=((X>=0)& sx)? 14:_dXt_;_dXt_=((X <0)&!sx)? -7:_dXt_;_dXt_=((X <0)& sx)? -8:_dXt_;;_dYt_=((Y>=0)&!sx)?-16:_dYt_;_dYt_=((Y>=0)& sx)?-18:_dYt_;_dYt_=((Y <0)&!sx)? 14:_dYt_;_dYt_=((Y <0)& sx)? 15:_dYt_;' tipo='función' 
id='calcXtYt(s)' algoritmo='sí' expresión='1' inicio='_dXt_=0;_dYt_=0' hacer='((OBGRA[s,_type]==control)|(OBGRA[s,_type]==point))?calcPntXtYt(s):&squot;&squot;;(OBGRA[s,_type]==segment)?calcSegXtYt(s):&squot;&squot;;;' tipo='función' 
id='X_t(s)' algoritmo='sí' expresión='X' local='X' hacer='X=((OBGRA[s,_type]==segment)&OBGRA[s,_is2P])?(_X_(OBGRA[s,0])+_X_(OBGRA[s,1]))/2:_X_(s);X=(OBGRA[s,_type]==triangle)?(_X_(OBGRA[s,_p1])+_X_(OBGRA[s,_p2])+_X_(OBGRA[s,_p3]))/3:X;' tipo='función' 
id='Y_t(s)' algoritmo='sí' expresión='Y' local='Y' hacer='Y=((OBGRA[s,_type]==segment)&OBGRA[s,_is2P])?(_Y_(OBGRA[s,0])+_Y_(OBGRA[s,1]))/2:_Y_(s);Y=(OBGRA[s,_type]==triangle)?(_Y_(OBGRA[s,_p1])+_Y_(OBGRA[s,_p2])+_Y_(OBGRA[s,_p3]))/3:Y;' tipo='función' 
id='____MACRO_IMPLEMENTATIONS____' expresión='0' tipo='variable' 
id='R_E2.cfg(s)' algoritmo='sí' expresión='isVisible(REGLADO[s,0])&(fams!=2)' local='o,lfams' inicio='o=REGLADO[s,0]' hacer='R_E2_s=s;R_E2.N=N_Reglas;R_E2.wdth=OBGRA[o,_wdth];R_E2.estilo=OBGRA[o,_linestyle];lfams=(fams==-1)?3:fams;R_E2.tnsp=(lfams==1)?1:COL[OBGRA[o,_col],_trns];R_E2.surf=((lfams==3)|OBGRA[o,_flat_])?1:(COL[OBGRA[o,_col],_trns]+3)/4;R_E2.rojo=COL[OBGRA[o,_col],_rojo];R_E2.verd=COL[OBGRA[o,_col],_verd];R_E2.azul=COL[OBGRA[o,_col],_azul];' tipo='función' 
id='R_E2.show(j)' algoritmo='no' expresión='(fams!=2)' tipo='función' 
id='R_E2.X1(j)' algoritmo='no' expresión='REGLADO[R_E2_s,2+6*j]' hacer=';' tipo='función' 
id='R_E2.Y1(j)' algoritmo='no' expresión='REGLADO[R_E2_s,2+6*j+1]' tipo='función' 
id='R_E2.X2(j)' algoritmo='no' expresión='REGLADO[R_E2_s,2+6*j+3]' tipo='función' 
id='R_E2.Y2(j)' algoritmo='no' expresión='REGLADO[R_E2_s,2+6*j+4]' tipo='función' 
id='R_E3_2.cfg(s)' algoritmo='sí' expresión='isVisible(REGLADO[s,0])&(fams!=2)' local='o,lfams' inicio='o=REGLADO[s,0]' hacer='R_E3_2_s=s;R_E3_2.N=N_Reglas;R_E3_2.wdth=OBGRA[o,_wdth];R_E3_2.estilo=OBGRA[o,_linestyle];lfams=(fams==-1)?0:fams;R_E3_2.tnsp=(lfams==1)?1:COL[OBGRA[o,_col],_trns];R_E3_2.surf=((lfams==3)|OBGRA[o,_flat_])?1:(COL[OBGRA[o,_col],_trns]+3)/4;R_E3_2.rojo=COL[OBGRA[o,_col],_rojo];R_E3_2.verd=COL[OBGRA[o,_col],_verd];R_E3_2.azul=COL[OBGRA[o,_col],_azul];' tipo='función' 
id='R_E3_2.show(j)' algoritmo='no' expresión='(fams!=2)' tipo='función' 
id='R_E3_2.X1(j)' algoritmo='no' expresión='X32(REGLADO[R_E3_2_s,2+6*j],REGLADO[R_E3_2_s,2+6*j+1],,REGLADO[R_E3_2_s,2+6*j+2])' hacer=';' tipo='función' 
id='R_E3_2.Y1(j)' algoritmo='no' expresión='Y32(REGLADO[R_E3_2_s,2+6*j],REGLADO[R_E3_2_s,2+6*j+1],,REGLADO[R_E3_2_s,2+6*j+2])' tipo='función' 
id='R_E3_2.X2(j)' algoritmo='no' expresión='X32(REGLADO[R_E3_2_s,2+6*j+3],REGLADO[R_E3_2_s,2+6*j+4],,REGLADO[R_E3_2_s,2+6*j+5])' tipo='función' 
id='R_E3_2.Y2(j)' algoritmo='no' expresión='Y32(REGLADO[R_E3_2_s,2+6*j+3],REGLADO[R_E3_2_s,2+6*j+4],,REGLADO[R_E3_2_s,2+6*j+5])' tipo='función' 
id='C_E2.cfg(s)' algoritmo='sí' expresión='(NOG>o)&isVisible(o)' local='o' inicio='o=CURVA[s,0]' hacer='C_E2_s=s;C_E2.N=NCurva;C_E2.wdth=OBGRA[o,_wdth];C_E2.estilo=OBGRA[o,_linestyle];C_E2.tnsp=COL[OBGRA[o,_col],_trns];C_E2.rojo=COL[OBGRA[o,_col],_rojo];C_E2.verd=COL[OBGRA[o,_col],_verd];C_E2.azul=COL[OBGRA[o,_col],_azul];' tipo='función' 
id='C_E2.show(j)' algoritmo='no' expresión='(abs(C_E2.X2(j)-C_E2.X1(j))<E2.pixelW)&(abs(C_E2.Y2(j)-C_E2.Y1(j))<E2.pixelH)' tipo='función' 
id='C_E2.X1(j)' algoritmo='no' expresión='CURVA[C_E2_s,2+3*j]' hacer=';' tipo='función' 
id='C_E2.Y1(j)' algoritmo='no' expresión='CURVA[C_E2_s,3+3*j]' tipo='función' 
id='C_E2.X2(j)' algoritmo='no' expresión='CURVA[C_E2_s,2+3*(j+1)]' tipo='función' 
id='C_E2.Y2(j)' algoritmo='no' expresión='CURVA[C_E2_s,3+3*(j+1)]' tipo='función' 
id='C_E3_2.cfg(s)' algoritmo='sí' expresión='(NOG>o)&isVisible(o)' local='o' inicio='o=CURVA[s,0]' hacer='C_E3_2_s=s;C_E3_2.N=NCurva;C_E3_2.wdth=OBGRA[o,_wdth];C_E3_2.estilo=OBGRA[o,_linestyle];C_E3_2.tnsp=COL[OBGRA[o,_col],_trns];C_E3_2.rojo=COL[OBGRA[o,_col],_rojo];C_E3_2.verd=COL[OBGRA[o,_col],_verd];C_E3_2.azul=COL[OBGRA[o,_col],_azul];' tipo='función' 
id='C_E3_2_fix_1()' algoritmo='sí' expresión='1' local='t' hacer='t=0;t=((t==0)&(z1<_mz_))?(_mz_-z2)/(z1-z2):t;t=((t==0)&(z1>_Mz_))?(_Mz_-z2)/(z1-z2):t;t=((t==0)&(x1<_mx_))?(_mx_-x2)/(x1-x2):t;t=((t==0)&(x1>_Mx_))?(_Mx_-x2)/(x1-x2):t;t=((t==0)&(y1<_my_))?(_my_-y2)/(y1-y2):t;t=((t==0)&(y1>_My_))?(_My_-y2)/(y1-y2):t;x1=x2+(x1-x2)*t;y1=y2+(y1-y2)*t;z1=z2+(z1-z2)*t' tipo='función' 
id='C_E3_2_fix_2()' algoritmo='sí' expresión='1' local='t' hacer='t=0;t=((t==0)&(z2<_mz_))?(_mz_-z1)/(z2-z1):t;t=((t==0)&(z2>_Mz_))?(_Mz_-z1)/(z2-z1):t;t=((t==0)&(x2<_mx_))?(_mx_-x1)/(x2-x1):t;t=((t==0)&(x2>_Mx_))?(_Mx_-x1)/(x2-x1):t;t=((t==0)&(y2<_my_))?(_my_-y1)/(y2-y1):t;t=((t==0)&(y2>_My_))?(_My_-y1)/(y2-y1):t;x2=x1+(x2-x1)*t;y2=y1+(y2-y1)*t;z2=z1+(z2-z1)*t;' tipo='función' 
id='C_E3_2.show(j)' algoritmo='sí' expresión='(ok1|ok2)' local='f,ok,ok1,ok2,x1,y1,z1,x2,y2,z2' inicio='f=4' hacer='x1=CURVA[C_E3_2_s,2+3*j];y1=CURVA[C_E3_2_s,3+3*j];z1=CURVA[C_E3_2_s,4+3*j];x2=CURVA[C_E3_2_s,2+3*(j+1)];y2=CURVA[C_E3_2_s,3+3*(j+1)];z2=CURVA[C_E3_2_s,4+3*(j+1)];ok=(abs(x2-x1)<f*E2.pixelW)&(abs(y2-y1)<f*E2.pixelH)&(abs(z2-z1)<f*E2.pixelH);ok1=ok&(_mx_<=x1)&(x1<=_Mx_)&(_my_<=y1)&(y1<=_My_)&(_mz_<=z1)&(z1<=_Mz_);ok2=ok&(_mx_<=x2)&(x2<=_Mx_)&(_my_<=y2)&(y2<=_My_)&(_mz_<=z2)&(z2<=_Mz_);(show_E3&(ok2&!ok1))?C_E3_2_fix_1():&squot;&squot;;(show_E3&(ok1&!ok2))?C_E3_2_fix_2():&squot;&squot;;C_E3_2_x1=x1;C_E3_2_y1=y1;C_E3_2_z1=z1;C_E3_2_x2=x2;C_E3_2_y2=y2;C_E3_2_z2=z2;' tipo='función' 
id='C_E3_2.X1(j)' algoritmo='no' expresión='X32(C_E3_2_x1,C_E3_2_y1,C_E3_2_z1)' tipo='función' 
id='C_E3_2.Y1(j)' algoritmo='no' expresión='Y32(C_E3_2_x1,C_E3_2_y1,C_E3_2_z1)' tipo='función' 
id='C_E3_2.X2(j)' algoritmo='no' expresión='X32(C_E3_2_x2,C_E3_2_y2,C_E3_2_z2)' tipo='función' 
id='C_E3_2.Y2(j)' algoritmo='no' expresión='Y32(C_E3_2_x2,C_E3_2_y2,C_E3_2_z2)' tipo='función' 
id='C2G.cfg(s)' algoritmo='sí' expresión='1' hacer='C2G.wdth=OBGRA[s,_wdth];C2G.estilo=OBGRA[s,_linestyle];C2G.tnsp=COL[OBGRA[s,_col],_trns];C2G.rojo=COL[OBGRA[s,_col],_rojo];C2G.verd=COL[OBGRA[s,_col],_verd];C2G.azul=COL[OBGRA[s,_col],_azul];C2G.AA=CURVA2G[OBGRA[s,_c2g_],_C2GA];C2G.BB=CURVA2G[OBGRA[s,_c2g_],_C2GB];C2G.CC=CURVA2G[OBGRA[s,_c2g_],_C2GC];C2G.DD=CURVA2G[OBGRA[s,_c2g_],_C2GD];C2G.EE=CURVA2G[OBGRA[s,_c2g_],_C2GE];C2G.FF=CURVA2G[OBGRA[s,_c2g_],_C2GF];C2G.calcAll();' tipo='función' 
id='C2G3D.cfg(s)' algoritmo='sí' expresión='1' hacer='C2G3D.wdth=OBGRA[s,_wdth];C2G3D.estilo=OBGRA[s,_linestyle];C2G3D.tnsp=COL[OBGRA[s,_col],_trns];C2G3D.rojo=COL[OBGRA[s,_col],_rojo];C2G3D.verd=COL[OBGRA[s,_col],_verd];C2G3D.azul=COL[OBGRA[s,_col],_azul];C2G3D.AA=CURVA2G[OBGRA[s,_c2g_],_C2GA];C2G3D.BB=CURVA2G[OBGRA[s,_c2g_],_C2GB];C2G3D.CC=CURVA2G[OBGRA[s,_c2g_],_C2GC];C2G3D.DD=CURVA2G[OBGRA[s,_c2g_],_C2GD];C2G3D.EE=CURVA2G[OBGRA[s,_c2g_],_C2GE];C2G3D.FF=CURVA2G[OBGRA[s,_c2g_],_C2GF];C2G3D.calcAll();' tipo='función'