Save mesh to ps

This commit is contained in:
Edgar P. Burkhart 2022-02-02 20:27:09 +01:00
parent ab6e18ed2e
commit dd5d373922
Signed by: edpibu
GPG key ID: 9833D3C5A25BD227

View file

@ -1,4 +1,5 @@
OPTI 'DIME' 3 'ELEM' 'CU20'; OPTI 'DIME' 3 'ELEM' 'CU20';
OPTI 'TRAC' 'PS';
LX1p = 4.; LX1p = 4.;
LX1 = 20.; LX1 = 20.;
@ -127,9 +128,11 @@ TRAC TR2;
SU = SURF 'PLAN' TR2; SU = SURF 'PLAN' TR2;
ELIM SU .01; ELIM SU .01;
OPTI 'FTRA' '2DMESH.ps';
TRAC SU; TRAC SU;
VO = SU VOLU 6 'TRAN' (0. 0. 4.) ; VO = SU VOLU 6 'TRAN' (0. 0. 4.) ;
OPTI 'FTRA' '3DMESH.ps';
TRAC VO; TRAC VO;
OPTI 'SAUV' 'MAILLAGE3d.sauv'; OPTI 'SAUV' 'MAILLAGE3d.sauv';