112 lines
8.8 KiB
Plaintext
112 lines
8.8 KiB
Plaintext
infile test_buildsurf.mlgi
|
|
define/NX/25
|
|
define/NY/25
|
|
define/NZ/25
|
|
define/MIN/0.0
|
|
define/MAX/10.0
|
|
cmo/create/ztemp///quad
|
|
quadxy NX NY/MIN MIN MIN/MAX MIN MIN/MAX MAX MIN/MIN MAX MIN
|
|
rzbrick/xyz/NX,NY,1/1,0,0/connect
|
|
cmo/setatt/ztemp/imt/1
|
|
cmo/setatt/ztemp/itetclr/1
|
|
resetpts/itp
|
|
hextotet/2/zlow/ztemp
|
|
cmo/create/ytemp///quad
|
|
quadxy NX NZ/MIN MIN MIN/MAX MIN MIN/MAX MIN MAX/MIN MIN MAX
|
|
rzbrick/xyz/NX,1,NZ/1,0,0/connect
|
|
hextotet/2/ylow/ytemp
|
|
cmo/create/xtemp///quad
|
|
quadxy NY NZ/MIN MIN MIN/MIN MIN MAX/MIN MAX MAX/MIN MAX MIN
|
|
rzbrick/xyz/1,NY,NZ/1,0,0/connect
|
|
hextotet/2/xlow/xtemp
|
|
math/sin/zlow/zic/1,0,0/zlow/xic
|
|
math/sin/ylow/yic/1,0,0/ylow/zic
|
|
math/sin/xlow/xic/1,0,0/xlow/yic
|
|
cmo/copy/zhigh/zlow
|
|
cmo/copy/yhigh/ylow
|
|
cmo/copy/xhigh/xlow
|
|
cmo/setatt/zhigh/idebug//10
|
|
cmo/setatt/yhigh/idebug//10
|
|
cmo/setatt/xhigh/idebug//10
|
|
math/add/zlow/zic/1,0,0/zlow/zic/2
|
|
math/add/ylow/yic/1,0,0/ylow/yic/2
|
|
math/add/xlow/xic/1,0,0/xlow/xic/2
|
|
math/add/zhigh/zic/1,0,0/zhigh/zic/8
|
|
math/add/yhigh/yic/1,0,0/yhigh/yic/8
|
|
math/add/xhigh/xic/1,0,0/xhigh/xic/8
|
|
math/multiply/zlow/zic/1,0,0/zlow/zic/10000
|
|
math/multiply/zlow/yic/1,0,0/zlow/yic/10000
|
|
math/multiply/zlow/xic/1,0,0/zlow/xic/10000
|
|
math/multiply/ylow/zic/1,0,0/ylow/zic/10000
|
|
math/multiply/ylow/yic/1,0,0/ylow/yic/10000
|
|
math/multiply/ylow/xic/1,0,0/ylow/xic/10000
|
|
math/multiply/xlow/zic/1,0,0/xlow/zic/10000
|
|
math/multiply/xlow/yic/1,0,0/xlow/yic/10000
|
|
math/multiply/xlow/xic/1,0,0/xlow/xic/10000
|
|
math/multiply/zhigh/zic/1,0,0/zhigh/zic/10000
|
|
math/multiply/zhigh/yic/1,0,0/zhigh/yic/10000
|
|
math/multiply/zhigh/xic/1,0,0/zhigh/xic/10000
|
|
math/multiply/yhigh/zic/1,0,0/yhigh/zic/10000
|
|
math/multiply/yhigh/yic/1,0,0/yhigh/yic/10000
|
|
math/multiply/yhigh/xic/1,0,0/yhigh/xic/10000
|
|
math/multiply/xhigh/zic/1,0,0/xhigh/zic/10000
|
|
math/multiply/xhigh/yic/1,0,0/xhigh/yic/10000
|
|
math/multiply/xhigh/xic/1,0,0/xhigh/xic/10000
|
|
cmo/setatt/zhigh/itetclr/1 0 0/1
|
|
cmo/setatt/zlow/itetclr/1 0 0/2
|
|
cmo/setatt/yhigh/itetclr/1 0 0/3
|
|
cmo/setatt/ylow/itetclr/1 0 0/4
|
|
cmo/setatt/xhigh/itetclr/1 0 0/5
|
|
cmo/setatt/xlow/itetclr/1 0 0/6
|
|
cmo/create/cube///tet
|
|
createpts/xyz/15.0 15.0 15.0/3.0 3.0 3.0/7.0 7.0 7.0/1 1 1
|
|
connect
|
|
math/multiply/cube/zic/1,0,0/cube/zic/10000
|
|
math/multiply/cube/yic/1,0,0/cube/yic/10000
|
|
math/multiply/cube/xic/1,0,0/cube/xic/10000
|
|
cmo/setatt/cube/itetclr/1 0 0/7
|
|
addmesh/merge/z_all/zhigh/zlow
|
|
addmesh/merge/y_all/yhigh/ylow
|
|
addmesh/merge/x_all/xhigh/xlow
|
|
addmesh/merge/xy_all/y_all/x_all
|
|
addmesh/merge/zc_all/z_all/cube
|
|
addmesh/merge/mo_all/zc_all/xy_all
|
|
cmo/status/mo_all/brief
|
|
finish
|
|
infile test_pathos.mlgi
|
|
compute/linear_extrapolate/cube/zhigh/zpos/zic
|
|
compute/linear_extrapolate/cube/zlow/zneg/zic
|
|
compute/linear_extrapolate/cube/yhigh/ypos/yic
|
|
compute/linear_extrapolate/cube/ylow/yneg/yic
|
|
cmo/status/cube/brief
|
|
cmo/delete/cube
|
|
finish
|
|
infile test_square.mlgi
|
|
define/NX/100
|
|
define/NY/100
|
|
define/NZ/50
|
|
define/MIN/-1.0
|
|
define/MAX/301.0
|
|
define/NX/30
|
|
define/NY/30
|
|
define/NZ/20
|
|
cmo/create/zsurf_quad///quad
|
|
quadxy NX NY/MIN MIN MIN/MAX MIN MIN/MAX MAX MIN/MIN MAX MIN
|
|
rzbrick/xyz/NX,NY,1/1,0,0/connect
|
|
cmo/setatt/zsurf_quad/imt 1
|
|
cmo/setatt/zsurf_quad/itetclr 1
|
|
resetpts/itp
|
|
math/sin/zsurf_quad/zic/1,0,0/zsurf_quad/xic
|
|
math/multiply/zsurf_quad/zic/1,0,0/zsurf_quad/zic/5.0
|
|
perturb/1 0 0/0. 0. 1.0
|
|
math/add/zsurf_quad/zic/1 0 0/zsurf_quad/zic/60.
|
|
cmo/create/mo_hex///hex
|
|
createpts/brick/xyz/NX NY NZ/0. 0. 0./300. 300. 50./1 1 1
|
|
cmo/select/mo_hex
|
|
resetpts/itp
|
|
compute/linear_extrapolate/mo_hex/zsurf_quad/zpos/zic
|
|
cmo/status/mo_hex/brief
|
|
cmo/delete/mo_hex
|
|
finish
|
|
finish
|