72 lines
5.6 KiB
Plaintext
72 lines
5.6 KiB
Plaintext
|
define/XMAX/9.5
|
||
|
|
define/YMAX/1.
|
||
|
|
define/NX/20
|
||
|
|
define/NY/5
|
||
|
|
define ZBOT 0.
|
||
|
|
define S1 2.
|
||
|
|
define S2 .8
|
||
|
|
define S3 1.5
|
||
|
|
cmo/create/mosurf///quad
|
||
|
|
quadxy/NX NY/0. 0. 0./XMAX 0. 0./XMAX YMAX 0./0. YMAX 0./1 1 1
|
||
|
|
createpts/brick/xyz/NX,NY,1/1 0 0/connect
|
||
|
|
cmo/setatt/mosurf/imt/1 0 0/1
|
||
|
|
cmo/setatt/mosurf/itetclr/1 0 0/1
|
||
|
|
resetpts/itp
|
||
|
|
cmo/printatt/mosurf/-xyz-/minmax
|
||
|
|
math/cos/mosurf/zic/1,0,0/mosurf/xic
|
||
|
|
cmo/printatt/mosurf/-xyz-/minmax
|
||
|
|
cmo select mosurf
|
||
|
|
trans/1,0,0/0. 0. 0./0. 0. S1
|
||
|
|
dump/out_surf_quad_low.inp/mosurf
|
||
|
|
cmo/copy/mosav/mosurf
|
||
|
|
cmo/select/mosurf
|
||
|
|
trans/1,0,0/0. 0. 0./0. 0. S2
|
||
|
|
dump/out_surf_quad_high.inp/mosurf
|
||
|
|
trans/1,0,0/0. 0. 0./0. 0. S3
|
||
|
|
dump/out_surf_quad_top.inp/mosurf
|
||
|
|
cmo/setatt/mosurf/zic/ZBOT
|
||
|
|
dump/out_surf_quad_bot.inp/mosurf
|
||
|
|
cmo/create/mo_stack
|
||
|
|
stack/layers/avs/out_surf_quad_bot.inp 1 out_surf_quad_low.inp 2 3 out_surf_quad
|
||
|
|
_high.inp 3 1 out_surf_quad_top.inp 3 2
|
||
|
|
stack/fill/mohex/mo_stack
|
||
|
|
cmo select mohex
|
||
|
|
resetpts itp
|
||
|
|
cmo/printatt/mohex/-xyz- minmax
|
||
|
|
quality
|
||
|
|
cmo/addatt/mohex/volume hex_vol
|
||
|
|
cmo/printatt/mohex/hex_vol minmax
|
||
|
|
eltset/ebad/hex_vol/le 0.
|
||
|
|
dump out_hex_stack.inp mohex
|
||
|
|
cmo/delete/mosurf
|
||
|
|
cmo/delete/mo_stack
|
||
|
|
hextotet/2/mosurf/mosav
|
||
|
|
cmo/delete/mosav
|
||
|
|
cmo/select/mosurf
|
||
|
|
resetpts/itp
|
||
|
|
dump/out_surf_tri_low.inp/mosurf
|
||
|
|
trans/1,0,0/0. 0. 0./0. 0. S2
|
||
|
|
dump/out_surf_tri_high.inp/mosurf
|
||
|
|
trans/1,0,0/0. 0. 0./0. 0. S3
|
||
|
|
dump/out_surf_tri_top.inp/mosurf
|
||
|
|
cmo/setatt/mosurf/zic/ZBOT
|
||
|
|
dump/out_surf_tri_bot.inp/mosurf
|
||
|
|
cmo/create/mo_stack
|
||
|
|
stack/layers/avs/out_surf_tri_bot.inp 1 out_surf_tri_low.inp 2 3 out_surf_tri_hi
|
||
|
|
gh.inp 3 1 out_surf_tri_top.inp 3 2
|
||
|
|
stack/fill/moprism/mo_stack
|
||
|
|
cmo select moprism
|
||
|
|
resetpts itp
|
||
|
|
cmo/printatt/moprism/-xyz- minmax
|
||
|
|
quality
|
||
|
|
cmo/addatt/moprism/volume prism_vol
|
||
|
|
cmo/printatt/moprism/prism_vol minmax
|
||
|
|
eltset/ebad/prism_vol/le 0.
|
||
|
|
dump out_prism_stack.inp moprism
|
||
|
|
cmo/delete/mosurf
|
||
|
|
cmo/delete/mo_stack
|
||
|
|
cmo/status
|
||
|
|
cmo/printatt/mohex/-all- minmax
|
||
|
|
cmo/printatt/moprism/-all- minmax
|
||
|
|
finish
|