You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
36 lines
902 B
36 lines
902 B
2 years ago
|
$ TMPFILE = "0GEN3D.TMP"
|
||
|
|
$ INFILE := [apgilke.exodus]beam.exo
|
||
|
|
$ GENDIR := [apgilke.gen3d]
|
||
|
|
$ IN2D := EXAMPLE
|
||
|
|
$ T3D := TRAN3
|
||
|
|
$ R3D := ROT3
|
||
|
|
$ RC3D := ROTC3
|
||
|
|
$!
|
||
|
|
$ !!! COPY/LOG [apgilke.exodus]BEAM.EXO 'gendir''IN2D'.GEN
|
||
|
|
$ !!! PURGE 'gendir''IN2D.GEN'
|
||
|
|
$!
|
||
|
|
$ OPEN/WRITE OUTFILE 'TMPFILE'
|
||
|
|
$ WRITE OUTFILE "TRANSLATE 10 .1"
|
||
|
|
$ WRITE OUTFILE "END"
|
||
|
|
$ CLOSE OUTFILE
|
||
|
|
$ GEN3D 'gendir''IN2D'.GEN 'gendir''T3D'.GEN 'TMPFILE'
|
||
|
|
$ DELETE 'TMPFILE';*
|
||
|
|
$ PURGE 'gendir''T3D.GEN'
|
||
|
|
$!
|
||
|
|
$ OPEN/WRITE OUTFILE 'TMPFILE'
|
||
|
|
$ WRITE OUTFILE "ROTATE 9, 270, -.05"
|
||
|
|
$ WRITE OUTFILE "END"
|
||
|
|
$ CLOSE OUTFILE
|
||
|
|
$ GEN3D 'gendir''IN2D'.GEN 'gendir''R3D'.GEN 'TMPFILE'
|
||
|
|
$ DELETE 'TMPFILE';*
|
||
|
|
$ PURGE 'gendir''R3D.GEN'
|
||
|
|
$!
|
||
|
|
$ OPEN/WRITE OUTFILE 'TMPFILE'
|
||
|
|
$ WRITE OUTFILE "ROTATE 40, 360"
|
||
|
|
$ WRITE OUTFILE "CENTER 1"
|
||
|
|
$ WRITE OUTFILE "END"
|
||
|
|
$ CLOSE OUTFILE
|
||
|
|
$ GEN3D 'gendir''IN2D'.GEN 'gendir''RC3D'.GEN 'TMPFILE'
|
||
|
|
$ DELETE 'TMPFILE';*
|
||
|
|
$ PURGE 'gendir''RC3D.GEN'
|