pro do_tp_quadric_vrml1,nc,act ;------------------------------------------------------------------- ; generate vrml_1.0 file of Sij quadric glyph surfaces ;------------------------------------------------------------------- spawn,'cp *.ascii TP/surf121/MM/m_quadric_vrml1' cd,'TP/surf121' spawn,'cp d_poly.dat d_quad*.dat d_vrml_ang*.dat MM/m_quadric_vrml1' cd,'MM/m_quadric_vrml1' spawn,'pwd' spawn,'ls -lag' m_tp_surf121_mm_quadric_vrml1,nc,act spawn,'ls -lag' cd,'../../../../' return end