WW MYSGCASGDAEH PZĞ:UG"\;pOG-N SCNA0 p SRCM CSD3 CSD2 CSD1 b CSRP CSIU CSLV) TXTC< DRAPO ` FFIG SCNAWW p :826J>& 9b)Ckh ,>0BFL("Ic3^SRCMWW CSD3WW CSD2WW !circle2 xo,yo,.02 !circle2 xv,yv,.02 !circle2 xf,yf,.02 HOTSPOT2 0, yo,unid, xo,1+128:unid=unid+1 HOTSPOT2 xo, yo,unid, xo,2 :unid=unid+1 HOTSPOT2 -1, yo,unid, xo,3 :unid=unid+1 HOTSPOT2 xo, 0,unid, yo,1+128:unid=unid+1 HOTSPOT2 xo, yo,unid, yo,2 :unid=unid+1 HOTSPOT2 xo, -1,unid, yo,3 :unid=unid+1 HOTSPOT2 0, yv,unid, xv,1+128:unid=unid+1 HOTSPOT2 xv, yv,unid, xv,2 :unid=unid+1 HOTSPOT2 -1, yv,unid, xv,3 :unid=unid+1 HOTSPOT2 xv, 0,unid, yv,1+128:unid=unid+1 HOTSPOT2 xv, yv,unid, yv,2 :unid=unid+1 HOTSPOT2 xv, -1,unid, yv,3 :unid=unid+1 HOTSPOT2 0, yf,unid, xf,1+128:unid=unid+1 HOTSPOT2 xf, yf,unid, xf,2 :unid=unid+1 HOTSPOT2 -1, yf,unid, xf,3 :unid=unid+1 HOTSPOT2 xf, 0,unid, yf,1+128:unid=unid+1 HOTSPOT2 xf, yf,unid, yf,2 :unid=unid+1 HOTSPOT2 xf, -1,unid, yf,3 :unid=unid+1 xm=(xo+xf)/2 :ym=(yo+yf)/2 xi= 2*xv-xm :yi= 2*yv-ym line2 xo,yo, xi,yi: line2 xf,yf, xi,yi: line2 xv,yv, xi,yi line2 (xo+xi)/2, (yo+yi)/2, (xf+xi)/2, (yf+yi)/2 tox= 2*xv-3/2*xo-xf/2 toy= 2*yv-3/2*yo-yf/2 mo= sqr(tox^2+toy^2) ano=acs(tox/mo)*(1+sgn(toy)-abs(sgn(toy)))+180*( abs(sgn(toy))-sgn(toy)) tfx= 2*xv-3/2*xf-xo/2 tfy= 2*yv-3/2*yf-yo/2 mf= sqr(tfx^2+tfy^2) anf=acs(tfx/mf)*(1+sgn(tfy)-abs(sgn(tfy)))+180*( abs(sgn(tfy))-sgn(tfy)) xof= xf-xo yof= yf-yo md = sqr( xof^2+ yof^2) aof=acs(xof/md)*(1+sgn(yof)-abs(sgn(yof)))+180*( abs(sgn(yof))-sgn(yof)) arc2 xo,yo, md/7, 0, aof line2 xo,yo, xo+md/7,yo arc2 xo,yo, md/5, aof, ano line2 xo,yo, xo+md/5*cos(aof),yo+md/5* sin(aof) afo=acs(-xof/md)*(1-sgn(yof)-abs(sgn(yof)))+180*( abs(sgn(yof))+sgn(yof)) arc2 xf,yf, md/5, anf, afo line2 xf,yf, xf+md/5*cos(afo),yf+md/5* sin(afo) for i=0 to n t=i/n x=xo*(1+2*t^2-3*t)+4*xv*(t-t^2)+xf*(2*t^2-t) y=yo*(1+2*t^2-3*t)+4*yv*(t-t^2)+yf*(2*t^2-t) put x,y next i fill 24 pen 20 poly2 nsp/2 , 6 , use (nsp) pen 1 poly2 nsp/2 , 1 , get (nsp) if mt=0 then end DEFINE STYLE "stl" "courier new",ht,5,0 SET STYLE "stl" xof= xv-xm yof= yv-ym m_d = sqr( xof^2+ yof^2) a_v=acs(xof/m_d)*(1+sgn(yof)-abs(sgn(yof)))+180*( abs(sgn(yof))-sgn(yof)) arc2 xv,yv,md/8,aof,a_v h=cos(aof+90)*(xv-xm)+sin(aof+90)*(yv-ym) line2 xm,ym,xm+cos(aof+90)*h,ym+sin(aof+90)*h if va="incolonnato" then 1 text2 xo,yo-ht/7,"Po=("+str(xo,4,2)+";"+str(yo,4,2)+")" text2 xf,yf,"Pf=("+str(xf,4,2)+";"+str(yf,4,2)+")" text2 xi,yi,"Pi=("+str(xi,4,2)+";"+str(yi,4,2)+")" text2 xv,yv,"Pv=("+str(xv,4,2)+";"+str(yv,4,2)+")" text2 xm,ym,"Pm=("+str(xm,4,2)+";"+str(ym,4,2)+")" text2 xm,ym+ht/7,"lu="+str(md,4,2) text2 xo+tox/2,yo+toy/2,"to="+str(sqr( tox^2+ toy^2),4,2) text2 xf+tfx/2,yf+tfy/2,"tf="+str(sqr( tfx^2+ tfy^2),4,2) text2 xi/2+xv/2,yi/2+yv/2,"d="+str(sqr( (xv-xm)^2+ (yv-ym)^2),4,2) text2 xm+cos(aof+90)*h/2,ym+sin(aof+90)*h/2,"h="+str(h,4,2) text2 xo+md/7*cos(aof/2),yo+md/7* sin(aof/2),"aof="+STR ("%.1dms",aof) text2 xo+md/5*cos(aof/2+ano/2),yo+md/5* sin(aof/2+ano/2), "ao="+STR ("%.1dms",ano-aof) text2 xf+md/5*cos(afo/2+anf/2),yf+md/5* sin(afo/2+anf/2), "af="+STR ("%.1dms",afo-anf) text2 xv+md/8*cos(aof/2+a_v/2),yv+md/8* sin(aof/2+a_v/2), "av="+STR ("%.1dms",a_v-aof) end 1: HOTSPOT2 0, ofy,unid, ofx,1+128:unid=unid+1 HOTSPOT2 ofx, ofy,unid, ofx,2 :unid=unid+1 HOTSPOT2 -1, ofy,unid, ofx,3 :unid=unid+1 HOTSPOT2 ofx, 0,unid, ofy,1+128:unid=unid+1 HOTSPOT2 ofx, ofy,unid, ofy,2 :unid=unid+1 HOTSPOT2 ofx, -1,unid, ofy,3 :unid=unid+1 text2 xo,yo,"Po" text2 xf,yf,"Pf" text2 xi,yi,"Pi" text2 xv,yv,"Pv" text2 xm,ym,"Pm" text2 xo+tox/2,yo+toy/2,"to" text2 xf+tfx/2,yf+tfy/2,"tf" text2 xo+md/7*cos(aof/2),yo+md/7* sin(aof/2),"aof" text2 xo+md/5*cos(aof/2+ano/2),yo+md/5* sin(aof/2+ano/2),"ao" text2 xf+md/5*cos(afo/2+anf/2),yf+md/5* sin(afo/2+anf/2),"af" text2 xm+cos(aof+90)*h/2,ym+sin(aof+90)*h/2,"h" text2 xv+md/8*cos(aof/2+a_v/2),yv+md/8* sin(aof/2+a_v/2),"av" add2 ofx,ofy DEFINE STYLE "st2" "courier new",ht,1,0 SET STYLE "st2" text2 0,0,"Po=("+str(xo,4,2)+";"+str(yo,4,2)+")":hh=ht/5 text2 0,-hh,"Pf=("+str(xf,4,2)+";"+str(yf,4,2)+")":hh=ht/5+hh text2 0,-hh,"Pi=("+str(xi,4,2)+";"+str(yi,4,2)+")":hh=ht/5+hh text2 0,-hh,"Pv=("+str(xv,4,2)+";"+str(yv,4,2)+")":hh=ht/5+hh text2 0,-hh,"Pm=("+str(xm,4,2)+";"+str(ym,4,2)+")":hh=ht/5+hh text2 0,-hh,"lu="+str(md,4,2):hh=ht/5+hh text2 0,-hh,"h="+str(h,4,2):hh=ht/5+hh text2 0,-hh,"Pm_Pv=Pv_Pi="+str(sqr( (xv-xm)^2+ (yv-ym)^2),4,2):hh=ht/5+hh text2 0,-hh,"to="+str(sqr( tox^2+ toy^2),4,2):hh=ht/5+hh text2 0,-hh,"tf="+str(sqr( tfx^2+ tfy^2),4,2):hh=ht/5+hh text2 0,-hh,"aof="+STR ("%.1dms",aof):hh=ht/5+hh text2 0,-hh,"ao="+STR ("%.1dms",ano-aof):hh=ht/5+hh text2 0,-hh,"af="+STR ("%.1dms",afo-anf):hh=ht/5+hh text2 0,-hh,"av="+STR ("%.1dms",a_v-aof) CSD1WW b if mt=0 then lock "ht","va","ofx","ofy" values "va","incolonnato","sui nodi" CSRPWW CSIUWW CSLVWW TXTCWW DRAPWW ` WW H ?A ?B ?ZZYZX AC_show2DHotspotsIn3D ?ac_bottomlevel ac_toplevel $ n 333333?xo ffffff?yo 333333?xf ?yf ?xv @yv mt va 333333?ht ofx ofy i n c o l o n n a t o D i m e n s i o n e 1 D i m e n s i o n e 2 A l t e z z a M o s t r a H o t s p o t 2 D i n 3 D L i v e l l o I n f e r i o r e L i v e l l o S u p e r i o r e r e s o l c u r v a n m o s t r a t e s t o d i s p o s i z i o n e t e s t o a l t e z z a t e s t o FFIGWW image/png PNG IHDR p ~ 4e gAMA @ PLTE# 64 pHYs Z tEXtSoftware QuickTime 7.3 (Win32) } tIME(;iQ IDATx0_yn0@Y~d_NE:'$XD Ӄ g@8=H{ A:H#Nҙqz A{ J9?h-Jڊh"PA; y{@ۄa4k!,/,w',e6s.Rӛ&[Y7wS&L_F0<0rֱyo,Mk@3qCZ`yrWD#³yYDQ ?yxP]l/^)A ĮjF ANPUg~O* ۾@iD}T!";.qA"hB"/l"`(Kq#ߜX`Yq4 j:p(`Xz