pro do_tp_pns_vrml2,nc,act ;-------------------------------------------------------------- ; generate vrml_2.0 file of Sij PNS glyph surfaces ;-------------------------------------------------------------- spawn,'cp *.ascii TP/surf121/MM/m_pns_vrml2' cd,'TP/surf121' spawn,'cp d_poly.dat d_pns*.dat d_vrml_ang*.dat MM/m_pns_vrml2' cd,'MM/m_pns_vrml2' spawn,'pwd' spawn,'ls -lag' m_tp_surf121_mm_pns_vrml2,nc,act spawn,'ls -lag' cd,'../../../../' return end